use base 'Exporter';
use vars '@EXPORT_OK';
use FS::queue;
+use FS::Record qw( qsearch );
-@EXPORT_OK = qw( cleanup );
+@EXPORT_OK = qw( cleanup cleanup_before_backup );
# start janitor jobs
sub cleanup {
$job->insert('_JOB');
}
+sub cleanup_before_backup {
+ #remove outdated cacti_page entries
+ foreach my $export (qsearch({
+ 'table' => 'part_export',
+ 'hashref' => { 'exporttype' => 'cacti' }
+ })) {
+ $export->cleanup;
+ }
+ #remove cache files
+ my $deldir = "$FS::UID::cache_dir/cache.$FS::UID::datasrc/";
+ unlink <${deldir}.invoice*>;
+ unlink <${deldir}.letter*>;
+ unlink <${deldir}.CGItemp*>;
+}
+
1;