-
Website
http://www.developeronline.blogspot.com/ -
Original page
http://developeronline.blogspot.com/2008/10/using-perl-against-facebook-part-i.html -
Subscribe
All Comments -
Community
-
-
Top Commenters
-
Popular Threads
syntax error at C:\FB\script.pl line 12, near "'email')"
Missing right curly or square bracket at C:\FB\script.pl line 40, at end of line
I downloaded ActivePerl and am trying the script
I might be doing smthg wrong coz am new to perl script.. I have knowledge in vb.net but couldnt find smthg similar written in vb.net
WRONG is:
$postLoginData{'email')=$email;
CORRECT is
$postLoginData{'email'}=$email;
The curlies {} have to much
use HTTP::Cookies;
use LWP::UserAgent;
Now am getting a new error:
Can't call method "content" on an undefined value at C:\FB\script.pl line 35
Any ideas!?
$response->content =~ /Incorrect Email/
then probably the $response variable is not initialized properly.
Did you install Crypt::SSLeay? This will enable https for Perl.
You need to add "$response = " to the front of the first two $browser->get() and $browser->post() lines. (As a comparison, the last line, the GET of home.php, does it correctly.)
thanks fr ur post.
can u tell me how to work with IE 7.0
and how to get the inf fr
'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.6) Gecko/20060728 Firefox/1.5.0.6';
See the comments section
"The final Perl script has about 500 lines of code and can send messages, retrieve inbox and chat among others! ?
Thanks for the help and have a Happy New year!
Facebook passwords are case sensitive. Please check your CAPS lock key. You may also try clearing your browser's cache and cookies by following these instructions."
even my password and email is correct...
http://developeronline.blogspot.com/2008/10/usi...
No AV or malware program has picked anything up. I have deleted some .exe and .dll to no avale
I am Programmer with Chessboss.com. Chessboss.com is absolutely FREE chess server where you can play chess,create your own tournament with players online. No Gambling and explicit talk. This website is purely meant to increase the fan-base of chess and for entertainment. I Need your help to promote the FREE chess server around the world. I would like to be on your blog as i found it a useful and informative resource. By adding chessboss.com you will recognized and added as a top resource on our chess server. I really believe in FREE flow of information. I have included the code and title.
Please email me back with subject line of your URL for the featured resource code. This is to avoid spam and to make sure you get the award.
I hope you understand and co-operate with us.
Thank you,
Sophie Vierra
Programmer
www.chessboss.com.
use strict;
use diagnostics;
use HTTP::Cookies;
use LWP::UserAgent;
use Data::Dumper;
my $email; #stores our mail
my $password; #stores our password
my $user_agent = 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.6) Gecko/20060728 Firefox/1.5.0.6';
$email = 'foo'; #read the login e-mail
$password='bar'; #read the password
chomp($email); #remove last line
chomp($password);
my %postLoginData; #necessary post data for login
$postLoginData{'email'}=$email;
$postLoginData{'pass'}=$password;
$postLoginData{'persistent'}=1;
$postLoginData{'login'}='Login';
#set the headers, let's make this a Firefox browser!
my @header = ('Referer'=>'http://www.facebook.com', 'User-Agent'=>$user_agent);
my $cookie_jar = HTTP::Cookies->new(file=>'fbkCookies.dat',autosave=>1, ignore_discard=>1);
my $ua = LWP::UserAgent->new; #init browser
$ua->cookie_jar($cookie_jar);
$ua->get('http://www.facebook.com/login.php', @header);
#here we actually login!
my $r = $ua->post('https://login.facebook.com/login.php', \%postLoginData, @header);
# print 'Content: '.$r->decoded_content;
#was login successful?
if($r->content =~ /Incorrect Email/) {
print "Login Failed...Quitting..\n";
}
else {
print "..and we are in!";
#let's go to the homepage
$r = $ua->get('http://www.facebook.com/home.php',@header);
}