summaryrefslogtreecommitdiff
path: root/FS/FS/Cron/expire_user_pref.pm
diff options
context:
space:
mode:
Diffstat (limited to 'FS/FS/Cron/expire_user_pref.pm')
-rw-r--r--FS/FS/Cron/expire_user_pref.pm20
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;