aboutsummaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
Diffstat (limited to 'perl')
-rw-r--r--perl/perl-Net-Packet/README12
-rw-r--r--perl/perl-Net-Packet/perl-Net-Packet.SlackBuild110
-rw-r--r--perl/perl-Net-Packet/perl-Net-Packet.info10
-rw-r--r--perl/perl-Net-Packet/pod.patch162
-rw-r--r--perl/perl-Net-Packet/slack-desc19
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 bc73c52dc8387..0000000000000
--- 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 ebbb2f5009d91..0000000000000
--- 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 5b74ad3932312..0000000000000
--- 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 a897c22f8fa1f..0000000000000
--- 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 5853fe9bca45f..0000000000000
--- 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: