diff options
author | cvs2git <cvs2git> | 2008-03-16 19:58:34 +0000 |
---|---|---|
committer | cvs2git <cvs2git> | 2008-03-16 19:58:34 +0000 |
commit | eb061f5119325e666f0dff40d4089e5c1df58e17 (patch) | |
tree | d55e8fef5aca62eb13bbc8ad20dbdf941c3bd266 /FS/FS/Cron/expire_user_pref.pm | |
parent | 3a17b276638200475d54201fa62566b7440e819a (diff) |
This commit was manufactured by cvs2svn to create tag 'TRIXBOX_2_6'.TRIXBOX_2_6
Diffstat (limited to 'FS/FS/Cron/expire_user_pref.pm')
-rw-r--r-- | FS/FS/Cron/expire_user_pref.pm | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/FS/FS/Cron/expire_user_pref.pm b/FS/FS/Cron/expire_user_pref.pm deleted file mode 100644 index 3226927..0000000 --- a/FS/FS/Cron/expire_user_pref.pm +++ /dev/null @@ -1,20 +0,0 @@ -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; |