1 package FS::Cron::cleanup;
5 use FS::Record qw( qsearch );
7 @EXPORT_OK = qw( cleanup cleanup_before_backup );
11 # fix locations that are missing coordinates
12 my $job = FS::queue->new({
13 'job' => 'FS::cust_location::process_set_coord',
19 sub cleanup_before_backup {
20 #remove outdated cacti_page entries
21 foreach my $export (qsearch({
22 'table' => 'part_export',
23 'hashref' => { 'exporttype' => 'cacti' }
28 my $deldir = "$FS::UID::cache_dir/cache.$FS::UID::datasrc/";
29 unlink <${deldir}.invoice*>;
30 unlink <${deldir}.letter*>;
31 unlink <${deldir}.CGItemp*>;