view release on metacpan or  search on metacpan

lib/Apache/SiteControl/UserFactory.pm  view on Meta::CPAN

241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
   LockDirectory => $lockdir
   };
$username = $session{username};
if(!defined($username)) {
   $r->log_error("Session $session{_session_id} does not have a username...deleting");
   tied(%session)->delete;
   next;
}
if(defined($usermap{$username})) {
   # last modify time of session we saw
   my $timea = (stat("$sessiondir/$usermap{$username}{_session_id}"))[9];
   # last modify time of this session
   my $timeb = (stat("$sessiondir/$id"))[9];
   $r->log_error("User $username has duplicate session! Expiring old session");
   if($timea < $timeb) {
      # The one we saw earlier is older. Delete it.
      untie %session;
      tie %session, 'Apache::Session::File', 
         $usermap{$username}{_session_id}, {
         Directory => $sessiondir,
         LockDirectory => $lockdir
         };
      tied(%session)->delete;