Set plain cookies with a domain, too

abh · Nov 10, 2011 · 7ccca7e · 7ccca7e
1 parent 0e893ac
commit 7ccca7e
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/lib/NTPPool/Control.pm b/lib/NTPPool/Control.pm
@@ -246,6 +246,11 @@ sub plain_cookie {
         return $ocookie;
     }
 
+    $args->{domain} = delete $args->{domain}
+        || $self->site && $self->config->site->{$self->site}->{cookie_domain}
+        || $self->request->uri->host
+        || '';  
+
     $args->{path}   ||= '/';
     $args->{expires} = time + ( 30 * 86400 ) unless defined $args->{expires};
     if ($args->{expires} =~ m/^-/) {