#!/usr/bin/perl -w
use v5.14;
-use Gruntmaster::Data qw/contests insert_contest remove_contest contest_name contest_owner contest_start contest_end/;
+use Gruntmaster::Data;
use IO::Prompter [ -style => 'bold', '-stdio', '-verbatim' ];
-use File::Slurp qw/read_file/;
-use Term::ANSIColor qw/RED RESET/;
use POSIX qw/strftime/;
use Date::Parse qw/str2time/;
my $end = str2time prompt 'End 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";
}
sub cmd_rm{
remove_contest shift;
+ PUBLISH genpage => "ct/index.html";
}
##################################################