diff options
Diffstat (limited to 'net/p5-Net/files/patch-aa')
| -rw-r--r-- | net/p5-Net/files/patch-aa | 205 |
1 files changed, 205 insertions, 0 deletions
diff --git a/net/p5-Net/files/patch-aa b/net/p5-Net/files/patch-aa new file mode 100644 index 000000000000..1e8116074185 --- /dev/null +++ b/net/p5-Net/files/patch-aa @@ -0,0 +1,205 @@ +--- 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; + + #--------------------------------------------------------------------------- + |