Add problem_mark_open handler

diff --git a/lib/Gruntmaster/Handlers.pm b/lib/Gruntmaster/Handlers.pm
index 7b6bddc6ca9b4bfe9dd613ddce204dfd7461fbf8..5415b809d61e4e28edbb35c6caf3dec343b0c19c 100644 (file)
--- a/lib/Gruntmaster/Handlers.pm
+++ b/lib/Gruntmaster/Handlers.pm
@@ -19,7 +19,7 @@ use Cwd qw/cwd/;
 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::Data;
 
 use constant FORMAT_EXTENSION => {
        C => 'c',
@@ -114,6 +114,15 @@ sub passwd{
        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{