Perl WWW::Mechanize Form Submit Problem

smudged123 has asked for the wisdom of the Perl Monks concerning the following question:

I currently run an adult oriented website and was creating a script to autopost my sites updates to adult bookmarking sites.
I was creating a submission script for Fuddit.com and have been unable to get the script to login properly.
Take a glance at the code below if ya do care..

$mech->get("http://www.fuddit.com/login");
$mech->form_number(1);
$mech->field( 'user_login' => $user);
$mech->field( 'passwd_login' => $pass );
$mech->submit();
open(DEBUG,">>debug.html");
print DEBUG $mech->content();
close(DEBUG);
system(PAUSE);
[download]

The debug printout continues to come back with debug.html as 0kb file which is confusing me, and if I request a login required page after that and then print debug, it gives me the login screen like it was never logged in.
Any help would be greatly appreciated, thanks!

Comment on Perl WWW::Mechanize Form Submit Problem Download Code

Replies are listed 'Best First'.
Re: Perl WWW::Mechanize Form Submit Problem by planetscape (Chancellor) on Feb 05, 2009 at 19:24 UTC
I would begin by using HTTP::Recorder to record a successful manual form submission. The output of HTTP::Recorder, just as with WWW::Mechanize::Shell, can be "dropped" right into your WWW::Mechanize scripts. (leira's article "Web Testing with HTTP::Recorder" contains an excellent example of how you might want to do this.) Note that if you are dealing with javascript, you might need to use Win32::IE::Mechanize. If you run into problems, try Super Searching for "mech javascript" - there are many relevant nodes here. Another important tool for finding out what is really happening behind the scenes between server and browser is a protocol analyzer such as Wireshark, or, if you are using Firefox, something like Live HTTP Headers. HTH, planetscape	[reply]
Re: Perl WWW::Mechanize Form Submit Problem by jethro (Monsignor) on Feb 05, 2009 at 16:33 UTC
An alternative to your Debug file would be `use LWP::Debug '+';` [download] Also you might use a network sniffer (like tcpdump or wireshark) to compare the message exchange of your script with that of a normal web browser	[reply] [d/l]
Re^2: Perl WWW::Mechanize Form Submit Problem by Anonymous Monk on Feb 06, 2009 at 10:44 UTC
that feature doesn't work anymore	[reply]