hi...
i've got what appears to be a problem/issue with the www::mechanize
function, as it applies to form submissions...
i have the following code segment...
use HTML::TreeBuilder;
use LWP::UserAgent;
use WWW::Mechanize;
my $b = WWW::Mechanize->new();
$ua = new LWP::UserAgent;
$ua->timeout(30);
$ua->agent("Mozilla/4.0 (compatible; MSIE 4.01; Windows95)" .
$ua->agent);
#
# get the top level university class site
#
my $base_url = "http://ntweb8.ais.msu.edu/ScheduleBook/Schedule.asp";
# go ahead and get the dept page..
# use www::machanize
my $agent = WWW::Mechanize->new();
$agent->get($base_url);
$test = $agent->follow_link(url_regex=>qr/selection/);
#############################
#
# -->>>> problem area...
#
$agent->tick('Monday');
#
# -->>>> problem area...
#
#############################
here's the problem... the HTML from the targeted website comes from a "asp"
driven site and follows:
M<INPUT NAME="Monday" TYPE=CHECKBOX CHECKED>
TU<INPUT NAME="Tuesday" TYPE=CHECKBOX CHECKED>
W<INPUT NAME="Wednesday" TYPE=CHECKBOX CHECKED>
as you can see, there is no value for the "Monday" checkbox!!!! But yet the
asp server code handles it properly. However, the mechanize "agent->tick"
function requires that some value be set!!! But when anything is inserted,
"tick" complains with:
==>>>Use of uninitialized value in string eq at
/usr/lib/perl5/site_perl/5.8.0/WWW/Mechanize.pm line 600.
Use of uninitialized value in string eq at
/usr/lib/perl5/site_perl/5.8.0/WWW/Mechanize.pm line 600.
Use of uninitialized value in concatenation (.) or string at
/usr/lib/perl5/site_perl/5.8.0/WWW/Mechanize.pm line 611.
No checkbox "Monday" for value "" in form at michiganstate.pl line 67
<<<<<=======
regardless of what i insert after "Monday" as a value, it dies...
so my question.. how can this situation be resolved... what should really be
returned to the server... or am i hosed???!!!!
thoughts/comments/appreciated...
thanks...
-bruce