blob: 32269271e60d118dee8d17849fefadde3c08cfb9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
package FS::Cron::expire_user_pref;
use vars qw( @ISA @EXPORT_OK);
use Exporter;
use FS::UID qw(dbh);
@ISA = qw( Exporter );
@EXPORT_OK = qw( expire_user_pref );
sub expire_user_pref {
my $sql = "DELETE FROM access_user_pref WHERE expiration IS NOT NULL".
" AND expiration < ?";
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;
|