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>"; |
+} |