8 files changed, 91 insertions, 0 deletions

diff --git a/net/p5-Net-RawSock/Makefile b/net/p5-Net-RawSock/Makefile
new file mode 100644
index 000000000000..256393726736
--- /dev/null
+++ b/net/p5-Net-RawSock/Makefile
@@ -0,0 +1,29 @@
+# New ports collection makefile for:    p5-Net-Divert
+# Date created:                         January 30, 2003
+# Whom:                                 Nicolas Jombart
+#
+# $FreeBSD$
+
+PORTNAME=	Net-RawSock
+PORTVERSION=	1.0
+CATEGORIES=	net perl5
+MASTER_SITES=	http://www.hsc.fr/ressources/outils/rawsock/download/
+PKGNAMEPREFIX=	p5-
+
+MAINTAINER=	ecu@ipv42.net
+
+PERL_CONFIGURE=	yes
+
+MANPREFIX=	${PREFIX}/lib/perl5/${PERL_VERSION}
+MAN3=		Net::RawSock.3
+DOCSDIR=	${PREFIX}/share/doc/${PKGNAMEPREFIX}${PORTNAME}
+
+post-install:
+.if !defined(NOPORTDOCS)
+	@${MKDIR} ${DOCSDIR}
+.for f in README demo.pl
+	@${INSTALL_DATA} ${WRKSRC}/${f} ${DOCSDIR}
+.endfor
+.endif
+
+.include <bsd.port.mk>
diff --git a/net/p5-Net-RawSock/distinfo b/net/p5-Net-RawSock/distinfo
new file mode 100644
index 000000000000..0f64017cfa37
--- /dev/null
+++ b/net/p5-Net-RawSock/distinfo
@@ -0,0 +1 @@
+MD5 (Net-RawSock-1.0.tar.gz) = 3da41c4705c56a5cd3d6a1587a3a72c1
diff --git a/net/p5-Net-RawSock/files/patch-Makefile.PL b/net/p5-Net-RawSock/files/patch-Makefile.PL
new file mode 100644
index 000000000000..7ad108f1595d
--- /dev/null
+++ b/net/p5-Net-RawSock/files/patch-Makefile.PL
@@ -0,0 +1,17 @@
+--- ../../../Net-RawSock-1.0/Makefile.PL	Thu Feb 21 14:05:26 2002
++++ Makefile.PL	Mon Feb  3 14:18:38 2003
+@@ -1,4 +1,5 @@
+- use ExtUtils::MakeMaker;
++use ExtUtils::MakeMaker;
++
+ WriteMakefile(
+     NAME         => 'Net::RawSock',
+     DISTNAME     => 'Net-RawSock',
+@@ -6,6 +7,7 @@
+     LIBS         => [''],   # e.g., '-lm'
+     DEFINE       => '',     # e.g., '-DHAVE_SOMETHING'
+     INC          => '',     # e.g., '-I/usr/include/other'
++    PM           => {'RawSock.pm' => '$(INST_LIBDIR)/RawSock.pm'},
+     dist => {
+       'COMPRESS' => "gzip -9f",
+       'SUFFIX'   => "gz"
diff --git a/net/p5-Net-RawSock/files/patch-RawSock.pm b/net/p5-Net-RawSock/files/patch-RawSock.pm
new file mode 100644
index 000000000000..ae80a3eda3ea
--- /dev/null
+++ b/net/p5-Net-RawSock/files/patch-RawSock.pm
@@ -0,0 +1,11 @@
+--- RawSock.pm.orig	Mon Feb  3 14:28:08 2003
++++ RawSock.pm	Mon Feb  3 14:28:30 2003
+@@ -41,7 +41,7 @@
+ 
+ =head1 AUTHOR
+ 
+-Stephane Aubert E<lt>Stephane.Aubert@hsc-labs.frE<gt>
++Stephane Aubert E<lt>Stephane.Aubert@hsc-labs.comE<gt>
+ 
+ =cut
+ 
diff --git a/net/p5-Net-RawSock/files/patch-RawSock.xs b/net/p5-Net-RawSock/files/patch-RawSock.xs
new file mode 100644
index 000000000000..fee057163aa8
--- /dev/null
+++ b/net/p5-Net-RawSock/files/patch-RawSock.xs
@@ -0,0 +1,21 @@
+--- RawSock.xs.orig     Thu Jan 30 00:11:00 2003
++++ RawSock.xs  Thu Jan 30 09:58:31 2003
+@@ -15,6 +15,7 @@
+
+ #include <sys/types.h>
+ #include <sys/socket.h>
++#include <netinet/in.h>
+ #include <fcntl.h>
+
+
+@@ -67,7 +68,9 @@
+         RETVAL = 2;
+       } else {
+         len = ntohs(ip_hdr->tot_len);
+-        if (sendto(fd,(char *)pkt,len,0x0,(struct sockaddr *)&sa,sizeof(sa))<0) {
++       ip_hdr->tot_len = len;
++        if (sendto(fd, (void *)pkt, len, 0x0,
++                   (struct sockaddr *)&sa, sizeof(sa)) < len) {
+           RETVAL = 3;
+         } else {
+           RETVAL = 0;
diff --git a/net/p5-Net-RawSock/pkg-comment b/net/p5-Net-RawSock/pkg-comment
new file mode 100644
index 000000000000..e7288a6fd91a
--- /dev/null
+++ b/net/p5-Net-RawSock/pkg-comment
@@ -0,0 +1 @@
+Net::RawSock provides a base function to send raw IP packets from Perl
diff --git a/net/p5-Net-RawSock/pkg-descr b/net/p5-Net-RawSock/pkg-descr
new file mode 100644
index 000000000000..d8bb0cacb231
--- /dev/null
+++ b/net/p5-Net-RawSock/pkg-descr
@@ -0,0 +1,3 @@
+Net::RawSock provides a base function to send raw IP datagrams 
+from Perl. The raw IP datagram is packed into a buffer and written 
+on the network layer with the write_ip() function.
diff --git a/net/p5-Net-RawSock/pkg-plist b/net/p5-Net-RawSock/pkg-plist
new file mode 100644
index 000000000000..058e53ffaba1
--- /dev/null
+++ b/net/p5-Net-RawSock/pkg-plist
@@ -0,0 +1,8 @@
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/Net/RawSock.pm
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Net/RawSock/.packlist
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Net/RawSock/RawSock.so
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Net/RawSock/RawSock.bs
+@unexec rmdir %D/lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Net/RawSock/ 2>/dev/null || true
+%%PORTDOCS%%share/doc/p5-Net-RawSock/README
+%%PORTDOCS%%share/doc/p5-Net-RawSock/demo.pl
+%%PORTDOCS%%@dirrm share/doc/p5-Net-RawSock