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 PROTECTED]&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?fuseaction=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 PROTECTED]"}); $f->push_input("password",{password=>"pw"}); print $f->click->as_string;
