#!/usr/bin/perl -wT

################################################################################
# This code is Copyright 2004 Tony Lewis <tlewis@exelana.com>.
#
#   This program is free software: you can redistribute it and/or modify it
#   under the terms of the GNU General Public License as published by the Free
#   Software Foundation, either version 3 of the License, or (at your option)
#   any later version.
#
#   This program is distributed in the hope that it will be useful, but WITHOUT
#   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
#   FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
#   more details.
#
#   You should have received a copy of the GNU General Public License along with
#   this program.  If not, see http://www.gnu.org/licenses/.
#
################################################################################

print <<EndOfText;
Content-type: text/plain
Expires: Thu, 01 Jan 1970 00:00:00 GMT
Set-Cookie: examine_session=1
Set-Cookie: examine_persistent=1; expires=Tue, 31 Dec 2030 23:59:59 GMT

document.write(navigator.cookieEnabled)
document.write('; session: '+(document.cookie.indexOf('examine_session=') != -1))
document.write('; persistent: '+(document.cookie.indexOf('examine_persistent=') != -1))
document.cookie = "examine_session="
document.cookie = "examine_persistent="
EndOfText