#!/usr/bin/perl
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
use strict;

my $ua = LWP::UserAgent->new();
#$ua->credentials(
#    '10.10.10.10:80',
#    'PSC500',
#    'user' => 'pass'
#);

# log in to authentication page.
my $req = HTTP::Request->new(GET => 'http://10.10.10.10/bat.html');
$req->authorization_basic('user', 'pass');

## INITIAL OUTPUT
print "INITIAL REQUEST\n";
my $resp = $ua->request($req);
my $content = $resp->as_string;
print $content;
print "\n\n\n";


my $req2;
## STATE: TEST (CANNOT START OR CHECK, BUT CAN STOP)
if ($content=~/reset.*?disabled.*?Reset/) {
  print "TEST STOP\n";
  $req2= POST 'http://10.10.10.10/bat.html',
               [ a => 2, b => '3,2,2', ];
## STATE: NO TEST (CAN START, CHECK, BUT NOT STOP)
} else {
  print "TEST START\n";
  $req2= POST 'http://10.10.10.10/bat.html',
               [ c => 49.0, d => 0.3,
                 e => 45.0 , a => 1,
                 b => '3,2,2', ];
}
$req2->authorization_basic('user', 'pass');

my $resp2 = $ua->request($req2);
my $content = $resp->as_string;
print $content;
print "\n\n\n";