third_party/WebKit/LayoutTests/http/tests/encoding/resources/pause-then-switch-encoding-with-title.cgi

   1 #!/usr/bin/perl
   2
   3 use IO::Socket;
   4
   5 $| = 1;
   6
   7 autoflush STDOUT 1;
   8
   9 print "Content-Type: text/html\n\n";
  10
  11 print "<html><head><title>\x59\xfd\x6c\x6d\x61\x7a\x20\xd6\x5a\x44\xdd\x4c</title>";
  12 print "<script>function print(s) { var codes = ''; for (var i = 0; i < s.length; ++i) { codes = codes + '0x' + s.charCodeAt(i).toString(16) + ' '; } alert(codes); }</script>";
  13 print "<script>print(document.title);</script>\n";
  14 sleep 1;
  15 print "<meta charset=windows-1254></head><body><script>print(document.title);</script></body></html>\n";