#!/usr/local/bin/perl $| = 1; use CGI qw(:form); use URI::Escape; my $query = new CGI; my $name = $query->param('name'); if ($name eq "") { form(); } else { my $value = $query->param('value'); my $exp = $query->param('exp'); if ($query->param('cookie_action') eq "Delete") { $exp = "-1d"; } my $path = $query->param('path'); my $cookie = $query->cookie(-name=>$name, -value=>$value, -expires=>$exp, -path=>$path); print $query->header(-cookie=>$cookie, -expires=>'-1d', -location=>'cookie.cgi'); print <<"End";
Name | Value | Cookie Path | Renewal Date | Action |
---|---|---|---|---|