Date: Mon, 3 Feb 2003 20:06:37 +0100 (CET) From: Nicolas Jombart <ecu@ipv42.net> To: FreeBSD-gnats-submit@FreeBSD.org Cc: Stephane.Aubert@hsc-labs.com Subject: ports/47868: New port: net/p5-Net-RawSock Message-ID: <20030203190637.69F0E1523A@shiva.bouglou.net>
next in thread | raw e-mail | index | archive | help
>Number: 47868
>Category: ports
>Synopsis: New port: net/p5-Net-RawSock
>Confidential: no
>Severity: non-critical
>Priority: low
>Responsible: freebsd-ports-bugs
>State: open
>Quarter:
>Keywords:
>Date-Required:
>Class: change-request
>Submitter-Id: current-users
>Arrival-Date: Mon Feb 03 11:10:12 PST 2003
>Closed-Date:
>Last-Modified:
>Originator: Nicolas Jombart
>Release: FreeBSD 4.7-STABLE i386
>Organization:
>Environment:
System: FreeBSD shiva.bouglou.net 4.7-STABLE FreeBSD 4.7-STABLE #15: Sat Jan 4 18:49:56 CET 2003 ecu@shiva.bouglou.net:/usr/obj/usr/src/sys/SHIVA i386
>Description:
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.
>How-To-Repeat:
>Fix:
--- p5-Net-RawSock.shar begins here ---
# This is a shell archive. Save it in a file, remove anything before
# this line, and then unpack it by entering "sh file". Note, it may
# create directories; files and directories will be owned by you and
# have default permissions.
#
# This archive contains:
#
# ./p5-Net-RawSock
# ./p5-Net-RawSock/Makefile
# ./p5-Net-RawSock/distinfo
# ./p5-Net-RawSock/pkg-plist
# ./p5-Net-RawSock/pkg-comment
# ./p5-Net-RawSock/pkg-descr
# ./p5-Net-RawSock/files
# ./p5-Net-RawSock/files/patch-RawSock.xs
# ./p5-Net-RawSock/files/patch-RawSock.pm
# ./p5-Net-RawSock/files/patch-Makefile.PL
#
echo c - ./p5-Net-RawSock
mkdir -p ./p5-Net-RawSock > /dev/null 2>&1
echo x - ./p5-Net-RawSock/Makefile
sed 's/^X//' >./p5-Net-RawSock/Makefile << 'END-of-./p5-Net-RawSock/Makefile'
X# New ports collection makefile for: p5-Net-Divert
X# Date created: January 30, 2003
X# Whom: Nicolas Jombart
X#
X# $FreeBSD$
X
XPORTNAME= Net-RawSock
XPORTVERSION= 1.0
XCATEGORIES= net perl5
XMASTER_SITES= http://www.hsc.fr/ressources/outils/rawsock/download/
XPKGNAMEPREFIX= p5-
X
XMAINTAINER= ecu@ipv42.net
X
XPERL_CONFIGURE= yes
X
XMANPREFIX= ${PREFIX}/lib/perl5/${PERL_VERSION}
XMAN3= Net::RawSock.3
XDOCSDIR= ${PREFIX}/share/doc/${PKGNAMEPREFIX}${PORTNAME}
X
Xpost-install:
X.if !defined(NOPORTDOCS)
X @${MKDIR} ${DOCSDIR}
X.for f in README demo.pl
X @${INSTALL_DATA} ${WRKSRC}/${f} ${DOCSDIR}
X.endfor
X.endif
X
X.include <bsd.port.mk>
END-of-./p5-Net-RawSock/Makefile
echo x - ./p5-Net-RawSock/distinfo
sed 's/^X//' >./p5-Net-RawSock/distinfo << 'END-of-./p5-Net-RawSock/distinfo'
XMD5 (Net-RawSock-1.0.tar.gz) = 3da41c4705c56a5cd3d6a1587a3a72c1
END-of-./p5-Net-RawSock/distinfo
echo x - ./p5-Net-RawSock/pkg-plist
sed 's/^X//' >./p5-Net-RawSock/pkg-plist << 'END-of-./p5-Net-RawSock/pkg-plist'
Xlib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/Net/RawSock.pm
Xlib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Net/RawSock/.packlist
Xlib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Net/RawSock/RawSock.so
Xlib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Net/RawSock/RawSock.bs
X@unexec rmdir %D/lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Net/RawSock/ 2>/dev/null || true
X%%PORTDOCS%%share/doc/p5-Net-RawSock/README
X%%PORTDOCS%%share/doc/p5-Net-RawSock/demo.pl
X%%PORTDOCS%%@dirrm share/doc/p5-Net-RawSock
END-of-./p5-Net-RawSock/pkg-plist
echo x - ./p5-Net-RawSock/pkg-comment
sed 's/^X//' >./p5-Net-RawSock/pkg-comment << 'END-of-./p5-Net-RawSock/pkg-comment'
XNet::RawSock provides a base function to send raw IP packets from Perl
END-of-./p5-Net-RawSock/pkg-comment
echo x - ./p5-Net-RawSock/pkg-descr
sed 's/^X//' >./p5-Net-RawSock/pkg-descr << 'END-of-./p5-Net-RawSock/pkg-descr'
XNet::RawSock provides a base function to send raw IP datagrams
Xfrom Perl. The raw IP datagram is packed into a buffer and written
Xon the network layer with the write_ip() function.
END-of-./p5-Net-RawSock/pkg-descr
echo c - ./p5-Net-RawSock/files
mkdir -p ./p5-Net-RawSock/files > /dev/null 2>&1
echo x - ./p5-Net-RawSock/files/patch-RawSock.xs
sed 's/^X//' >./p5-Net-RawSock/files/patch-RawSock.xs << 'END-of-./p5-Net-RawSock/files/patch-RawSock.xs'
X--- RawSock.xs.orig Thu Jan 30 00:11:00 2003
X+++ RawSock.xs Thu Jan 30 09:58:31 2003
X@@ -15,6 +15,7 @@
X
X #include <sys/types.h>
X #include <sys/socket.h>
X+#include <netinet/in.h>
X #include <fcntl.h>
X
X
X@@ -67,7 +68,9 @@
X RETVAL = 2;
X } else {
X len = ntohs(ip_hdr->tot_len);
X- if (sendto(fd,(char *)pkt,len,0x0,(struct sockaddr *)&sa,sizeof(sa))<0) {
X+ ip_hdr->tot_len = len;
X+ if (sendto(fd, (void *)pkt, len, 0x0,
X+ (struct sockaddr *)&sa, sizeof(sa)) < len) {
X RETVAL = 3;
X } else {
X RETVAL = 0;
END-of-./p5-Net-RawSock/files/patch-RawSock.xs
echo x - ./p5-Net-RawSock/files/patch-RawSock.pm
sed 's/^X//' >./p5-Net-RawSock/files/patch-RawSock.pm << 'END-of-./p5-Net-RawSock/files/patch-RawSock.pm'
X--- RawSock.pm.orig Mon Feb 3 14:28:08 2003
X+++ RawSock.pm Mon Feb 3 14:28:30 2003
X@@ -41,7 +41,7 @@
X
X =head1 AUTHOR
X
X-Stephane Aubert E<lt>Stephane.Aubert@hsc-labs.frE<gt>
X+Stephane Aubert E<lt>Stephane.Aubert@hsc-labs.comE<gt>
X
X =cut
X
END-of-./p5-Net-RawSock/files/patch-RawSock.pm
echo x - ./p5-Net-RawSock/files/patch-Makefile.PL
sed 's/^X//' >./p5-Net-RawSock/files/patch-Makefile.PL << 'END-of-./p5-Net-RawSock/files/patch-Makefile.PL'
X--- ../../../Net-RawSock-1.0/Makefile.PL Thu Feb 21 14:05:26 2002
X+++ Makefile.PL Mon Feb 3 14:18:38 2003
X@@ -1,4 +1,5 @@
X- use ExtUtils::MakeMaker;
X+use ExtUtils::MakeMaker;
X+
X WriteMakefile(
X NAME => 'Net::RawSock',
X DISTNAME => 'Net-RawSock',
X@@ -6,6 +7,7 @@
X LIBS => [''], # e.g., '-lm'
X DEFINE => '', # e.g., '-DHAVE_SOMETHING'
X INC => '', # e.g., '-I/usr/include/other'
X+ PM => {'RawSock.pm' => '$(INST_LIBDIR)/RawSock.pm'},
X dist => {
X 'COMPRESS' => "gzip -9f",
X 'SUFFIX' => "gz"
END-of-./p5-Net-RawSock/files/patch-Makefile.PL
exit
--- p5-Net-RawSock.shar ends here ---
>Release-Note:
>Audit-Trail:
>Unformatted:
To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-ports-bugs" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20030203190637.69F0E1523A>