Need same named cookies

gregor-e has asked for the wisdom of the Perl Monks concerning the following question:

I'm trying to use WWW::Mechanize to navigate through a site and ultimately download a report each day. After I get within one screen of where I need to go, the HTML contains JavaScript that sets 4 cookies and uses an onclick button handler to jump to the screen I need. The problem I'm running into is that the 4 cookies repeat the same name twice, like:

  <script language="JavaScript" type="text/javascript">
  // Set cookies
  document.cookie = "Report_Profile_ID=654321;path=/cgi-bin\";
  document.cookie = "Report_Profile_ID=654321;path=/actuate";
  document.cookie = "FirstTime=1;path=/cgi-bin";
  document.cookie = "FirstTime=1;path=/actuate";
  // end cookie set
  </script>
[download]

I tried to fake the JavaScript cookie setting by grabbing the cookie values from the JavaScript source and simply setting these cookies in the $agent->cookie_jar. Unfortunately, HTTP::Cookies->set_cookie() appears to simply overwrite a previous cookie having the same name, rather than saving an array of values for a cookie of a given name. So now I'm kinda stuck. Can the perluminati suggest a way my script can provide more than one cookie having the same name?

Comment on Need same named cookies Download Code

Replies are listed 'Best First'.

Re: Need same named cookies
by isotope (Deacon) on May 16, 2003 at 22:35 UTC

       $cookie_jar->set_cookie($version, $key, $val, $path,
       $domain, $port, $path_spec, $secure, $maxage, $discard,
       \%rest)
           The set_cookie() method updates the state of the
           $cookie_jar.  The $key, $val, $domain, $port and $path
           arguments are strings.  The $path_spec, $secure, $dis
           card arguments are boolean values. The $maxage value
           is a number indicating number of seconds that this
           cookie will live.  A value <= 0 will delete this
           cookie.  %rest defines various other attributes like
           "Comment" and "CommentURL".
[download]

http://www.skylab.org/~isotope/

[reply]
[d/l]


Perl-Sensitive Sunglasses
	PerlMonks