Add a purge sub and use it in gruntmaster-*

[gruntmaster-data.git] / gruntmaster-contest

diff --git a/gruntmaster-contest b/gruntmaster-contest
index 856faae6d7698fbc08b396ccb6f07defd7b92444..6b7810413ad8c4a2b012298b34e639c4584552ad 100755 (executable)
--- a/gruntmaster-contest
+++ b/gruntmaster-contest
@@ -33,17 +33,21 @@ END
 }
 
 sub cmd_add{
-       my $id = shift;
+       my ($id) = @_;
        my $name = prompt 'Contest name';
        my $owner = prompt 'Owner';
        my $start = str2time prompt 'Start time' or die 'Cannot parse time';
        my $stop = str2time prompt 'Stop time' or die 'Cannot parse time';
 
-       $db->contests->create({id => $id, name => $name, owner => $owner, start => $start, stop => $stop})
+       $db->contests->create({id => $id, name => $name, owner => $owner, start => $start, stop => $stop});
+       purge '/ct/';
 }
 
 sub cmd_rm{
-       $db->contest(shift)->delete
+       my ($id) = @_;
+       $db->contest(shift)->delete;
+       purge '/ct/';
+       purge "/ct/$id";
 }
 
 sub cmd_get{
@@ -53,7 +57,9 @@ sub cmd_get{
 
 sub cmd_set{
        my ($id, %values) = @_;
-       $db->contest($id)->update(\%values)
+       $db->contest($id)->update(\%values);
+       purge '/ct/';
+       purge "/ct/$id";
 }
 
 ##################################################