decay.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use lib qw(/home/pasky/WWW/asr);
   6 use ASR;
   7 use POSIX qw/strftime/;
   8 use Carp qw/cluck/;
   9 $SIG{__WARN__} = sub { cluck $_[0] };
  10
  11 my $ctx = ASR::Ladder->new;
  12
  13 $ctx->db_do('UPDATE player SET score = score-'.$ctx->{scoring}->{dailydrop}.' WHERE score > 100');