in reply to WWW::Mechanize and Facebook login

I am not that expert on WWW::Mechanize but lately I have been trying do something similar to this, and so far I haven't had much luck with it. But looks to me your issue is JavaScript. If you take closer look at the "loginform" they call a quicklogin() function. WWW::Mechanize doesn't deal with javascript. Search for LWP on cpan and try LWP->agent. 

Your problem is right here... (at least the way I think...)
<form method="post" name="loginform" action="https://login.facebook.co
+m/login.php" onsubmit="quicklogin();">

[download]
Thanks
LearnPerl

Replies are listed 'Best First'.
Re^2: WWW::Mechanize and Facebook login
by davidov0009 (Scribe) on Dec 13, 2007 at 03:53 UTC
    I have successfully got LWP to login. This seems to work well: (at least the login stuff)

    http://mattdanger.net/code/facebook-status/facebook-status.pl

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

    [download]
[reply]
[d/l]
      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 = "http://www.facebook.com";
my $appurl = "http://apps.facebook.com/inthemafia";

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";

      [download]
[reply]
[d/l]
        I wrote something very similar to this, but it seems fb has changed how they let people login.. any updates?
[reply]

In Section Seekers of Perl Wisdom