third_party/WebKit/LayoutTests/http/tests/media/resources/setCookie.cgi

   1 #!/usr/bin/perl -wT
   2 use CGI;
   3
   4 $query = new CGI;
   5 $name = $query->param('name');
   6
   7 print "Content-Type: text/plain\n";
   8 print "Cache-Control: no-store\n";
   9 print 'Cache-Control: no-cache="set-cookie"' . "\n";
  10
  11 # We only map the SET_COOKIE request header to "Set-Cookie"
  12 print "Set-Cookie: TEST=${name}\n\n";