From: "Earthlink-m_ryan" <[EMAIL PROTECTED]>
> I'm sending a request to an usoft IIS server running colfusion scripts
> and am having trouble getting my useragent to establish a session with
> the host. i recieve a timed out or session not established 500 server
> error from the host. does anyone know how to establish this kind of
> session?
>
> This is the script I have been hacking with -
>
> #! /usr/bin/perl -w
>
> use LWP::UserAgent;
>
> $ua1 = LWP::UserAgent->new(requests_redirectable =>
> ['POST','GET','HEAD']);
> my $hdrs = HTTP::Headers->new();
> my $req = HTTP::Request->new(POST ,
> 'http://www.dpor.state.va.us/regulantlookup/selection_input.cfm' ,
> $hdrs); my $resp = $ua1->request($req); my
> $rresp=$resp->as_string;
> ...
Your $ua1 has to accept cookies.
Add something like
$ua1->cookie_jar({});
after the $ua1 creation.
Jenda
===== [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =====
When it comes to wine, women and song, wizards are allowed
to get drunk and croon as much as they like.
-- Terry Pratchett in Sourcery
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
