sub _generate{
my ($self, $htc, $lang, $env, $contest, $id) = @_;
debug $env => "language is '$lang', contest is '$contest', id is '$id'";
my $user = $env->{REMOTE_USER};
sub _generate{
my ($self, $htc, $lang, $env, $contest, $id) = @_;
debug $env => "language is '$lang', contest is '$contest', id is '$id'";
my $user = $env->{REMOTE_USER};
$htc->param(name => problem_name $id);
$htc->param(author => problem_author $id);
$htc->param(owner => problem_owner $id);
$htc->param(name => problem_name $id);
$htc->param(author => problem_author $id);
$htc->param(owner => problem_owner $id);