Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

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

by Anonymous Monk
on Aug 06, 2012 at 01:24 UTC ( #985583=note: print w/replies, xml ) Need Help??


in reply to Re: Perl Script to login to a secure WebSite
in thread Perl Script to login to a secure WebSite

Hi, Many thanks for your help, now I am able to login to Gmail and my another secure website, on which again I was using wrong Form details... Much appreciate your help on this :) Now I am trying to go the link which I get after login.. Plz let me know if follow_link(text => 'string') will work on this or do I need to use any other function...
  • Comment on Re^2: Perl Script to login to a secure WebSite

Replies are listed 'Best First'.
Re^3: Perl Script to login to a secure WebSite
by Anonymous Monk on Aug 06, 2012 at 02:01 UTC

    Plz let me know if follow_link(text => 'string') will work on this or do I need to use any other function...

    What happens when you T.I.T.S - Try It To See ?

      Hi, After logging to the website, I am able to go the one more link in the next page. Now I have to select the checkbox which enables few buttons (after selecting the checkbox). Once button is enabled I need to click one of the button, which opens one form, I need to select one value from the drop down and submit. Once this completes then I am done with all my steps.. Please suggest on this, here that site uses internally Java Script.. I tried to seclect checkbox, then button and then submit.. Script runs fine without any error but action is not performing... :( Plz correct me if any wrong in the code..
      $mech->tick( 'D:_ctl2:_ctl0', 'on'); #$mech->tick( "D:_ctl2:_ctl0" ); print $mech->success(); $mech->current_form()->find_input(undef, 'Assign'); print $mech->success(); $mech->field('K', 'Name1'); print $mech->success(); $mech->current_form()->find_input(undef, 'Update'); print $mech->success();
Re^3: Perl Script to login to a secure WebSite
by Anonymous Monk on Jun 26, 2013 at 11:20 UTC
    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
      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,,??

        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.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://985583]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (11)
As of 2016-12-06 22:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (118 votes). Check out past polls.