Username: | Forgot your User ID and/or password? | |||
---|---|---|---|---|
Password: | ||||
##
print Dumper( $mech_obj->current_form() );
##
##
use strict;
use warnings;
use WWW::Mechanize;
use HTTP::Cookies;
my $mech_obj = WWW::Mechanize->new();
$mech_obj->get( $signin_url );
if( not $mech_obj->success() )
{
print "Could not retrieve signin page:\n";
print $mech_obj->content();
die;
}
$mech_obj->form_number( 2 );
$mech_obj->set_fields( 'username' => $username,
'password' => $password );