Error using WWW-Mechanize-1.14

[Mark Funk]

Folks,

 

I keep getting the following error when I try to access a webpage and simply uncheck a dang checkbox.

 

Can't call method "find_input" on an undefined value at c:/Perl/site/lib/WWW/Mechanize.pm line 1328, <STDIN> line 1.

 

Anyone experience this error and have a fix/suggustion?

 

 

Code snippet:

  print "-------------------------------------------------------------------------------------\n" if $dbug;
  push @WPSLOG, "--------------------------------------------------------------------------------------------\n";
  @forms=$mech->forms();
  my @forms = $mech->forms();
  foreach my $form (@forms){
    my @inputs = $form->inputs();
    foreach my $input (@inputs) {
      print "Name: ", $input->name(), "\n";
      push @WPSLOG, "Name: ", $input->name(), "\n";
      #print "Possible values: ", join (', ',
      #$input->possible_values()), "\n";
    }

 

  } 

 

  print "-------------------------------------------------------------------------------------\n" if $dbug;
  push @WPSLOG, "--------------------------------------------------------------------------------------------\n";
  print "Setting Output Number 2..........................................\n";
  push @WPSLOG, "Setting Output Number 2..........................................\n";
  $mech->field( 'outname2', 'DMFOutlet2b'); 
  $mech->submit_form();
 
  print "-------------------------------------------------------------------------------------\n" if $dbug;
  push @WPSLOG, "--------------------------------------------------------------------------------------------\n";
  print "Unchecking \"Same Subnet Access only\"..........................................\n";
  push @WPSLOG, "Unchecking \"Same Subnet Access only\"..........................................\n";
  $mech->tick(samenet, "checkbox", '0');           <--------------------------------------------------------------------------------error happens here..........

 

 

 

output:

Name: ctrlname
Name: outname1
Name: outname2
Name: outname3
Name: outname4
Name: outname5
Name: outname6
Name: outname7
Name: outname8
Name:
Name: lockdel
Name: seqdelay
Name: refdelay
Name: refresh
Name:
Name: recmode
Name:
Name: lnkhref1
Name: lnkdesc1
Name: lnkhref2
Name: lnkdesc2
Name: lnkhref3
Name: lnkdesc3
Name: lnkhref4
Name: lnkdesc4
Name:
Name: mac
Name: httport
Name: ipaddr
Name: netmask
Name: gateway
Name: samenet
Name:
Name: login
Name: oldpswd
Name: newpswd
Name: newpswd2
Name:
-------------------------------------------------------------------------------------
Setting Output Number 2..........................................
LWP::UserAgent::request: ()
HTTP::Cookies::add_cookie_header: Checking 10.2.4.170 for cookies
HTTP::Cookies::add_cookie_header: - checking cookie path=/
HTTP::Cookies::add_cookie_header: Checking .2.4.170 for cookies
HTTP::Cookies::add_cookie_header: Checking 2.4.170 for cookies
HTTP::Cookies::add_cookie_header: Checking .4.170 for cookies
HTTP::Cookies::add_cookie_header: Checking 4.170 for cookies
HTTP::Cookies::add_cookie_header: Checking .170 for cookies
LWP::UserAgent::send_request: POST http://username:[EMAIL PROTECTED]/unitnames.cgi
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
LWP::Protocol::collect: read 99 bytes
HTTP::Cookies::extract_cookies: Set cookie DLILPC => ""
LWP::UserAgent::request: Simple response: OK
-------------------------------------------------------------------------------------
Unchecking "Same Subnet Access only"..........................................
Can't call method "find_input" on an undefined value at c:/Perl/site/lib/WWW/Mechanize.pm line 1328, <STDIN> line 1.
bash$

 

running Perl 5.8.7

 

 

Thanks,Thanks,Thanks,

 

David M. Funk

President/CEO

 

Tivoli Certified Enterprise Consultant

Specializing in Network and Systems Management Solutions

 

Trinity Solutions          

604 Cassandra Dr.       

Cranberry Twp., PA 16066

 

Phone: 724-316-0721                   

Fax:     724-772-7889

email: [EMAIL PROTECTED]

http://www.trinitysol.net

 

        

 

 

 

_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs