| 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 |