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

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

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

$gmt=&time_gmt;

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

HEADER
    ;



print <<BODY;
<html>
<head>
<title>Test Cookie</title>
</head>
<body>
$gmt<br>
These are the cookies
<ol>
BODY
    ;
if (scalar %cookie)
{
    foreach $name (keys %cookie)
    {
	print "<li>$name = $cookie{$name}";
    }
}

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