1 package FS::Cron::cleanup;
5 use FS::Record qw( qsearch );
7 @EXPORT_OK = qw( cleanup cleanup_before_backup );
13 # fix locations that are missing coordinates
14 my $job = FS::queue->new({
15 'job' => 'FS::cust_location::process_set_coord',
20 # check card number tokenization
21 $job = FS::queue->new({
22 'job' => 'FS::cust_main::Billing_Realtime::token_check',
33 sub cleanup_before_backup {
34 #remove outdated cacti_page entries
35 foreach my $export (qsearch({
36 'table' => 'part_export',
37 'hashref' => { 'exporttype' => 'cacti' }
42 my $deldir = "$FS::UID::cache_dir/cache.$FS::UID::datasrc/";
43 unlink <${deldir}.invoice*>;
44 unlink <${deldir}.letter*>;
45 unlink <${deldir}.CGItemp*>;