blob: 9d0c067408fa31d9f8a7b54c0820453012bcbed4 (
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
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 {
my %opt = @_;
# fix locations that are missing coordinates
my $job = FS::queue->new({
'job' => 'FS::cust_location::process_set_coord',
'status' => 'new'
});
$job->insert('_JOB');
# check card number tokenization
$job = FS::queue->new({
'job' => 'FS::cust_main::Billing_Realtime::token_check',
'status' => 'new'
});
$job->insert(
%opt,
'queue' => 1,
'daily' => 1,
);
}
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;
|
