Extract Session Cookie

Do you have a question? Post it now! No Registration Necessary.  Now with pictures!

Threaded View

Hi guys,

I am working on a simple script using WWW:Mechanize to extract flight
details and everything works perferectly. However, I come to a road
block when I tried to extract the session cookies. I've been digging
around the internet/newsgroup for the last couple of days but still to
no avail...

When I turned on the debug routine for LWP, this is what I can see

LWP::UserAgent::new: ()
aeroperlas(debug) - Submitting initial search request
LWP::UserAgent::request: ()
HTTP::Cookies::add_cookie_header: Checking www.e-savtravel.com for
HTTP::Cookies::add_cookie_header: Checking .e-savtravel.com for
HTTP::Cookies::add_cookie_header: Checking e-savtravel.com for cookies
HTTP::Cookies::add_cookie_header: Checking .com for cookies
LWP::UserAgent::send_request: GET https://www.e-savtravel.com/wlvirtual/jdmm001 .
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
LWP::Protocol::collect: read 471 bytes
HTTP::Cookies::extract_cookies: Set cookie ASPSESSIONIDASSTCCRQ =>

So as can be seen, the Mechanize/LWP did handle the cookie
automatically at this line

"HTTP::Cookies::extract_cookies: Set cookie ASPSESSIONIDASSTCCRQ =>

Question, how do I write code using HTTP::Cookie etc to extract this
data out ?? I need to use this session cookie later (of course just a
very short interval later while the session cookie is still
effective) ..

Thanks a lot in advance ...


Re: Extract Session Cookie

On 02/23/2007 02:29 AM, greenrob wrote:
Quoted text here. Click to load it
Quoted text here. Click to load it

Are you sure you need to extract it? You didn't show any code, so it
won't be possible for people to give you specific help, but I'll bet all
you have to do is to create a persistent cookie object for
WWW::Mechanize to use.

Start->Run->"perldoc HTTP::Cookies"
Start->Run->"perldoc WWW::Mechanize"

Windows Vista and your freedom in conflict:
http://www.badvista.org /

Re: Extract Session Cookie

Okay I am attaching a very simple code here
use WWW::Mechanize;
use LWP::Debug qw(+);

my $oneway = "0";
my $fdate = "2007-03-20";
my $tdate = "2007-04-20";
my $from = "POC";
my $to = "BOC";

    my $startURL = 'http://www.aeroperlas.com ';
    my $mech = WWW::Mechanize->new(
        agent => 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1;
SV1; .NET CLR 2.0.50727; .NET CLR 1.1.4322)'

    # Format our search data
    my ($depDay, $depMon, $depYear) = (split(/-| /, $fdate))[2,1,0];
    my ($retDay, $retMon, $retYear) = (split(/-| /, $tdate))[2,1,0];

    #Submit Initial Search
    my $URL = "https://www.e-savtravel.com/wlvirtual/jdmm001.asp ";
    my @getData = (
    'wtipo',        $oneway ? "OW" : "RT",
    'wclase',        'E',
    'wnadult',        '1',
    'wnchild',        '0',
    'wninfant',        '0',
    'wnum',            '0',
    'wnsenior',        '0',
    'wrd0074a',        $from,
    'wrh0074a',        $to,
    'wfc0076a',        "$depMon/$depDay/$depYear",
    'wrd0074a1',        $to,
    'wrh0074a1',        $from,
    'wfc0076a1',        "$retMon/$retDay/$retYear",
    'wrd0074a2',        '',
    'wrh0074a2',        '',
    'wfc0076a2',        '',
    'wrd0074a3',        '',
    'wrh0074a3',        '',
    'wfc0076a3',        '',
    'wusu_radio',        '0',
        'wop',                'S',
    'wtipofare',        'I'

    my $query="";
    for (my $i=0;$i<=$#getData;$i+=2)
        $query .= $getData[$i] ."=". $getData[$i+1] ."&";

    $query =~ s/&$//g;
    $URL = $URL ."?". $query;

If you run the code tehre will be a bunch of stuff printed on the
screen. One of the line will says

"HTTP::Cookies::extract_cookies: Set cookie ASPSESSIONIDACABSRQD

where xxxx is the session variable. Now how can I go on and extract
the value of "ASPSESSIONIDACABSRQD =>xxxxx" out ??

Thanks a lot in advance.

Site Timeline