Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
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
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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://985583]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (9)
As of 2014-07-26 18:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (178 votes), past polls