]>
iEval git - plack-app-gruntmaster.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
;
43 ##################################################
45 GetOptions
( 'contest=s' => \
$contest );
46 local $Gruntmaster::Data
::contest
= $contest;
47 my $cmd = 'cmd_' . shift;
48 cmd_help
unless exists $main::{$cmd};
50 $cmd->(@ARGV) if exists $main::{$cmd};
59 gruntmaster-job - shell interface to Gruntmaster 6000 job log
64 gruntmaster-job show 5
65 gruntmaster-job rerun 7
This page took 0.056177 seconds and 5 git commands to generate.