admin.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use ASR;
   6 use POSIX qw/strftime/;
   7 use Carp qw/cluck/;
   8 $SIG{__WARN__} = sub { cluck $_[0] };
   9
  10 my $ctx = ASR::Ladder->new;
  11
  12 $ctx->header();
  13
  14 print <<EOT;
  15
  16 <div id="useradd">
  17 <h2>Add User</h2>
  18 <form action="useradd.pl" method="post">
  19 <p>Admin pw: <input type="password" name="pwd"> <br/>
  20 KGS nick: <input type="text" name="nick">
  21 <input type="submit" name="s" value="Add user"></p>
  22 </form>
  23 </div>
  24
  25 <div id="reset">
  26 <h2>Monthly Ladder Reset</h2>
  27 <form action="reset.pl" method="post">
  28 <p>Admin pw: <input type="password" name="pwd"> <br/>
  29 Delete players with no games after date (YYYY-MM-DD): <input type="text" name="cutoffdate">
  30 <input type="submit" name="s" value="Do it"></p>
  31 </form>
  32 </div>
  33
  34 EOT
  35
  36 $ctx->footer;