####
dayOfWeek= (checkbox) [*/off|SUN/Sun]
dayOfWeek= (checkbox) [*/off|MON/Mon]
dayOfWeek= (checkbox) [*/off|TUE/Tue]
dayOfWeek= (checkbox) [*/off|WED/Wed]
dayOfWeek= (checkbox) [*/off|THU/Thurs]
dayOfWeek= (checkbox) [*/off|FRI/Fri]
dayOfWeek= (checkbox) [*/off|SAT/Sat ]
##
##
|SUN
(checkbox)dayOfWeek> [] tick dayOfWeek SUN
Illegal value 'tick dayOfWeek SUN' for field 'dayOfWeek' at /usr/lib/perl5/site_perl/5.8.0/WWW/Mechanize/FormFiller.pm line 124
##
##
|SUN
(checkbox)dayOfWeek> [] tick
Illegal value 'tick' for field 'dayOfWeek' at /usr/lib/perl5/site_perl/5.8.0/WWW/Mechanize/FormFiller.pm line 124
##
##
|SUN
(checkbox)dayOfWeek> [] tick SUN on
Illegal value 'tick SUN on' for field 'dayOfWeek' at /usr/lib/perl5/site_perl/5.8.0/WWW/Mechanize/FormFiller.pm line 124
##
##
$formfiller->add_filler( 'dayOfWeek' => Fixed => '' );
$formfiller->add_filler( 'dayOfWeek' => Fixed => '' );
$formfiller->add_filler( 'dayOfWeek' => Fixed => '' );
$formfiller->add_filler( 'dayOfWeek' => Fixed => '' );
$formfiller->add_filler( 'dayOfWeek' => Fixed => '' );
$formfiller->add_filler( 'dayOfWeek' => Fixed => '' );
$formfiller->add_filler( 'dayOfWeek' => Fixed => '' );
##
##
tick
Set checkbox marks
Syntax:
tick NAME VALUE(s)
If no value is given, all boxes are checked.
untick
Remove checkbox marks
Syntax:
untick NAME VALUE(s)
If no value is given, all marks are removed.
##
##
... &dayOfWeek=SUN&dayOfWeek=MON& ...
##
##
#!/usr/bin/perl
use warnings;
use strict;
use WWW::Mechanize;
use WWW::Mechanize::FormFiller;
my $agent = WWW::Mechanize->new( autocheck => 1 );
my $formfiller = WWW::Mechanize::FormFiller->new();
$agent->form(1) if $agent->forms and scalar @{$agent->forms};
$agent->get('http://server/page_with_form/');
$agent->form(1) if $agent->forms and scalar @{$agent->forms};
$agent->form_number(1);
$formfiller->add_filler( 'dayOfWeek' => Fixed => 'SUN' );
$formfiller->fill_form($agent->current_form);
$agent->click('');
##
##
$ ./try.pl
Illegal value 'SUN' for field 'dayOfWeek' at /usr/lib/perl5/site_perl/5.8.0/WWW/Mechanize/FormFiller.pm line 124
##
##
$formfiller->add_filler( 'dayOfWeek' => 'SUN' => 'on' );
##
##
$ ./try.pl
Can't locate WWW/Mechanize/FormFiller/Value/SUN.pm in @INC (@INC contains:
/usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.0
/usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl .)
at (eval 23) line 2.
BEGIN failed--compilation aborted at (eval 23) line 2.
WWW::Mechanize::FormFiller::load_value_class('SUN') called at /usr/lib/perl5/site_perl/5.8.0/WWW/Mechanize/FormFiller.pm line 65
WWW::Mechanize::FormFiller::add_filler('WWW::Mechanize::FormFiller=HASH(0x995ebdc)','dayOfWeek','SUN','on')
called at ./try.pl line 30