Network access, for p5-libwww

6 files changed, 359 insertions, 0 deletions

diff --git a/net/p5-Net/Makefile b/net/p5-Net/Makefile
new file mode 100644
index 00000000000..c29445af204
--- /dev/null
+++ b/net/p5-Net/Makefile
@@ -0,0 +1,29 @@
+# New ports collection makefile for:	p5-Net
+# Version required:			1.0505
+# Date created:				September 30th 1996
+# Whom:	      				James FitzGibbon <jfitz@FreeBSD.org>
+#
+#   $Id: Makefile,v 1.1.1.1 1997/11/22 04:52:46 hubertf Exp $
+#
+
+DISTNAME=	libnet-1.0505
+PKGNAME=	p5-Net-1.0505
+CATEGORIES=	net perl5
+MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
+MASTER_SITE_SUBDIR=	Net
+
+MAINTAINER=	jfitz@FreeBSD.ORG
+
+BUILD_DEPENDS= 	${PREFIX}/lib/perl5/site_perl/Data/Dumper.pm:${PORTSDIR}/devel/p5-Data-Dumper
+
+USE_PERL5=	YES
+
+MAN3=		Net::Time.3 Net::DummyInetd.3 Net::NNTP.3 Net::SNPP.3 \
+		Net::POP3.3 Net::Cmd.3 Net::SMTP.3 Net::Domain.3 \
+		Net::FTP.3 Net::Netrc.3 Net::PH.3
+MANPREFIX=	${PREFIX}/lib/perl5
+
+do-configure:
+		@ cd ${WRKSRC}; ${SETENV} ${MAKE_ENV} ${PREFIX}/bin/perl Makefile.PL
+
+.include <bsd.port.mk>
diff --git a/net/p5-Net/files/md5 b/net/p5-Net/files/md5
new file mode 100644
index 00000000000..d76c114e0a6
--- /dev/null
+++ b/net/p5-Net/files/md5
@@ -0,0 +1 @@
+MD5 (libnet-1.0505.tar.gz) = 0b049876c52dcfc1949e0309e5fb7af6
diff --git a/net/p5-Net/patches/patch-aa b/net/p5-Net/patches/patch-aa
new file mode 100644
index 00000000000..959a2751e9b
--- /dev/null
+++ b/net/p5-Net/patches/patch-aa
@@ -0,0 +1,218 @@
+--- 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;
+ 
+ #---------------------------------------------------------------------------
+ 
diff --git a/net/p5-Net/pkg/COMMENT b/net/p5-Net/pkg/COMMENT
new file mode 100644
index 00000000000..e3c94c156bf
--- /dev/null
+++ b/net/p5-Net/pkg/COMMENT
@@ -0,0 +1 @@
+perl5 modules to access and use network protocols.
diff --git a/net/p5-Net/pkg/DESCR b/net/p5-Net/pkg/DESCR
new file mode 100644
index 00000000000..a8adebcf9e6
--- /dev/null
+++ b/net/p5-Net/pkg/DESCR
@@ -0,0 +1,87 @@
+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/pkg/PLIST b/net/p5-Net/pkg/PLIST
new file mode 100644
index 00000000000..6261de1e6b4
--- /dev/null
+++ b/net/p5-Net/pkg/PLIST
@@ -0,0 +1,23 @@
+lib/perl5/site_perl/Net/Time.pm
+lib/perl5/site_perl/Net/Domain.pm
+lib/perl5/site_perl/Net/NNTP.pm
+lib/perl5/site_perl/Net/DummyInetd.pm
+lib/perl5/site_perl/Net/SNPP.pm
+lib/perl5/site_perl/Net/FTP.pm
+lib/perl5/site_perl/Net/POP3.pm
+lib/perl5/site_perl/Net/Netrc.pm
+lib/perl5/site_perl/Net/SMTP.pm
+lib/perl5/site_perl/Net/Cmd.pm
+lib/perl5/site_perl/Net/PH.pm
+lib/perl5/man/man3/Net::Time.3.gz
+lib/perl5/man/man3/Net::DummyInetd.3.gz
+lib/perl5/man/man3/Net::NNTP.3.gz
+lib/perl5/man/man3/Net::SNPP.3.gz
+lib/perl5/man/man3/Net::POP3.3.gz
+lib/perl5/man/man3/Net::SMTP.3.gz
+lib/perl5/man/man3/Net::Domain.3.gz
+lib/perl5/man/man3/Net::FTP.3.gz
+lib/perl5/man/man3/Net::Netrc.3.gz
+lib/perl5/man/man3/Net::Cmd.3.gz
+lib/perl5/man/man3/Net::PH.3.gz
+lib/perl5/site_perl/i386-freebsd/auto/Net/.packlist