Fix gruntmaster-contest

[gruntmaster-data.git] / gruntmaster-contest

diff --git a/gruntmaster-contest b/gruntmaster-contest
index c2608c9300c26dcdb3915337fe13df12d076fbd4..23fd515e84ef1c7af73bc44d4a819e2e51bc4db2 100755 (executable)
--- 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";
 }
 
 ##################################################
@@ -68,6 +71,40 @@ gruntmaster-contest - shell interface to Gruntmaster 6000 contests
 
 =head1 DESCRIPTION
 
+gruntmaster-contest is a tool for managing contests.
+
+=over
+
+=item B<list>
+
+Prints the list of contests.
+
+=item B<show> I<id>
+
+Prints detailed information about the contest with id I<id>.
+
+=item B<add> I<id>
+
+Adds a new contest with id I<id>.
+
+=item B<rm> I<id>
+
+Removes the contest with id I<id>
+
+=back
+
+=head1 AUTHOR
+
+Marius Gavrilescu E<lt>marius@ieval.roE<gt>
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (C) 2014 by Marius Gavrilescu
+
+This library is free software: you can redistribute it and/or modify
+it under the terms of the GNU Affero General Public License as published by
+the Free Software Foundation, either version 3 of the License, or
+(at your option) any later version.
 
 
 =cut