#!/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 " Results of cookie test \n";
if ($test = &GetCookie("test"))
{
print " $test
\n";
$http_cookie = $ENV{'HTTP_COOKIE'};
print " Your cookies from this site are: $http_cookie
\n";
print "
\n"
}
else
{
print " It didn't work!
\n";
$http_cookie = $ENV{'HTTP_COOKIE'};
print " Your cookies from this site are: $http_cookie
\n";
print "
\n"
}
# open(OUTFILE, ">>/edge/artmuns/tmp/foo.debug");
# print OUTFILE "thisisisatest\n";
# close(OUTFILE);
print "