FS/FS/Cron/cacti_cleanup.pm

   1 package FS::Cron::cacti_cleanup;
   2 use base 'Exporter';
   3 use vars '@EXPORT_OK';
   4
   5 use FS::Record qw( qsearch );
   6 use Data::Dumper;
   7
   8 @EXPORT_OK = qw( cacti_cleanup );
   9
  10 sub cacti_cleanup {
  11   foreach my $export (qsearch({
  12     'table' => 'part_export',
  13     'hashref' => { 'exporttype' => 'cacti' }
  14   })) {
  15     $export->cleanup;
  16   }
  17 }
  18
  19 1;