in reply to Re: Re: My Mechanize script cannot work ?
in thread My Mechanize script cannot work ?

As far as I can see, there is nothing wrong with the script, so the problem possibly lies with the HTML from that site. Save the HTML of the site into a file (with $mech->getstore("http://www.thesite.com/members.login.asp", "login.html") and then try to reproduce the problem with a page as small and simple as possible. To load a page ino WWW::Mechanize, set the content like this :

  open HTML, "<", "login.html"
    or die "Couldn't read 'login.html' : $!\n";
  my $html = do { local $/; <HTML> };
  $mech->{content} = $html;
  $mech->_reset_page();
  if ( $mech->is_html ) {
        $mech->{forms} = [ HTML::Form->parse($mech->{content}, "http:/
+/www.thesite.com/members/") ];
        $mech->{form}  = $self->{forms}->[0];
        $mech->_extract_links();
    };

[download]

This is all I can do for you at the moment and I will be away over the weekend.

perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ;    # The  
$d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider
($c = $d->accept())->get_request(); $c->send_response( new   #in the
HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' #  web

[download]

In Section Seekers of Perl Wisdom