ACL for hardware class config, RT#85057

[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 HTTP::Request;
+use URI::Escape;
+use Email::Send;
 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);
 
-  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...
-my $num_consecutive_bop_failures = 10;
+my $num_consecutive_bop_failures = 60;
 sub check_bop_failures {
 
   return 1 if grep { $_->statustext eq 'captured' }