FS/FS/Cron/expire_banned_pay.pm

   1 package FS::Cron::expire_banned_pay;
   2
   3 use vars qw( @ISA @EXPORT_OK );
   4 use Exporter;
   5 use FS::UID qw(dbh);
   6
   7 @ISA = qw( Exporter );
   8 @EXPORT_OK = qw( expire_banned_pay );
   9
  10 sub expire_banned_pay {
  11   my $sql = "DELETE FROM banned_pay WHERE end_date IS NOT NULL".
  12                                     " AND end_date < ?";
  13   my $sth = dbh->prepare($sql) or die dbh->errstr;
  14   $sth->execute(time) or die $sth->errstr;
  15
  16   dbh->commit or die dbh->errstr if $FS::UID::AutoCommit
  17
  18 }
  19
  20 1;