my $stop = str2time prompt 'Stop time' or die 'Cannot parse time';
$db->contests->create({id => $id, name => $name, owner => $owner, start => $start, stop => $stop});
- purge '/ct/';
}
sub cmd_rm{
my ($id) = @_;
$db->contest(shift)->delete;
- purge '/ct/';
- purge "/ct/$id";
}
sub cmd_get{
sub cmd_set{
my ($id, %values) = @_;
$db->contest($id)->update(\%values);
- purge '/ct/';
- purge "/ct/$id";
}
##################################################