Re: Cookie questions

[Raymond Wan]

Hi bop,
Thanks for the e-mail.  I ended up doing a mix of both your suggestion 
and John's and it seems to work ok.  Both of your suggestions were 
great; thank you!

Ray


Boysenberry Payne wrote:
Oops, I forgot the some code:

# to set
$cookie = { -name => "foo", -value => "bar", -path => "/" };
my $data = [];
push( @$cookie_data, Apache2::Cookie->new( $r, %{$cookie} ) );
foreach ( @$cookie_data ) {
    $_->bake( $r );
}

# now to unset
my $jar = Apache2::Cookie::Jar->new( $r );
my $cookies = $jar->cookies;
if ( defined $cookies->{foo} ) {
    $cookie = { -name => "foo", -value => "bar", -path => "/", 
-expires => "0" };
    push( @$cookie_data, Apache2::Cookie->new( $r, %{$cookie} ) );
    foreach ( @$cookie_data ) {
        $_->bake( $r );
    }
}