- st => [ db->standings($_{contest}) ],
- problems => [map { $_->problem } contest->contest_problems]
- }
+ st => [ contest->standings ],
+ problems => [
+ map { [$_->id, $_->name] }
+ sort { $a->value <=> $b->value }
+ map { $_->problem } contest->contest_problems],
+ }, 10
+ },
+
+ sub (/login) {
+ forbid !remote_user;
+
+ my $return = $env->{HTTP_REFERER} // '/';
+ [303, ['Set-Cookie' => "username=".remote_user->id, Location => $return], []]