FS/FS/Cron/cleanup.pm

   1 package FS::Cron::cleanup;
   2 use base 'Exporter';
   3 use vars '@EXPORT_OK';
   4 use FS::queue;
   5 use FS::Record qw( qsearch );
   6
   7 @EXPORT_OK = qw( cleanup cleanup_before_backup );
   8
   9 # start janitor jobs
  10 sub cleanup {
  11 # fix locations that are missing coordinates
  12   my $job = FS::queue->new({
  13       'job'     => 'FS::cust_location::process_set_coord',
  14       'status'  => 'new'
  15   });
  16   $job->insert('_JOB');
  17 }
  18
  19 sub cleanup_before_backup {
  20   #remove outdated cacti_page entries
  21   foreach my $export (qsearch({
  22     'table' => 'part_export',
  23     'hashref' => { 'exporttype' => 'cacti' }
  24   })) {
  25     $export->cleanup;
  26   }
  27   #remove cache files
  28   my $deldir = "$FS::UID::cache_dir/cache.$FS::UID::datasrc/";
  29   unlink <${deldir}.invoice*>;
  30   unlink <${deldir}.letter*>;
  31   unlink <${deldir}.CGItemp*>;
  32 }
  33
  34 1;