our @ISA = qw/Gruntmaster::Page::Base/;
our $VERSION = '0.001';
-use constant FORMATS => [qw/C CPP MONO JAVA PASCAL PERL PYTHON/];
+use constant FORMATS => [qw/C CPP JAVA PERL PYTHON/];
sub _generate{
my ($self, $htc, $lang, $env, $contest, $id) = @_;
my ($problem, $format, $contest, $private, $prog) = map {scalar $r->param($_)} 'problem', 'prog_format', 'contest', 'private', 'source_code';
my $upload = $r->upload('prog');
if (defined $upload) {
- my $temp = read_file $upload->filename;
+ my $temp = read_file $upload->path;
$prog = $temp if $temp
}
die if defined $contest && $contest !~ /^\w+$/ ;