This might work. Can't test it on this box, so no promises made.
<%@Language=PerlScript%>
<%
use Win32::OLE qw('in');
$Response->Cookies->SetProperty('Item', 'Client', 'Info');
$Response->Cookies('Client')->{Expires} = "November 9, 2000";
$Response->Cookies('Client')->SetProperty('Item', 'Firstname', 'Bob');
getCookieKeys();
%>
<%
sub getCookieKeys
{
foreach my $key (in($Request->Cookies)) {
$Response->Write("Name: $key<BR>");
if( $Request->Cookies($key)->{HasKeys} ) {
getCookieSubKeys($key);
}
else {
my $value = $Request->Cookies($key)->Item();
$Response->Write("Value: $value<BR>")
}
}
}
%>
<%
sub getCookieSubKeys
{
my $key = shift;
foreach my $subkey (in($Request->Cookies($key))) {
$Response->Write("$key: ");
$Response->Write($Request->Cookies($key)->Item($subkey));
$Response->Write("<BR>");
}
}
%>
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
