[freeside-commits] freeside/FS/FS/Cron expire_banned_pay.pm, NONE, 1.1

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/Cron
In directory wavetail.420.am:/tmp/cvs-serv5168/FS/FS/Cron

Added Files:
	expire_banned_pay.pm 
Log Message:
add signup-duplicate_cc-warn_hours to warn about duplicate signups in a time span, RT#12011

--- NEW FILE: expire_banned_pay.pm ---
package FS::Cron::expire_banned_pay;

use vars qw( @ISA @EXPORT_OK );
use Exporter;
use FS::UID qw(dbh);

@ISA = qw( Exporter );
@EXPORT_OK = qw( expire_banned_pay );

sub expire_banned_pay {
  my $sql = "DELETE FROM banned_pay WHERE end_date IS NOT NULL".
                                    " AND end_date < ?";
  my $sth = dbh->prepare($sql) or die dbh->errstr;
  $sth->execute(time) or die $sth->errstr;

  dbh->commit or die dbh->errstr if $FS::UID::AutoCommit

}

1;