blob: 6ec401398a981d5ddde7f214d5acfe52a33a4907 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
package FS::Cron::cleanup;
use base 'Exporter';
use vars '@EXPORT_OK';
use FS::queue;
use FS::Record qw( qsearch );
@EXPORT_OK = qw( cleanup cleanup_before_backup );
# start janitor jobs
sub cleanup {
# fix locations that are missing coordinates
my $job = FS::queue->new({
'job' => 'FS::cust_location::process_set_coord',
'status' => 'new'
});
$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;
|