- my $word = qr,(\w+),a;
- my $ct = qr,(?:\/ct/$word)?,a;
-
- get qr,/css/$word\.css, => 'CSS';
- get qr,/js\.js, => 'JS';
-
- get qr,/ct/, => 'Ct';
- get qr,/ct/$word/, => 'Ct::Entry';
- get qr,/us/, => 'Us';
- get qr,/us/$word, => 'Us::Entry';
-
- get qr,$ct/log/(\d+)?, => 'Log';
- get qr,$ct/log/st, => 'St';
- get qr,$ct/log/job/$word, => 'Log::Entry';
- get qr,$ct/log/src/$word\.$word, => 'Src';
- get qr,$ct/pb/, => 'Pb';
- get qr,$ct/pb/$word, => 'Pb::Entry';
- post qr,$ct/pb/$word/submit, => 'Submit';
-
- post qr,/action/register, => 'Register';
- post qr,/action/passwd, => 'Passwd';
+ my $word = qr,(\w+),a;
+ my $number = qr,(\d+),a;
+
+ 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';
+
+ return reply 'Incorrect password' unless eval { pwcheck $r->user, $oldpass; 1 };
+ return reply 'The two passwords do not match' unless $newpass eq $confirm;
+
+ pwset $r->user, $newpass;
+ reply 'Password changed successfully';
+ };
+
+ post qr,/action/register, => old_handler 'Register';
+