From 7ad04bac18701071742876cd8a0bf26bf4580cfb Mon Sep 17 00:00:00 2001
From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 20 Dec 2014 23:19:40 +0200
Subject: [PATCH] Remove now-obsolete purges

---
 gruntmaster-contest | 5 -----
 gruntmaster-job     | 6 ------
 gruntmaster-problem | 5 -----
 3 files changed, 16 deletions(-)

diff --git a/gruntmaster-contest b/gruntmaster-contest
index 6b78104..c6d1db8 100755
--- 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 47bb2ab..0b99cb7 100755
--- 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 dac2e02..d9dbb73 100755
--- 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{
-- 
2.30.2