OLD | NEW |
1 #!/usr/bin/perl -wT | 1 #!/usr/bin/perl -wT |
2 use strict; | 2 use strict; |
3 | 3 |
4 my $originPath = "/websocket/tests/hybi/cookie-http-to-ws.pl"; | 4 my $originPath = "/websocket/cookie-http-to-ws.pl"; |
5 | 5 |
6 if ($ENV{"QUERY_STRING"} eq "clear=1") { | 6 if ($ENV{"QUERY_STRING"} eq "clear=1") { |
7 print "Content-Type: text/plain\r\n"; | 7 print "Content-Type: text/plain\r\n"; |
8 print "Set-Cookie: WK-websocket-test-path=0; Path=${originPath}; Max-Age=0\r
\n"; | 8 print "Set-Cookie: WK-websocket-test-path=0; Path=${originPath}; Max-Age=0\r
\n"; |
9 print "Set-Cookie: WK-websocket-test-domain=0; Path=/; Domain=127.0.0.1; Max
-Age=0\r\n"; | 9 print "Set-Cookie: WK-websocket-test-domain=0; Path=/; Domain=127.0.0.1; Max
-Age=0\r\n"; |
10 print "\r\n"; | 10 print "\r\n"; |
11 print "Cookies are cleared."; | 11 print "Cookies are cleared."; |
12 exit; | 12 exit; |
13 } | 13 } |
14 | 14 |
(...skipping 72 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
87 debug('Test #' + i + ' failed.'); | 87 debug('Test #' + i + ' failed.'); |
88 next(); | 88 next(); |
89 }); | 89 }); |
90 })(i); | 90 })(i); |
91 } | 91 } |
92 runs[0](); | 92 runs[0](); |
93 </script> | 93 </script> |
94 </body> | 94 </body> |
95 </html> | 95 </html> |
96 HTML | 96 HTML |
OLD | NEW |