[gruntmaster-data.git] / gruntmaster-job

#!/usr/bin/perl -w
use v5.14;

use Gruntmaster::Data;

use IO::Prompter [ -style => 'bold', '-stdio', '-verbatim' ];
use File::Slurp qw/read_file/;
use Getopt::Long;
use Term::ANSIColor qw/RED RESET/;
use POSIX qw/strftime/;

##################################################

my $contest;

sub cmd_help{
	exec perldoc => $0
}

sub cmd_card{
	say jobcard;
}

sub cmd_show{
	local $_ = shift or goto &cmd_list;
	say "Date: " , strftime ('%c', localtime job_date);
	say "User: ", job_user;
	say "Problem: ", problem_name job_problem;
	say "Extension: ", job_extension;
	say "Size: ", sprintf "%.2fKB", job_filesize() / 1024;
	say "Private: ", (job_private() ? 'yes' : 'no');
	say "Result text: ", job_result_text;
	say "Daemon: ", job_daemon;
	say "Compile errors: ", job_errors;
}

sub cmd_rerun{
	local $_ = shift or goto &cmd_list;
	clean_job;
	$contest//='';
	PUBLISH jobs => "$contest.$_";
}

##################################################

GetOptions ( 'contest=s' => \$contest );
local $Gruntmaster::Data::contest = $contest;
my $cmd = 'cmd_' . shift;
cmd_help unless exists $main::{$cmd};
no strict 'refs';
$cmd->(@ARGV) if exists $main::{$cmd};

1;
__END__

=encoding utf-8

=head1 NAME

gruntmaster-job - shell interface to Gruntmaster 6000 job log

=head1 SYNOPSIS

  gruntmaster-job [--contest=mycontest] card
  gruntmaster-job [--contest=mycontest] show 5
  gruntmaster-job [--contest=mycontest] rerun 7

=head1 DESCRIPTION

gruntmaster-job is a tool for managing jobs.

Select the contest with the optional argument I<--contest>.

=over

=item B<card>

Prints the number of jobs in the selected contest.

=item B<show> I<id>

Prints detailed information about the job with id I<id>.

=item B<rerun> I<id>

Reruns job I<id>.

=back

=head1 AUTHOR

Marius Gavrilescu E<lt>marius@ieval.roE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2014 by Marius Gavrilescu

This library is free software: you can redistribute it and/or modify
it under the terms of the GNU Affero General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.


=cut
Commit	Line	Data
014ee8a6 MG	1	#!/usr/bin/perl -w
	2	use v5.14;
	3
	4	use Gruntmaster::Data;
	5
	6	use IO::Prompter [ -style => 'bold', '-stdio', '-verbatim' ];
	7	use File::Slurp qw/read_file/;
	8	use Getopt::Long;
	9	use Term::ANSIColor qw/RED RESET/;
	10	use POSIX qw/strftime/;
	11
	12	##################################################
	13
	14	my $contest;
	15
	16	sub cmd_help{
	17	exec perldoc => $0
	18	}
	19
	20	sub cmd_card{
	21	say jobcard;
	22	}
	23
	24	sub cmd_show{
	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;
	35	}
	36
	37	sub cmd_rerun{
	38	local $_ = shift or goto &cmd_list;
	39	clean_job;
	40	$contest//='';
	41	PUBLISH jobs => "$contest.$_";
	42	}
	43
	44	##################################################
	45
	46	GetOptions ( 'contest=s' => \$contest );
	47	local $Gruntmaster::Data::contest = $contest;
	48	my $cmd = 'cmd_' . shift;
	49	cmd_help unless exists $main::{$cmd};
	50	no strict 'refs';
	51	$cmd->(@ARGV) if exists $main::{$cmd};
	52
	53	1;
	54	__END__
	55
	56	=encoding utf-8
	57
	58	=head1 NAME
	59
	60	gruntmaster-job - shell interface to Gruntmaster 6000 job log
	61
	62	=head1 SYNOPSIS
	63
e90402be MG	64	gruntmaster-job [--contest=mycontest] card
	65	gruntmaster-job [--contest=mycontest] show 5
	66	gruntmaster-job [--contest=mycontest] rerun 7
014ee8a6 MG	67
	68	=head1 DESCRIPTION
	69
e90402be MG	70	gruntmaster-job is a tool for managing jobs.
	71
	72	Select the contest with the optional argument I<--contest>.
	73
	74	=over
	75
	76	=item B<card>
	77
	78	Prints the number of jobs in the selected contest.
	79
	80	=item B<show> I<id>
	81
	82	Prints detailed information about the job with id I<id>.
	83
	84	=item B<rerun> I<id>
	85
	86	Reruns job I<id>.
	87
	88	=back
	89
	90	=head1 AUTHOR
	91
	92	Marius Gavrilescu E<lt>marius@ieval.roE<gt>
	93
	94	=head1 COPYRIGHT AND LICENSE
	95
	96	Copyright (C) 2014 by Marius Gavrilescu
	97
	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.
014ee8a6 MG	102
	103
	104	=cut