Remove now-obsolete purges

diff --git a/gruntmaster-contest b/gruntmaster-contest
index 6b7810413ad8c4a2b012298b34e639c4584552ad..c6d1db80325b289833d85494263df678c4f65065 100755 (executable)
--- a/gruntmaster-contest
+++ b/gruntmaster-contest
@@ -40,14 +40,11 @@ sub cmd_add{
        my $stop = str2time prompt 'Stop time' or die 'Cannot parse time';
 
        $db->contests->create({id => $id, name => $name, owner => $owner, start => $start, stop => $stop});
-       purge '/ct/';
 }
 
 sub cmd_rm{
        my ($id) = @_;
        $db->contest(shift)->delete;
-       purge '/ct/';
-       purge "/ct/$id";
 }
 
 sub cmd_get{
@@ -58,8 +55,6 @@ sub cmd_get{
 sub cmd_set{
        my ($id, %values) = @_;
        $db->contest($id)->update(\%values);
-       purge '/ct/';
-       purge "/ct/$id";
 }
 
 ##################################################

diff --git a/gruntmaster-job b/gruntmaster-job
index 47bb2ab301eb1ceb7472bd54375f6c4d087414eb..0b99cb715c655d08c4a658298d9bec8c98a9b2cf 100755 (executable)
--- a/gruntmaster-job
+++ b/gruntmaster-job
@@ -34,8 +34,6 @@ END
 sub cmd_rm{
        my ($id) = @_;
        $db->job($id)->delete;
-       purge '/log/';
-       purge "/log/$id";
 }
 
 sub cmd_get{
@@ -46,15 +44,11 @@ sub cmd_get{
 sub cmd_set{
        my ($id, %values) = @_;
        $db->job($id)->update(\%values);
-       purge '/log/';
-       purge "/log/$id";
 }
 
 sub cmd_rerun{
        my ($id) = @_;
        $db->job($id)->rerun;
-       purge '/log/';
-       purge "/log/$id";
 }
 
 ##################################################

diff --git a/gruntmaster-problem b/gruntmaster-problem
index dac2e0237ce9d18d5d54b02bc6cc6a3e38107020..d9dbb736aa4318b7ebe51ff8906a111af7b1581a 100755 (executable)
--- a/gruntmaster-problem
+++ b/gruntmaster-problem
@@ -88,7 +88,6 @@ sub cmd_add{
        $db->problems->create (\%options);
 
        $db->contest_problems->create({problem => $id, contest => $contest}) if $contest;
-       purge '/pb/';
 }
 
 sub cmd_set{
@@ -97,8 +96,6 @@ sub cmd_set{
        my ($id, %values) = @_;
        %values = map { $_ => scalar read_file $values{$_} } keys %values if $file;
        $db->problem($id)->update(\%values);
-       purge '/pb/';
-       purge "/pb/$id";
 }
 
 sub cmd_get{
@@ -114,8 +111,6 @@ sub cmd_list{
 sub cmd_rm{
        my ($id) = @_;
        $db->problem($id)->delete;
-       purge '/pb/';
-       purge "/pb/$id";
 }
 
 sub cmd_show{