Cannot Login to MySpace

I am trying to login to MySpace, but when I print the result of posting
the login info, all I get is the following rather than a web page:

POST
http://login.myspace.com/index.cfm?fuseaction=login.process& Mytoken=1135756
655952
Content-Length: 27
Content-Type: application/x-www-form-urlencoded

email=email [at] email.com&password=pw



#!/usr/bin/perl -w

use HTML::Form;

my $url = 'http://www.myspace.com/index.cfm?fuseaction=splash';
my $f =
HTML::Form->parse("http://www.myspace.com/index.cfm?fuseacti on=splash");

my $action =
"http://login.myspace.com/index.cfm?fuseaction=login.process &Mytoken=";
my $tokenID = time();
$tokenID .= sprintf("%.0f", 1000*rand(1));
$f->action($action . $tokenID);

$f->push_input("text",{email=>"email [at] email.com"});
$f->push_input("password",{password=>"pw"});

print $f->click->as_string;
uclamathguy [ Mi, 28 Dezember 2005 09:02 ] [ ID #1119211 ]
Perl » perl.libwww » Cannot Login to MySpace

Vorheriges Thema: LWP and socks
Nächstes Thema: Parsing of undecoded UTF-8 will give garbage when decoding entities