OLD | NEW |
1 #!/usr/bin/perl -wT | 1 #!/usr/bin/perl -wT |
2 use strict; | 2 use strict; |
3 | 3 |
4 print "Content-Type: text/html\n"; | 4 print "Content-Type: text/html\n"; |
5 print "Access-Control-Allow-Origin: *\n"; | 5 print "Access-Control-Allow-Origin: *\n"; |
6 print "Cache-Control: no-store\n\n"; | 6 print "Cache-Control: no-store\n\n"; |
7 | 7 |
8 print <<DONE | 8 print <<DONE |
9 <script> | 9 <script> |
10 var target = window.opener || window.top; | 10 var target = window.opener || window.top; |
11 target.postMessage({ "https": "$ENV{"HTTP_HTTPS"}" }, "*"); | 11 target.postMessage({ "header": "$ENV{"HTTP_UPGRADE_INSECURE_REQUESTS"}" }, "
*"); |
12 </script> | 12 </script> |
13 DONE | 13 DONE |
OLD | NEW |