use warnings;
our $VERSION = '0.001';
-use constant FORMAT_EXTENSION => {
- CPP => 'cpp',
-};
-
use Apache2::Access;
+use Apache2::Authen::Passphrase qw/pwcheck pwset USER_REGEX/;
use Apache2::AuthzCaps qw/hascaps/;
use Apache2::RequestRec;
use Apache2::RequestIO;
use File::Basename qw/fileparse/;
use File::Temp qw/tempdir/;
use File::Copy qw/move/;
-use YAML::Any qw/LoadFile DumpFile/;
+use Gruntmaster::Data;
+
+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) = @_;
+ $r->set_content_length(length $str);
+ $r->puts($str);
+ $r->content_type('text/plain');
+ OK
+}
sub submit{
my $r = shift;
- chdir $r->dir_config('root');
my $req = Apache2::Request->new($r);
- my ($problem, $format, $contest) = map {scalar $req->param($_)} 'problem', 'prog_format', 'contest';
- my $ext = FORMAT_EXTENSION->{$format};
- my $prog = $req->upload('prog');
- die if defined $contest && $contest !~ /^\w+$/;
-
- if (defined $contest) {
- my $meta = LoadFile "ct/$contest/meta.yml";
- die unless time >= $meta->{start} && time <= $meta->{end}
+ my ($problem, $format, $contest, $private, $prog) = map {scalar $req->param($_)} 'problem', 'prog_format', 'contest', 'private', 'source_code';
+ my $upload = $req->upload('prog');
+ if (defined $upload) {
+ my $temp;
+ $upload->slurp($temp);
+ $prog = $temp if $temp
}
-
- my $dir = tempdir;
- $prog->link("$dir/prog.$ext");
- DumpFile "$dir/meta.yml", {
- files => {
- prog => {
- format => $format,
- name => 'prog.cpp',
+ die if defined $contest && $contest !~ /^\w+$/ ;
+ die if defined $contest && (time > contest_end $contest);
+ return aputs 'A required parameter was not supplied' if grep { !defined } $problem, $format, $prog;
+
+ local $Gruntmaster::Data::contest = $contest;
+
+ my $job = push_job (
+ date => time,
+ problem => $problem,
+ user => $r->user,
+ defined $private ? (private => $private) : (),
+ defined $contest ? (contest => $contest, private => 1) : (),
+ filesize => length $prog,
+ extension => FORMAT_EXTENSION->{$format},
+ );
+
+ set_job_inmeta $job, {
+ files => {
+ prog => {
+ format => $format,
+ name => 'prog.' . FORMAT_EXTENSION->{$format},
+ content => $prog,
+ }
}
- },
- problem => $problem,
- user => $r->user,
- date => time,
- defined $contest ? (contest => $contest) : (),
};
- my $jobname = int rand 1_000_000_000;
- $jobname = int rand 1_000_000_000 while -d "jobs/$jobname";
- move $dir, "jobs/$jobname" or die $!;
-
+ $contest //= '';
+ PUBLISH 'jobs', "$contest.$job";
$r->print("Job submitted");
OK
}
+sub register{
+ my $r = shift;
+ my $req = Apache2::Request->new($r);
+ my ($username, $password, $confirm_password, $name, $email, $phone, $town, $university, $level) = map { die if length > 200; $_ } map {scalar $req->param($_)} qw/username password confirm_password name email phone town university level/;
+
+ local $Apache2::Authen::Passphrase::rootdir = $r->dir_config('AuthenPassphraseRootdir');
+ return aputs $r, 'Bad username. Allowed characters are letters, digits and underscores, and the username must be between 2 and 20 characters long.' unless $username =~ USER_REGEX;
+ return aputs $r, 'Username already in use' if -e "$Apache2::Authen::Passphrase::rootdir/$username.yml";
+ return aputs $r, 'The two passwords do not match' unless $password eq $confirm_password;
+ return aputs $r, 'All fields are required' if grep { !length } $username, $password, $confirm_password, $name, $email, $phone, $town, $university, $level;
+ pwset $username, $password;
+
+ 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';
+}
+
+sub passwd{
+ my $r = shift;
+ my $req = Apache2::Request->new($r);
+ my ($oldpass, $newpass, $confirm) = map {scalar $req->param($_)} 'password', 'new_password', 'confirm_new_password';
+
+ local $Apache2::Authen::Passphrase::rootdir = $r->dir_config('AuthenPassphraseRootdir');
+ return aputs $r, 'Incorrect password' unless eval { pwcheck $r->user, $oldpass; 1 };
+ return aputs $r, 'The two passwords do not match' unless $newpass eq $confirm;
+
+ pwset $r->user, $newpass;
+ aputs $r, 'Password changed successfully';
+}
+
+sub problem_mark_open{
+ my $r = shift;
+ $r->uri =~ m,/ct/([^/]*)/pb/([^.]*),;
+ $r->log_error("Marking open for contest $1 problem $2 and user " . $r->user);
+ local $Gruntmaster::Data::contest = $1;
+ my $problem = $2;
+ mark_open $problem, $r->user;
+}
+
+=begin comment
+
sub private{
my $r = shift;
my $dir = (fileparse $r->uri)[1];
DECLINED
}
+=end comment
+
+=cut
+
1;
__END__
# Below is stub documentation for your module. You'd better edit it!