Thank you.
I have run into a problem now with a checkbox. I'm not sure what I'm supposed to do to make it put a check in the checkbox, otherwise I don't think their server will give me remember me.
Their code is
><form method="post" action="login.php?sid=c51
+4c45f8ced1eae9f9eced24365bf48">
<table border="0" cellpadding="0" cellspacing="1" width="100%">
<tr>
<td align="center"><span class="gensmall">
<input type="hidden" name="redirect" value="" />
Username:<br />
<input class="post" type="text" name="username" size="15" />
<br />
Password:<br />
<input class="post" type="password" name="password" size="15" />
<br />
</span> <table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input class="text" type="checkbox" name="autologin" /></td>
<td class="gensmall"> Remember me</td>
</tr>
</table>
I got all of it working so far (I believe-- no errors anyway) but I get an error "Illegal value 'check' for field 'autologin' at ...".
Do you know how I can automate this? My code is below.
#!/usr/bin/perl
use warnings;
use strict;
my $username = "test";
my $password = "test";
use CGI::Carp qw(fatalsToBrowser);
use WWW::Mechanize;
use CGI qw/:standard/;
my $browser = WWW::Mechanize->new();
$browser->get("http://www.mwjz.com/phpbb/portal.php");
$browser->form(1);
$browser->field("username", $username);
$browser->field("redirect", "");
$browser->field("autologin", "check");
$browser->field("password", $password);
$browser->click();
print header;
print $browser->content();
|