Re^3: Perl Script to login to a secure WebSite

[Anonymous Monk]

use strict;
use warnings;
use strict;
use WWW::Mechanize;
use HTTP::Cookies;
my $outfile = "out2.htm";
my $url = "https://accounts.google.com/ServiceLogin?service=mail&passi
+ve=true&rm=false&continue=http://mail.google.com/mail/&scc=1&ltmpl=de
+fault&ltmplcache=2";
my $username = 'yourgmailid';
my $password = 'yourpasswrd';
my $mech = WWW::Mechanize->new();
$mech->cookie_jar(HTTP::Cookies->new());
$mech->get($url);
$mech->form_id('gaia_loginform');
$mech->field("Email", $username);
$mech->field("Passwd", $password);
$mech->click;
my $output_page = $mech->content();
print $output_page;
open(OUTFILE, ">$outfile");

binmode(OUTFILE, ":utf8");
print OUTFILE "$output_page";
close(OUTFILE);

----------------------------------------------------------- Very thanks for the above script. After once logged in to the gmail I would like display output like "Log in successful", if log in fails I would like to display "Log in fail"; Please help me on the above condition. Thanks, you Jineesh.K

[Anonymous Monk]

The code is executing well but the output which we are getting is in the html format , cannot we get the output in the gui , so that if at all we run the script the gmail account of ours will be automatically logged in,,??

[Corion]

If you want to automate the login into gmail and then continue the session in a browser, you will either have to automate a browser, like Win32::IEAutomation or WWW::Mechanize::Firefox provides or you'll have to store the appropriate session variables in the cookies of the browser. There are various HTTP::Cookies modules that allow reading and writing the cookies of a browser.

[Anonymous Monk]

Even though i have used the Win32::IEAutomation before the perl script, the output which is generated in the html format , its not getting login in the gmail authentication page.