[interchange-cvs] interchange - jon modified scripts/expire.PL
interchange-core@interchange.redhat.com
interchange-core@interchange.redhat.com
Wed Jan 16 13:58:01 2002
User: jon
Date: 2002-01-16 18:57:52 GMT
Modified: scripts expire.PL
Log:
Check in Kevin Walsh's patch for expiring NFS-based session files.
Revision Changes Path
2.1 +3 -2 interchange/scripts/expire.PL
rev 2.1, prev_rev 2.0
Index: expire.PL
===================================================================
RCS file: /var/cvs/interchange/scripts/expire.PL,v
retrieving revision 2.0
retrieving revision 2.1
diff -u -u -r2.0 -r2.1
--- expire.PL 2001/07/18 02:23:27 2.0
+++ expire.PL 2002/01/16 18:57:52 2.1
@@ -50,7 +50,7 @@
#
# Interchange session expiration
#
-# $Id: expire.PL,v 2.0 2001/07/18 02:23:27 jon Exp $
+# $Id: expire.PL,v 2.1 2002/01/16 18:57:52 jon Exp $
#
# Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
#
@@ -251,7 +251,8 @@
if $opt_v;
-if ($Vend::Cfg->{SessionType} eq 'File' ) {
+if ($Vend::Cfg->{SessionType} eq 'File'
+ or $Vend::Cfg->{SessionType} eq 'NFS') {
require File::Find;
my $expire = $Vend::Cfg->{SessionExpire} + 60;
$expire /= 86400;