third_party/WebKit/LayoutTests/http/tests/cookies/resources/clearCookies.cgi

   1 #!/usr/bin/perl -wT
   2 use strict;
   3
   4 print "Content-Type: text/plain\n";
   5 print "Cache-Control: no-store\n";
   6 print 'Cache-Control: no-cache="set-cookie"' . "\n";
   7
   8 my $cookie = $ENV{"HTTP_CLEAR_COOKIE"};
   9
  10 if ($cookie =~ /Max-Age/i) {
  11     $cookie =~ s/Max-Age *= *[0-9]+/Max-Age=0/i;
  12 } else {
  13     $cookie .= ";" unless ($cookie =~ m/;$/);
  14     $cookie .= " " unless ($cookie =~ m/ $/);
  15     $cookie .= "Max-Age=0";
  16 }
  17
  18 if ($cookie =~ /Expires/i) {
  19     # Set the "Expires" field to UNIX epoch
  20     $cookie =~ s/Expires *= *[^;]+/Expires=Thu, 01 Jan 1970 00:00:00 GMT/i;
  21 } else {
  22     $cookie .= ";" unless ($cookie =~ m/;$/);
  23     $cookie .= " " unless ($cookie =~ m/ $/);
  24     $cookie .= "Expires=Thu, 01 Jan 1970 00:00:00 GMT";
  25 }
  26
  27 print "Set-Cookie: $cookie\n\n";