| OLD | NEW |
| 1 #!/usr/bin/perl -w | 1 #!/usr/bin/perl -wT |
| 2 | 2 |
| 3 print "Content-type: text/plain\n"; | 3 print "Content-type: text/plain\n"; |
| 4 my $AGE_STRING = ""; | 4 my $AGE_STRING = ""; |
| 5 if ($ENV{"QUERY_STRING"}) { # Assume any query string means "?clear=1" | 5 if ($ENV{"QUERY_STRING"}) { # Assume any query string means "?clear=1" |
| 6 $AGE_STRING = "expires=Thu, 19 Mar 1982 11:22:11 GMT"; | 6 $AGE_STRING = "expires=Thu, 19 Mar 1982 11:22:11 GMT"; |
| 7 } | 7 } |
| 8 print "Set-Cookie: WK-test=1;$AGE_STRING\n"; | 8 print "Set-Cookie: WK-test=1;$AGE_STRING\n"; |
| 9 print "Set-Cookie: WK-test-secure=1; secure;$AGE_STRING\n"; | 9 print "Set-Cookie: WK-test-secure=1; secure;$AGE_STRING\n"; |
| 10 print "Set-Cookie2: WK-test-2=1;$AGE_STRING\n\n"; | 10 print "Set-Cookie2: WK-test-2=1;$AGE_STRING\n\n"; |
| 11 print "$ENV{\"HTTP_COOKIE\"}\n" if $ENV{"HTTP_COOKIE"}; | 11 print "$ENV{\"HTTP_COOKIE\"}\n" if $ENV{"HTTP_COOKIE"}; |
| OLD | NEW |