freebsd-ports/net/p5-Net/files/patch-aa

--- Configure.orig	Tue Mar  4 04:19:32 1997
+++ Configure	Sun Apr 20 15:20:38 1997
@@ -203,18 +203,20 @@
 
 #---------------------------------------------------------------------------
 
-if(not(-f $config_pm) && $have_old && not($opt_d))
- {
-  $msg = <<EDQ;
-
-Ah, I see you already have installed libnet before.
-
-Do you want to modify/update your configuration (y|n) ?
-EDQ
+#if(not(-f $config_pm) && $have_old && not($opt_d))
+# {
+#  $msg = <<EDQ;
+#
+#Ah, I see you already have installed libnet before.
+#
+#Do you want to modify/update your configuration (y|n) ?
+#EDQ
+#
+# $opt_d = 1
+#	unless get_bool($msg,0);
+# }
 
- $opt_d = 1
-	unless get_bool($msg,0);
- }
+$opt_d = 0;
 
 #---------------------------------------------------------------------------
 
@@ -231,7 +233,8 @@
 Do you want me to perform hostname lookups (y|n) ?
 EDQ
 
-$cfg{'test_exist'} = get_bool($msg, $cfg{'test_exist'});
+#$cfg{'test_exist'} = get_bool($msg, $cfg{'test_exist'});
+$cfg{'test_exist'} = 1;
 
 print <<EDQ unless $cfg{'test_exist'};
 
@@ -246,71 +249,54 @@
 
 #---------------------------------------------------------------------------
 
-print <<EDQ;
-
-The following questions all require a list of host names, separated
-with spaces. If you do not have a host avaliable for any of the
-services, then enter a single space, followed by <CR>. To accept the
-default, hit <CR>
-
-EDQ
+#print <<EDQ;
+#
+#The following questions all require a list of host names, separated
+#with spaces. If you do not have a host avaliable for any of the
+#services, then enter a single space, followed by <CR>. To accept the
+#default, hit <CR>
+#
+#EDQ
 
 $msg = 'Enter a list of avaliable NNTP hosts :';
 
-$def = $cfg{'nntp_hosts'} ||
-	[ default_hostname($ENV{NNTPSERVER},$ENV{NEWSHOST},'news') ];
-
-$cfg{'nntp_hosts'} = get_host_list($msg,$def);
+$cfg{'nntp_hosts'} = [ default_hostname($ENV{NNTPSERVER},$ENV{NEWSHOST},'news') ];
 
 #---------------------------------------------------------------------------
 
 $msg = 'Enter a list of avaliable SMTP hosts :';
 
-$def = $cfg{'smtp_hosts'} ||
-	[ default_hostname(split(/:/,$ENV{SMTPHOSTS} || ""), 'mailhost') ];
-
-$cfg{'smtp_hosts'} = get_host_list($msg,$def);
+$cfg{'smtp_hosts'} = [ default_hostname(split(/:/,$ENV{SMTPHOSTS} || ""), 'mailhost') ];
 
 #---------------------------------------------------------------------------
 
 $msg = 'Enter a list of avaliable POP3 hosts :';
 
-$def = $cfg{'pop3_hosts'} || [];
-
-$cfg{'pop3_hosts'} = get_host_list($msg,$def);
+$cfg{'pop3_hosts'} = [];
 
 #---------------------------------------------------------------------------
 
 $msg = 'Enter a list of avaliable SNPP hosts :';
 
-$def = $cfg{'snpp_hosts'} || [];
-
-$cfg{'snpp_hosts'} = get_host_list($msg,$def);
+$cfg{'snpp_hosts'} = [];
 
 #---------------------------------------------------------------------------
 
 $msg = 'Enter a list of avaliable PH Hosts   :'  ;
 
-$def = $cfg{'ph_hosts'} ||
-	[ default_hostname('dirserv') ];
-
-$cfg{'ph_hosts'}   =  get_host_list($msg,$def);
+$cfg{'ph_hosts'}   =  [ default_hostname('dirserv') ];
 
 #---------------------------------------------------------------------------
 
 $msg = 'Enter a list of avaliable TIME Hosts   :'  ;
 
-$def = $cfg{'time_hosts'} || [];
-
-$cfg{'time_hosts'} = get_host_list($msg,$def);
+$cfg{'time_hosts'} = [];
 
 #---------------------------------------------------------------------------
 
 $msg = 'Enter a list of avaliable DAYTIME Hosts   :'  ;
 
-$def = $cfg{'daytime_hosts'} || $cfg{'time_hosts'};
-
-$cfg{'daytime_hosts'} = get_host_list($msg,$def);
+$cfg{'daytime_hosts'} = [];
 
 #---------------------------------------------------------------------------
 
@@ -326,9 +312,7 @@
 FTP proxy hostname :
 EDQ
 
-$cfg{'ftp_firewall'} ||= $ENV{FTP_FIREWALL};
-
-$cfg{'ftp_firewall'} = get_hostname($msg,$cfg{'ftp_firewall'});
+$cfg{'ftp_firewall'} = $ENV{FTP_FIREWALL};
 
 #---------------------------------------------------------------------------
 
@@ -349,28 +333,23 @@
 
 #---------------------------------------------------------------------------
 
-print <<EDQ;
-
-Normally when FTP needs a data connection the client tells the server
-a port to connect to, and the server initiates a connection to the client.
-
-Some setups, in particular firewall setups, can/do not work using this
-protocol. In these situations the client must make the connection to the
-server, this is called a passive transfer.
-EDQ
+#print <<EDQ;
+#
+#Normally when FTP needs a data connection the client tells the server
+#a port to connect to, and the server initiates a connection to the client.
+#
+#Some setups, in particular firewall setups, can/do not work using this
+#protocol. In these situations the client must make the connection to the
+#server, this is called a passive transfer.
+#EDQ
 
 $msg = "\nShould all FTP connections via a firewall/proxy be passive (y|n) ?";
 
-$cfg{'ftp_ext_passive'} ||= 0;
-
-$cfg{'ftp_ext_passive'} = get_bool($msg,$cfg{'ftp_ext_passive'});
-
-
-$cfg{'ftp_int_passive'} ||= 0;
+$cfg{'ftp_ext_passive'} = 0;
 
 $msg = "\nShould all other FTP connections be passive (y|n) ?";
 
-$cfg{'ftp_int_passive'} = get_bool($msg,$cfg{'ftp_int_passive'});
+$cfg{'ftp_int_passive'} = 0;
 
 
 #---------------------------------------------------------------------------
@@ -385,10 +364,10 @@
   $cfg{'inet_domain'} = Net::Domain::hostdomain();
  }
 
-$ans = Prompt("\nWhat is your local internet domain name :",
-		$cfg{'inet_domain'});
+#$ans = Prompt("\nWhat is your local internet domain name :",
+#		$cfg{'inet_domain'});
 
-$cfg{'inet_domain'} = ($ans =~ /(\S+)/)[0];
+$cfg{'inet_domain'} = "";
 
 #---------------------------------------------------------------------------
 
@@ -404,7 +383,7 @@
 Do you want me to run these tests (y|n) ?
 EDQ
 
-$cfg{'test_hosts'} = get_bool($msg,$cfg{'test_hosts'});
+$cfg{'test_hosts'} = 0;
 
 #---------------------------------------------------------------------------