>-----Original Message-----
>From: bzzt [mailto:[EMAIL PROTECTED]

[snip]

> I'm trying to log on to this site (www.thecityvibe.com/forum/) with the
> followin script but doesn't seem to succeed. Anyone knows what
the problem
> might be?
>

I've modified your codes a bit, and it appears submitted the first login
form correctly.  Replacing "vagelis" with correct login details to it should
prove everything, right or wrong:-)

 #!/usr/local/ActivePerl-5.6/bin/perl -w
 use warnings;
 use strict;
 use WWW::Mechanize;
 my $agent = WWW::Mechanize->new();

 my $MyResponse = $agent->get('http://www.thecityvibe.com/forum/');
 die "Can't even get the home page: ", $agent->response->status_line
  unless ($MyResponse->is_success);
 my $form = $agent->current_form();

 $form->dump;   # debug info, just to make sure you've got the expected form

 $agent->field(username => "vagelis");
 $agent->field(password => "vagelis");
 $form->dump;   # debug info, just to make sure you've assigned the correct
values

 $agent->submit();

Regards,
WWang
------------------------------------------------------
Wenjie Wang(a.k.a. William)    [EMAIL PROTECTED]
WANG Infonology Systems  Ph:(02)-98712018; mob:0412688380
http://users.bigpond.net.au/WISeAgent
======================================================

Reply via email to