r71556 - in /branches/upstream/libnetpacket-perl/current: ./ lib/ lib/NetPacket/ t/
periapt-guest at users.alioth.debian.org
periapt-guest at users.alioth.debian.org
Thu Mar 17 19:56:23 UTC 2011
Author: periapt-guest
Date: Thu Mar 17 19:56:09 2011
New Revision: 71556
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=71556
Log:
[svn-upgrade] new version libnetpacket-perl (1.1.1)
Added:
branches/upstream/libnetpacket-perl/current/README.mkdn
branches/upstream/libnetpacket-perl/current/t/ethernet.t
Modified:
branches/upstream/libnetpacket-perl/current/Build.PL
branches/upstream/libnetpacket-perl/current/Changes
branches/upstream/libnetpacket-perl/current/LICENSE
branches/upstream/libnetpacket-perl/current/MANIFEST
branches/upstream/libnetpacket-perl/current/META.json
branches/upstream/libnetpacket-perl/current/META.yml
branches/upstream/libnetpacket-perl/current/README
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=71556&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/Build.PL (original)
+++ branches/upstream/libnetpacket-perl/current/Build.PL Thu Mar 17 19:56:09 2011
@@ -21,7 +21,7 @@
'Yanick Champoux <yanick at cpan.org>'
],
'dist_name' => 'NetPacket',
- 'dist_version' => '1.0.1',
+ 'dist_version' => '1.1.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=71556&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/Changes (original)
+++ branches/upstream/libnetpacket-perl/current/Changes Thu Mar 17 19:56:09 2011
@@ -1,4 +1,11 @@
revision history for NetPacket
+
+1.1.1 2011-02-07 19:34:30 America/Montreal
+ * Add the new Ethernet types to the export list.
+ (thanks to Sergey, again :-) ) (RT#64799)
+
+1.1.0 2011-01-15 12:51:13 America/Montreal
+ * Add a few Ethernet types. (thanks to Sergey) (RT#64799)
1.0.1 2010-10-19 20:02:04 America/Montreal
* Make the example verbatim in pod in NetPacket::UDP (rt#62097)
Modified: branches/upstream/libnetpacket-perl/current/LICENSE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetpacket-perl/current/LICENSE?rev=71556&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/LICENSE (original)
+++ branches/upstream/libnetpacket-perl/current/LICENSE Thu Mar 17 19:56:09 2011
@@ -1,4 +1,4 @@
-This software is Copyright (c) 2010 by Yanick Champoux.
+This software is Copyright (c) 2011 by Yanick Champoux.
This is free software, licensed under:
Modified: branches/upstream/libnetpacket-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetpacket-perl/current/MANIFEST?rev=71556&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/MANIFEST (original)
+++ branches/upstream/libnetpacket-perl/current/MANIFEST Thu Mar 17 19:56:09 2011
@@ -5,6 +5,7 @@
META.json
META.yml
README
+README.mkdn
SIGNATURE
lib/NetPacket.pm
lib/NetPacket/ARP.pm
@@ -17,6 +18,7 @@
t/000-report-versions.t
t/bug-37931.t
t/checksum.t
+t/ethernet.t
t/general.t
t/icmp.t
t/ip_encode.t
Modified: branches/upstream/libnetpacket-perl/current/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetpacket-perl/current/META.json?rev=71556&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/META.json (original)
+++ branches/upstream/libnetpacket-perl/current/META.json Thu Mar 17 19:56:09 2011
@@ -4,7 +4,7 @@
"Yanick Champoux <yanick at cpan.org>"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 4.102341, CPAN::Meta::Converter version 2.101590",
+ "generated_by" : "Dist::Zilla version 4.102345, CPAN::Meta::Converter version 2.101590",
"license" : [
"artistic_2"
],
@@ -42,35 +42,35 @@
"provides" : {
"NetPacket" : {
"file" : "lib/NetPacket.pm",
- "version" : "v1.0.1"
+ "version" : "v1.1.1"
},
"NetPacket::ARP" : {
"file" : "lib/NetPacket/ARP.pm",
- "version" : "v1.0.1"
+ "version" : "v1.1.1"
},
"NetPacket::Ethernet" : {
"file" : "lib/NetPacket/Ethernet.pm",
- "version" : "v1.0.1"
+ "version" : "v1.1.1"
},
"NetPacket::ICMP" : {
"file" : "lib/NetPacket/ICMP.pm",
- "version" : "v1.0.1"
+ "version" : "v1.1.1"
},
"NetPacket::IGMP" : {
"file" : "lib/NetPacket/IGMP.pm",
- "version" : "v1.0.1"
+ "version" : "v1.1.1"
},
"NetPacket::IP" : {
"file" : "lib/NetPacket/IP.pm",
- "version" : "v1.0.1"
+ "version" : "v1.1.1"
},
"NetPacket::TCP" : {
"file" : "lib/NetPacket/TCP.pm",
- "version" : "v1.0.1"
+ "version" : "v1.1.1"
},
"NetPacket::UDP" : {
"file" : "lib/NetPacket/UDP.pm",
- "version" : "v1.0.1"
+ "version" : "v1.1.1"
}
},
"release_status" : "stable",
@@ -86,6 +86,7 @@
"web" : "http://github.com/yanick/netpacket/tree"
}
},
- "version" : "1.0.1"
+ "version" : "1.1.1",
+ "x_authority" : "cpan:yanick"
}
Modified: branches/upstream/libnetpacket-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetpacket-perl/current/META.yml?rev=71556&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/META.yml (original)
+++ branches/upstream/libnetpacket-perl/current/META.yml Thu Mar 17 19:56:09 2011
@@ -11,7 +11,7 @@
configure_requires:
Module::Build: 0.3601
dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.102341, CPAN::Meta::Converter version 2.101590'
+generated_by: 'Dist::Zilla version 4.102345, CPAN::Meta::Converter version 2.101590'
license: artistic2
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -20,28 +20,28 @@
provides:
NetPacket:
file: lib/NetPacket.pm
- version: v1.0.1
+ version: v1.1.1
NetPacket::ARP:
file: lib/NetPacket/ARP.pm
- version: v1.0.1
+ version: v1.1.1
NetPacket::Ethernet:
file: lib/NetPacket/Ethernet.pm
- version: v1.0.1
+ version: v1.1.1
NetPacket::ICMP:
file: lib/NetPacket/ICMP.pm
- version: v1.0.1
+ version: v1.1.1
NetPacket::IGMP:
file: lib/NetPacket/IGMP.pm
- version: v1.0.1
+ version: v1.1.1
NetPacket::IP:
file: lib/NetPacket/IP.pm
- version: v1.0.1
+ version: v1.1.1
NetPacket::TCP:
file: lib/NetPacket/TCP.pm
- version: v1.0.1
+ version: v1.1.1
NetPacket::UDP:
file: lib/NetPacket/UDP.pm
- version: v1.0.1
+ version: v1.1.1
requires:
constant: 0
vars: 0
@@ -49,4 +49,5 @@
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.1
+version: 1.1.1
+x_authority: cpan:yanick
Modified: branches/upstream/libnetpacket-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetpacket-perl/current/README?rev=71556&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/README (original)
+++ branches/upstream/libnetpacket-perl/current/README Thu Mar 17 19:56:09 2011
@@ -1,40 +1,94 @@
-NetPacket version 0.41.1
+NAME
+ NetPacket - assemble/disassemble network packets at the protocol level
-This is a whole bunch of
-Perl modules which I have named NetPacket::*. These modules do basic
-disassembly of network packets of various Internet protocols. NetPacket
-0.01 contained hooks for assembly of packets which have been implemented in
-version 0.04 by Stephanie Wehner <atrak at itsx.com>.
+VERSION
+ version 1.1.1
-I've used these scripts for a variety of little jobs such as snooping
-various TCP services, gathering network traffic statistics by
-source/destination/protocol, and for unpacking the contents of IP
-tunnels. They're actually pretty useful. I recommend fetching and
-installing the Net::Pcap module to actually gather packet data, and
-for writing small scripts based on packet capture, the Net::PcapUtils
-module is also useful.
+SYNOPSIS
+ # NetPacket is a base class only
-At present, decoding for the following protocols has been
-implemented.
+DESCRIPTION
+ "NetPacket" provides a base class for a cluster of modules related to
+ decoding and encoding of network protocols. Each "NetPacket" descendent
+ module knows how to encode and decode packets for the network protocol
+ it implements. Consult the documentation for the module in question for
+ protocol-specific implementation.
- - Ethernet (802.3 and 802.2)
- - ARP
- - ICMP
- - IGMP
- - IP
- - UDP
- - TCP
+ Note that there is no inheritance in the "NetPacket::" cluster of
+ modules other than each protocol module being a "NetPacket". This was
+ seen to be too restrictive as imposing inheritance relationships (for
+ example between the IP, UDP and TCP protocols) would make things like
+ tunneling or other unusual situations difficult.
-It's pretty easy to add new protocols. Just copy one of the existing
-modules and figure out an unpack string which will unpack the
-information in the packet and store the data into fields in the
-namespace of the NetPacket::whatever object. More information can be
-found in the NetPacket(3) manpage, which is the base class module.
+WRITING YOUR OWN "NetPacket::" MODULE
+ You are encouraged to write additional "NetPacket::" modules as well as
+ improve existing ones. Contact the maintainer of the module in question
+ with your suggestions or changes.
-I'd be interested in receiving bug reports, comments or any
-improvements (especially additional protocols) to the NetPacket
-modules.
+ The following sections are a list of suggestions and conventions for
+ writing a "NetPacket::" module.
-Tim Potter
-30th July, 2001
-tpot at samba.org
+ Naming Conventions
+ When creating a module in the "NetPacket::" namespace, it is suggested
+ that you stick to a couple of conventions when naming packet contents.
+ This will hopefully lead to a consistent namespace making the
+ "NetPacket::" easier to use.
+
+ Content names are all lowercase, with underscores separating multiple
+ words. The following abbreviations are recommended:
+
+ Word Abbreviation
+ --------------------------------
+ source src
+ destination dest
+ checksum cksum
+ identifier id
+ version ver
+ protocol proto
+
+ Required Methods
+ encode(), decode(), strip()
+
+ Required Fields
+ Every NetPacket:: object should have the following fields.
+
+ _parent
+ A link to the parent "NetPacket::" object in which this
+ "NetPacket::" object is encaulated. This field is undefined if there
+ is no parent object.
+
+ _frame
+ A copy of the raw data of the packet.
+
+ data
+ This field should contain the data encapsulated in the packet (i.e
+ any headers or trailers stripped off) or undef if the packet
+ contains no data. Note that in this sense, "data" is taken to mean
+ information not relevant to the particular protocol being decoded.
+ For example, an ARP packet contains many header fields but no data.
+ A UDP datagram, however contains header fields and a payload.
+
+SEE ALSO
+ Joel Knight has a patch for NetPacket for IPv6 support available at
+ http://www.packetmischief.ca/code/netpacket/.
+
+COPYRIGHT AND LICENSE
+ Copyright (c) 2001 Tim Potter and Stephanie Wehner.
+
+ Copyright (c) 1995,1996,1997,1998,1999 ANU and CSIRO on behalf of the
+ participants in the CRC for Advanced Computational Systems ('ACSys').
+
+ This module is free software. You can redistribute it and/or modify it
+ under the terms of the Artistic License 2.0.
+
+ This program is distributed in the hope that it will be useful, but
+ without any warranty; without even the implied warranty of
+ merchantability or fitness for a particular purpose.
+
+AUTHORS
+ Tim Potter <tpot at samba.org>
+
+ Stephanie Wehner <atrak at itsx.com>
+
+ Yanick Champoux <yanick at cpan.org>
+
Added: branches/upstream/libnetpacket-perl/current/README.mkdn
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetpacket-perl/current/README.mkdn?rev=71556&op=file
==============================================================================
--- branches/upstream/libnetpacket-perl/current/README.mkdn (added)
+++ branches/upstream/libnetpacket-perl/current/README.mkdn Thu Mar 17 19:56:09 2011
@@ -1,0 +1,108 @@
+# NAME
+
+NetPacket - assemble/disassemble network packets at the protocol level
+
+# VERSION
+
+version 1.1.1
+
+# SYNOPSIS
+
+ # NetPacket is a base class only
+
+# DESCRIPTION
+
+`NetPacket` provides a base class for a cluster of modules related to
+decoding and encoding of network protocols. Each `NetPacket`
+descendent module knows how to encode and decode packets for the
+network protocol it implements. Consult the documentation for the
+module in question for protocol-specific implementation.
+
+Note that there is no inheritance in the `NetPacket::` cluster of
+modules other than each protocol module being a `NetPacket`. This
+was seen to be too restrictive as imposing inheritance relationships
+(for example between the IP, UDP and TCP protocols) would make things
+like tunneling or other unusual situations difficult.
+
+# WRITING YOUR OWN `NetPacket::` MODULE
+
+You are encouraged to write additional `NetPacket::` modules as well
+as improve existing ones. Contact the maintainer of the module in
+question with your suggestions or changes.
+
+The following sections are a list of suggestions and conventions for
+writing a `NetPacket::` module.
+
+## Naming Conventions
+
+When creating a module in the `NetPacket::` namespace, it is suggested
+that you stick to a couple of conventions when naming packet contents.
+This will hopefully lead to a consistent namespace making the
+`NetPacket::` easier to use.
+
+Content names are all lowercase, with underscores separating multiple
+words. The following abbreviations are recommended:
+
+ Word Abbreviation
+ --------------------------------
+ source src
+ destination dest
+ checksum cksum
+ identifier id
+ version ver
+ protocol proto
+
+## Required Methods
+
+encode(), decode(), strip()
+
+## Required Fields
+
+Every NetPacket:: object should have the following fields.
+
+- _parent
+
+A link to the parent `NetPacket::` object in which this
+`NetPacket::` object is encaulated. This field is undefined if there
+is no parent object.
+
+- _frame
+
+A copy of the raw data of the packet.
+
+- data
+
+This field should contain the data encapsulated in the packet (i.e any
+headers or trailers stripped off) or undef if the packet contains no
+data. Note that in this sense, "data" is taken to mean information
+not relevant to the particular protocol being decoded. For example,
+an ARP packet contains many header fields but no data. A UDP datagram,
+however contains header fields and a payload.
+
+# SEE ALSO
+
+Joel Knight has a patch for NetPacket for IPv6 support available
+at http://www.packetmischief.ca/code/netpacket/.
+
+# COPYRIGHT AND LICENSE
+
+Copyright (c) 2001 Tim Potter and Stephanie Wehner.
+
+Copyright (c) 1995,1996,1997,1998,1999 ANU and CSIRO on behalf of
+the participants in the CRC for Advanced Computational Systems
+('ACSys').
+
+This module is free software. You can redistribute it and/or
+modify it under the terms of the Artistic License 2.0.
+
+This program is distributed in the hope that it will be useful,
+but without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+# AUTHORS
+
+Tim Potter <tpot at samba.org>
+
+Stephanie Wehner <atrak at itsx.com>
+
+Yanick Champoux <yanick at cpan.org>
Modified: branches/upstream/libnetpacket-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetpacket-perl/current/SIGNATURE?rev=71556&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/SIGNATURE (original)
+++ branches/upstream/libnetpacket-perl/current/SIGNATURE Thu Mar 17 19:56:09 2011
@@ -14,24 +14,26 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 8120d3f64baa15b6bc8a7b9e59514da6e8658129 Build.PL
-SHA1 43b3450bb45f07923fa3907948b9d9a06eb5eac4 Changes
-SHA1 269f0026e38d84a1eae530f9a1c5cd79ee06696b LICENSE
-SHA1 afa4203b4424a3b0feef0cf11991ac21982fa1af MANIFEST
-SHA1 8c2c7c0c2fa662ca87596aa5711055c592fc3324 META.json
-SHA1 becb10653de31daf4383442c849f6bd6c5ae195c META.yml
-SHA1 9c591b965be2b805a0a98c4ed58dad6c58fdaa66 README
-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 0a7199fb50ef86de8ae605b143ef8a0c641f0c3c Build.PL
+SHA1 2c7b475d50b047276a8f2607b6ec2d521f76c6c4 Changes
+SHA1 fa6e44d3372502992b6f871b615edc033606b2d7 LICENSE
+SHA1 9ab41842507804afb2b78dd5acc97abaec025285 MANIFEST
+SHA1 1af6765ffa7b9b2a95523d0a5076c63ec4c86deb META.json
+SHA1 b42adf2aa231d28c2794ddab961180417718c5e1 META.yml
+SHA1 94695da71065efa32461764e4dc9993bbd701ac7 README
+SHA1 0460a71fcf0be381ec4f4830d74d050c3f75080d README.mkdn
+SHA1 53e55f7958c02a7c6237ab2eb0bd4650f51d375e lib/NetPacket.pm
+SHA1 b5ab96225df5d7c18eed927c476469755c5c1dd4 lib/NetPacket/ARP.pm
+SHA1 ee0e9328196eebe42fa1505ea805048a62399146 lib/NetPacket/Ethernet.pm
+SHA1 28d4be33d7f3683f28312c6e6625c6003df6ddfc lib/NetPacket/ICMP.pm
+SHA1 5f4bb4e826e6b424bfb6fb611d83a65f94053b5a lib/NetPacket/IGMP.pm
+SHA1 8ee7a1707896dad55d70020e79b41acd279ff380 lib/NetPacket/IP.pm
+SHA1 39e2f31ae8fe20045366d10df1c8fe1b11f41f84 lib/NetPacket/TCP.pm
+SHA1 d829bad34a3bde7c5d8f01893b31152d2d472a61 lib/NetPacket/UDP.pm
SHA1 050aa113e828a52db3c86065c0c0ed50198b7ce8 t/000-report-versions.t
SHA1 2f95a288a42eed0173859c5bb9d37caee7e4b26b t/bug-37931.t
SHA1 721a206d861139f8f73081b8d337bfcdce4247e5 t/checksum.t
+SHA1 1a8ee75b43167c0a2d1d6e512743bb56d02ce9e8 t/ethernet.t
SHA1 4ae3b86ce2b7dc5faaf06a566aa0c5c80bb7d326 t/general.t
SHA1 58f7294a0c74eedb982f75b1c8e8bc9fa5395288 t/icmp.t
SHA1 a22909fb4a8ce8621107618ef50c6f92a7a6d36a t/ip_encode.t
@@ -41,7 +43,7 @@
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.10 (GNU/Linux)
-iEYEARECAAYFAky+MYcACgkQ34Hwf+GwC4wBigCgqvzsu3wyuwEVacH6i8z1LWK0
-ozsAoK+EWBSlpxhIXlmeMm8K3YKkTjGH
-=79WV
+iEYEARECAAYFAk1Qj6sACgkQ34Hwf+GwC4wr6ACaAp75h5iTZMADb/ie2ijXGweZ
+sW4An0v6a1PaDCrDDTq7fU3QZFc9zDpK
+=gnqa
-----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=71556&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/lib/NetPacket.pm (original)
+++ branches/upstream/libnetpacket-perl/current/lib/NetPacket.pm Thu Mar 17 19:56:09 2011
@@ -6,7 +6,10 @@
package NetPacket;
BEGIN {
- $NetPacket::VERSION = '1.0.1';
+ $NetPacket::AUTHORITY = 'cpan:yanick';
+}
+BEGIN {
+ $NetPacket::VERSION = '1.1.1';
}
# ABSTRACT: assemble/disassemble network packets at the protocol level
@@ -114,7 +117,7 @@
=head1 VERSION
-version 1.0.1
+version 1.1.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=71556&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/lib/NetPacket/ARP.pm (original)
+++ branches/upstream/libnetpacket-perl/current/lib/NetPacket/ARP.pm Thu Mar 17 19:56:09 2011
@@ -1,6 +1,9 @@
package NetPacket::ARP;
BEGIN {
- $NetPacket::ARP::VERSION = '1.0.1';
+ $NetPacket::ARP::AUTHORITY = 'cpan:yanick';
+}
+BEGIN {
+ $NetPacket::ARP::VERSION = '1.1.1';
}
# ABSTRACT: Assemble and disassemble ARP (Address Resolution Protocol) packets.
@@ -111,7 +114,7 @@
=head1 VERSION
-version 1.0.1
+version 1.1.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=71556&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/lib/NetPacket/Ethernet.pm (original)
+++ branches/upstream/libnetpacket-perl/current/lib/NetPacket/Ethernet.pm Thu Mar 17 19:56:09 2011
@@ -1,6 +1,9 @@
package NetPacket::Ethernet;
BEGIN {
- $NetPacket::Ethernet::VERSION = '1.0.1';
+ $NetPacket::Ethernet::AUTHORITY = 'cpan:yanick';
+}
+BEGIN {
+ $NetPacket::Ethernet::VERSION = '1.1.1';
}
# ABSTRACT: Assemble and disassemble ethernet packets.
@@ -10,28 +13,27 @@
BEGIN {
@ISA = qw(Exporter NetPacket);
-# Items to export into callers namespace by default
-# (move infrequently used names to @EXPORT_OK below)
-
- @EXPORT = qw(
+ @EXPORT = qw();
+
+ my @eth_types = qw/ ETH_TYPE_IP
+ ETH_TYPE_ARP
+ ETH_TYPE_APPLETALK
+ ETH_TYPE_RARP
+ ETH_TYPE_SNMP
+ ETH_TYPE_IPv6
+ ETH_TYPE_PPP
+ ETH_TYPE_802_1Q
+ ETH_TYPE_IPX
+ ETH_TYPE_PPPOED
+ ETH_TYPE_PPPOES /;
+
+ @EXPORT_OK = ( 'eth_strip', @eth_types );
+
+ %EXPORT_TAGS = (
+ ALL => [@EXPORT, @EXPORT_OK],
+ strip => [qw(eth_strip)],
+ types => \@eth_types,
);
-
-# Other items we are prepared to export if requested
-
- @EXPORT_OK = qw(eth_strip
- ETH_TYPE_IP ETH_TYPE_ARP ETH_TYPE_APPLETALK
- ETH_TYPE_SNMP ETH_TYPE_IPv6 ETH_TYPE_PPP
- );
-
-# Tags:
-
- %EXPORT_TAGS = (
- ALL => [@EXPORT, @EXPORT_OK],
- strip => [qw(eth_strip)],
- types => [qw(ETH_TYPE_IP ETH_TYPE_ARP ETH_TYPE_APPLETALK
- ETH_TYPE_SNMP ETH_TYPE_IPv6 ETH_TYPE_PPP)],
-);
-
}
#
@@ -46,6 +48,10 @@
use constant ETH_TYPE_SNMP => 0x814c;
use constant ETH_TYPE_IPv6 => 0x86dd;
use constant ETH_TYPE_PPP => 0x880b;
+use constant ETH_TYPE_802_1Q => 0x8100;
+use constant ETH_TYPE_IPX => 0x8137;
+use constant ETH_TYPE_PPPOED => 0x8863;
+use constant ETH_TYPE_PPPOES => 0x8864;
#
# Decode the packet
@@ -123,7 +129,7 @@
=head1 VERSION
-version 1.0.1
+version 1.1.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=71556&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/lib/NetPacket/ICMP.pm (original)
+++ branches/upstream/libnetpacket-perl/current/lib/NetPacket/ICMP.pm Thu Mar 17 19:56:09 2011
@@ -1,6 +1,9 @@
package NetPacket::ICMP;
BEGIN {
- $NetPacket::ICMP::VERSION = '1.0.1';
+ $NetPacket::ICMP::AUTHORITY = 'cpan:yanick';
+}
+BEGIN {
+ $NetPacket::ICMP::VERSION = '1.1.1';
}
# ABSTRACT: Assemble and disassemble ICMP (Internet Control Message Protocol) packets.
@@ -155,7 +158,7 @@
=head1 VERSION
-version 1.0.1
+version 1.1.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=71556&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/lib/NetPacket/IGMP.pm (original)
+++ branches/upstream/libnetpacket-perl/current/lib/NetPacket/IGMP.pm Thu Mar 17 19:56:09 2011
@@ -4,7 +4,10 @@
package NetPacket::IGMP;
BEGIN {
- $NetPacket::IGMP::VERSION = '1.0.1';
+ $NetPacket::IGMP::AUTHORITY = 'cpan:yanick';
+}
+BEGIN {
+ $NetPacket::IGMP::VERSION = '1.1.1';
}
# ABSTRACT: Assemble and disassemble IGMP (Internet Group Mangement Protocol) packets.
@@ -153,7 +156,7 @@
=head1 VERSION
-version 1.0.1
+version 1.1.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=71556&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/lib/NetPacket/IP.pm (original)
+++ branches/upstream/libnetpacket-perl/current/lib/NetPacket/IP.pm Thu Mar 17 19:56:09 2011
@@ -5,7 +5,10 @@
package NetPacket::IP;
BEGIN {
- $NetPacket::IP::VERSION = '1.0.1';
+ $NetPacket::IP::AUTHORITY = 'cpan:yanick';
+}
+BEGIN {
+ $NetPacket::IP::VERSION = '1.1.1';
}
# ABSTRACT: Assemble and disassemble IP (Internet Protocol) packets.
@@ -220,7 +223,7 @@
=head1 VERSION
-version 1.0.1
+version 1.1.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=71556&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/lib/NetPacket/TCP.pm (original)
+++ branches/upstream/libnetpacket-perl/current/lib/NetPacket/TCP.pm Thu Mar 17 19:56:09 2011
@@ -6,7 +6,10 @@
package NetPacket::TCP;
BEGIN {
- $NetPacket::TCP::VERSION = '1.0.1';
+ $NetPacket::TCP::AUTHORITY = 'cpan:yanick';
+}
+BEGIN {
+ $NetPacket::TCP::VERSION = '1.1.1';
}
# ABSTRACT: Assemble and disassemble TCP (Transmission Control Protocol) packets.
@@ -196,7 +199,7 @@
=head1 VERSION
-version 1.0.1
+version 1.1.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=71556&op=diff
==============================================================================
--- branches/upstream/libnetpacket-perl/current/lib/NetPacket/UDP.pm (original)
+++ branches/upstream/libnetpacket-perl/current/lib/NetPacket/UDP.pm Thu Mar 17 19:56:09 2011
@@ -4,7 +4,10 @@
package NetPacket::UDP;
BEGIN {
- $NetPacket::UDP::VERSION = '1.0.1';
+ $NetPacket::UDP::AUTHORITY = 'cpan:yanick';
+}
+BEGIN {
+ $NetPacket::UDP::VERSION = '1.1.1';
}
# ABSTRACT: Assemble and disassemble UDP (User Datagram Protocol) packets.
@@ -144,7 +147,7 @@
=head1 VERSION
-version 1.0.1
+version 1.1.1
=head1 SYNOPSIS
Added: branches/upstream/libnetpacket-perl/current/t/ethernet.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetpacket-perl/current/t/ethernet.t?rev=71556&op=file
==============================================================================
--- branches/upstream/libnetpacket-perl/current/t/ethernet.t (added)
+++ branches/upstream/libnetpacket-perl/current/t/ethernet.t Thu Mar 17 19:56:09 2011
@@ -1,0 +1,13 @@
+use strict;
+use warnings;
+
+use Test::More tests => 2;
+
+use NetPacket::Ethernet qw/ :types /;
+
+is ETH_TYPE_PPPOES() => 0x8864, 'imports';
+
+is NetPacket::Ethernet::ETH_TYPE_IP => 0x0800, 'with namespace';
+
+
+
More information about the Pkg-perl-cvs-commits
mailing list