perl-NetPcap:moved from contrib
This commit is contained in:
blue-devil
@@ -0,0 +1,30 @@
|
||||
#!/usr/bin/python
|
||||
# -*- coding: utf-8 -*-
|
||||
#
|
||||
# Licensed under the GNU General Public License, version 3.
|
||||
# See the file http://www.gnu.org/copyleft/gpl.txt.
|
||||
|
||||
from pisi.actionsapi import get
|
||||
from pisi.actionsapi import pisitools
|
||||
from pisi.actionsapi import perlmodules
|
||||
|
||||
#WorkDir = "%s-%s" % (get.srcNAME()[5:], get.srcVERSION())
|
||||
|
||||
def setup():
|
||||
# suppress compiler warnings
|
||||
pisitools.dosed("Makefile.PL", "-Wall", "-Wall -Wno-cpp -Wno-pointer-sign -Wno-pointer-to-int-cast -Wno-discarded-qualifiers -Wno-deprecated-declarations")
|
||||
perlmodules.configure()
|
||||
# fix runpath analysis
|
||||
pisitools.dosed("Makefile","LD_RUN_PATH=\"\$\(LD_RUN_PATH\)\"", "")
|
||||
|
||||
def build():
|
||||
perlmodules.make()
|
||||
|
||||
# takes too much time
|
||||
#def check():
|
||||
# perlmodules.make("test")
|
||||
|
||||
def install():
|
||||
perlmodules.install()
|
||||
|
||||
pisitools.dodoc("Changes", "MANIFEST", "README*")
|
||||
+36
@@ -0,0 +1,36 @@
|
||||
From 52607780c02ee90a93bd40e91c5263e55e7a351c Mon Sep 17 00:00:00 2001
|
||||
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
|
||||
Date: Wed, 5 Oct 2016 15:54:02 +0200
|
||||
Subject: [PATCH] Adapt a test to libpcap-1.8.0
|
||||
MIME-Version: 1.0
|
||||
Content-Type: text/plain; charset=UTF-8
|
||||
Content-Transfer-Encoding: 8bit
|
||||
|
||||
libpcap-1.8.0 changed error message on invalid filter expression from
|
||||
"syntax error" to "syntax error in filter expression: syntax error".
|
||||
|
||||
This patch adjust the t/09-error.t for that.
|
||||
|
||||
CPAN RT#117831
|
||||
|
||||
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
||||
---
|
||||
t/09-error.t | 2 +-
|
||||
1 file changed, 1 insertion(+), 1 deletion(-)
|
||||
|
||||
diff --git a/t/09-error.t b/t/09-error.t
|
||||
index bcd2a13..ef8f0b2 100644
|
||||
--- a/t/09-error.t
|
||||
+++ b/t/09-error.t
|
||||
@@ -22,7 +22,7 @@ is( $@, '', "compile() with an invalid filter string" );
|
||||
is( $res, -1, " - result must not be null: $res" );
|
||||
eval { $err = Net::Pcap::geterr($pcap) };
|
||||
is( $@, '', "geterr()" );
|
||||
-like( $err, '/^(?:parse|syntax) error$/', " - \$err must not be null: $err" );
|
||||
+like( $err, '/(?:parse|syntax) error$/', " - \$err must not be null: $err" );
|
||||
|
||||
# Testing compile() with a valid filter
|
||||
eval { $res = Net::Pcap::compile($pcap, \$filter, "tcp", 0, $mask) };
|
||||
--
|
||||
2.7.4
|
||||
|
||||
+44
@@ -0,0 +1,44 @@
|
||||
diff -up ./Makefile.PL.tv ./Makefile.PL
|
||||
--- ./Makefile.PL.tv 2018-09-21 10:32:09.165570705 +0200
|
||||
+++ ./Makefile.PL 2018-09-21 10:45:39.096591301 +0200
|
||||
@@ -106,7 +106,7 @@ REASON
|
||||
# We also store the list of available functions in a file for skipping the
|
||||
# corresponding tests.
|
||||
my @funcs = have_functions(find_functions());
|
||||
-$options{DEFINE} .= cpp_defines(@funcs);
|
||||
+$options{DEFINE} .= cpp_defines(@funcs). "-DHAVE_PCAP_SETSAMPLING";
|
||||
open(FUNCS, '>funcs.txt') or warn "warning: can't write 'funcs.txt': $!\n";
|
||||
print FUNCS join("\n", @funcs), "\n";
|
||||
close(FUNCS);
|
||||
diff -up ./Pcap.xs.tv ./Pcap.xs
|
||||
diff -up ./stubs.inc.tv ./stubs.inc
|
||||
--- ./stubs.inc.tv 2018-09-21 10:30:08.653034412 +0200
|
||||
+++ ./stubs.inc 2018-09-21 10:46:41.339897943 +0200
|
||||
@@ -354,11 +354,6 @@ int pcap_parsesrcstr(const char *source,
|
||||
#ifdef _MSC_VER
|
||||
#pragma message( "Warning: the function pcap_open() is not available" )
|
||||
#endif
|
||||
-struct pcap_rmtauth {
|
||||
- int type;
|
||||
- char *username;
|
||||
- char *password;
|
||||
-};
|
||||
|
||||
pcap_t * pcap_open(const char *source, int snaplen, int flags, int read_timeout, struct pcap_rmtauth *auth, char *err);
|
||||
pcap_t * pcap_open(const char *source, int snaplen, int flags, int read_timeout, struct pcap_rmtauth *auth, char *err) {
|
||||
@@ -511,6 +511,7 @@ HANDLE pcap_getevent(pcap_t *p) {
|
||||
#ifdef _MSC_VER
|
||||
#pragma message( "Warning: the function pcap_setsampling() is not available" )
|
||||
#endif
|
||||
+#if 0
|
||||
struct pcap_samp {
|
||||
int method;
|
||||
int value;
|
||||
@@ -522,6 +523,7 @@ struct pcap_samp *pcap_setsampling(pcap_
|
||||
return NULL;
|
||||
}
|
||||
#endif
|
||||
+#endif
|
||||
|
||||
|
||||
/*
|
||||
@@ -0,0 +1,52 @@
|
||||
<?xml version="1.0" ?>
|
||||
<!DOCTYPE PISI SYSTEM "https://www.pisilinux.org/projeler/pisi/pisi-spec.dtd">
|
||||
<PISI>
|
||||
<Source>
|
||||
<Name>perl-Net-Pcap</Name>
|
||||
<Homepage>https://metacpan.org/release/Net-Pcap</Homepage>
|
||||
<Packager>
|
||||
<Name>Blue Devil</Name>
|
||||
<Email>bluedevil@sctzine.com</Email>
|
||||
</Packager>
|
||||
<PartOf>programming.language.perl</PartOf>
|
||||
<License>GPL</License>
|
||||
<IsA>app:console</IsA>
|
||||
<IsA>library</IsA>
|
||||
<Summary>Interface to pcap(3) LBL packet capture library</Summary>
|
||||
<Description>The Net::Pcap module is a Perl binding to the LBL pcap(3) packet capture library.</Description>
|
||||
<Archive sha1sum="9e53643cbe93e497af8c24cebe02bd7934194854" type="targz">https://cpan.metacpan.org/authors/id/S/SA/SAPER/Net-Pcap-0.18.tar.gz</Archive>
|
||||
<BuildDependencies>
|
||||
<Dependency>perl</Dependency>
|
||||
<Dependency>libpcap-devel</Dependency>
|
||||
</BuildDependencies>
|
||||
<Patches>
|
||||
<Patch level="1">Net-Pcap-0.18-Adapt-a-test-to-libpcap-1.8.0.patch</Patch>
|
||||
<Patch level="1">Net-Pcap-0.18-Fix-build-with-libpcap-1.9.0.patch</Patch>
|
||||
</Patches>
|
||||
</Source>
|
||||
|
||||
<Package>
|
||||
<Name>perl-Net-Pcap</Name>
|
||||
<Summary>Interface to pcap(3) LBL packet capture library</Summary>
|
||||
<RuntimeDependencies>
|
||||
<Dependency>perl</Dependency>
|
||||
<Dependency>libpcap</Dependency>
|
||||
</RuntimeDependencies>
|
||||
<Files>
|
||||
<Path fileType="executable">/usr/bin</Path>
|
||||
<Path fileType="library">/usr/lib</Path>
|
||||
<Path fileType="doc">/usr/share/doc</Path>
|
||||
<Path fileType="man">/usr/share/man</Path>
|
||||
</Files>
|
||||
</Package>
|
||||
|
||||
<History>
|
||||
<Update release="1">
|
||||
<Date>2020-01-08</Date>
|
||||
<Version>0.18</Version>
|
||||
<Comment>Version bump.</Comment>
|
||||
<Name>Blue Devil</Name>
|
||||
<Email>bluedevil@sctzine.com</Email>
|
||||
</Update>
|
||||
</History>
|
||||
</PISI>
|
||||
@@ -0,0 +1,8 @@
|
||||
<?xml version="1.0" ?>
|
||||
<PISI>
|
||||
<Source>
|
||||
<Name>perl-Net-Pcap</Name>
|
||||
<Summary xml:lang="tr">pcap(3) LBL paket yakalama kitaplığı arayüzü</Summary>
|
||||
<Description xml:lang="tr">Net::Pcap modülü, pcap(3) LBL paket yakalama kitaplığı için bir Perl arayüzüdür.</Description>
|
||||
</Source>
|
||||
</PISI>
|
||||
Reference in New Issue
Block a user