Hi,
To get you started I have provided a little example:
#!/usr/bin/perl
use strict;
use WWW::Mechanize;
my $targeturl="http://www.yourdomain.com/login.asp";
my $mech = WWW::Mechanize->new();
$mech->agent_alias( 'Windows IE 6' );
$mech->get($targeturl);
$mech->success or die $mech->response->status_line;
$mech->form_number(1); # if the login form was the first form on the p
+age
$mech->set_fields(
username => "MyUserID",
password => "Fak3Pa55w0rd"
);
$mech->submit();
print $mech->content(); # print content
I setup an ASP page with a form on it to process the login. The above example logs in and prints out the content of the page following the login.
Hope this helps
Martin |