]>
iEval git - gruntmaster-data.git/blob - gruntmaster-job
6 use IO
::Prompter
[ -style
=> 'bold', '-stdio', '-verbatim' ];
7 use File
::Slurp qw
/read_file/;
9 use Term
::ANSIColor qw
/RED RESET/;
10 use POSIX qw
/strftime/;
12 ##################################################
25 local $_ = shift or goto &cmd_list
;
26 say "Date: " , strftime
('%c', localtime job_date
);
27 say "User: ", job_user
;
28 say "Problem: ", problem_name job_problem
;
29 say "Extension: ", job_extension
;
30 say "Size: ", sprintf "%.2fKB", job_filesize
() / 1024;
31 say "Private: ", (job_private
() ?
'yes' : 'no');
32 say "Result text: ", job_result_text
;
33 say "Daemon: ", job_daemon
;
34 say "Compile errors: ", job_errors
;
38 local $_ = shift or goto &cmd_list
;
41 PUBLISH jobs
=> "$contest.$_";
44 ##################################################
46 GetOptions
( 'contest=s' => \
$contest );
47 local $Gruntmaster::Data
::contest
= $contest;
48 my $cmd = 'cmd_' . shift;
49 cmd_help
unless exists $main::{$cmd};
51 $cmd->(@ARGV) if exists $main::{$cmd};
60 gruntmaster-job - shell interface to Gruntmaster 6000 job log
64 gruntmaster-job [--contest=mycontest] card
65 gruntmaster-job [--contest=mycontest] show 5
66 gruntmaster-job [--contest=mycontest] rerun 7
70 gruntmaster-job is a tool for managing jobs.
72 Select the contest with the optional argument I<--contest>.
78 Prints the number of jobs in the selected contest.
82 Prints detailed information about the job with id I<id>.
92 Marius Gavrilescu E<lt>marius@ieval.roE<gt>
94 =head1 COPYRIGHT AND LICENSE
96 Copyright (C) 2014 by Marius Gavrilescu
98 This library is free software: you can redistribute it and/or modify
99 it under the terms of the GNU Affero General Public License as published by
100 the Free Software Foundation, either version 3 of the License, or
101 (at your option) any later version.
This page took 0.052171 seconds and 5 git commands to generate.