Files
webmin/servers/logout.cgi
2007-04-12 20:24:50 +00:00

14 lines
256 B
Perl
Executable File

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