diff options
Diffstat (limited to 'perl')
-rw-r--r-- | perl/perl-Net-Packet/README | 12 | ||||
-rw-r--r-- | perl/perl-Net-Packet/perl-Net-Packet.SlackBuild | 110 | ||||
-rw-r--r-- | perl/perl-Net-Packet/perl-Net-Packet.info | 10 | ||||
-rw-r--r-- | perl/perl-Net-Packet/pod.patch | 162 | ||||
-rw-r--r-- | perl/perl-Net-Packet/slack-desc | 19 |
5 files changed, 0 insertions, 313 deletions
diff --git a/perl/perl-Net-Packet/README b/perl/perl-Net-Packet/README deleted file mode 100644 index bc73c52dc8..0000000000 --- a/perl/perl-Net-Packet/README +++ /dev/null @@ -1,12 +0,0 @@ -Net::Packet - a framework to easily send and receive frames from layer 2 to -layer 7 - -This module is a unified framework to craft, send and receive packets at -layers 2, 3, 4 and 7. -Basically, you forge each layer of a frame (Net::Packet::IPv4 for layer 3, -Net::Packet::TCP for layer 4; for example), and pack all of this into a -Net::Packet::Frame object. Then, you can send the frame to the network, and -receive its response easily, because the response is automatically searched -for and matched against the request (not implemented for all layers). - -This is not the same module as perl-NetPacket! diff --git a/perl/perl-Net-Packet/perl-Net-Packet.SlackBuild b/perl/perl-Net-Packet/perl-Net-Packet.SlackBuild deleted file mode 100644 index ebbb2f5009..0000000000 --- a/perl/perl-Net-Packet/perl-Net-Packet.SlackBuild +++ /dev/null @@ -1,110 +0,0 @@ -#!/bin/sh - -# Slackware build script for perl-Net-Packet - -# Copyright 2009-2010 Marco Bonetti <sid77@slackware.it> -# All rights reserved. -# -# Redistribution and use of this script, with or without modification, is -# permitted provided that the following conditions are met: -# -# 1. Redistributions of this script must retain the above copyright -# notice, this list of conditions and the following disclaimer. -# -# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ''AS IS'' AND ANY EXPRESS OR IMPLIED -# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF -# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO -# EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, -# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, -# PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; -# OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, -# WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR -# OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF -# ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -PRGNAM=perl-Net-Packet -VERSION=${VERSION:-3.27} -BUILD=${BUILD:-2} -TAG=${TAG:-_SBo} - -SRC_PRGNAM=Net-Packet -DOCS="LICENSE LICENSE.Artistic README" - -if [ -z "$ARCH" ]; then - case "$( uname -m )" in - i?86) ARCH=i486 ;; - arm*) ARCH=arm ;; - *) ARCH=$( uname -m ) ;; - esac -fi - -CWD=$(pwd) -TMP=${TMP:-/tmp/SBo} -PKG=$TMP/package-$PRGNAM -OUTPUT=${OUTPUT:-/tmp} - -if [ "$ARCH" = "i486" ]; then - SLKCFLAGS="-O2 -march=i486 -mtune=i686" - LIBDIRSUFFIX="" -elif [ "$ARCH" = "i686" ]; then - SLKCFLAGS="-O2 -march=i686 -mtune=i686" - LIBDIRSUFFIX="" -elif [ "$ARCH" = "x86_64" ]; then - SLKCFLAGS="-O2 -fPIC" - LIBDIRSUFFIX="64" -else - SLKCFLAGS="-O2" - LIBDIRSUFFIX="" -fi - -set -e - -rm -rf $PKG -mkdir -p $TMP $PKG $OUTPUT -cd $TMP -rm -rf $SRC_PRGNAM-$VERSION -tar xvf $CWD/$SRC_PRGNAM-$VERSION.tar.gz -cd $SRC_PRGNAM-$VERSION -chown -R root:root . -find -L . \ - \( -perm 777 -o -perm 775 -o -perm 750 -o -perm 711 -o -perm 555 -o -perm 511 \) \ - -exec chmod 755 {} \; -o \ - \( -perm 666 -o -perm 664 -o -perm 640 -o -perm 600 -o -perm 444 \ - -o -perm 440 -o -perm 400 \) -exec chmod 644 {} \; - -patch -p1 < $CWD/pod.patch -PERL_MM_USE_DEFAULT=1 perl Makefile.PL \ - PREFIX=/usr \ - INSTALLDIRS=vendor \ - INSTALLVENDORMAN3DIR=/usr/man/man3 -make -make test -make install DESTDIR=$PKG - -# Compress man pages -( cd $PKG/usr/man - find . -type f -exec gzip -9 {} \; - for i in $( find . -type l ) ; do ln -s $( readlink $i ).gz $i.gz ; rm $i ; done -) - -# Remove perllocal.pod and other special files that don't need to be installed -( cd $PKG - # Remove 'special' files - find . -name perllocal.pod \ - -o -name ".packlist" \ - -o -name "*.bs" \ - | xargs rm -f -) - -# Remove empty directories -find $PKG -depth -type d -empty -delete - -mkdir -p $PKG/usr/doc/$PRGNAM-$VERSION -cp -a $DOCS $PKG/usr/doc/$PRGNAM-$VERSION -cat $CWD/$PRGNAM.SlackBuild > $PKG/usr/doc/$PRGNAM-$VERSION/$PRGNAM.SlackBuild - -mkdir -p $PKG/install -cat $CWD/slack-desc > $PKG/install/slack-desc - -cd $PKG -/sbin/makepkg -l y -c n $OUTPUT/$PRGNAM-$VERSION-$ARCH-$BUILD$TAG.${PKGTYPE:-tgz} diff --git a/perl/perl-Net-Packet/perl-Net-Packet.info b/perl/perl-Net-Packet/perl-Net-Packet.info deleted file mode 100644 index 5b74ad3932..0000000000 --- a/perl/perl-Net-Packet/perl-Net-Packet.info +++ /dev/null @@ -1,10 +0,0 @@ -PRGNAM="perl-Net-Packet" -VERSION="3.27" -HOMEPAGE="https://metacpan.org/pod/Net::Packet" -DOWNLOAD="http://www.cpan.org/authors/id/G/GO/GOMOR/Net-Packet-3.27.tar.gz" -MD5SUM="1f1d0b19b043d47dd30d21d5cf02e1e7" -DOWNLOAD_x86_64="" -MD5SUM_x86_64="" -REQUIRES="perl-Bit-Vector perl-Net-IPv4Addr perl-Net-IPv6Addr perl-Net-Libdnet perl-Net-Write" -MAINTAINER="Marco Bonetti" -EMAIL="sid77@slackware.it" diff --git a/perl/perl-Net-Packet/pod.patch b/perl/perl-Net-Packet/pod.patch deleted file mode 100644 index a897c22f8f..0000000000 --- a/perl/perl-Net-Packet/pod.patch +++ /dev/null @@ -1,162 +0,0 @@ -diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/ARP.pm Net-Packet-3.27/lib/Net/Packet/ARP.pm ---- Net-Packet-3.27.orig/lib/Net/Packet/ARP.pm 2009-11-10 00:58:28.000000000 +0700 -+++ Net-Packet-3.27/lib/Net/Packet/ARP.pm 2013-11-07 22:29:47.938688696 +0700 -@@ -152,7 +152,7 @@ - use Net::Packet::Consts qw(:arp); - require Net::Packet::ARP; - -- # Build a layer -+ # Build a layer - my $layer = Net::Packet::ARP->new( - dstIp => "192.168.0.1", - ); -diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/Consts.pm Net-Packet-3.27/lib/Net/Packet/Consts.pm ---- Net-Packet-3.27.orig/lib/Net/Packet/Consts.pm 2009-11-10 00:58:28.000000000 +0700 -+++ Net-Packet-3.27/lib/Net/Packet/Consts.pm 2013-11-07 22:31:46.338040470 +0700 -@@ -482,10 +482,10 @@ - # Load IPv4 layer constants - use Net::Packet::Consts qw(:ipv4); - -- # Load Ethernet layer constants -+ # Load Ethernet layer constants - use Net::Packet::Consts qw(:eth); - -- # Load Ethernet, IPv6 and TCP layers constants -+ # Load Ethernet, IPv6 and TCP layers constants - use Net::Packet::Consts qw(:eth :ipv6 :tcp); - - =head1 DESCRIPTION -diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/ETH.pm Net-Packet-3.27/lib/Net/Packet/ETH.pm ---- Net-Packet-3.27.orig/lib/Net/Packet/ETH.pm 2009-11-10 00:58:28.000000000 +0700 -+++ Net-Packet-3.27/lib/Net/Packet/ETH.pm 2013-11-07 22:27:54.205272530 +0700 -@@ -137,7 +137,7 @@ - use Net::Packet::Consts qw(:eth); - require Net::Packet::ETH; - -- # Build a layer -+ # Build a layer - my $layer = Net::Packet::ETH->new( - type => NP_ETH_TYPE_IPv6, - dst => "00:11:22:33:44:55", -diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/Frame.pm Net-Packet-3.27/lib/Net/Packet/Frame.pm ---- Net-Packet-3.27.orig/lib/Net/Packet/Frame.pm 2009-11-10 00:58:28.000000000 +0700 -+++ Net-Packet-3.27/lib/Net/Packet/Frame.pm 2013-11-07 22:31:54.161931581 +0700 -@@ -615,8 +615,8 @@ - # will be created automatically, by default. See Net::Packet::Env - # regarding changing this behaviour. Same for Net::Packet::Dump. - my $frame = Net::Packet::Frame->new( -- l3 => $ipv4, # Net::Packet::IPv4 object -- l4 => $tcp, # Net::Packet::TCP object -+ l3 => $ipv4, # Net::Packet::IPv4 object -+ l4 => $tcp, # Net::Packet::TCP object - # (here, a SYN request, for example) - ); - -diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/IPv4.pm Net-Packet-3.27/lib/Net/Packet/IPv4.pm ---- Net-Packet-3.27.orig/lib/Net/Packet/IPv4.pm 2009-11-10 00:58:28.000000000 +0700 -+++ Net-Packet-3.27/lib/Net/Packet/IPv4.pm 2013-11-07 22:27:07.653921003 +0700 -@@ -284,7 +284,7 @@ - use Net::Packet::Consts qw(:ipv4); - require Net::Packet::IPv4; - -- # Build a layer -+ # Build a layer - my $ip = Net::Packet::IPv4->new( - flags => NP_IPv4_DONT_FRAGMENT, - dst => "192.168.0.1", -diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/IPv6.pm Net-Packet-3.27/lib/Net/Packet/IPv6.pm ---- Net-Packet-3.27.orig/lib/Net/Packet/IPv6.pm 2009-11-10 00:58:28.000000000 +0700 -+++ Net-Packet-3.27/lib/Net/Packet/IPv6.pm 2013-11-07 22:29:37.659831761 +0700 -@@ -149,7 +149,7 @@ - use Net::Packet::Consts qw(:ipv6); - require Net::Packet::IPv6; - -- # Build a layer -+ # Build a layer - my $layer = Net::Packet::IPv6->new( - dst => $hostname6, - ); -diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/Layer7.pm Net-Packet-3.27/lib/Net/Packet/Layer7.pm ---- Net-Packet-3.27.orig/lib/Net/Packet/Layer7.pm 2009-11-10 00:58:28.000000000 +0700 -+++ Net-Packet-3.27/lib/Net/Packet/Layer7.pm 2013-11-07 22:26:52.198136331 +0700 -@@ -73,7 +73,7 @@ - - use Net::Packet::Layer7; - -- # Build layer to inject to network -+ # Build layer to inject to network - my $l7a = Net::Packet::Layer7->new(data => "GET / HTTP/1.0\r\n\r\n"); - - # Decode from network to create the object -diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/NULL.pm Net-Packet-3.27/lib/Net/Packet/NULL.pm ---- Net-Packet-3.27.orig/lib/Net/Packet/NULL.pm 2009-11-10 00:58:28.000000000 +0700 -+++ Net-Packet-3.27/lib/Net/Packet/NULL.pm 2013-11-07 22:27:21.244731668 +0700 -@@ -88,7 +88,7 @@ - use Net::Packet::Consts qw(:null); - require Net::Packet::NULL; - -- # Build a layer -+ # Build a layer - my $layer = Net::Packet::NULL->new; - $layer->pack; - -diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/RAW.pm Net-Packet-3.27/lib/Net/Packet/RAW.pm ---- Net-Packet-3.27.orig/lib/Net/Packet/RAW.pm 2009-11-10 00:58:28.000000000 +0700 -+++ Net-Packet-3.27/lib/Net/Packet/RAW.pm 2013-11-07 22:28:29.971774372 +0700 -@@ -59,7 +59,7 @@ - # No constants for RAW - require Net::Packet::RAW; - -- # Build a layer -+ # Build a layer - my $layer = Net::Packet::RAW->new; - $layer->pack; - -diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/SLL.pm Net-Packet-3.27/lib/Net/Packet/SLL.pm ---- Net-Packet-3.27.orig/lib/Net/Packet/SLL.pm 2009-11-10 00:58:28.000000000 +0700 -+++ Net-Packet-3.27/lib/Net/Packet/SLL.pm 2013-11-07 22:28:18.515933924 +0700 -@@ -116,7 +116,7 @@ - use Net::Packet::Consts qw(:sll); - require Net::Packet::SLL; - -- # Build a layer -+ # Build a layer - my $layer = Net::Packet::SLL->new; - $layer->pack; - -diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/TCP.pm Net-Packet-3.27/lib/Net/Packet/TCP.pm ---- Net-Packet-3.27.orig/lib/Net/Packet/TCP.pm 2009-11-10 00:58:28.000000000 +0700 -+++ Net-Packet-3.27/lib/Net/Packet/TCP.pm 2013-11-07 22:32:06.696757148 +0700 -@@ -306,10 +306,10 @@ - use Net::Packet::Consts qw(:tcp); - require Net::Packet::TCP; - -- # Build a layer -+ # Build a layer - my $layer = Net::Packet::TCP->new( - dst => 22, -- options => "\x02\x04\x05\xb4", # MSS=1460 -+ options => "\x02\x04\x05\xb4", # MSS=1460 - ); - $layer->pack; - -diff -Nur Net-Packet-3.27.orig/lib/Net/Packet.pm Net-Packet-3.27/lib/Net/Packet.pm ---- Net-Packet-3.27.orig/lib/Net/Packet.pm 2009-11-10 01:21:00.000000000 +0700 -+++ Net-Packet-3.27/lib/Net/Packet.pm 2013-11-07 22:34:00.512173471 +0700 -@@ -69,13 +69,13 @@ - # WARNING: this is not the prefered way to use Net::Packet - use Net::Packet; - -- # Build IPv4 header -+ # Build IPv4 header - my $ip = Net::Packet::IPv4->new(dst => '192.168.0.1'); - -- # Build TCP header -+ # Build TCP header - my $tcp = Net::Packet::TCP->new(dst => 22); - -- # Assamble frame, it will also open a Net::Packet::DescL3 descriptor -+ # Assamble frame, it will also open a Net::Packet::DescL3 descriptor - # and a Net::Packet::Dump object - my $frame = Net::Packet::Frame->new(l3 => $ip, l4 => $tcp); - diff --git a/perl/perl-Net-Packet/slack-desc b/perl/perl-Net-Packet/slack-desc deleted file mode 100644 index 5853fe9bca..0000000000 --- a/perl/perl-Net-Packet/slack-desc +++ /dev/null @@ -1,19 +0,0 @@ -# HOW TO EDIT THIS FILE: -# The "handy ruler" below makes it easier to edit a package description. -# Line up the first '|' above the ':' following the base package name, and -# the '|' on the right side marks the last column you can put a character in. -# You must make exactly 11 lines for the formatting to be correct. It's also -# customary to leave one space after the ':' except on otherwise blank lines. - - |-----handy-ruler------------------------------------------------------| -perl-Net-Packet: perl-Net-Packet (a network framework) -perl-Net-Packet: -perl-Net-Packet: This module is a unified framework to craft, send and receive packets -perl-Net-Packet: at layers 2, 3, 4 and 7. -perl-Net-Packet: -perl-Net-Packet: -perl-Net-Packet: -perl-Net-Packet: -perl-Net-Packet: -perl-Net-Packet: -perl-Net-Packet: |