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';
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});
+ purge '/ct/';