#!/usr/bin/perl -w

print "content-type: text/html\n";
print "\n";
print <<EOF
<script>
try {
  var result = document.cookie.split(';')[0].split('=')[1];

  var r = new XMLHttpRequest();
  r.open('POST', 'echo-no-store.cgi', false);
  r.send(result);
  document.write(r.responseText);
} catch (e) {
  document.write(e);
}
if (!sessionStorage.subresourceFailoverToNetworkCGILoadedBefore) {
  sessionStorage.subresourceFailoverToNetworkCGILoadedBefore = true;
  document.cookie = "subresourceFailoverToNetwork=PASS"; // for next time
  history.back();
} else {
  sessionStorage.removeItem("subresourceFailoverToNetworkLoadedBefore");
  sessionStorage.removeItem("subresourceFailoverToNetworkCGILoadedBefore");
  document.cookie = "subresourceFailoverToNetwork=; expires=Thu, 01 Jan 1970 00:00:01 GMT;";
  if (window.testRunner)
    testRunner.notifyDone();
}
</script>
EOF