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>