| Index: trunk/LayoutTests/http/tests/htmlimports/resources/cookie-match.cgi
|
| ===================================================================
|
| --- trunk/LayoutTests/http/tests/htmlimports/resources/cookie-match.cgi (revision 169503)
|
| +++ trunk/LayoutTests/http/tests/htmlimports/resources/cookie-match.cgi (working copy)
|
| @@ -1,18 +0,0 @@
|
| -#!/usr/bin/perl -wT
|
| -use strict;
|
| -
|
| -my $query = $ENV{"QUERY_STRING"};
|
| -my $cookie = $ENV{"HTTP_COOKIE"};
|
| -
|
| -$query =~ s/\?//g; # Squash "?" that is added to prevent dedup.
|
| -
|
| -print "Content-Type: text/html\n";
|
| -print "Access-Control-Allow-Credentials: true\n";
|
| -print "Access-Control-Allow-Origin: *\n";
|
| -print "\n";
|
| -
|
| -if ($query eq $cookie) {
|
| - print "<body>PASS</body>"
|
| -} else {
|
| - print "<body>FAIL: Cookie:" . $cookie .", Query:" . $query . "</body>";
|
| -}
|
|
|