Code Comments
Programming Forum and web based access to our favorite programming groups.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?...Mytoken=1135756 655952 Content-Length: 27 Content-Type: application/x-www-form-urlencoded email=email@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?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@email.com"}); $f->push_input("password",{password=>"pw"}); print $f->click->as_string;
Post Follow-up to this messagePowered by vBulletin
Copyright 2000-2006 Jelsoft Enterprises Limited.