[interchange-cvs] interchange - jon modified lib/Vend/Session.pm

[interchange-cvs at icdevgroup.org]

User:      jon
Date:      2004-07-19 22:34:45 GMT
Modified:  lib/Vend Session.pm
Log:
Don't create tmp/addr_ctr files for visitor IP if RobotLimit isn't being
used.

Fix apparent typo in log message: < instead of >.

Revision  Changes    Path
2.20      +4 -4      interchange/lib/Vend/Session.pm


rev 2.20, prev_rev 2.19
Index: Session.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Session.pm,v
retrieving revision 2.19
retrieving revision 2.20
diff -u -u -r2.19 -r2.20
--- Session.pm	6 Jul 2004 06:19:41 -0000	2.19
+++ Session.pm	19 Jul 2004 22:34:45 -0000	2.20
@@ -1,6 +1,6 @@
 # Vend::Session - Interchange session routines
 #
-# $Id: Session.pm,v 2.19 2004/07/06 06:19:41 mheins Exp $
+# $Id: Session.pm,v 2.20 2004/07/19 22:34:45 jon Exp $
 # 
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -27,7 +27,7 @@
 require Exporter;
 
 use vars qw($VERSION);
-$VERSION = substr(q$Revision: 2.19 $, 10);
+$VERSION = substr(q$Revision: 2.20 $, 10);
 
 @ISA = qw(Exporter);
 
@@ -206,7 +206,7 @@
 		my @st = stat(_);
 		my $mtime = (time() - $st[9]) / 86400;
 		if($mtime > $grace) {
-			::logDebug("ip $ip allowed back in due to '$mtime' < '$grace' days");
+			::logDebug("ip $ip allowed back in due to '$mtime' > '$grace' days");
 			unlink $fn;
 		}
 	}
@@ -261,7 +261,7 @@
 		}
     }
 	$Vend::new_session = 1;
-	count_ip(1);
+	count_ip(1) if $Vend::Cfg->{RobotLimit};
 	undef $Vend::Cookie;
     $Vend::SessionName = $name;
     init_session();