jruiz has asked for the wisdom of the Perl Monks concerning the following question:
use strict; use CGI qw/:standard/; use CGI::Cookie; my $mycookie = new CGI::Cookie(-name=>'user', -value=>'sample_value', +-expire=>'+1h', -path=>'/', -domain=>$ENV{HTTP_HOST}); print "Set-Cookie: $mycookie\n"; print "Location: otherfile.cgi\n\n";
... and lots of ways more..., instead of manually printing the headers...print redirect(-cookie=>$mycookie, -location=>'otherfile.cgi'); print redirect(-cookie=>$mycookie, -uri=>'otherfile.cgi'); print redirect(-cookie=>$mycookie, -url=>'otherfile.cgi'); print header(-cookie=>$mycookie, -url=>'otherfile.cgi'); print header(-url=>'otherfile.cgi', -cookie=>$mycookie);
|
|---|