--- libnet-ip-perl-1.25.orig/ipcount +++ libnet-ip-perl-1.25/ipcount @@ -77,7 +77,7 @@ while ($current->bincomp ('lt', $last)) { - $new_ip->set($current->last_ip.'+'.$size) or die (Error()); + $new_ip->set($current->last_ip.' + '.$size) or die (Error()); print $new_ip->print,"\n"; if ($opts{r}) @@ -85,7 +85,7 @@ print $new_ip->reverse_ip,"\n"; } - $current->set($new_ip->last_ip .'+ 1') or die (Error()); + $current->set($new_ip->last_ip .' + 1') or die (Error()); $count++; } --- libnet-ip-perl-1.25.orig/testout/ipv4.tlog +++ libnet-ip-perl-1.25/testout/ipv4.tlog @@ -0,0 +1,135 @@ +1..27 + +1: ok 1 + +2: (Is 'A' string-equal to 'B'?) +2: A: "11000011011100100101000000000000" +2: B: "11000011011100100101000000000000" +2: ok 2 + +3: (Is 'A' string-equal to 'B'?) +3: A: "195.114.80.0" +3: B: "195.114.80.0" +3: ok 3 + +4: (Is 'A' string-equal to 'B'?) +4: A: "195.114.80/24" +4: B: "195.114.80/24" +4: ok 4 + +5: (Is 'A' string-equal to 'B'?) +5: A: "0xc3725000" +5: B: "0xc3725000" +5: ok 5 + +6: (Is 'A' string-equal to 'B'?) +6: A: "0xffffff00" +6: B: "0xffffff00" +6: ok 6 + +7: (Is 'A' numerically-equal to 'B'?) +7: A: "24" +7: B: "24" +7: ok 7 + +8: (Is 'A' numerically-equal to 'B'?) +8: A: "4" +8: B: "4" +8: ok 8 + +9: (Is 'A' numerically-equal to 'B'?) +9: A: "256" +9: B: "256" +9: ok 9 + +10: (Is 'A' string-equal to 'B'?) +10: A: "11111111111111111111111100000000" +10: B: "11111111111111111111111100000000" +10: ok 10 + +11: (Is 'A' string-equal to 'B'?) +11: A: "255.255.255.0" +11: B: "255.255.255.0" +11: ok 11 + +12: (Is 'A' numerically-equal to 'B'?) +12: A: "3279048704" +12: B: "3279048704" +12: ok 12 + +13: (Is 'A' string-equal to 'B'?) +13: A: "PUBLIC" +13: B: "PUBLIC" +13: ok 13 + +14: (Is 'A' string-equal to 'B'?) +14: A: "80.114.195.in-addr.arpa." +14: B: "80.114.195.in-addr.arpa." +14: ok 14 + +15: (Is 'A' string-equal to 'B'?) +15: A: "11000011011100100101000011111111" +15: B: "11000011011100100101000011111111" +15: ok 15 + +16: (Is 'A' string-equal to 'B'?) +16: A: "195.114.80.255" +16: B: "195.114.80.255" +16: ok 16 + +17: (Is 'A' string-equal to 'B'?) +17: A: "202.31.4.0" +17: B: "202.31.4.0" +17: ok 17 + +18: Invalid prefix 11101010111101011111110011111101/2 +18: A: "Invalid prefix 11101010111101011111110011111101/2" +18: B: "Invalid prefix 11101010111101011111110011111101/2" +18: ok 18 + +19: Invalid prefix 11101010111101011111110011111101/2 +19: A: "171" +19: B: "171" +19: ok 19 + +20: (Is 'A' string-equal to 'B'?) +20: A: "62.34.41.14" +20: B: "62.34.41.14" +20: ok 20 + +21: (Is 'A' numerically-equal to 'B'?) +21: A: "23" +21: B: "23" +21: ok 21 + +22: (Is 'A' numerically-equal to 'B'?) +22: A: "1" +22: B: "1" +22: ok 22 + +23: (Is 'A' string-equal to 'B'?) +23: A: "133.45.0.40/31" +23: B: "133.45.0.40/31" +23: ok 23 + +24: (Is 'A' numerically-equal to 'B'?) +24: A: "1" +24: B: "1" +24: ok 24 + +25: (Is 'A' string-equal to 'B'?) +25: A: "192.168.2.254/31" +25: B: "192.168.2.254/31" +25: ok 25 + +26: (Is 'A' numerically-equal to 'B'?) +26: A: "-2" +26: B: "-2" +26: ok 26 + +27: (Is 'A' numerically-equal to 'B'?) +27: A: "1" +27: B: "1" +27: ok 27 + +END --- libnet-ip-perl-1.25.orig/testout/ipv6.tlog +++ libnet-ip-perl-1.25/testout/ipv6.tlog @@ -0,0 +1,105 @@ +1..21 + +1: ok 1 + +2: (Is 'A' string-equal to 'B'?) +2: A: "11011110101011011011111011101111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000" +2: B: "11011110101011011011111011101111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000" +2: ok 2 + +3: (Is 'A' string-equal to 'B'?) +3: A: "dead:beef:0000:0000:0000:0000:0000:0000" +3: B: "dead:beef:0000:0000:0000:0000:0000:0000" +3: ok 3 + +4: (Is 'A' string-equal to 'B'?) +4: A: "dead:beef::" +4: B: "dead:beef::" +4: ok 4 + +5: (Is 'A' string-equal to 'B'?) +5: A: "0xdeadbeef000000000000000000000000" +5: B: "0xdeadbeef000000000000000000000000" +5: ok 5 + +6: (Is 'A' string-equal to 'B'?) +6: A: "0xffffffffffff00000000000000000000" +6: B: "0xffffffffffff00000000000000000000" +6: ok 6 + +7: (Is 'A' numerically-equal to 'B'?) +7: A: "48" +7: B: "48" +7: ok 7 + +8: (Is 'A' numerically-equal to 'B'?) +8: A: "6" +8: B: "6" +8: ok 8 + +9: (Is 'A' string-equal to 'B'?) +9: A: "ffff:ffff:ffff:0000:0000:0000:0000:0000" +9: B: "ffff:ffff:ffff:0000:0000:0000:0000:0000" +9: ok 9 + +10: (Is 'A' numerically-equal to 'B'?) +10: A: "295990755014133383690938178081940045824" +10: B: "295990755014133383690938178081940045824" +10: ok 10 + +11: (Is 'A' string-equal to 'B'?) +11: A: "RESERVED" +11: B: "RESERVED" +11: ok 11 + +12: (Is 'A' string-equal to 'B'?) +12: A: "0.0.0.0.f.e.e.b.d.a.e.d.ip6.arpa." +12: B: "0.0.0.0.f.e.e.b.d.a.e.d.ip6.arpa." +12: ok 12 + +13: (Is 'A' string-equal to 'B'?) +13: A: "dead:beef:0000:ffff:ffff:ffff:ffff:ffff" +13: B: "dead:beef:0000:ffff:ffff:ffff:ffff:ffff" +13: ok 13 + +14: (Is 'A' string-equal to 'B'?) +14: A: "202.31.4.0" +14: B: "202.31.4.0" +14: ok 14 + +15: Invalid address :1 (starts with :) +15: A: "Invalid address :1 (starts with :)" +15: B: "Invalid address :1 (starts with :)" +15: ok 15 + +16: Invalid address :1 (starts with :) +16: A: "109" +16: B: "109" +16: ok 16 + +17: (Is 'A' string-equal to 'B'?) +17: A: "ff00:1::" +17: B: "ff00:1::" +17: ok 17 + +18: (Is 'A' numerically-equal to 'B'?) +18: A: "111" +18: B: "111" +18: ok 18 + +19: (Is 'A' numerically-equal to 'B'?) +19: A: "1" +19: B: "1" +19: ok 19 + +20: (Is 'A' string-equal to 'B'?) +20: A: "0000:0000:0000:0000:0000:0000:e002:0040/127" +20: B: "0000:0000:0000:0000:0000:0000:e002:0040/127" +20: ok 20 + +21: (Is 'A' numerically-equal to 'B'?) +21: A: "0" +21: B: "0" +21: ok 21 + +END --- libnet-ip-perl-1.25.orig/debian/docs +++ libnet-ip-perl-1.25/debian/docs @@ -0,0 +1 @@ +README --- libnet-ip-perl-1.25.orig/debian/control +++ libnet-ip-perl-1.25/debian/control @@ -0,0 +1,19 @@ +Source: libnet-ip-perl +Section: perl +Priority: optional +Maintainer: Frederic Schutz +Build-Depends: debhelper (>> 4.0.0) +Build-Depends-Indep: perl (>= 5.6.0-17) +Standards-Version: 3.7.2 + +Package: libnet-ip-perl +Architecture: all +Depends: ${perl:Depends} +Description: Perl extension for manipulating IPv4/IPv6 addresses + This package contains the Net::IP module, which provides functions + to deal with IPv4/IPv6 addresses. The module can be used as a class, + allowing the user to instantiate IP objects, which can be single IP + addresses, prefixes, or ranges of addresses. There is also a procedural + way of accessing most of the functions. Most subroutines can take either + IPv4 or IPv6 addresses transparently. + --- libnet-ip-perl-1.25.orig/debian/rules +++ libnet-ip-perl-1.25/debian/rules @@ -0,0 +1,73 @@ +#!/usr/bin/make -f +# Sample debian/rules that uses debhelper. +# GNU copyright 1997 to 1999 by Joey Hess. + +# Uncomment this to turn on verbose mode. +#export DH_VERBOSE=1 + +PACKAGE=$(shell dh_listpackages) + +ifndef PERL +PERL = /usr/bin/perl +endif + +ifndef DESTDIR +DESTDIR=.. +endif + +TMP =$(CURDIR)/debian/$(PACKAGE) + +build: build-stamp +build-stamp: + dh_testdir + + perl Makefile.PL INSTALLDIRS=vendor + $(MAKE) OPTIMIZE="-O2 -g -Wall" + + touch build-stamp + +clean: + dh_testdir + rm -f build-stamp + + # Next line changed as per bug #325372 + #-$(MAKE) clean + [ ! -f Makefile ] || make clean + rm -f Makefile.old + dh_clean + +install: build + dh_testdir + dh_testroot + dh_clean -k + + # Add here commands to install the package into debian/libnet-ip-perl. + $(MAKE) install PREFIX=$(TMP)/usr + # iptab and ipcount are provided only as examples, and we + # don't want to put them in /usr/bin, so we remove them for now, + # barring any opposition. + rm $(TMP)/usr/bin/iptab + rm $(TMP)/usr/bin/ipcount + +# Build architecture-independent files here. +binary-indep: build install +# We have nothing to do by default. + +# Build architecture-dependent files here. +binary-arch: build install + dh_testdir + dh_testroot + dh_installchangelogs Changes + dh_installdocs + dh_installexamples blib/script/ipcount blib/script/iptab + dh_compress + dh_fixperms + dh_perl + dh_installdeb + dh_shlibdeps + dh_gencontrol + dh_md5sums + dh_builddeb + +binary: binary-indep binary-arch +.PHONY: build clean binary-indep binary-arch binary install --- libnet-ip-perl-1.25.orig/debian/watch +++ libnet-ip-perl-1.25/debian/watch @@ -0,0 +1,4 @@ +# Watch control file for uscan +version=2 +# Site Version Script +http://search.cpan.org/CPAN/authors/id/M/MA/MANU/Net-IP-(.+).tar.gz debian uupdate --- libnet-ip-perl-1.25.orig/debian/changelog +++ libnet-ip-perl-1.25/debian/changelog @@ -0,0 +1,38 @@ +libnet-ip-perl (1.25-2) unstable; urgency=medium + + * Correct a bug in the ipcount script which prevents the use + of option -d; thanks to Thomas Parmelan for reporting the bug + and providing a patch (Closes: Bug#397941) + * Urgency medium to fix an annoying bug in time for Etch. + * Upload sponsored thanks to Anibal Monsalve Salazar + + -- Frederic Schutz Fri, 10 Nov 2006 20:20:26 +0100 + +libnet-ip-perl (1.25-1) unstable; urgency=low + + * New upstream release (Closes: Bug#381247) + * Updated to standards 3.7.2 (nothing to change) + + -- Frederic Schutz Sat, 5 Aug 2006 00:57:25 +0200 + +libnet-ip-perl (1.24-1) unstable; urgency=low + + * New upstream release (Closes: Bug#329604) + * Misc cleanups, thanks to Florian Ernst + * Updated to standards 3.6.2 (nothing to change) + + -- Frederic Schutz Tue, 15 Nov 2005 20:46:47 +0100 + +libnet-ip-perl (1.20-2) unstable; urgency=low + + * Updated the documentation to remove inconsistencies with the code + closes: Bug#224835 + + -- Frederic Schutz Wed, 4 Aug 2004 01:59:49 +1000 + +libnet-ip-perl (1.20-1) unstable; urgency=low + + * Initial Release, closes: Bug#209349 + + -- Frederic Schutz Tue, 9 Sep 2003 22:08:59 +1000 + --- libnet-ip-perl-1.25.orig/debian/compat +++ libnet-ip-perl-1.25/debian/compat @@ -0,0 +1 @@ +4 --- libnet-ip-perl-1.25.orig/debian/README.Debian +++ libnet-ip-perl-1.25/debian/README.Debian @@ -0,0 +1,11 @@ +libnet-ip-perl for Debian +------------------------- + +The original program provides 2 Perl scripts called ipcount and +iptab. In the Debian package, they are provided as examples on the use +of the Net::IP module, and can be found in directory +/usr/share/doc/libnet-ip-perl. If you believe that these scripts could +be useful to a wider audience (i.e. not only as an example), feel free +to submit a wishlist bug and I'll put them in /usr/bin instead. + + -- Frederic Schutz Sun, 7 Sep 2003 13:34:55 +1000 --- libnet-ip-perl-1.25.orig/debian/copyright +++ libnet-ip-perl-1.25/debian/copyright @@ -0,0 +1,61 @@ +This package was debianized by Frédéric Schütz on +Sun, 31 Aug 2003 21:19:00 +1000. + +The original version was downloaded from +http://search.cpan.org/CPAN/authors/id/M/MA/MANU/Net-IP-1.20.tar.gz +New releases of the software were downloaded from the directory +http://search.cpan.org/CPAN/authors/id/M/MA/MANU/, or obtained directly +from the upstream author. + +Upstream Author: Manuel Valente +(previously ). + +Copyright (according to the original COPYING file) : + +--- +Copyright (c) 1999-2000 by RIPE-NCC. All rights reserved. + +This program is free software; you can redistribute it and/or +modify it under the same terms as Perl itself. + +You should have received a copy of the Perl license along with +Perl; see the file README in Perl distribution. + +You should have received a copy of the GNU General Public License +along with this program; if not, write to the Free Software +Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. + + +You should have received a copy of the Artistic License +along with Perl; see the file Artistic. + + NO WARRANTY + +BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY +FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN +OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES +PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED +OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF +MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS +TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE +PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, +REPAIR OR CORRECTION. + +IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR +REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, +INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING +OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED +TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY +YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER +PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE +POSSIBILITY OF SUCH DAMAGES. + + END OF TERMS AND CONDITIONS + +--- + +On a Debian system, the GNU General Public License (GPL) can be found +in /usr/share/common-licenses/GPL. + +The Artistic License can be found in /usr/share/common-licenses/Artistic.