What problem(s) are you having? Since WWW::Mechanize subclasses LWP::UserAgent, all the methods like credentials for doing authorization should work. So if that isn't it - what is?

Thanks for the response. I tried this bit here to log in. With different form names.

$mech->get($url);
$mech->form_name( 'FVS318');
$mech->field('id', $USER);
$mech->field('p',$PASS);
$mech->click('submit');
[download]

But, this works. So, I can log in using the following.

my $mech = LWP::UserAgent->new;
$mech->credentials(  '192.168.0.1:80',
                        'FVS318',
                        'admin' => 'secret'
);

[download]

I can get to the correct page, as I mentioned. So, now I will try to select and de-select the radio buttons. I have one example of selecting the radio buttons. I'll give it a whirl. Again, using the Perl modules and oo is totally new to me. Thank you.

garskoci,
Are the user and pass fields form values as the WWW::Mechanize example indicates, or are they more like HTTP basic auth like the LWP::UserAgent shows? I am just guessing, but what does the following code do?

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new( autocheck => 1 );
$mech->credentials(
    '192.168.0.1:80',
    'FVS318',
    'admin' => 'secret'
);
# And then $mech->get() the same as in the LWP::UserAgent code
[download]

FWIW, take a look at WWW::Mechanize::Shell as well.

Cheers - L~R

Update: Added a to autocheck

Hello again. Well, I got a bit further. I'm actually trying to check a checkbox, not a radiobutton as I previously stated. I can log in, get the html from the page. When I try to check the checkbox, I don't receive any errors, but it's not working either. Here is my script.

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;

my $url='http://192.168.0.1/WanService.html';
my $mech = WWW::Mechanize->new( utocheck => 1 );
$mech->credentials(
    '192.168.0.1:80',
    'FVS318',
    'admin' => 'secret'
);
# And then $mech->get() the same as in the LWP::UserAgent code

my $response = $mech->get($url);
die "Error at $url\n ", $response->status_line, "\n Aborting" unless $
+response->is_success;
print "SUCCESS data type: ", $response->content_type, "\n\n";

#print "\n\n";
#print $response->content;

$mech->tick('EnBt3', 'checkbox', 'CHECKED');
$mech->submit();

print "\n\nDone.\n\n";

[download]

Here is the html that I think I should be working with.
This one appears to be checked.

<td width="10%" align="center"><input type="checkbox" name="EnBt0" val
+ue="checkbox" CHECKED > </td>
[download]

This one appears not to be checked and is the one that I'm trying to check.


<td width="10%" align="center"><input type="checkbox" name="EnBt3" val
+ue="checkbox"   ></td>
[download]


Am I doing something wrong?
Thanks.
I just wanted to add the html for the "Apply" button.

<input type="button" value="Apply " onClick="toApply(document.Wanblock
+);">&nbsp;&nbsp;
[download]


I know that I'm very close. I tried to use to click the Apply button, but it produces the following error.
Unknown click_button parameter "Apply" at ./pm_test.pl line 23 Can't call method "header" on an undefined value at /usr/lib/perl5/site_perl/5.8.3/WWW/Mechanize.pm line 1763.


$mech->click_button('Apply ');
[download]

Anyone?

I would try using a module such as HTTP::Recorder or WWW::Mechanize::Shell to record a successful manual form submission. The output of HTTP::Recorder, for instance, can be "dropped" right into your WWW::Mechanize scripts.

Otherwise... post the actual error messages or whatnot that you are getting...

HTH,