+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*>;
+}
+