Lines Matching refs:cookie
6 print 'Cache-Control: no-cache="set-cookie"' . "\n";
8 my $cookie = $ENV{"HTTP_CLEAR_COOKIE"};
10 if ($cookie =~ /Max-Age/i) {
11 $cookie =~ s/Max-Age *= *[0-9]+/Max-Age=0/i;
13 $cookie .= ";" unless ($cookie =~ m/;$/);
14 $cookie .= " " unless ($cookie =~ m/ $/);
15 $cookie .= "Max-Age=0";
18 if ($cookie =~ /Expires/i) {
20 $cookie =~ s/Expires *= *[^;]+/Expires=Thu, 01 Jan 1970 00:00:00 GMT/i;
22 $cookie .= ";" unless ($cookie =~ m/;$/);
23 $cookie .= " " unless ($cookie =~ m/ $/);
24 $cookie .= "Expires=Thu, 01 Jan 1970 00:00:00 GMT";
27 print "Set-Cookie: $cookie\n\n";
