diff options
| -rw-r--r-- | net/p5-Net/DESCR | 76 | ||||
| -rw-r--r-- | net/p5-Net/Makefile | 10 | ||||
| -rw-r--r-- | net/p5-Net/distinfo | 8 | ||||
| -rw-r--r-- | net/p5-Net/patches/patch-aa | 504 |
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; + + #--------------------------------------------------------------------------- + |