blob: b9c4b21727a7ea45b6c920bec6ddfd909a65a3fa (
plain)
1
2
3
4
5
6
7
8
9
|
#!/usr/bin/perl -wT
use strict;
print "Content-Type: text/plain\n";
print "Cache-Control: no-store\n";
print 'Cache-Control: no-cache="set-cookie"' . "\n";
# We only map the SET_COOKIE request header to "Set-Cookie"
print "Set-Cookie: " . $ENV{"HTTP_SET_COOKIE"} . "\n\n";
|