gruntmaster-problem

   1 #!/usr/bin/perl -w
   2 use v5.14;
   3
   4 use Gruntmaster::Data;
   5 use Gruntmaster::Page::Submit;
   6
   7 use IO::Prompter [ -style => 'bold', '-stdio', '-verbatim' ];
   8 use File::Slurp qw/read_file/;
   9 use Term::ANSIColor qw/RED RESET/;
  10 use Getopt::Long qw/:config require_order/;
  11
  12 ##################################################
  13
  14 my $contest;
  15
  16 sub cmd_help{
  17         exec perldoc => $0
  18 }
  19
  20 sub prompt_file{
  21         my ($meta, $name, $prefix) = @_;
  22         my $filename = prompt '$prefix filename', -complete => 'filenames';
  23         $meta->{files}{$name}{content} = read_file $filename;
  24         $meta->{files}{$name}{format} = prompt '$prefix format', -menu => Gruntmaster::Page::Submit::FORMATS;
  25         $meta->{files}{$name}{name} = prompt "$prefix filename [$filename]", -default => $filename;
  26 }
  27
  28 sub cmd_add{
  29         my $id = shift;
  30         my $name = prompt 'Problem name';
  31         my $private = prompt('Private?', '-yn') eq 'y';
  32         my $author = prompt 'Problem author (full name)';
  33         my $owner = prompt 'Problem owner (username)';
  34         my $level = prompt 'Problem level', -menu => "beginner\neasy\nmedium\nhard";
  35         my $statement = read_file prompt 'File with problem statement', -complete => 'filenames';
  36         my %meta;
  37         my $generator = prompt 'Generator', -menu => "File\nRun\nUndef";
  38         my $runner = prompt 'Runner', -menu => "File\nVerifier\nInteractive";
  39         my $judge = prompt 'Judge', -menu => "Absolute\nPoints";
  40         my $testcnt = prompt 'Test count', '-i';
  41
  42         my $timeout = prompt 'Time limit (seconds)', '-n';
  43         my $olimit = prompt 'Output limit (bytes)', '-i';
  44         say 'Memory limits are broken, so I won\'t ask you for one';
  45
  46         prompt_file \%meta, gen => '[Generator::Run] Generator' if $generator eq 'Run';
  47
  48         if ($runner eq 'File') {
  49                 $meta{tests}[$_ - 1] = prompt "[Runner::File] Score for test ${_} [10]", '-i', -default => 10 for 1 .. $testcnt;
  50         }
  51
  52         prompt_file \%meta, ver => '[Runner::Verifier] Verifier' if $runner eq 'Verifier';
  53
  54         if ($runner eq 'Interactive') {
  55                 say RED, 'WARNING: Runner::Interactive is experimental', RESET;
  56                 prompt_file \%meta, int => '[Runner::Interactive] Interactive verifier';
  57         }
  58
  59         insert_problem $id => (
  60                 name => $name,
  61                 level => $level,
  62                 statement => $statement,
  63                 author => $author,
  64                 owner => $owner,
  65                 generator => $generator,
  66                 runner => $runner,
  67                 judge => $judge,
  68                 testcnt => $testcnt,
  69                 ($private ? (private => $private) : ()),
  70                 (defined $timeout ? (timeout => $timeout) : ()),
  71                 (defined $olimit ? (olimit => $olimit) : ()));
  72         set_problem_meta $id => \%meta;
  73         PUBLISH genpage => $contest ? "ct/$contest/pb/index.html" : 'pb/index.html';
  74         PUBLISH genpage => $contest ? "ct/$contest/pb/$id.html" : "pb/$id.html";
  75 }
  76
  77 sub cmd_set{
  78         my $file;
  79         GetOptions ( 'file!' => \$file );
  80         my ($id, %values) = @ARGV;
  81         %values = map { $_ => scalar read_file $values{$_} } keys %values if $file;
  82         edit_problem $id => %values;
  83         PUBLISH genpage => 'pb/index.html';
  84         PUBLISH genpage => "pb/$id.html";
  85 }
  86
  87 sub cmd_list{
  88         local $, = "\n";
  89         say problems;
  90 }
  91
  92 sub cmd_rm{
  93         remove_problem shift;
  94         PUBLISH genpage => $contest ? "ct/$contest/pb/index.html" : 'pb/index.html';
  95 }
  96
  97 sub cmd_show{
  98         local $_ = shift or goto &cmd_list;
  99 }
 100
 101 ##################################################
 102
 103 GetOptions ( 'contest=s' => \$contest );
 104 local $Gruntmaster::Data::contest = $contest;
 105 my $cmd = 'cmd_' . shift;
 106 cmd_help unless exists $main::{$cmd};
 107 no strict 'refs';
 108 $cmd->(@ARGV) if exists $main::{$cmd};
 109
 110 1;
 111 __END__
 112
 113 =encoding utf-8
 114
 115 =head1 NAME
 116
 117 gruntmaster-problem - shell interface to Gruntmaster 6000 problems
 118
 119 =head1 SYNOPSIS
 120
 121   gruntmaster-problem [--contest=mycontest] add problem_id
 122   gruntmaster-problem [--contest=mycontest] list
 123   gruntmaster-problem [--contest=mycontest] rm problem_id
 124   gruntmaster-problem [--contest=mycontest] show problem_id
 125   gruntmaster-problem [--contest=mycontest] set [--file] problem_id key value
 126
 127 =head1 DESCRIPTION
 128
 129 gruntmaster-problem is a tool for managing problems.
 130
 131 Select the contest with the optional argument I<--contest>.
 132
 133 =over
 134
 135 =item B<list>
 136
 137 Prints the list of problems in the selected contest.
 138
 139 =item B<show> I<id>
 140
 141 Prints detailed information about problem I<id>.
 142
 143 =item B<add> I<id>
 144
 145 Adds a new problem with id I<id>.
 146
 147 =item B<rm> I<id>
 148
 149 Removes the problem with id I<id>.
 150
 151 =item B<set> I<id> I<key> I<value>
 152
 153 Sets the I<key> configuration option of problem I<id> to I<value>.
 154
 155 =item B<set> --file I<id> I<key> I<file>
 156
 157 Sets the I<key> configuration option of problem I<id> to the contents of the file I<file>.
 158
 159 =back
 160
 161 =head1 AUTHOR
 162
 163 Marius Gavrilescu E<lt>marius@ieval.roE<gt>
 164
 165 =head1 COPYRIGHT AND LICENSE
 166
 167 Copyright (C) 2014 by Marius Gavrilescu
 168
 169 This library is free software: you can redistribute it and/or modify
 170 it under the terms of the GNU Affero General Public License as published by
 171 the Free Software Foundation, either version 3 of the License, or
 172 (at your option) any later version.
 173
 174
 175 =cut