12 lines
289 B
Perl
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;
|
|
|