Hi, I am trying to login to a boadband login webpage using perl WWW::Mechanize module. But the code ends up remaining in the login page. Here is my code. I tried two different codes.
#!C:\Perl64\bin\perl.exe use strict; use WWW::Mechanize; use HTTP::Cookies; my $outfile = "out.htm"; my $url = "https://loginban.tataindicombroadband.in:8443"; my $username = "username"; my $password = "password"; my $mech = WWW::Mechanize->new(); $mech->cookie_jar(HTTP::Cookies->new()); $mech->get($url); $mech->form_name('authenticateForm'); $mech->form_number(1); $mech->field(username => $username); $mech->field(password => $password); $mech->click("Submit"); my $output_page = $mech->content(); open(OUTFILE, ">$outfile"); print OUTFILE "$output_page"; close(OUTFILE);
#!C:\Perl64\bin\perl.exe use strict; use WWW::Mechanize; use HTTP::Cookies; my $outfile = "out.htm"; my $url = "https://loginban.tataindicombroadband.in:8443"; my $username = "username"; my $password = "password"; my $mech = WWW::Mechanize->new(); $mech->cookie_jar(HTTP::Cookies->new()); $mech->get($url); my $result = $mech->submit_form( form_name => 'authenticateForm', fields => { username => $username, password => $password, } ); die "SUBMIT failed\n" unless $result->is_success my $output_page = $mech->content(); open(OUTFILE, ">$outfile"); print OUTFILE "$output_page"; close(OUTFILE);
In reply to Unable to login to a secure webpage by prakash.ramesh
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |