+ get qr,/css/$word\.css, => sub {
+ my ($env, $theme) = @_;
+ return [404, ['Content-Type' => 'text/plain'], [ 'Not found' ]] unless -e "css/themes/$theme.css";
+ my $css = read_file "css/themes/$theme.css";
+ $css .= read_file $_ for <css/*.css>;
+ [200, ['Content-Type' => 'text/css', 'Cache-Control' => 'public, max-age=604800', 'X-Forever' => 1], [CSS::Minifier::XS::minify $css] ]
+ };
+
+ get qr,/js\.js, => sub {
+ my $js;
+ $js .= read_file $_ for <js/*.js>;
+ [200, ['Content-Type' => 'application/javascript', 'Cache-Control' => 'public, max-age=604800', 'X-Forever' => 1], [JavaScript::Minifier::XS::minify $js] ]
+ };
+
+ get qr,/log/src/$number\.$word, => sub {
+ my ($env, $job, $ext) = @_;
+ $job = db($env)->job($job);
+ return NOT_FOUND if $job->contest;
+ return FORBIDDEN if !admin && ($job->private || $job->problem->private);
+ [200, ['Content-Type' => CONTENT_TYPES->{$ext}, 'Cache-Control' => 'max-age=604800', 'X-Forever' => 1], [$job->source] ]
+ };
+
+ get qr,/ct/$word/log/src/$number\.$word, => sub {
+ my ($env, $ct, $job, $ext) = @_;
+ $job = db($env)->job($job);
+ $ct = db($env)->contest($ct);
+ return NOT_FOUND if $job->contest->id ne $ct->id;
+ return FORBIDDEN if !admin && ($job->private || !$ct->is_finished);
+ [200, ['Content-Type' => CONTENT_TYPES->{$ext}, 'Cache-Control' => 'max-age=604800', 'X-Forever' => 1], [$job->source] ]
+ };
+
+ get qr,/ct/$word/log/st, => sub {
+ my($env, $ct) = @_;
+ $env->{'gruntmaster.contest'} = $ct;
+ old_handler('St')->($env);
+ };
+
+ get qr,/us/, => old_handler 'Us';
+ get qr,/us/$word, => old_handler 'Us::Entry';
+
+ get qr,/pb/, => old_handler 'Pb';
+
+ get qr,/us/$word/pb/, => sub {
+ my ($env, $us) = @_;
+ $env->{'gruntmaster.user'} = $us;
+ old_handler('Pb')->($env);
+ };
+
+ get qr,/ct/$word/pb/, => sub {
+ my ($env, $ct) = @_;
+ return FORBIDDEN if !admin && db($env)->contest($ct)->is_pending;
+ $env->{'gruntmaster.contest'} = $ct;
+ old_handler('Pb')->($env);
+ };
+
+ get qr,/pb/$word, => sub {
+ my ($env, $pb) = @_;
+ return NOT_FOUND if !db($env)->problem($pb)->is_in_archive;
+ return FORBIDDEN if !admin && db($env)->problem($pb)->private;
+ old_handler('Pb::Entry')->(@_);
+ };
+
+ get qr,/ct/$word/pb/$word, => sub{
+ my ($env, $ct, $pb) = @_;
+ return NOT_FOUND if !db($env)->contest_problems->find($ct, $pb);
+ return FORBIDDEN if !admin && db($env)->contest($ct)->is_pending;
+ $env->{'gruntmaster.contest'} = $ct;
+ old_handler('Pb::Entry')->($env, $pb);
+ };
+
+ post qr,/pb/$word/submit, => sub {
+ my ($env, $pb) = @_;
+ return NOT_FOUND if !db($env)->problem($pb)->is_in_archive;
+ old_handler('Submit')->($env, $pb);
+ };
+
+ post qr,/ct/$word/pb/$word/submit, => sub {
+ my ($env, $ct, $pb) = @_;
+ return NOT_FOUND if !db($env)->contest_problems->find($ct, $pb);
+ return FORBIDDEN if !admin && db($env)->contest($ct)->is_pending;
+ $env->{'gruntmaster.contest'} = $ct;
+ old_handler('Submit')->($env, $pb);
+ };
+
+ get qr,/log/(?:page-$number)?, => sub {
+ my ($env, $page) = @_;
+ $env->{'gruntmaster.page'} = $page || -1;
+ old_handler('Log')->($env)
+ };
+
+ get qr,/ct/$word/log/(?:page-$number)?, => sub {
+ my ($env, $ct, $page) = @_;
+ return FORBIDDEN if !admin && db($env)->contest($ct)->is_pending;
+ $env->{'gruntmaster.contest'} = $ct;
+ $env->{'gruntmaster.page'} = $page || -1;
+ old_handler('Log')->($env)
+ };
+
+ get qr,/pb/$word/log/(?:page-$number)?, => sub {
+ my ($env, $pb, $page) = @_;
+ #return FORBIDDEN if !admin && db($pb)-> TODO
+ $env->{'gruntmaster.problem'} = $pb;
+ $env->{'gruntmaster.page'} = $page || -1;
+ old_handler('Log')->($env)
+ };
+
+ get qr,/us/$word/log/(?:page-$number)?, => sub {
+ my ($env, $us, $page) = @_;
+ $env->{'gruntmaster.user'} = $us;
+ $env->{'gruntmaster.page'} = $page || -1;
+ old_handler('Log')->($env);
+ };
+
+ get qr,/log/$number, => sub{
+ my ($env, $job) = @_;
+ my $j = db($env)->job($job);
+ return FORBIDDEN if !admin && ($j->private || $j->problem->private || ($j->contest && !$j->contest->is_finished));
+ old_handler('Log::Entry')->($env, $job);
+ };
+
+ get qr,/ct/, => old_handler 'Ct';
+
+ get qr,/ct/$word, => sub {
+ my ($env, $ct) = @_;
+ return FORBIDDEN if !admin && db($env)->contest($ct)->is_pending;
+ old_handler('Ct::Entry')->($env, $ct);
+ };
+
+ post qr,/action/passwd, => sub {
+ my ($env) = @_;
+ my $r = Plack::Request->new($env);
+ my ($oldpass, $newpass, $confirm) = map {scalar $r->param($_)} 'password', 'new_password', 'confirm_new_password';