Updated to version 1.09 (PR#14608). Some of the changes since 1.0703:

- DummyInetd, Telnet, SNPP and PH modules was removed from this release,
  and they became a new module.
- DESCR cleanup, remove non-existing module
- new maintainer

4 files changed, 203 insertions, 395 deletions

diff --git a/net/p5-Net/DESCR b/net/p5-Net/DESCR
index 51693570cf3..7019cd90485 100644
--- a/net/p5-Net/DESCR
+++ b/net/p5-Net/DESCR
@@ -1,86 +1,10 @@
 Contents of perl5 Net class:
 
 Net::FTP - FTP Client class
-
-       Net::FTP is a class implementing a simple FTP client in
-       Perl as described in RFC959
-
-       Net::FTP provides methods that will perform various
-       operations. These methods could be split into groups
-       depending the level of interface the user requires.      
-
-
 Net::Time - time and daytime network client interface
-
-       Net::Time provides subroutines that obtain the time on a
-       remote machine.
-
-
-Net::DummyInetd - A dummy Inetd server
-
-       Net::DummyInetd is just what it's name says, it is a dummy
-       inetd server.  Creation of a Net::DummyInetd will cause a
-       child process to be spawned off which will listen to a
-       socket. When a connection arrives on this socket the
-       specified command is fork'd and exec'd with STDIN and
-       STDOUT file descriptors duplicated to the new socket.   
-
-
 Net::NNTP - NNTP Client class
-
-       Net::NNTP is a class implementing a simple NNTP client in
-       Perl as described in RFC977. Net::NNTP inherits its
-       communication methods from Net::Cmd   
-
-
-Net::SNPP - Simple Network Pager Protocol Client
-
-       This module implements a client interface to the SNPP
-       protocol, enabling a perl5 application to talk to SNPP
-       servers. This documentation assumes that you are familiar
-       with the SNPP protocol described in RFC1861.        
-
-
 Net::POP3 - Post Office Protocol 3 Client class (RFC1081)
-
-      This module implements a client interface to the POP3
-       protocol, enabling a perl5 application to talk to POP3
-       servers. This documentation assumes that you are familiar
-       with the POP3 protocol described in RFC1081.       
-
-
 Net::Cmd - Network Command class (as used by FTP, SMTP etc)   
-
-       Net::Cmd is a collection of methods that can be inherited
-       by a sub class of IO::Handle. These methods implement the
-       functionality required for a command based protocol, for
-       example FTP and SMTP.       
-
 Net::SMTP - Simple Mail transfer Protocol Client
-
-       This module implements a client interface to the SMTP
-       protocol, enabling a perl5 application to talk to SMTP
-       servers. This documentation assumes that you are familiar
-       with the SMTP protocol described in RFC821.    
-
-
 Net::Domain - Attempt to evaluate the current host's internet name and domain
-
-       Using various methods attempt to find the Fully Qualified
-       Domain Name (FQDN) of the current host. From this
-       determine the host-name and the host-domain. 
-
-
 Net::Netrc - OO interface to users netrc file
-
-      Net::Netrc is a class implementing a simple interface to
-      the .netrc file used as by the ftp program.      
-
-
-Net::Telnet - Defines constants for the telnet protocol
-
-       This module is VERY preliminary as I am not 100% sure how
-       it should be implemented.
-
-       Currently it just exports constants used in the telnet
-       protocol.                                  
diff --git a/net/p5-Net/Makefile b/net/p5-Net/Makefile
index 591fcff30f2..7c4a8f82f1d 100644
--- a/net/p5-Net/Makefile
+++ b/net/p5-Net/Makefile
@@ -1,15 +1,15 @@
-# $NetBSD: Makefile,v 1.21 2001/10/18 15:20:31 veego Exp $
+# $NetBSD: Makefile,v 1.22 2001/11/22 08:35:58 martti Exp $
 # FreeBSD Id: Makefile,v 1.13 1997/06/27 18:38:15 jfitz Exp
 #
 
-DISTNAME=	libnet-1.0703
-PKGNAME=	p5-Net-1.0703
+DISTNAME=	libnet-1.09
+PKGNAME=	p5-Net-1.09
 SVR4_PKGNAME=	p5net
 CATEGORIES=	net perl5
 MASTER_SITES=	${MASTER_SITE_PERL_CPAN:=Net/}
 
-MAINTAINER=	packages@netbsd.org
-HOMEPAGE=	http://theory.uwinnipeg.ca/CPAN/data/libnet/Net/libnetFAQ.html  
+MAINTAINER=	shell@shellhung.org
+HOMEPAGE=	http://theory.uwinnipeg.ca/CPAN/data/libnet/Net/libnetFAQ.html
 COMMENT=	perl5 modules to access and use network protocols
 
 DEPENDS+= 	{p5-Data-Dumper-[0-9]*,perl>=5.6.1nb2}:../../lang/perl5
diff --git a/net/p5-Net/distinfo b/net/p5-Net/distinfo
index 516ce93cdd5..acbbd8cd106 100644
--- a/net/p5-Net/distinfo
+++ b/net/p5-Net/distinfo
@@ -1,5 +1,5 @@
-$NetBSD: distinfo,v 1.2 2001/04/21 11:23:26 wiz Exp $
+$NetBSD: distinfo,v 1.3 2001/11/22 08:35:58 martti Exp $
 
-SHA1 (libnet-1.0703.tar.gz) = ec1fe8058105f230ee89738b1fdc7443e458d971
-Size (libnet-1.0703.tar.gz) = 64719 bytes
-SHA1 (patch-aa) = 244a00a054a41951a9afee9e7df65290de7204e2
+SHA1 (libnet-1.09.tar.gz) = 09fb95b5ee1ba50044937fa5ffd060a38a2ae06a
+Size (libnet-1.09.tar.gz) = 60585 bytes
+SHA1 (patch-aa) = 655b2ee1c751818c7f90123dfde0cb06a8237b34
diff --git a/net/p5-Net/patches/patch-aa b/net/p5-Net/patches/patch-aa
index 67130059897..49ce6c01a58 100644
--- a/net/p5-Net/patches/patch-aa
+++ b/net/p5-Net/patches/patch-aa
@@ -1,311 +1,195 @@
-$NetBSD: patch-aa,v 1.7 2000/07/03 11:31:04 mjl Exp $
+$NetBSD: patch-aa,v 1.8 2001/11/22 08:35:58 martti Exp $
 
-*** Configure.orig	Mon Jan 17 17:44:18 2000
---- Configure	Mon Jul  3 12:23:05 2000
-***************
-*** 258,275 ****
-  
-  #---------------------------------------------------------------------------
-  
-! if($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);
-!  }
-  
-  #---------------------------------------------------------------------------
-  
---- 258,276 ----
-  
-  #---------------------------------------------------------------------------
-  
-! #if($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;
-  
-  #---------------------------------------------------------------------------
-  
-***************
-*** 286,292 ****
-  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'};
-  
---- 287,293 ----
-  Do you want me to perform hostname lookups (y|n) ?
-  EDQ
-  
-! $cfg{'test_exist'} = 1;
-  
-  print <<EDQ unless $cfg{'test_exist'};
-  
-***************
-*** 301,321 ****
-  
-  #---------------------------------------------------------------------------
-  
-! 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);
-  
-  #---------------------------------------------------------------------------
-  
---- 302,322 ----
-  
-  #---------------------------------------------------------------------------
-  
-! # 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'} = $def;
-  
-  #---------------------------------------------------------------------------
-  
-***************
-*** 324,330 ****
-  $def = $oldcfg{'smtp_hosts'} ||
-  	[ default_hostname(split(/:/,$ENV{SMTPHOSTS} || ""), 'mailhost') ];
-  
-! $cfg{'smtp_hosts'} = get_host_list($msg,$def);
-  
-  #---------------------------------------------------------------------------
-  
---- 325,331 ----
-  $def = $oldcfg{'smtp_hosts'} ||
-  	[ default_hostname(split(/:/,$ENV{SMTPHOSTS} || ""), 'mailhost') ];
-  
-! $cfg{'smtp_hosts'} = $def;
-  
-  #---------------------------------------------------------------------------
-  
-***************
-*** 332,338 ****
-  
-  $def = $oldcfg{'pop3_hosts'} || [];
-  
-! $cfg{'pop3_hosts'} = get_host_list($msg,$def);
-  
-  #---------------------------------------------------------------------------
-  
---- 333,339 ----
-  
-  $def = $oldcfg{'pop3_hosts'} || [];
-  
-! $cfg{'pop3_hosts'} = $def;
-  
-  #---------------------------------------------------------------------------
-  
-***************
-*** 340,346 ****
-  
-  $def = $oldcfg{'snpp_hosts'} || [];
-  
-! $cfg{'snpp_hosts'} = get_host_list($msg,$def);
-  
-  #---------------------------------------------------------------------------
-  
---- 341,347 ----
-  
-  $def = $oldcfg{'snpp_hosts'} || [];
-  
-! $cfg{'snpp_hosts'} = $def;
-  
-  #---------------------------------------------------------------------------
-  
-***************
-*** 349,355 ****
-  $def = $oldcfg{'ph_hosts'} ||
-  	[ default_hostname('dirserv') ];
-  
-! $cfg{'ph_hosts'}   =  get_host_list($msg,$def);
-  
-  #---------------------------------------------------------------------------
-  
---- 350,356 ----
-  $def = $oldcfg{'ph_hosts'} ||
-  	[ default_hostname('dirserv') ];
-  
-! $cfg{'ph_hosts'}   =  $def;
-  
-  #---------------------------------------------------------------------------
-  
-***************
-*** 357,363 ****
-  
-  $def = $oldcfg{'time_hosts'} || [];
-  
-! $cfg{'time_hosts'} = get_host_list($msg,$def);
-  
-  #---------------------------------------------------------------------------
-  
---- 358,364 ----
-  
-  $def = $oldcfg{'time_hosts'} || [];
-  
-! $cfg{'time_hosts'} = $def;
-  
-  #---------------------------------------------------------------------------
-  
-***************
-*** 365,371 ****
-  
-  $def = $oldcfg{'daytime_hosts'} || $oldcfg{'time_hosts'};
-  
-! $cfg{'daytime_hosts'} = get_host_list($msg,$def);
-  
-  #---------------------------------------------------------------------------
-  
---- 366,372 ----
-  
-  $def = $oldcfg{'daytime_hosts'} || $oldcfg{'time_hosts'};
-  
-! $cfg{'daytime_hosts'} = $def;
-  
-  #---------------------------------------------------------------------------
-  
-***************
-*** 378,384 ****
-  (y|n) ?
-  EDQ
-  
-! if(get_bool($msg,0)) {
-  
-    $msg = <<'EDQ';
-  What series of FTP commands do you need to send to your
---- 379,386 ----
-  (y|n) ?
-  EDQ
-  
-! # XXX Should probably honor USE_SOCKS? --mjl
-! if(0 && get_bool($msg,0)) {
-  
-    $msg = <<'EDQ';
-  What series of FTP commands do you need to send to your
-***************
-*** 489,503 ****
-  
-  #---------------------------------------------------------------------------
-  
-! 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
-  
-  if (defined $cfg{'ftp_firewall'}) {
-    $msg = "\nShould all FTP connections via a firewall/proxy be passive (y|n) ?";
---- 491,505 ----
-  
-  #---------------------------------------------------------------------------
-  
-! # 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
-  
-  if (defined $cfg{'ftp_firewall'}) {
-    $msg = "\nShould all FTP connections via a firewall/proxy be passive (y|n) ?";
-***************
-*** 515,530 ****
-  
-  $def = $oldcfg{'ftp_int_passive'} || 0;
-  
-! $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];
-  
-  #---------------------------------------------------------------------------
-  
---- 517,532 ----
-  
-  $def = $oldcfg{'ftp_int_passive'} || 0;
-  
-! $cfg{'ftp_int_passive'} = 0;
-  
-  
-  #---------------------------------------------------------------------------
-  
-! $def = $oldcfg{'inet_domain'} || $ENV{DOMAIN_NAME};
-  
-! # $ans = Prompt("\nWhat is your local internet domain name :",$def);
-  
-! $cfg{'inet_domain'} = $def;
-  
-  #---------------------------------------------------------------------------
-  
-***************
-*** 540,546 ****
-  Do you want me to run these tests (y|n) ?
-  EDQ
-  
-! $cfg{'test_hosts'} = get_bool($msg,$oldcfg{'test_hosts'});
-  
-  #---------------------------------------------------------------------------
-  
---- 542,548 ----
-  Do you want me to run these tests (y|n) ?
-  EDQ
-  
-! $cfg{'test_hosts'} = 0;
-  
-  #---------------------------------------------------------------------------
-  
+--- Configure.orig	Thu Mar 22 06:15:29 2001
++++ Configure	Sat Nov 17 02:40:26 2001
+@@ -258,18 +258,19 @@
+ 
+ #---------------------------------------------------------------------------
+ 
+-if($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);
+- }
++#if($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;
+ 
+ #---------------------------------------------------------------------------
+ 
+@@ -286,7 +287,7 @@
+ 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'};
+ 
+@@ -301,21 +302,21 @@
+ 
+ #---------------------------------------------------------------------------
+ 
+-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
++# 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);
++$cfg{'nntp_hosts'} = $def;
+ 
+ #---------------------------------------------------------------------------
+ 
+@@ -324,7 +325,7 @@
+ $def = $oldcfg{'smtp_hosts'} ||
+ 	[ default_hostname(split(/:/,$ENV{SMTPHOSTS} || ""), 'mailhost') ];
+ 
+-$cfg{'smtp_hosts'} = get_host_list($msg,$def);
++$cfg{'smtp_hosts'} = $def;
+ 
+ #---------------------------------------------------------------------------
+ 
+@@ -332,7 +333,7 @@
+ 
+ $def = $oldcfg{'pop3_hosts'} || [];
+ 
+-$cfg{'pop3_hosts'} = get_host_list($msg,$def);
++$cfg{'pop3_hosts'} = $def;
+ 
+ #---------------------------------------------------------------------------
+ 
+@@ -340,7 +341,7 @@
+ 
+ $def = $oldcfg{'snpp_hosts'} || [];
+ 
+-$cfg{'snpp_hosts'} = get_host_list($msg,$def);
++$cfg{'snpp_hosts'} = $def;
+ 
+ #---------------------------------------------------------------------------
+ 
+@@ -349,7 +350,7 @@
+ $def = $oldcfg{'ph_hosts'} ||
+ 	[ default_hostname('dirserv') ];
+ 
+-$cfg{'ph_hosts'}   =  get_host_list($msg,$def);
++$cfg{'ph_hosts'}   =  $def;
+ 
+ #---------------------------------------------------------------------------
+ 
+@@ -357,7 +358,7 @@
+ 
+ $def = $oldcfg{'time_hosts'} || [];
+ 
+-$cfg{'time_hosts'} = get_host_list($msg,$def);
++$cfg{'time_hosts'} = $def;
+ 
+ #---------------------------------------------------------------------------
+ 
+@@ -365,7 +366,7 @@
+ 
+ $def = $oldcfg{'daytime_hosts'} || $oldcfg{'time_hosts'};
+ 
+-$cfg{'daytime_hosts'} = get_host_list($msg,$def);
++$cfg{'daytime_hosts'} = $def;
+ 
+ #---------------------------------------------------------------------------
+ 
+@@ -378,7 +379,8 @@
+ (y|n) ?
+ EDQ
+ 
+-if(get_bool($msg,0)) {
++# XXX Should probably honor USE_SOCKS? --mjl
++if(0 && get_bool($msg,0)) {
+ 
+   $msg = <<'EDQ';
+ What series of FTP commands do you need to send to your
+@@ -489,15 +491,15 @@
+ 
+ #---------------------------------------------------------------------------
+ 
+-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
+ 
+ if (defined $cfg{'ftp_firewall'}) {
+   $msg = "\nShould all FTP connections via a firewall/proxy be passive (y|n) ?";
+@@ -515,16 +517,16 @@
+ 
+ $def = $oldcfg{'ftp_int_passive'} || 0;
+ 
+-$cfg{'ftp_int_passive'} = get_bool($msg,$def);
++$cfg{'ftp_int_passive'} = 0;
+ 
+ 
+ #---------------------------------------------------------------------------
+ 
+-$def = $oldcfg{'inet_domain'} || $ENV{LOCALDOMAIN};
++$def = $oldcfg{'inet_domain'} || $ENV{DOMAIN_NAME};
+ 
+-$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'} = $def;
+ 
+ #---------------------------------------------------------------------------
+ 
+@@ -540,7 +542,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;
+ 
+ #---------------------------------------------------------------------------
+