r64036 - in /branches/upstream/libnetpacket-perl/current: ./ lib/ lib/NetPacket/
periapt-guest at users.alioth.debian.org
periapt-guest at users.alioth.debian.org
Wed Oct 20 06:48:14 UTC 2010
Author: periapt-guest
Date: Wed Oct 20 06:47:46 2010
New Revision: 64036
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=64036
Log:
[svn-upgrade] new version libnetpacket-perl (1.0.1)
Modified:
branches/upstream/libnetpacket-perl/current/Build.PL
branches/upstream/libnetpacket-perl/current/Changes
branches/upstream/libnetpacket-perl/current/META.json
branches/upstream/libnetpacket-perl/current/META.yml
branches/upstream/libnetpacket-perl/current/SIGNATURE
branches/upstream/libnetpacket-perl/current/lib/NetPacket.pm
branches/upstream/libnetpacket-perl/current/lib/NetPacket/ARP.pm
branches/upstream/libnetpacket-perl/current/lib/NetPacket/Ethernet.pm
branches/upstream/libnetpacket-perl/current/lib/NetPacket/ICMP.pm
branches/upstream/libnetpacket-perl/current/lib/NetPacket/IGMP.pm
branches/upstream/libnetpacket-perl/current/lib/NetPacket/IP.pm
branches/upstream/libnetpacket-perl/current/lib/NetPacket/TCP.pm
branches/upstream/libnetpacket-perl/current/lib/NetPacket/UDP.pm
Modified: branches/upstream/libnetpacket-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetpacket-perl/current/Build.PL?rev=64036&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/Build.PL (original)
+++ branches/upstream/libnetpacket-perl/current/Build.PL Wed Oct 20 06:47:46 2010
@@ -21,7 +21,7 @@
'Yanick Champoux <yanick at cpan.org>'
],
'dist_name' => 'NetPacket',
- 'dist_version' => '1.0.0',
+ 'dist_version' => '1.0.1',
'license' => 'artistic_2',
'module_name' => 'NetPacket',
'recommends' => {},
Modified: branches/upstream/libnetpacket-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetpacket-perl/current/Changes?rev=64036&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/Changes (original)
+++ branches/upstream/libnetpacket-perl/current/Changes Wed Oct 20 06:47:46 2010
@@ -1,4 +1,7 @@
revision history for NetPacket
+
+1.0.1 2010-10-19 20:02:04 America/Montreal
+ * Make the example verbatim in pod in NetPacket::UDP (rt#62097)
1.0.0 2010-10-17 13:42:15 America/Montreal
* Remove modules NetPacket::ICMPv6, NetPacket::IPv6 and NetPacket::PFLog
Modified: branches/upstream/libnetpacket-perl/current/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetpacket-perl/current/META.json?rev=64036&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/META.json (original)
+++ branches/upstream/libnetpacket-perl/current/META.json Wed Oct 20 06:47:46 2010
@@ -42,35 +42,35 @@
"provides" : {
"NetPacket" : {
"file" : "lib/NetPacket.pm",
- "version" : "v1.0.0"
+ "version" : "v1.0.1"
},
"NetPacket::ARP" : {
"file" : "lib/NetPacket/ARP.pm",
- "version" : "v1.0.0"
+ "version" : "v1.0.1"
},
"NetPacket::Ethernet" : {
"file" : "lib/NetPacket/Ethernet.pm",
- "version" : "v1.0.0"
+ "version" : "v1.0.1"
},
"NetPacket::ICMP" : {
"file" : "lib/NetPacket/ICMP.pm",
- "version" : "v1.0.0"
+ "version" : "v1.0.1"
},
"NetPacket::IGMP" : {
"file" : "lib/NetPacket/IGMP.pm",
- "version" : "v1.0.0"
+ "version" : "v1.0.1"
},
"NetPacket::IP" : {
"file" : "lib/NetPacket/IP.pm",
- "version" : "v1.0.0"
+ "version" : "v1.0.1"
},
"NetPacket::TCP" : {
"file" : "lib/NetPacket/TCP.pm",
- "version" : "v1.0.0"
+ "version" : "v1.0.1"
},
"NetPacket::UDP" : {
"file" : "lib/NetPacket/UDP.pm",
- "version" : "v1.0.0"
+ "version" : "v1.0.1"
}
},
"release_status" : "stable",
@@ -86,6 +86,6 @@
"web" : "http://github.com/yanick/netpacket/tree"
}
},
- "version" : "1.0.0"
+ "version" : "1.0.1"
}
Modified: branches/upstream/libnetpacket-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetpacket-perl/current/META.yml?rev=64036&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/META.yml (original)
+++ branches/upstream/libnetpacket-perl/current/META.yml Wed Oct 20 06:47:46 2010
@@ -20,28 +20,28 @@
provides:
NetPacket:
file: lib/NetPacket.pm
- version: v1.0.0
+ version: v1.0.1
NetPacket::ARP:
file: lib/NetPacket/ARP.pm
- version: v1.0.0
+ version: v1.0.1
NetPacket::Ethernet:
file: lib/NetPacket/Ethernet.pm
- version: v1.0.0
+ version: v1.0.1
NetPacket::ICMP:
file: lib/NetPacket/ICMP.pm
- version: v1.0.0
+ version: v1.0.1
NetPacket::IGMP:
file: lib/NetPacket/IGMP.pm
- version: v1.0.0
+ version: v1.0.1
NetPacket::IP:
file: lib/NetPacket/IP.pm
- version: v1.0.0
+ version: v1.0.1
NetPacket::TCP:
file: lib/NetPacket/TCP.pm
- version: v1.0.0
+ version: v1.0.1
NetPacket::UDP:
file: lib/NetPacket/UDP.pm
- version: v1.0.0
+ version: v1.0.1
requires:
constant: 0
vars: 0
@@ -49,4 +49,4 @@
bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=NetPacket
homepage: http://search.cpan.org/dist/NetPacket/
repository: git://github.com/yanick/netpacket.git
-version: 1.0.0
+version: 1.0.1
Modified: branches/upstream/libnetpacket-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetpacket-perl/current/SIGNATURE?rev=64036&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/SIGNATURE (original)
+++ branches/upstream/libnetpacket-perl/current/SIGNATURE Wed Oct 20 06:47:46 2010
@@ -14,21 +14,21 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 fcea69e7683ecafc44e18bb238eb26213260ab5d Build.PL
-SHA1 63da1631a968fdda2d32850118b2223769d745ca Changes
+SHA1 8120d3f64baa15b6bc8a7b9e59514da6e8658129 Build.PL
+SHA1 43b3450bb45f07923fa3907948b9d9a06eb5eac4 Changes
SHA1 269f0026e38d84a1eae530f9a1c5cd79ee06696b LICENSE
SHA1 afa4203b4424a3b0feef0cf11991ac21982fa1af MANIFEST
-SHA1 e1bdbfdae35aafc115c4d4284b43e7a1beb17207 META.json
-SHA1 fe8962c4431d06c8a06dcff073a80521d49c5eb9 META.yml
+SHA1 8c2c7c0c2fa662ca87596aa5711055c592fc3324 META.json
+SHA1 becb10653de31daf4383442c849f6bd6c5ae195c META.yml
SHA1 9c591b965be2b805a0a98c4ed58dad6c58fdaa66 README
-SHA1 8c071d81f439bf408aa44df99cb5e69cd9274738 lib/NetPacket.pm
-SHA1 37137c5cfca539330f75b832f695ba23e115691e lib/NetPacket/ARP.pm
-SHA1 0b9779a062c92417d8dfe433a3fb5d7aec5b10fc lib/NetPacket/Ethernet.pm
-SHA1 d0313ec7c26a3d736615f48c9a97c51123edca5b lib/NetPacket/ICMP.pm
-SHA1 979cbbd6c10c29b95e8f4aa7acb43282eea8e494 lib/NetPacket/IGMP.pm
-SHA1 991a7b06a582d6b8b1655907360daf0a8a272c3a lib/NetPacket/IP.pm
-SHA1 4c30206caf5088720f6e69e692e19bce837bf6ea lib/NetPacket/TCP.pm
-SHA1 4d239544e8164696bdfd3ca86e457835457c43f3 lib/NetPacket/UDP.pm
+SHA1 93a1ab919a12c6bd9122a2ef2b243cbc11ba8136 lib/NetPacket.pm
+SHA1 2c3763036db6278dd5ed9c7b5a527a35c1e5b112 lib/NetPacket/ARP.pm
+SHA1 4f2321ee3ef48aa4586fdb71e228e7ba40f4d9fa lib/NetPacket/Ethernet.pm
+SHA1 23bb8f8453b9563374d9a9f958b29b1f324cd124 lib/NetPacket/ICMP.pm
+SHA1 3d1e2957792ebbf7d2aad83f410b382a298a1374 lib/NetPacket/IGMP.pm
+SHA1 5cc3fe311ac2ffc0dabc95b75ea4695cbb0410ff lib/NetPacket/IP.pm
+SHA1 775b89b9bdb3af5aef6f19ea8f227f6801c8d712 lib/NetPacket/TCP.pm
+SHA1 d4efb9380758bc198bab3eb90a1a8068f8c30d48 lib/NetPacket/UDP.pm
SHA1 050aa113e828a52db3c86065c0c0ed50198b7ce8 t/000-report-versions.t
SHA1 2f95a288a42eed0173859c5bb9d37caee7e4b26b t/bug-37931.t
SHA1 721a206d861139f8f73081b8d337bfcdce4247e5 t/checksum.t
@@ -41,7 +41,7 @@
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.10 (GNU/Linux)
-iEYEARECAAYFAky7NYcACgkQ34Hwf+GwC4xE/ACgpCzJkTjpkSPAiVtqxa95rAhN
-hscAn0KKljv9fQPUxv5gQHJTea3k2OTL
-=2VDX
+iEYEARECAAYFAky+MYcACgkQ34Hwf+GwC4wBigCgqvzsu3wyuwEVacH6i8z1LWK0
+ozsAoK+EWBSlpxhIXlmeMm8K3YKkTjGH
+=79WV
-----END PGP SIGNATURE-----
Modified: branches/upstream/libnetpacket-perl/current/lib/NetPacket.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetpacket-perl/current/lib/NetPacket.pm?rev=64036&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/lib/NetPacket.pm (original)
+++ branches/upstream/libnetpacket-perl/current/lib/NetPacket.pm Wed Oct 20 06:47:46 2010
@@ -6,7 +6,7 @@
package NetPacket;
BEGIN {
- $NetPacket::VERSION = '1.0.0';
+ $NetPacket::VERSION = '1.0.1';
}
# ABSTRACT: assemble/disassemble network packets at the protocol level
@@ -114,7 +114,7 @@
=head1 VERSION
-version 1.0.0
+version 1.0.1
=head1 SYNOPSIS
Modified: branches/upstream/libnetpacket-perl/current/lib/NetPacket/ARP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetpacket-perl/current/lib/NetPacket/ARP.pm?rev=64036&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/lib/NetPacket/ARP.pm (original)
+++ branches/upstream/libnetpacket-perl/current/lib/NetPacket/ARP.pm Wed Oct 20 06:47:46 2010
@@ -1,6 +1,6 @@
package NetPacket::ARP;
BEGIN {
- $NetPacket::ARP::VERSION = '1.0.0';
+ $NetPacket::ARP::VERSION = '1.0.1';
}
# ABSTRACT: Assemble and disassemble ARP (Address Resolution Protocol) packets.
@@ -111,7 +111,7 @@
=head1 VERSION
-version 1.0.0
+version 1.0.1
=head1 SYNOPSIS
Modified: branches/upstream/libnetpacket-perl/current/lib/NetPacket/Ethernet.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetpacket-perl/current/lib/NetPacket/Ethernet.pm?rev=64036&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/lib/NetPacket/Ethernet.pm (original)
+++ branches/upstream/libnetpacket-perl/current/lib/NetPacket/Ethernet.pm Wed Oct 20 06:47:46 2010
@@ -1,6 +1,6 @@
package NetPacket::Ethernet;
BEGIN {
- $NetPacket::Ethernet::VERSION = '1.0.0';
+ $NetPacket::Ethernet::VERSION = '1.0.1';
}
# ABSTRACT: Assemble and disassemble ethernet packets.
@@ -123,7 +123,7 @@
=head1 VERSION
-version 1.0.0
+version 1.0.1
=head1 SYNOPSIS
Modified: branches/upstream/libnetpacket-perl/current/lib/NetPacket/ICMP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetpacket-perl/current/lib/NetPacket/ICMP.pm?rev=64036&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/lib/NetPacket/ICMP.pm (original)
+++ branches/upstream/libnetpacket-perl/current/lib/NetPacket/ICMP.pm Wed Oct 20 06:47:46 2010
@@ -1,6 +1,6 @@
package NetPacket::ICMP;
BEGIN {
- $NetPacket::ICMP::VERSION = '1.0.0';
+ $NetPacket::ICMP::VERSION = '1.0.1';
}
# ABSTRACT: Assemble and disassemble ICMP (Internet Control Message Protocol) packets.
@@ -155,7 +155,7 @@
=head1 VERSION
-version 1.0.0
+version 1.0.1
=head1 SYNOPSIS
Modified: branches/upstream/libnetpacket-perl/current/lib/NetPacket/IGMP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetpacket-perl/current/lib/NetPacket/IGMP.pm?rev=64036&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/lib/NetPacket/IGMP.pm (original)
+++ branches/upstream/libnetpacket-perl/current/lib/NetPacket/IGMP.pm Wed Oct 20 06:47:46 2010
@@ -4,7 +4,7 @@
package NetPacket::IGMP;
BEGIN {
- $NetPacket::IGMP::VERSION = '1.0.0';
+ $NetPacket::IGMP::VERSION = '1.0.1';
}
# ABSTRACT: Assemble and disassemble IGMP (Internet Group Mangement Protocol) packets.
@@ -153,7 +153,7 @@
=head1 VERSION
-version 1.0.0
+version 1.0.1
=head1 SYNOPSIS
Modified: branches/upstream/libnetpacket-perl/current/lib/NetPacket/IP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetpacket-perl/current/lib/NetPacket/IP.pm?rev=64036&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/lib/NetPacket/IP.pm (original)
+++ branches/upstream/libnetpacket-perl/current/lib/NetPacket/IP.pm Wed Oct 20 06:47:46 2010
@@ -5,7 +5,7 @@
package NetPacket::IP;
BEGIN {
- $NetPacket::IP::VERSION = '1.0.0';
+ $NetPacket::IP::VERSION = '1.0.1';
}
# ABSTRACT: Assemble and disassemble IP (Internet Protocol) packets.
@@ -220,7 +220,7 @@
=head1 VERSION
-version 1.0.0
+version 1.0.1
=head1 SYNOPSIS
Modified: branches/upstream/libnetpacket-perl/current/lib/NetPacket/TCP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetpacket-perl/current/lib/NetPacket/TCP.pm?rev=64036&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/lib/NetPacket/TCP.pm (original)
+++ branches/upstream/libnetpacket-perl/current/lib/NetPacket/TCP.pm Wed Oct 20 06:47:46 2010
@@ -6,7 +6,7 @@
package NetPacket::TCP;
BEGIN {
- $NetPacket::TCP::VERSION = '1.0.0';
+ $NetPacket::TCP::VERSION = '1.0.1';
}
# ABSTRACT: Assemble and disassemble TCP (Transmission Control Protocol) packets.
@@ -196,7 +196,7 @@
=head1 VERSION
-version 1.0.0
+version 1.0.1
=head1 SYNOPSIS
Modified: branches/upstream/libnetpacket-perl/current/lib/NetPacket/UDP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetpacket-perl/current/lib/NetPacket/UDP.pm?rev=64036&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/lib/NetPacket/UDP.pm (original)
+++ branches/upstream/libnetpacket-perl/current/lib/NetPacket/UDP.pm Wed Oct 20 06:47:46 2010
@@ -4,7 +4,7 @@
package NetPacket::UDP;
BEGIN {
- $NetPacket::UDP::VERSION = '1.0.0';
+ $NetPacket::UDP::VERSION = '1.0.1';
}
# ABSTRACT: Assemble and disassemble UDP (User Datagram Protocol) packets.
@@ -132,14 +132,8 @@
}
-#
-# Module initialisation
-#
-
1;
-# autoloaded methods go after the END token (&& pod) below
-
=pod
@@ -150,7 +144,7 @@
=head1 VERSION
-version 1.0.0
+version 1.0.1
=head1 SYNOPSIS
@@ -290,38 +284,36 @@
of foo will be replaced with bar. This example is easy to test with
netcat, but otherwise makes little sense. :) Adapt to your needs:
-#!/usr/bin/perl
-
-use Net::Divert;
-use NetPacket::IP qw(IP_PROTO_UDP);
-use NetPacket::UDP;
-
-$divobj = Net::Divert->new('yourhost',9999);
-
-$divobj->getPackets(\&alterPacket);
-
-sub alterPacket
-{
- my ($data, $fwtag) = @_;
-
- $ip_obj = NetPacket::IP->decode($data);
-
- if($ip_obj->{proto} == IP_PROTO_UDP) {
-
- # decode the UDP header
- $udp_obj = NetPacket::UDP->decode($ip_obj->{data});
-
- # replace foo in the payload with bar
- $udp_obj->{data} =~ s/foo/bar/g;
-
- # reencode the packet
- $ip_obj->{data} = $udp_obj->encode($ip_obj);
- $data = $ip_obj->encode;
-
+ use Net::Divert;
+ use NetPacket::IP qw(IP_PROTO_UDP);
+ use NetPacket::UDP;
+
+ $divobj = Net::Divert->new('yourhost',9999);
+
+ $divobj->getPackets(\&alterPacket);
+
+ sub alterPacket
+ {
+ my ($data, $fwtag) = @_;
+
+ $ip_obj = NetPacket::IP->decode($data);
+
+ if($ip_obj->{proto} == IP_PROTO_UDP) {
+
+ # decode the UDP header
+ $udp_obj = NetPacket::UDP->decode($ip_obj->{data});
+
+ # replace foo in the payload with bar
+ $udp_obj->{data} =~ s/foo/bar/g;
+
+ # reencode the packet
+ $ip_obj->{data} = $udp_obj->encode($ip_obj);
+ $data = $ip_obj->encode;
+
+ }
+
+ $divobj->putPacket($data,$fwtag);
}
-
- $divobj->putPacket($data,$fwtag);
-}
=head1 COPYRIGHT
More information about the Pkg-perl-cvs-commits
mailing list