Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Use 127.0.0.1 instead of localhost for default INET host values to avoid

DNS lookup, as per bug #516.
  • Loading branch information...
commit 8ef654ad3320effd3624a9d971b7aad33efa8ea1 1 parent 9d68d7d
@jonjensen jonjensen authored
View
4 dist/lib/UI/pages/admin/transfer_catalog.html
@@ -128,7 +128,7 @@
name=LINKHOST
cgi-default=1
type=text_20
- ] Link host if INET mode (default is localhost)
+ ] Link host if INET mode (default is 127.0.0.1)
<br>
[display
name=LINKPORT
@@ -183,4 +183,4 @@
<!-- ----- END REAL STUFF ----- -->
@_UI_STD_FOOTER_@
-<!-- page: @@MV_PAGE@@ version: $Revision: 1.2 $ -->
+<!-- page: @@MV_PAGE@@ version: $Revision: 1.3 $ -->
View
12 lib/Vend/MakeCat.pm
@@ -1,6 +1,6 @@
# Vend::MakeCat - Routines for Interchange catalog configurator
#
-# $Id: MakeCat.pm,v 2.11 2003-06-18 17:34:44 jon Exp $
+# $Id: MakeCat.pm,v 2.12 2003-08-01 15:05:54 jon Exp $
#
# Copyright (C) 2002-2003 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
@@ -111,7 +111,7 @@ use vars qw/
%Window
/;
-$VERSION = substr(q$Revision: 2.11 $, 10);
+$VERSION = substr(q$Revision: 2.12 $, 10);
$Force = 0;
$History = 0;
@@ -343,9 +343,9 @@ EOF
# CGI will talk to.
#
# If Interchange is running on the same server as your web
-# server, this should be "localhost". If the web server is on a
-# different machine, it is the IP address of the machine
-# Interchange is running on.
+# server, this should be "localhost" or "127.0.0.1". If the web
+# server is on a different machine, it is the IP address of the
+# machine Interchange is running on.
EOF
linkmode => <<EOF,
@@ -1514,7 +1514,7 @@ sub find_inet_info {
my $prog = "$Conf{relocate}$Conf{vendroot}/src/tlink";
my $the_one = sum_it($prog);
my $defport = '7786';
- my $defhost = 'localhost';
+ my $defhost = '127.0.0.1';
my @poss = glob("$Conf{relocate}$Conf{vendroot}/src/tlink.*.*");
for (@poss) {
View
4 scripts/compile_link.PL
@@ -3,7 +3,7 @@
#
# Interchange link program configurator
#
-# $Id: compile_link.PL,v 2.4 2003-06-18 17:34:47 jon Exp $
+# $Id: compile_link.PL,v 2.5 2003-08-01 15:05:54 jon Exp $
#
# Copyright (C) 2002-2003 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
@@ -39,7 +39,7 @@ Getopt::Long::config(qw/permute/);
BEGIN {
$::Self = {
- LINK_HOST => 'localhost',
+ LINK_HOST => '127.0.0.1',
LINK_PORT => 7786,
LINK_TIMEOUT => 30,
LINK_FILE => '/usr/local/interchange/etc/socket',
View
6 scripts/makecat.PL
@@ -3,7 +3,7 @@
#
# Interchange catalog configurator
#
-# $Id: makecat.PL,v 2.21 2003-06-18 17:34:47 jon Exp $
+# $Id: makecat.PL,v 2.22 2003-08-01 15:05:54 jon Exp $
#
# Copyright (C) 2002-2003 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
@@ -1378,7 +1378,7 @@ EOF
}
sethistory(grep !$seen{$_}++, @hosts);
- $default = $defhost || $Conf{linkhost} || 'localhost';
+ $default = $defhost || $Conf{linkhost} || '127.0.0.1';
while(! $lh) {
$lh = prompt("Link host? ", $default);
redo INETASK if $lh eq '@';
@@ -2299,7 +2299,7 @@ makecat [--options] name
=head1 VERSION
-# $Id: makecat.PL,v 2.21 2003-06-18 17:34:47 jon Exp $
+# $Id: makecat.PL,v 2.22 2003-08-01 15:05:54 jon Exp $
=head1 INTRODUCTION
View
2  test.pl
@@ -108,7 +108,7 @@
$testnum++;
use Socket;
-my $LINK_HOST = 'localhost';
+my $LINK_HOST = '127.0.0.1';
my $LINK_PORT = $ENV{MINIVEND_PORT};
my $LINK_TIMEOUT = 15;
my $ERROR_ACTION = "-none";
Please sign in to comment.
Something went wrong with that request. Please try again.