Changeset 552 for branches

Timestamp:

12/12/13 15:51:07 (10 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Merge session-handling fix

Location:

branches/stable

Files:

• . (modified) (1 prop)
• dns.cgi (modified) (3 diffs)

branches/stable/dns.cgi

@@ -99 +99 @@
         or die CGI::Session->errstr();
 
-if (!$sid) {
+if (!$sid || $session->is_expired) {
   $webvar{page} = 'login';
 } else {
@@ -218 +218 @@
 }
 
-my $sesscookie;
+my $sesscookie = $q->cookie( -name => 'dnsadmin_session',
+        -value => $sid,
+#        -expires => "+".$dnsdb->{timeout},
+        -secure => 0,
+## fixme:  need to extract root path for cookie, so as to limit cookie to dnsadmin instance
+#        -path => $url
+        );
 
 # handle can-happen-on-(almost)-any-page actions
@@ -237 +243 @@
       $sesscookie = $q->cookie( -name => 'dnsadmin_session',
         -value => $sid,
-        -expires => "+".$dnsdb->{timeout},
+#        -expires => "+".$dnsdb->{timeout},
         -secure => 0,
 ## fixme:  need to extract root path for cookie, so as to limit cookie to dnsadmin instance