RT# 74537 - added check for config option selfservice-ACH_info_readonly to deletepayb...
[freeside.git] / 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;