Cookies

CGI.pm on cpan.org adam@aauser.com

This is an example of some code which looks to see if a cookie exists. If yes, then modify it. If no, then create it. As you repeatedly hit this code, you should be able to watch a cookie on your system swap its value from null to 'Some Cookie value here'.



#!/usr/local/bin/perl
use CGI;
$query = new CGI;
$thisCGI = $query->url();

# try to read the cookie via the CGI.pm method
$cookThis = $query->cookie(-name=>'cookThis');

# If the cookie exists, edit it's values.
# else, create it's values.
if ($cookThis)
{
$cookie = $query->cookie(-name=>"cookThis",
-value=>'',
-expires=>"+1h"
}
else
{
$cookie = $query->cookie(-name=>"cookThis",
-value=>"Some Cookie value here",
-expires=>"+1h"
}

# print the cookie in the header.
print $query->header(-cookie=>$cookie);
print &quot;<BR>CookThis is $cookThis<BR>&quot;;
print $query->start_html(-title=>&quot;cook this&quot;
print $query ->start_multipart_form('POST',&quot;$thisCGI&quot;
print '<BR>',$query->submit('doWhat','cook');
print $query->end_form;
print $query->end_html;


'hope this helps


keep the rudder amid ship and beware the odd typo