[interchange-cvs] interchange - racke modified 2 files

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Mon Feb 2 04:23:37 EST 2004


User:      racke
Date:      2004-02-02 09:23:37 GMT
Modified:  .        WHATSNEW
Modified:  lib/Vend Server.pm
Log:
no DNS lookups for SOAP calls unless HostnameLookups is set

Revision  Changes    Path
2.188     +5 -0      interchange/WHATSNEW


rev 2.188, prev_rev 2.187
Index: WHATSNEW
===================================================================
RCS file: /anon_cvs/repository/interchange/WHATSNEW,v
retrieving revision 2.187
retrieving revision 2.188
diff -u -r2.187 -r2.188
--- WHATSNEW	30 Jan 2004 22:28:47 -0000	2.187
+++ WHATSNEW	2 Feb 2004 09:23:36 -0000	2.188
@@ -157,6 +157,11 @@
 
 * Japanese UI translation update from Murahashi <murahashi at ayayu.com>.
 
+SOAP
+----
+
+* no DNS lookups unless HostnameLookups is set
+
 Debian
 ------
 



2.47      +5 -3      interchange/lib/Vend/Server.pm


rev 2.47, prev_rev 2.46
Index: Server.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Server.pm,v
retrieving revision 2.46
retrieving revision 2.47
diff -u -r2.46 -r2.47
--- Server.pm	30 Jan 2004 22:25:05 -0000	2.46
+++ Server.pm	2 Feb 2004 09:23:37 -0000	2.47
@@ -1,6 +1,6 @@
 # Vend::Server - Listen for Interchange CGI requests as a background server
 #
-# $Id: Server.pm,v 2.46 2004/01/30 22:25:05 mheins Exp $
+# $Id: Server.pm,v 2.47 2004/02/02 09:23:37 racke Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -26,7 +26,7 @@
 package Vend::Server;
 
 use vars qw($VERSION);
-$VERSION = substr(q$Revision: 2.46 $, 10);
+$VERSION = substr(q$Revision: 2.47 $, 10);
 
 use POSIX qw(setsid strftime);
 use Vend::Util;
@@ -767,7 +767,9 @@
 
 	(undef, $Remote_addr) =
 				sockaddr_in(getpeername($fh));
-	$$env{REMOTE_HOST} = gethostbyaddr($Remote_addr, AF_INET);
+	if ($Global::HostnameLookups) {
+		$$env{REMOTE_HOST} = gethostbyaddr($Remote_addr, AF_INET);
+	}
 	$Remote_addr = inet_ntoa($Remote_addr);
 
 	$$env{REMOTE_ADDR} = $Remote_addr;








More information about the interchange-cvs mailing list