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+$/ ;