servers/logout.cgi

   1 #!/usr/local/bin/perl
   2 # logout.cgi
   3 # Cancel the username and password cookie for a server
   4
   5 use strict;
   6 use warnings;
   7 require './servers-lib.pl';
   8 &ReadParse();
   9 our (%in);
  10 print "Set-Cookie: $in{'id'}=; path=/";
  11 if (uc($ENV{'HTTPS'}) eq 'ON') {
  12         print "; secure";
  13         }
  14 print "\n";
  15 &redirect("");
  16