[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