Thanks a lot . I have a followup query, can anyone please advice me:
My application (webser) will set up sessionId in the cookie and sets
redirect URL to main page(if login is successfull). In case of
browser, this works fine with redirect thread reaches server with the
sessionId set and request for main page.
Can anyone please let me know how, it can be made to work in perl with
redirect URLs.
I think this is a basic query , but my intial search didnt help me.
Please advice
Thanks and Best Regards,
Pavan
My code till now is:
$ua = new LWP::UserAgent;
if(! $ua) {
return 0;
}
$ua->cookie_jar(HTTP::Cookies->new);
$requestString = "http://x.y.z.w?Username=abc&Password=abc";;
$requestObject = HTTP::Request::Common::GET $requestString;
$result = $ua->request($requestObject);
$resp = $result->content;
print "$resp";
On Wed, Apr 1, 2009 at 3:20 PM, Thanos Chatziathanassiou <tcha...@arx.gr> wrote:
> O/H Sudarshan Soma έγραψε:
>>
>> Hi All,
>> I have a requirement to test webserver using perl scripts. The
>> webserver creates a sessionId after successfull authentication. Hence
>> for futher requests to the webserver, i need to send the sessionId
>> which is set in the browser/client . Can anyone please let me know how
>> can i do this.
>>
>> Myperl script is something like this:
>>
>> $requestString = "http://x.y.x.w";
>> $request = HTTP::Request->new(GET => $requestString);
>> $request->authorization_basic($userid, $passwd);
>> $request->push_header(Cookie => "SESSIONID=?????; path=/;"); ------>
>> capture session id from browser
>>
>
> rather:
> ---8<---
> use HTTP::Cookies;
> use HTTP::Request::Common;
> use LWP::UserAgent;
>
> $ua = LWP::UserAgent->new;
> $requestString = "http://x.y.x.w";;
> $ua->cookie_jar(HTTP::Cookies->new);
> $result = $ua->request(HTTP::Request::Common::GET $requestString));
> $ua->cookie_jar->extract_cookies($res);
> #session id is now in the cookie jar. ``perldoc HTTP::Cookies''
> #to read it
> $anotherURI = "http://x.y.x.w/whatever";;
> $requestObject = HTTP::Request::Common::GET $anotherURI;
> #automatically add the cookies (including the session-id) to this request..
> $ua->cookie_jar->add_cookie_header($requestObject);
> $result = $ua->request($requestObject);
>
> ---8<---
>
>>
>>
>> Best Regards,
>> Pavan
>>
>> ---------------------------------------------------------------------
>> To unsubscribe, e-mail: asp-unsubscr...@perl.apache.org
>> For additional commands, e-mail: asp-h...@perl.apache.org
>>
>>
>
>
---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscr...@perl.apache.org
For additional commands, e-mail: asp-h...@perl.apache.org
