#!/usr/local/bin/perl
#Displays all cookies for this website and this file
#file: cookie.pl

require '/home/scsfac/downeyt/scripts/parse-lib.pl';

%query=&get_query;
%cookie=&get_cookie;

print <<HEADER;
Content-type: text/html

HEADER
    ;



print <<BODY;
<html>
<head>
<title>Test Cookie</title>
</head>
<body>
These are the cookies, including one for just this file.
<ol>
BODY
    ;
if (scalar %cookie)
{
    foreach $name (keys %cookie)
    {
	print "<li>$name = $cookie{$name}";
    }
    $last=$cookie{'last'};
    $first=$cookie{'first'};
}

print <<TAIL;
</ol>
</body>
</html>
TAIL
    ;
