projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
omit due date option, RT#73002
[freeside.git]
/
FS
/
FS
/
Cron
/
check.pm
diff --git
a/FS/FS/Cron/check.pm
b/FS/FS/Cron/check.pm
index
39dd168
..
75247fb
100644
(file)
--- a/
FS/FS/Cron/check.pm
+++ b/
FS/FS/Cron/check.pm
@@
-6,6
+6,9
@@
use vars qw( @ISA @EXPORT_OK $DEBUG $FS_RUN $error_msg
);
use Exporter;
use LWP::UserAgent;
);
use Exporter;
use LWP::UserAgent;
+use HTTP::Request;
+use URI::Escape;
+use Email::Send;
use FS::Conf;
use FS::Record qw(qsearch);
use FS::cust_pay_pending;
use FS::Conf;
use FS::Record qw(qsearch);
use FS::cust_pay_pending;
@@
-65,14
+68,14
@@
sub check_apache {
my $req = new HTTP::Request GET => 'https://localhost/';
my $res = $ua->request($req);
my $req = new HTTP::Request GET => 'https://localhost/';
my $res = $ua->request($req);
- return 1 if $res->is_success;
+ return 1 if $res->is_success
|| $res->status_line =~ /^403/
;
$error_msg = $res->status_line;
return 0;
}
#and now for something entirely different...
$error_msg = $res->status_line;
return 0;
}
#and now for something entirely different...
-my $num_consecutive_bop_failures =
1
0;
+my $num_consecutive_bop_failures =
6
0;
sub check_bop_failures {
return 1 if grep { $_->statustext eq 'captured' }
sub check_bop_failures {
return 1 if grep { $_->statustext eq 'captured' }