Slightly improve gruntmaster-problem and add it to EXE_FILES

diff --git a/Makefile.PL b/Makefile.PL
index 4e2fa24219c2fc0489ce03dbde4d7d82a2f6a3ec..9c22e698c95caabda44aa1a5288cc19fda3d12e2 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -4,7 +4,7 @@ use ExtUtils::MakeMaker;
 WriteMakefile(
   NAME              => 'Gruntmaster::Page',
   VERSION_FROM      => 'lib/Gruntmaster/Page.pm',
-  EXE_FILES         => [ qw/gruntmaster-genpage gruntmaster-genallpages/ ],
+  EXE_FILES         => [ qw/gruntmaster-genpage gruntmaster-genallpages gruntmaster-problem/ ],
   ABSTRACT_FROM     => 'lib/Gruntmaster/Page.pm',
   AUTHOR            => 'Marius Gavrilescu <marius@ieval.ro>',
   MIN_PERL_VERSION  => '5.14.0',

diff --git a/gruntmaster-problem b/gruntmaster-problem
index 32e8e2b7d6ca9cbaf0d0e86d12c1b06d739cd47f..611235f635794d4be42cf53c7d06b9482366575d 100755 (executable)
--- a/gruntmaster-problem
+++ b/gruntmaster-problem
@@ -27,7 +27,7 @@ sub cmd_add{
        my $contest = prompt 'Contest';
        local $Gruntmaster::Data::contest = $contest if $contest;
        my $name = prompt 'Problem name';
-       my $level = prompt 'Problem level';
+       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";
@@ -35,6 +35,12 @@ sub cmd_add{
        $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};