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/javascript\n\n"; | 4 print "Content-Type: text/html\n\n"; |
5 # If you want to make things super predictable, this will help for the cost of s lowness. | 5 # If you want to make things super predictable, this will help for the cost of s lowness. |
6 # In practice, CGI invocation overhead is sufficiently slow. | 6 # In practice, CGI invocation overhead is sufficiently slow. |
7 # sleep 1; | 7 sleep 1; |
8 print <<EOF | 8 print <<EOF |
9 blockingScriptHasRun = true; | 9 <style> |
10 #test { | |
11 background: green; | |
12 } | |
13 </style> | |
10 EOF | 14 EOF |
OLD | NEW |