X-Git-Url: http://git.ieval.ro/?p=gruntmaster-data.git;a=blobdiff_plain;f=gruntmaster-contest;h=23fd515e84ef1c7af73bc44d4a819e2e51bc4db2;hp=dfa2a385d7a10f36ea082a8b158e309cf3499fea;hb=08b6a201ffd2a61d6ab8193c079511842df8ebac;hpb=756368d098d3fac404f5770fe17b3a4ab5721629

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";
 }
 
 ##################################################