#!/usr/bin/perl -w
use v5.14;
-use Gruntmaster::Data qw/insert_problem remove_problem set_problem_meta problems/;
+use Gruntmaster::Data;
+use Gruntmaster::Page::Submit;
use IO::Prompter [ -style => 'bold', '-stdio', '-verbatim' ];
use File::Slurp qw/read_file/;
use Term::ANSIColor qw/RED RESET/;
+use Getopt::Long qw/GetOptions/;
##################################################
+my $contest;
+
sub cmd_help{
exec perldoc => $0
}
my ($meta, $name, $prefix) = @_;
my $filename = prompt '$prefix filename', -complete => 'filenames';
$meta->{files}{$name}{content} = read_file $filename;
- $meta->{files}{$name}{format} = prompt '$prefix format', -menu => [keys Gruntmaster::Page::Log::FORMAT_EXTENSION()];
+ $meta->{files}{$name}{format} = prompt '$prefix format', -menu => Gruntmaster::Page::Submit::FORMATS;
$meta->{files}{$name}{name} = prompt "$prefix filename [$filename]", -default => $filename;
-
}
sub cmd_add{
my $id = shift;
- my $contest = prompt 'Contest';
- local $Gruntmaster::Data::contest = $contest if $contest;
my $name = prompt 'Problem name';
- my $level = prompt 'Problem level';
+ my $author = prompt 'Problem author (full name)';
+ my $owner = prompt 'Problem owner (username)';
+ my $level = prompt 'Problem level', -menu => "beginner\neasy\nmedium\nhard";
my $statement = read_file prompt 'File with problem statement', -complete => 'filenames';
my %meta;
$meta{generator} = prompt 'Generator', -menu => "File\nRun\nUndef";
$meta{judge} = prompt 'Judge', -menu => "Absolute\nPoints";
$meta{testcnt} = prompt 'Test count', '-i';
+ $meta{timeout} = prompt 'Time limit (seconds)', '-n';
+ delete $meta{timeout} unless $meta{timeout};
+ $meta{olimit} = prompt 'Output limit (bytes)', '-i';
+ delete $meta{olimit} unless $meta{olimit};
+ say 'Memory limits are broken, so I won\'t ask you for one';
+
if ($meta{generator} eq 'File') {
my $prefix = prompt '[Generator::File] Input file prefix';
$meta{infile}[$_ - 1] = read_file "$prefix$_.in" for 1 .. $meta{testcnt};
prompt_file int => '[Runner::Interactive] Interactive verifier';
}
- insert_problem $id => name => $name, level => $level, statement => $statement;
+ insert_problem $id => name => $name, level => $level, statement => $statement, author => $author, owner => $owner;
set_problem_meta $id => \%meta;
+ PUBLISH genpage => $contest ? "ct/$contest/pb/index.html" : 'pb/index.html';
+ PUBLISH genpage => $contest ? "ct/$contest/pb/$id.html" : "pb/$id.html";
+}
+
+sub cmd_set{
+ my $file;
+ GetOptions ( 'file!' => \$file );
+ my ($id, %values) = @ARGV;
+ %values = map { $_ => scalar read_file $values{$_} } keys %values if $file;
+ edit_problem $id => %values;
+ PUBLISH genpage => 'pb/index.html';
+ PUBLISH genpage => "pb/$id.html";
}
sub cmd_list{
- my $contest = shift;
- local $Gruntmaster::Data::contest = $contest if $contest;
- print problems;
+ local $, = "\n";
+ say problems;
}
sub cmd_rm{
- remove_problem shift
+ remove_problem shift;
+ PUBLISH genpage => $contest ? "ct/$contest/pb/index.html" : 'pb/index.html';
}
sub cmd_show{
##################################################
-no strict 'refs';
+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;