greymoose has asked for the wisdom of the Perl Monks concerning the following question:
Get the cookie in the next script:# Process form and set cookies my ($cat) = param('butCat'); my ($typ) = param('txtTyp'); my ($to_set) = cookie(-name => 'cat', -value => $cat, -path => '/', ); my ($to_set_a) = cookie(-name => 'bus_com', -value => $typ, -path => '/', ); my $cgi = CGI->new(); print $cgi->redirect(-uri => '/'.$typ.'sub.html', -cookie => [$to_ +set, $to_set_a]);
To see it in action (or not) go to www.martoncentral.co.nz/buslst.html and click on any of the sub category buttons towards the top of the page. Thanks in advance for sharing your wisdom.# Get Subcat data from cat cookie $catnum = cookie('cat');
|
|---|