Add table and column comments

[gruntmaster-data.git] / gruntmaster-contest

diff --git a/gruntmaster-contest b/gruntmaster-contest
index ff121cddaefed32dad808978b4920a381627a33c..6b7810413ad8c4a2b012298b34e639c4584552ad 100755 (executable)
--- a/gruntmaster-contest
+++ b/gruntmaster-contest
@@ -9,7 +9,8 @@ use Date::Parse qw/str2time/;
 
 ##################################################
 
-my $db = Gruntmaster::Data->connect('dbi:Pg:');
+my $dsn = $ENV{GRUNTMASTER_DSN} // 'dbi:Pg:';
+my $db = Gruntmaster::Data->connect($dsn);
 
 sub cmd_help{
        exec perldoc => $0
@@ -32,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{
@@ -52,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";
 }
 
 ##################################################