Well, this might sound silly, but have you tried printing the domains to make sure you're seeing this cookies in mod_perl ?
I saw the 'as_string' part -- are you seeing everything like that as you should?
in the past I've had stupid errors with this steff when i had namespace issues like @domains instead of @$domains
print STDERR "\nDomains:";
foreach ( @domains ){
print STDERR "\n\t-$_";
push @cookies, APR::Request::Cookie->new( $r->pool,
name => 'ticket',
value => '',
path => '/',
( domain => $_ ),
@expires );
}
print STDERR "\nCookies:";
foreach my $cookie ( @cookies ){
print STDERR "\n\t-$_";
$log->debug( '[logout]: ' . $cookie->as_string );
$r->err_headers_out->add( 'Set-Cookie' => $cookie-
>as_string );
}
return Apache2::Const::OK;
// Jonathan Vanasco
| - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - -
| FindMeOn.com - The cure for Multiple Web Personality Disorder | Web Identity Management and 3D Social Networking| - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
| RoadSound.com - Tools For Bands, Stuff For Fans | Collaborative Online Management And Syndication Tools| - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Mail converted by mhonarc 2.6.15
This archive provided courtesy of JSW4.NET, Internet Hosting Services for Small Business.