Add support for browser-session cookies, using a cookieTTL value of

"session".
This commit is contained in:
Drake 2006-09-21 18:42:41 +00:00
parent 31cbd665e6
commit a170904340
3 changed files with 9 additions and 3 deletions

View file

@ -241,13 +241,16 @@ sub getCookieName {
=head2 getCookieTTL ( )
Returns the cookie time to live defined in the config file. Returns "10y" if one isn't defined.
Returns the cookie time to live defined in the config file. Returns "+10y" if one isn't defined.
This may also be "session" to indicate that the cookie should only live for the current browser
session.
=cut
sub getCookieTTL {
my $self = shift;
return $self->get("cookieTTL") || "+10y";
my $configTTL = $self->get("cookieTTL");
return defined($configTTL)? $configTTL : "+10y";
}
#-------------------------------------------------------------------