#!/usr/bin/perl
use WWW::Mechanize;
use MIME::Base64;
use warnings;

$PASSWORD=$ARGV[1];
$IPADDRESS="HTTPS://" . $ARGV[0];

print "IP Address:$ARGV[0]\n";
print "Password:$ARGV[1]\n";

my $mech=WWW::Mechanize->new(
        stack_depth     => 0,
        timeout         => 10,
        autocheck       => 0,
);
#$mech->agent_alias( 'Windows IE 6' );

my @args = ( Authorization => "Basic " . MIME::Base64::encode( 'manager' . ':' . $PASSWORD ));

$mech->get( $IPADDRESS, @args );

if ( $mech->success( ) ) {
        print "OK:",$mech->response->status_line(),"\n";
        $EXIT_CODE=0;
}
else {
        print "Fail:",$mech->response->status_line(),"\n";
        $EXIT_CODE=1;
}

#print $mech->content();

print "Exiting with exit code:$EXIT_CODE\n";
exit($EXIT_CODE)