#!/usr/bin/perl
use WWW::Mechanize; ## Automate Grabbing Webpages
use strict;

my $url = "http://10.10.10.10/bat.html";
my $mech = WWW::Mechanize->new(autocheck => 1);
$mech->default_headers->authorization_basic("user", "pass");
$mech->get($url);
my $page = $mech->content;

## INITIAL OUTPUT
print "INITIAL REQUEST\n";
$mech->dump_all(undef, 1);
print $page;
print "\n\n\n";

my $resp2;

## STATE: TEST (CANNOT START OR CHECK, BUT CAN STOP)
if ($page=~/reset.*?disabled.*?Reset/) {
  print "TEST STOP\n";
  $resp2=$mech->submit_form(
     form_number => 1,
     fields      =>{ a => 2,
                     b => '3,2,2',
                   },
  );
## STATE: NO TEST (CAN START, CHECK, BUT NOT STOP)
} else {
  print "TEST START\n";
  $resp2=$mech->submit_form(
     form_number => 1,
     fields      => { c => 49.0,
                      d => 0.3,
                      e => 45.0 ,
                      a => 1,
                      b => '3,2,2',
                    },
  );
}

## AFTER FORM FILL OUT
$mech->dump_all(undef, 1);
print $resp2->content;
print "\n\n\n";