mirror of
https://github.com/Ponce/slackbuilds
synced 2024-11-18 22:06:04 +01:00
perl/perl-Net-Packet: Removed.
Fails tests on i486. Obsolete and unsupported upstream. The suggested replacement is Net::Frame.
This commit is contained in:
David Spencer
Willy Sudiarto Raharjo
parent
d94fd939a2
commit
3cb2667e75
5 changed files with 0 additions and 313 deletions
|
|
@ -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!
|
||||
|
|
@ -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}
|
||||
|
|
@ -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"
|
||||
|
|
@ -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);
|
||||
|
||||
|
|
@ -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:
|
||||
Loading…
Reference in a new issue