projects
/
gruntmaster-data.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
756368d
)
Fix gruntmaster-contest
author
Marius Gavrilescu
<marius@ieval.ro>
Thu, 27 Mar 2014 15:47:47 +0000
(17:47 +0200)
committer
Marius Gavrilescu
<marius@ieval.ro>
Thu, 27 Mar 2014 15:47:47 +0000
(17:47 +0200)
gruntmaster-contest
patch
|
blob
|
blame
|
history
diff --git
a/gruntmaster-contest
b/gruntmaster-contest
index dfa2a385d7a10f36ea082a8b158e309cf3499fea..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
}
sub cmd_help{
exec perldoc => $0
}
@@
-19,11
+21,11
@@
sub cmd_list{
}
sub cmd_show{
}
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{
}
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 $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{
}
sub cmd_rm{
-
remove_contest shift;
-
PUBLISH genpage => "ct/index.html";
+
#
remove_contest shift;
+
#
PUBLISH genpage => "ct/index.html";
}
##################################################
}
##################################################
This page took
0.01155 seconds
and
4
git commands to generate.