Upgrade to 1.0602

1 files changed, 321 insertions, 218 deletions

diff --git a/net/p5-Net/files/patch-aa b/net/p5-Net/files/patch-aa
index 959a275..1dc2864 100644
--- a/net/p5-Net/files/patch-aa
+++ b/net/p5-Net/files/patch-aa
@@ -1,218 +1,321 @@
---- Configure.orig	Thu Apr  3 10:16:13 1997
-+++ Configure	Thu Jun 26 20:13:51 1997
-@@ -206,18 +206,21 @@
- 
- #---------------------------------------------------------------------------
- 
--if(!-f $config_pm && $have_old && !$opt_d)
-- {
--  $msg = <<EDQ;
-+#if(!-f $config_pm && $have_old && !$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);
-+# }
-+#
- 
--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 = 0;
- 
- #---------------------------------------------------------------------------
- 
-@@ -234,7 +237,8 @@
- Do you want me to perform hostname lookups (y|n) ?
- EDQ
- 
--$cfg{'test_exist'} = get_bool($msg, $oldcfg{'test_exist'});
-+#$cfg{'test_exist'} = get_bool($msg, $oldcfg{'test_exist'});
-+$cfg{'test_exist'} = 1;
- 
- print <<EDQ unless $cfg{'test_exist'};
- 
-@@ -249,71 +253,72 @@
- 
- #---------------------------------------------------------------------------
- 
--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 = $oldcfg{'nntp_hosts'} ||
--	[ default_hostname($ENV{NNTPSERVER},$ENV{NEWSHOST},'news') ];
-+#$def = $oldcfg{'nntp_hosts'} ||
-+#	[ default_hostname($ENV{NNTPSERVER},$ENV{NEWSHOST},'news') ];
-+
-+$cfg{'nntp_hosts'} = [ default_hostname($ENV{NNTPSERVER},$ENV{NEWSHOST},'news') ];
- 
--$cfg{'nntp_hosts'} = get_host_list($msg,$def);
- 
- #---------------------------------------------------------------------------
- 
- $msg = 'Enter a list of avaliable SMTP hosts :';
- 
--$def = $oldcfg{'smtp_hosts'} ||
--	[ default_hostname(split(/:/,$ENV{SMTPHOSTS} || ""), 'mailhost') ];
-+#$def = $oldcfg{'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 = $oldcfg{'pop3_hosts'} || [];
-+# $def = $oldcfg{'pop3_hosts'} || [];
- 
--$cfg{'pop3_hosts'} = get_host_list($msg,$def);
-+$cfg{'pop3_hosts'} = [];
- 
- #---------------------------------------------------------------------------
- 
- $msg = 'Enter a list of avaliable SNPP hosts :';
- 
--$def = $oldcfg{'snpp_hosts'} || [];
-+# $def = $oldcfg{'snpp_hosts'} || [];
- 
--$cfg{'snpp_hosts'} = get_host_list($msg,$def);
-+$cfg{'snpp_hosts'} = [];
- 
- #---------------------------------------------------------------------------
- 
- $msg = 'Enter a list of avaliable PH Hosts   :'  ;
- 
--$def = $oldcfg{'ph_hosts'} ||
--	[ default_hostname('dirserv') ];
-+#$def = $oldcfg{'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 = $oldcfg{'time_hosts'} || [];
-+# $def = $oldcfg{'time_hosts'} || [];
- 
--$cfg{'time_hosts'} = get_host_list($msg,$def);
-+$cfg{'time_hosts'} = [];
- 
- #---------------------------------------------------------------------------
- 
- $msg = 'Enter a list of avaliable DAYTIME Hosts   :'  ;
- 
--$def = $oldcfg{'daytime_hosts'} || $oldcfg{'time_hosts'};
-+# $def = $oldcfg{'daytime_hosts'} || $oldcfg{'time_hosts'};
- 
--$cfg{'daytime_hosts'} = get_host_list($msg,$def);
-+$cfg{'daytime_hosts'} = [];
- 
- #---------------------------------------------------------------------------
- 
-@@ -329,9 +334,9 @@
- FTP proxy hostname :
- EDQ
- 
--$def = $oldcfg{'ftp_firewall'} || $ENV{FTP_FIREWALL};
-+# $def = $oldcfg{'ftp_firewall'} || $ENV{FTP_FIREWALL};
- 
--$cfg{'ftp_firewall'} = get_hostname($msg,$def);
-+$cfg{'ftp_firewall'} = $ENV{FTP_FIREWALL};
- 
- #---------------------------------------------------------------------------
- 
-@@ -352,37 +357,36 @@
- 
- #---------------------------------------------------------------------------
- 
--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) ?";
- 
--$def = $oldcfg{'ftp_ext_passive'} || 0;
--
--$cfg{'ftp_ext_passive'} = get_bool($msg,$def);
-+# $def = $oldcfg{'ftp_ext_passive'} || 0;
- 
-+$cfg{'ftp_ext_passive'} = 0;
- 
--$def = $oldcfg{'ftp_int_passive'} || 0;
-+# $def = $oldcfg{'ftp_int_passive'} || 0;
- 
- $msg = "\nShould all other FTP connections be passive (y|n) ?";
- 
--$cfg{'ftp_int_passive'} = get_bool($msg,$def);
-+$cfg{'ftp_int_passive'} = 0;
- 
- 
- #---------------------------------------------------------------------------
- 
--$def = $oldcfg{'inet_domain'} || $ENV{LOCALDOMAIN};
-+# $def = $oldcfg{'inet_domain'} || $ENV{LOCALDOMAIN};
- 
--$ans = Prompt("\nWhat is your local internet domain name :",$def);
-+# $ans = Prompt("\nWhat is your local internet domain name :",$def);
- 
--$cfg{'inet_domain'} = ($ans =~ /(\S+)/)[0];
-+$cfg{'inet_domain'} = "";
- 
- #---------------------------------------------------------------------------
- 
-@@ -398,7 +402,7 @@
- Do you want me to run these tests (y|n) ?
- EDQ
- 
--$cfg{'test_hosts'} = get_bool($msg,$oldcfg{'test_hosts'});
-+$cfg{'test_hosts'} = 0;
- 
- #---------------------------------------------------------------------------
- 
+*** Configure.orig	Wed Nov  5 06:27:54 1997
+--- Configure	Sat Nov 22 20:18:47 1997
+***************
+*** 195,212 ****
+  
+  #---------------------------------------------------------------------------
+  
+! if(!-f $config_pm && $have_old && !$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);
+!  }
+  
+  #---------------------------------------------------------------------------
+  
+--- 195,215 ----
+  
+  #---------------------------------------------------------------------------
+  
+! #if(!-f $config_pm && $have_old && !$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 = 0;
+  
+  #---------------------------------------------------------------------------
+  
+***************
+*** 223,229 ****
+  Do you want me to perform hostname lookups (y|n) ?
+  EDQ
+  
+! $cfg{'test_exist'} = get_bool($msg, $oldcfg{'test_exist'});
+  
+  print <<EDQ unless $cfg{'test_exist'};
+  
+--- 226,233 ----
+  Do you want me to perform hostname lookups (y|n) ?
+  EDQ
+  
+! #$cfg{'test_exist'} = get_bool($msg, $oldcfg{'test_exist'});
+! $cfg{'test_exist'} = 1;
+  
+  print <<EDQ unless $cfg{'test_exist'};
+  
+***************
+*** 238,308 ****
+  
+  #---------------------------------------------------------------------------
+  
+! print <<EDQ;
+! 
+! The following questions all require a list of host names, separated
+! with spaces. If you do not have a host available 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 available NNTP hosts :';
+  
+! $def = $oldcfg{'nntp_hosts'} ||
+! 	[ default_hostname($ENV{NNTPSERVER},$ENV{NEWSHOST},'news') ];
+  
+! $cfg{'nntp_hosts'} = get_host_list($msg,$def);
+  
+  #---------------------------------------------------------------------------
+  
+  $msg = 'Enter a list of available SMTP hosts :';
+  
+! $def = $oldcfg{'smtp_hosts'} ||
+! 	[ default_hostname(split(/:/,$ENV{SMTPHOSTS} || ""), 'mailhost') ];
+  
+! $cfg{'smtp_hosts'} = get_host_list($msg,$def);
+  
+  #---------------------------------------------------------------------------
+  
+  $msg = 'Enter a list of available POP3 hosts :';
+  
+! $def = $oldcfg{'pop3_hosts'} || [];
+  
+! $cfg{'pop3_hosts'} = get_host_list($msg,$def);
+  
+  #---------------------------------------------------------------------------
+  
+  $msg = 'Enter a list of available SNPP hosts :';
+  
+! $def = $oldcfg{'snpp_hosts'} || [];
+  
+! $cfg{'snpp_hosts'} = get_host_list($msg,$def);
+  
+  #---------------------------------------------------------------------------
+  
+  $msg = 'Enter a list of available PH Hosts   :'  ;
+  
+! $def = $oldcfg{'ph_hosts'} ||
+! 	[ default_hostname('dirserv') ];
+  
+! $cfg{'ph_hosts'}   =  get_host_list($msg,$def);
+  
+  #---------------------------------------------------------------------------
+  
+  $msg = 'Enter a list of available TIME Hosts   :'  ;
+  
+! $def = $oldcfg{'time_hosts'} || [];
+  
+! $cfg{'time_hosts'} = get_host_list($msg,$def);
+  
+  #---------------------------------------------------------------------------
+  
+  $msg = 'Enter a list of available DAYTIME Hosts   :'  ;
+  
+! $def = $oldcfg{'daytime_hosts'} || $oldcfg{'time_hosts'};
+  
+! $cfg{'daytime_hosts'} = get_host_list($msg,$def);
+  
+  #---------------------------------------------------------------------------
+  
+--- 242,312 ----
+  
+  #---------------------------------------------------------------------------
+  
+! #print <<EDQ;
+! #
+! #The following questions all require a list of host names, separated
+! #with spaces. If you do not have a host available 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 available NNTP hosts :';
+  
+! #$def = $oldcfg{'nntp_hosts'} ||
+! #        [ default_hostname($ENV{NNTPSERVER},$ENV{NEWSHOST},'news') ];
+  
+! $cfg{'nntp_hosts'} = [ default_hostname($ENV{NNTPSERVER},$ENV{NEWSHOST},'news') ];
+  
+  #---------------------------------------------------------------------------
+  
+  $msg = 'Enter a list of available SMTP hosts :';
+  
+! #$def = $oldcfg{'smtp_hosts'} ||
+! #        [ default_hostname(split(/:/,$ENV{SMTPHOSTS} || ""), 'mailhost') ];
+  
+! $cfg{'smtp_hosts'} = [ default_hostname(split(/:/,$ENV{SMTPHOSTS} || ""), 'mailhost') ];
+  
+  #---------------------------------------------------------------------------
+  
+  $msg = 'Enter a list of available POP3 hosts :';
+  
+! #$def = $oldcfg{'pop3_hosts'} || [];
+  
+! $cfg{'pop3_hosts'} = [];
+  
+  #---------------------------------------------------------------------------
+  
+  $msg = 'Enter a list of available SNPP hosts :';
+  
+! #$def = $oldcfg{'snpp_hosts'} || [];
+  
+! $cfg{'snpp_hosts'} = [];
+  
+  #---------------------------------------------------------------------------
+  
+  $msg = 'Enter a list of available PH Hosts   :'  ;
+  
+! #$def = $oldcfg{'ph_hosts'} ||
+! #        [ default_hostname('dirserv') ];
+  
+! $cfg{'ph_hosts'}   =  [ default_hostname('dirserv') ];
+  
+  #---------------------------------------------------------------------------
+  
+  $msg = 'Enter a list of available TIME Hosts   :'  ;
+  
+! #$def = $oldcfg{'time_hosts'} || [];
+  
+! $cfg{'time_hosts'} = [];
+  
+  #---------------------------------------------------------------------------
+  
+  $msg = 'Enter a list of available DAYTIME Hosts   :'  ;
+  
+! #$def = $oldcfg{'daytime_hosts'} || $oldcfg{'time_hosts'};
+  
+! $cfg{'daytime_hosts'} = [];
+  
+  #---------------------------------------------------------------------------
+  
+***************
+*** 318,326 ****
+  FTP proxy hostname :
+  EDQ
+  
+! $def = $oldcfg{'ftp_firewall'} || $ENV{FTP_FIREWALL};
+  
+! $cfg{'ftp_firewall'} = get_hostname($msg,$def);
+  
+  #---------------------------------------------------------------------------
+  
+--- 322,330 ----
+  FTP proxy hostname :
+  EDQ
+  
+! # $def = $oldcfg{'ftp_firewall'} || $ENV{FTP_FIREWALL};
+  
+! $cfg{'ftp_firewall'} = $ENV{FTP_FIREWALL};
+  
+  #---------------------------------------------------------------------------
+  
+***************
+*** 341,377 ****
+  
+  #---------------------------------------------------------------------------
+  
+! 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) ?";
+  
+! $def = $oldcfg{'ftp_ext_passive'} || 0;
+! 
+! $cfg{'ftp_ext_passive'} = get_bool($msg,$def);
+  
+  
+! $def = $oldcfg{'ftp_int_passive'} || 0;
+  
+  $msg = "\nShould all other FTP connections be passive (y|n) ?";
+  
+! $cfg{'ftp_int_passive'} = get_bool($msg,$def);
+  
+  
+  #---------------------------------------------------------------------------
+  
+! $def = $oldcfg{'inet_domain'} || $ENV{LOCALDOMAIN};
+  
+! $ans = Prompt("\nWhat is your local internet domain name :",$def);
+  
+! $cfg{'inet_domain'} = ($ans =~ /(\S+)/)[0];
+  
+  #---------------------------------------------------------------------------
+  
+--- 345,380 ----
+  
+  #---------------------------------------------------------------------------
+  
+! #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) ?";
+  
+! # $def = $oldcfg{'ftp_ext_passive'} || 0;
+  
++ $cfg{'ftp_ext_passive'} = 0;
+  
+! # $def = $oldcfg{'ftp_int_passive'} || 0;
+  
+  $msg = "\nShould all other FTP connections be passive (y|n) ?";
+  
+! $cfg{'ftp_int_passive'} = 0;
+  
+  
+  #---------------------------------------------------------------------------
+  
+! # $def = $oldcfg{'inet_domain'} || $ENV{LOCALDOMAIN};
+  
+! # $ans = Prompt("\nWhat is your local internet domain name :",$def);
+  
+! $cfg{'inet_domain'} = "";
+  
+  #---------------------------------------------------------------------------
+  
+***************
+*** 387,393 ****
+  Do you want me to run these tests (y|n) ?
+  EDQ
+  
+! $cfg{'test_hosts'} = get_bool($msg,$oldcfg{'test_hosts'});
+  
+  #---------------------------------------------------------------------------
+  
+--- 390,396 ----
+  Do you want me to run these tests (y|n) ?
+  EDQ
+  
+! $cfg{'test_hosts'} = 0;
+  
+  #---------------------------------------------------------------------------
+