);
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;
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' }