From 08b6a201ffd2a61d6ab8193c079511842df8ebac Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Thu, 27 Mar 2014 17:47:47 +0200 Subject: [PATCH] Fix gruntmaster-contest --- gruntmaster-contest | 25 ++++++++++++++----------- 1 file changed, 14 insertions(+), 11 deletions(-) diff --git a/gruntmaster-contest b/gruntmaster-contest index dfa2a38..23fd515 100755 --- a/gruntmaster-contest +++ b/gruntmaster-contest @@ -9,6 +9,8 @@ use Date::Parse qw/str2time/; ################################################## +my $db = Gruntmaster::Data->connect('dbi:Pg:'); + sub cmd_help{ exec perldoc => $0 } @@ -19,11 +21,11 @@ sub cmd_list{ } sub cmd_show{ - local $_ = shift or goto &cmd_list; - say "Name: ", contest_name; - say "Owner: ", contest_owner; - say "Start: ", strftime '%c', localtime contest_start; - say "End: ", strftime '%c', localtime contest_end; +# local $_ = shift or goto &cmd_list; +# say "Name: ", contest_name; +# say "Owner: ", contest_owner; +# say "Start: ", strftime '%c', localtime contest_start; +# say "End: ", strftime '%c', localtime contest_end; } sub cmd_add{ @@ -31,16 +33,17 @@ sub cmd_add{ my $name = prompt 'Contest name'; my $owner = prompt 'Owner'; my $start = str2time prompt 'Start time' or die 'Cannot parse time'; - my $end = str2time prompt 'End time' or die 'Cannot parse time'; + my $stop = str2time prompt 'Stop time' or die 'Cannot parse time'; - insert_contest $id => name => $name, owner => $owner, start => $start, end => $end; - PUBLISH genpage => "ct/$id/index.html"; - PUBLISH genpage => "ct/index.html"; + $db->contests->create({id => $id, name => $name, owner => $owner, start => $start, stop => $stop}); +# insert_contest $id => name => $name, owner => $owner, start => $start, stop => $stop; +# PUBLISH genpage => "ct/$id/index.html"; +# PUBLISH genpage => "ct/index.html"; } sub cmd_rm{ - remove_contest shift; - PUBLISH genpage => "ct/index.html"; +# remove_contest shift; +# PUBLISH genpage => "ct/index.html"; } ################################################## -- 2.30.2