##################################################
-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
}
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});
}
sub cmd_rm{
- $db->contest(shift)->delete
+ my ($id) = @_;
+ $db->contest(shift)->delete;
}
sub cmd_get{
sub cmd_set{
my ($id, %values) = @_;
- $db->contest($id)->update(\%values)
+ $db->contest($id)->update(\%values);
}
##################################################