my ($self, $frm, $env) = @_;
my $r = Plack::Request->new($env);
my ($problem, $format, $contest, $private, $prog) = map {scalar $r->param($_)} 'problem', 'prog_format', 'contest', 'private', 'source_code';
my ($self, $frm, $env) = @_;
my $r = Plack::Request->new($env);
my ($problem, $format, $contest, $private, $prog) = map {scalar $r->param($_)} 'problem', 'prog_format', 'contest', 'private', 'source_code';