use IO::File;
use Math::Trig qw(deg2rad pip2 great_circle_distance);
use JSON::XS;
-use LWP::UserAgent::Determined;
+use LWP::UserAgent;
use YAML;
my $originfile = shift @ARGV;
# If pingdom support is enabled then check which servers are up
if ($ENV{PINGDOM_USERNAME} && $ENV{PINGDOM_PASSWORD})
{
- my $ua = LWP::UserAgent::Determined->new;
- $ua->timeout(15);
+ my $ua = LWP::UserAgent->new;
$ua->default_header("App-Key", "2cohi62u5haxvqmypk3ljqqrze1jufrh");
$ua->credentials("api.pingdom.com:443", "Pingdom API", $ENV{PINGDOM_USERNAME}, $ENV{PINGDOM_PASSWORD});