]> git.donarmstrong.com Git - debbugs.git/blobdiff - cgi/cookies.cgi
remove common.pl and old cgi code which is unused
[debbugs.git] / cgi / cookies.cgi
diff --git a/cgi/cookies.cgi b/cgi/cookies.cgi
deleted file mode 100644 (file)
index 20a9810..0000000
+++ /dev/null
@@ -1,45 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use POSIX qw(strftime);
-require './common.pl';
-
-my $oldcookies = $ENV{"HTTP_COOKIE"};
-$ENV{"HTTP_COOKIE"} = "";
-my %param = readparse();
-
-my %oldcookies = map { ($1, $2) if (m/(.*)=(.*)/) } split /[;&]/, $oldcookies;
-
-my $clear = (defined $param{"clear"} && $param{"clear"} eq "yes");
-my @time_now = gmtime(time());
-my $time_future = strftime("%a, %d-%b-%Y %T GMT",
-                       59, 59, 23, 31, 11, $time_now[5]+10);
-my $time_past = strftime("%a, %d-%b-%Y %T GMT",
-                       59, 59, 23, 31, 11, $time_now[5]-10);
-
-my @cookie_options = qw(repeatmerged terse reverse trim oldview);
-
-print "Content-Type: text/html; charset=utf-8\n";
-
-for my $c (@cookie_options) {
-    if (defined $param{$c}) {
-        printf "Set-Cookie: %s=%s; expires=%s; domain=%s; path=/\n",
-            $c, $param{$c}, $time_future, "bugs.debian.org";
-    } elsif ($clear) {
-        printf "Set-Cookie: %s=%s; expires=%s; domain=%s; path=/\n",
-            $c, "", $time_past, "bugs.debian.org";
-    }
-}
-print "\n";
-print "<p>Oldcookies  $oldcookies  .\n";
-print "<p>Cookies set!\n";
-for my $c (@cookie_options) {
-    my $old = $oldcookies{$c} || "unset";
-    if (defined $param{$c}) {
-        printf "<br>Set %s=%s (was %s)\n", $c, $param{$c}, $old;
-    } elsif ($clear) {
-        printf "<br>Cleared %s (was %s)\n", $c, $old;
-    } else {
-        printf "<br>Didn't touch %s (was %s; use clear=yes to clear)\n", $c, $old;
-    }
-}