FS/FS/Cron/cacti_cleanup.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

package FS::Cron::cacti_cleanup;
use base 'Exporter';
use vars '@EXPORT_OK';

use FS::Record qw( qsearch );
use Data::Dumper;

@EXPORT_OK = qw( cacti_cleanup );

sub cacti_cleanup {
  foreach my $export (qsearch({
    'table' => 'part_export',
    'hashref' => { 'exporttype' => 'cacti' }
  })) {
    $export->cleanup;
  }
}

1;