| Index: LayoutTests/http/tests/htmlimports/resources/cookie-match.cgi
|
| diff --git a/LayoutTests/http/tests/htmlimports/resources/cookie-match.cgi b/LayoutTests/http/tests/htmlimports/resources/cookie-match.cgi
|
| new file mode 100755
|
| index 0000000000000000000000000000000000000000..0dda946581f1709072fdf1957073f8cd99589c6a
|
| --- /dev/null
|
| +++ b/LayoutTests/http/tests/htmlimports/resources/cookie-match.cgi
|
| @@ -0,0 +1,18 @@
|
| +#!/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>";
|
| +}
|
|
|