webgui/sbin/Hourly/ExpireSubscriptionCodes.pm
2004-11-29 15:41:41 +00:00

12 lines
289 B
Perl

package Hourly::ExpireSubscriptionCodes;
use strict;
use WebGUI::SQL;
#-------------------------------------------------------------------
sub process {
WebGUI::SQL->write("update subscriptionCode set status='Expired' where status = 'Unused' and dateCreated + expires < ".time);
}
1;