#!/usr/bin/perl # logout.cgi # Cancel the username and password cookie for a server use strict; use warnings; no warnings 'redefine'; no warnings 'uninitialized'; require './servers-lib.pl'; &ReadParse(); our (%in); print "Set-Cookie: $in{'id'}=; path=/"; if (uc($ENV{'HTTPS'}) eq 'ON') { print "; secure"; } print "\n"; &redirect("");