X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FHandlers.pm;h=f0281f2826f939da53e258a279818821d7e934b0;hb=f0ae016ea9a4816b5fb37095f079e2e9ac46ac97;hp=dec98dcc23c9113e357ee389cede24a47fc98ce4;hpb=f1df5335758abc1b815002b3ff415f349761256d;p=gruntmaster-handlers.git diff --git a/lib/Gruntmaster/Handlers.pm b/lib/Gruntmaster/Handlers.pm index dec98dc..f0281f2 100644 --- a/lib/Gruntmaster/Handlers.pm +++ b/lib/Gruntmaster/Handlers.pm @@ -20,7 +20,17 @@ use File::Basename qw/fileparse/; use File::Temp qw/tempdir/; use File::Copy qw/move/; use Gruntmaster::Data qw/contest_start contest_end push_job set_job_inmeta insert_user PUBLISH/; -use Gruntmaster::Page::Log; + +use constant FORMAT_EXTENSION => { + C => 'c', + CPP => 'cpp', + MONO => 'cs', + JAVA => 'java', + PASCAL => 'pas', + PERL => 'pl', + PYTHON => 'py', + RUBY => 'rb', +}; sub aputs{ my ($r, $str) = @_; @@ -46,14 +56,14 @@ sub submit{ defined $private ? (private => $private) : (), defined $contest ? (contest => $contest, private => 1) : (), filesize => length $prog, - extension => Gruntmaster::Page::Log::FORMAT_EXTENSION->{$format}, + extension => FORMAT_EXTENSION->{$format}, ); set_job_inmeta $job, { files => { prog => { format => $format, - name => 'prog.' . Gruntmaster::Page::Log::FORMAT_EXTENSION->{$format}, + name => 'prog.' . FORMAT_EXTENSION->{$format}, content => $prog, } } @@ -78,6 +88,8 @@ sub register{ insert_user $username, name => $name, email => $email, phone => $phone, town => $town, university => $university, level => $level; + PUBLISH genpage => "us/index.html"; + PUBLISH genpage => "us/$username.html"; aputs $r, 'Registered successfully'; }