X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=site_tester;h=afbf9aa84e3f32f73b46e97423d220478efb3ade;hb=7072dd6217d2a600f729188624f228b5700bd836;hp=6919918211107f461291cefe2280b33d39c51dad;hpb=f4b7425210359c7bc41e68ca005745f509efbe1a;p=bin.git diff --git a/site_tester b/site_tester index 6919918..afbf9aa 100755 --- a/site_tester +++ b/site_tester @@ -51,6 +51,7 @@ Display this manual. use vars qw($DEBUG); +use IO::File; use WWW::Mechanize; my %options = (debug => 0, @@ -110,7 +111,7 @@ for my $conf_file (@conf_files) { } } -my $mech = WWW::Mechanize->new(autocheck => 1); +my $mech = WWW::Mechanize->new(autocheck => 0); $mech->{____special_host} = $options{ip_addr}; LWP::Protocol::implementor('http','SITE_TESTER::http');