Show submit box in pb_entry before contest_start

[gruntmaster-page.git] / gruntmaster-contest

diff --git a/gruntmaster-contest b/gruntmaster-contest
index e61a6c2ec9051244609e45ad660bc4915bbfc133..c2608c9300c26dcdb3915337fe13df12d076fbd4 100755 (executable)
--- a/gruntmaster-contest
+++ b/gruntmaster-contest
@@ -1,11 +1,9 @@
 #!/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/;
 
@@ -36,10 +34,13 @@ sub cmd_add{
        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";
 }
 
 ##################################################