FS/FS/Cron/cleanup.pm

   1 package FS::Cron::cleanup;
   2 use base 'Exporter';
   3 use vars '@EXPORT_OK';
   4 use FS::queue;
   5
   6 @EXPORT_OK = qw( cleanup );
   7
   8 # start janitor jobs
   9 sub cleanup {
  10 # fix locations that are missing coordinates
  11   my $job = FS::queue->new({
  12       'job'     => 'FS::cust_location::process_set_coord',
  13       'status'  => 'new'
  14   });
  15   $job->insert('_JOB');
  16 }
  17
  18 1;