#!/usr/bin/perl -wT | |
print "content-type: text/html\n"; | |
print "\n"; | |
print <<EOF | |
<script> | |
try { | |
var result = document.cookie.split(';')[0].split('=')[1]; | |
document.cookie = "result=PASS"; // for next time | |
var r = new XMLHttpRequest(); | |
r.open('POST', 'echo-no-store.cgi', false); | |
r.send(result); | |
document.write(r.responseText); | |
} catch (e) { | |
document.write(e); | |
} | |
</script> | |
EOF |