projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT 4.0.13
[freeside.git]
/
rt
/
lib
/
RT
/
Interface
/
Web
/
Session.pm
diff --git
a/rt/lib/RT/Interface/Web/Session.pm
b/rt/lib/RT/Interface/Web/Session.pm
index
c5b88f1
..
4edd9bd
100644
(file)
--- a/
rt/lib/RT/Interface/Web/Session.pm
+++ b/
rt/lib/RT/Interface/Web/Session.pm
@@
-2,7
+2,7
@@
#
# COPYRIGHT:
#
#
# COPYRIGHT:
#
-# This software is Copyright (c) 1996-201
2
Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-201
3
Best Practical Solutions, LLC
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
@@
-207,8
+207,8
@@
sub _ClearOldDir {
foreach my $id( @{ $self->Ids } ) {
if( int $older_than ) {
foreach my $id( @{ $self->Ids } ) {
if( int $older_than ) {
- my $
c
time = (stat(File::Spec->catfile($dir,$id)))[9];
- if( $
c
time > $now - $older_than ) {
+ my $
m
time = (stat(File::Spec->catfile($dir,$id)))[9];
+ if( $
m
time > $now - $older_than ) {
$RT::Logger->debug("skipped session '$id', isn't old");
next;
}
$RT::Logger->debug("skipped session '$id', isn't old");
next;
}
@@
-224,6
+224,10
@@
sub _ClearOldDir {
tied(%session)->delete;
$RT::Logger->info("successfuly deleted session '$id'");
}
tied(%session)->delete;
$RT::Logger->info("successfuly deleted session '$id'");
}
+
+ my $lock = Apache::Session::Lock::File->new;
+ $lock->clean( $dir, $older_than );
+
return;
}
return;
}