#!/usr/bin/perl
#
# Author: Ram Samudrala (me@ram.org)
#
# January 1, 1997.
#
require "cookie-lib.pl";
print &BeginCookieHeader;
print &MakeCookie("test", "It works!", "");
print &EndCookieHeader;
print "<html><head><title> Results of cookie test </title></head></body>\n";
if ($test = &GetCookie("test"))
{
print "<h1> $test </h1>\n";
$http_cookie = $ENV{'HTTP_COOKIE'};
print "<p> Your cookies from this site are: $http_cookie </p>\n";
print "<hr>\n"
}
else
{
print "<h1> It didn't work! </h1>\n";
$http_cookie = $ENV{'HTTP_COOKIE'};
print "<p> Your cookies from this site are: $http_cookie </p>\n";
print "<hr>\n"
}
# open(OUTFILE, ">>/edge/artmuns/tmp/foo.debug");
# print OUTFILE "thisisisatest\n";
# close(OUTFILE);
print "</body></html>\n";
#