X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Plugin-Session-State-Cookie.git;a=blobdiff_plain;f=lib%2FCatalyst%2FPlugin%2FSession%2FState%2FCookie.pm;h=aa1d9a389893f8c0dabefc88b3528583550541fe;hp=857e454e1f3e426e1606d6d1bbd540be8c92217d;hb=d52e50798843d02dd22557fbac181a7147c0c608;hpb=c3f2575c7016000e1693b29df140c51ba32e078a diff --git a/lib/Catalyst/Plugin/Session/State/Cookie.pm b/lib/Catalyst/Plugin/Session/State/Cookie.pm index 857e454..aa1d9a3 100644 --- a/lib/Catalyst/Plugin/Session/State/Cookie.pm +++ b/lib/Catalyst/Plugin/Session/State/Cookie.pm @@ -16,7 +16,7 @@ sub setup_session { $c->config->{session}{cookie_name} ||= "session"; } -sub finalize { +sub finalize_cookies { my $c = shift; my $cookie_name = $c->config->{session}{cookie_name}; @@ -25,15 +25,18 @@ sub finalize { my $cookie = $c->request->cookies->{$cookie_name}; if ( !$cookie or $cookie->value ne $sid ) { $c->response->cookies->{$cookie_name} = { - value => $sid, - expires => $c->session->{__expires} - }; + value => $sid, + expires => $c->session->{__expires}, + }; + if ( my $domain = $c->config->{session}{cookie_domain} ) { + $c->response->cookies->{$cookie_name}->{domain} = $domain; + } $c->log->debug(qq/A cookie with the session id "$sid" was saved/) if $c->debug; } } - return $c->NEXT::finalize(@_); + return $c->NEXT::finalize_cookies(@_); } sub prepare_cookies { @@ -81,7 +84,7 @@ This plugin stores the session ID on the client using the cookie mechanism. Will restore if an appropriate cookie is found. -=item finalize +=item finalize_cookies Will set a cookie called C if it doesn't exist or if it's value is not the current session id. @@ -100,6 +103,10 @@ Will set the C parameter to it's default value if it isn't set. The name of the cookie to store (defaults to C). +=item cookie_domain + +The name of the domain to store in the cookie (defaults to current host) + =back =head1 SEE ALSO