Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re^2: WWW::Mechanize and Facebook login

by davidov0009 (Scribe)
on Dec 13, 2007 at 03:53 UTC ( #656747=note: print w/replies, xml ) Need Help??

in reply to Re: WWW::Mechanize and Facebook login
in thread WWW::Mechanize and Facebook login

I have successfully got LWP to login. This seems to work well: (at least the login stuff)

Your going to need Crypt::SSLeay installed though.
use strict; use CGI;

Replies are listed 'Best First'.
Re^3: WWW::Mechanize and Facebook login
by budman (Sexton) on Apr 27, 2009 at 06:39 UTC
    Hi, I know this is an older thread, but thought it may help others. Here is a sample using Mechanize - you do need the Crypt::SSLeay module installed for it to work.
    use strict; use WWW::Mechanize; use HTTP::Cookies; my $url = ""; my $appurl = ""; my $username = 'your@email'; my $password = 'yourpass'; my $mech = WWW::Mechanize->new(); $mech->cookie_jar(HTTP::Cookies->new()); $mech->get($url); $mech->form_name('menubar_login'); $mech->field(email => $username); $mech->field(pass => $password); $mech->click(); my $facebook_content = $mech->content(); # go to an app url $mech->get($appurl); my $app_content = $mech->content(); print "$app_content\n";
      I wrote something very similar to this, but it seems fb has changed how they let people login.. any updates?

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (10)
As of 2018-06-20 19:49 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (117 votes). Check out past polls.