[interchange-cvs] interchange - ton modified lib/Vend/Dispatch.pm

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Wed Jan 19 10:55:14 EST 2005


User:      ton
Date:      2005-01-19 15:55:13 GMT
Modified:  lib/Vend Dispatch.pm
Log:
	Variable MV_ROBOT_EXPIRE is obsolete.
	All tests are done based on $Vend::Cfg->{Limit}{robot_expire}.
	So, bring this in sync with routine count_ip located in Session.pm

Revision  Changes    Path
1.46      +4 -4      interchange/lib/Vend/Dispatch.pm


rev 1.46, prev_rev 1.45
Index: Dispatch.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Dispatch.pm,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -r1.45 -r1.46
--- Dispatch.pm	6 Oct 2004 23:36:13 -0000	1.45
+++ Dispatch.pm	19 Jan 2005 15:55:13 -0000	1.46
@@ -1,6 +1,6 @@
 # Vend::Dispatch - Handle Interchange page requests
 #
-# $Id: Dispatch.pm,v 1.45 2004/10/06 23:36:13 jon Exp $
+# $Id: Dispatch.pm,v 1.46 2005/01/19 15:55:13 ton Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 2002 Mike Heins <mike at perusion.net>
@@ -26,7 +26,7 @@
 package Vend::Dispatch;
 
 use vars qw($VERSION);
-$VERSION = substr(q$Revision: 1.45 $, 10);
+$VERSION = substr(q$Revision: 1.46 $, 10);
 
 use POSIX qw(strftime);
 use Vend::Util;
@@ -1281,8 +1281,8 @@
 			if (Vend::Session::count_ip() > $Vend::Cfg->{RobotLimit}) {
 				my $msg;
 				# Here they can get it back if they pass expiration time
-				my $wait = $Global::Variable->{MV_ROBOT_EXPIRE} || 86400;
-				$wait /= 3600;
+				my $wait = $Vend::Cfg->{Limit}{robot_expire} || 1;
+				$wait *= 24;
 				$msg = errmsg(<<EOF, $wait); 
 Too many new ID assignments for this IP address. Please wait at least %d hours
 before trying again. Only waiting that period will allow access. Terminating.








More information about the interchange-cvs mailing list