Could it be that the search button is not a button, but an image?
The source looks like this:
<input type="image" name="search" src="xxx/search.gif" alt="Search"
border="0" align="absmiddle">
which is not a standard button, as far as I can tell.
HTH
--
Sebastian Bazley <[EMAIL PROTECTED]>
The opinions expressed herein are my own, and are not necessarily endorsed
by my employer ...
> -----Original Message-----
> From: Nick Chirca [mailto:[EMAIL PROTECTED]]
> Sent: 20 July 2000 16:08
> To: Pramod Sokke; [EMAIL PROTECTED]
> Subject: HTTP form Request
>
>
>
> I tried to use this script (that comes with the
> HTTP::Form::Request), but
> I got this error:
>
> "Button search not included in form at
> /usr/lib/perl5/site_perl/5.005/HTTP/Reques t/Form.pm line 306. "
>
> Can anyone tell me what is the problem ?
>
> Here's the script:
>
> # /usr/bin/perl -w
> use HTML::TreeBuilder;
> use URI::URL;
> use LWP::UserAgent;
> use HTTP::Request;
> use HTTP::Request::Common;
> use HTTP::Request::Form;
> use LWP::Debug;
>
> my $ua = LWP::UserAgent->new;
> my $url = url 'http://www.altavista.digital.com/';
> my $res = $ua->request(GET $url);
> my $tb = HTML::TreeBuilder->new;
> $tb->parse($res->content);
> my @forms = @{$tb->extract_links(qw(FORM))};
> my $f = HTTP::Request::Form->new($forms[0][1], $url);
> $f->field("q", "perl");
> my $response = $ua->request($f->press("search"));
> print $response->content if ($response->is_success);
>
> --
>
> Nick...
>
>
___________________________________________________________________________
This email is confidential and intended solely for the use of the
individual to whom it is addressed. Any views or opinions presented are
solely those of the author and do not necessarily represent those of
Sema Group.
If you are not the intended recipient, be advised that you have received this
email in error and that any use, dissemination, forwarding, printing, or
copying of this email is strictly prohibited.
If you have received this email in error please notify the Sema Group
Helpdesk by telephone on +44 (0) 121 627 5600.
___________________________________________________________________________
