debian/0000755000000000000000000000000012272027247007173 5ustar debian/examples0000644000000000000000000000001412270754347010735 0ustar asused.conf debian/cwhois.30000644000000000000000000000322512270754347010563 0ustar .TH CWHOIS 3 "2006-11-03" "1.10" "whois client" .SH NAME CWHOIS \- whois client .SH SYNOPSIS .B cwhois .RB [\| \-a \||\| \-F \||\| \-L \||\| \-m \||\| \-M \||\| \-r \||\| \-S \||\| \-R \|] .RB [\| \-h .IR hostname \|] .RB [\| \-s .IR source[\|[\|,source\|]...\|] \|] .RB [\| \-T .IR type[\|[\|,type\|]...\|] \|] .RB [\| \-i .IR attr[\|[\|,attr\|]...\|] \|] keys .B cwhois .RB [\| \-t .IR type \|] .B cwhois .RB [\| \-v .IR type \|] .SH DESCRIPTION .B cwhois Simple whois client that gives you back output, compatiable with RIPE DB v2, if you'll ask it to. .SH OPTIONS .B .TP .B \-a search all databases .TP .B \-F fast raw output .TP .B \-L find all Less specific matches .TP .B \-m find first level more specific matches .TP .B \-M find all More specific matches .TP .B \-r turn off recursive lookups .TP .B \-S tell server to leave out 'syntactic sugar' .TP .B \-R force to show local copy of the domain object even if it contains referral .TP .B \-h hostname search alternate server .TP .B \-s source[\|[\|,source\|]...\|] search databases with source 'source' .TP .B \-T type[\|[\|,type\|]...\|] only look for objects of type 'type' .TP .B \-i attr[\|[\|,attr\|]...\|] do an inverse lookup for specified attributes .TP .B \-t type requests template for object of type 'type' .TP .B \-v type requests verbose template for object of type 'type' .SH HINT Please note that most of these flags are NOT understood by non RIPE whois servers! .SH SEE ALSO .B Website .SH AUTHOR CWHOIS was written by Timur Bakeyev . .PP This manual page was written by Jan Wagner , for the Debian project (but may be used by others). debian/patches/0000755000000000000000000000000012271024467010622 5ustar debian/patches/01_whois_new_query_fix.patch0000644000000000000000000000103212270754347016242 0ustar From: Jan Wagner Subject: Make use of -B parameter of ripe whois. --- asused-3.72.orig/Whois/RipeWhois/RipeWhois.pm 2001-04-18 19:01:20.000000000 +0200 +++ asused-3.72/Whois/RipeWhois/RipeWhois.pm 2005-05-02 16:19:05.000000000 +0200 @@ -133,6 +133,9 @@ my $self = shift; # Filter out empty paramters my @query = grep { /\S+/ } @_; + + # Fix for new whois query defaults (2 May 2005) ZS. + unshift(@query, '-B', '-G'); # Add keep-alive flag if necessary if($self->{'KeepAlive'}) { debian/patches/06_asused_pod.patch0000644000000000000000000000204512271023520014264 0ustar From: Frank Lichtenheld Subject: Fix POD errors Last-Update: 2014-01-25 Reviewed-By: Sebastien Badia --- asused-3.72.orig/asused.pod 2003-10-07 18:07:16.000000000 +0200 +++ asused-3.72/asused.pod 2012-12-24 02:21:48.312423702 +0100 @@ -43,6 +43,8 @@ =item B<--status> show assignments under allocations with wrong status attribute other than ASSIGNED PA or PI. B for missing status. size and net name. Summary of assignments. No of Assignment(s) , No Assignments with status ASSIGNED PA or ASSIGNED PI, No Assignments with status B,No Assignments, No Assignments with Missing status attribute,No Assignments with other values status attribute, none of other . Warnings on assignments. +=back + =head1 OTHER OPTIONS =over 4 @@ -62,6 +64,9 @@ =item B<--version> print version of asused. +=back + +=back =head1 DIAGNOSTICS @@ -91,6 +96,7 @@ =item B one of the dates of inetnum in the changed attribute is invalid. +=back =head1 REQUIRES debian/patches/series0000644000000000000000000000022012270754347012037 0ustar 01_whois_new_query_fix.patch 02_typo_fix.patch 03_interpreter_fix.patch 04_drop_network_tests.patch 05_fix_priv_range.patch 06_asused_pod.patch debian/patches/02_typo_fix.patch0000644000000000000000000001140312271024467014004 0ustar From: Jan Wagner Subject: fix typo. and whitespaces Last-Update: 2014-01-25 Reviewed-By: Sebastien Badia --- a/asused.PL +++ b/asused.PL @@ -1135,7 +1135,7 @@ sub pStatus { # print warnings if any unless($opt{'summary'}) { if($sWarning) { - printf "\nPay attension on this WARNINGS:\n"; + printf "\nPay attention on this WARNINGS:\n"; printf $sWarning; } } --- a/NCC/CountryCode/CountryCode.pm +++ b/NCC/CountryCode/CountryCode.pm @@ -246,12 +246,12 @@ country names. The isCC() method verifies, that passed country code is a legal one and returns it in upper case. Otherwise it returns empty string. -The getCCs() method returns the reference to the internal hash, that containes +The getCCs() method returns the reference to the internal hash, that contains all the country codes with corresponding them country names. =head1 BUGS -In addition to the country codes defined by ISO3166 standart this module also +In addition to the country codes defined by ISO3166 standard this module also introduce 'UK' as a synonim for 'GB' and 'EU' as additional 'virtual' name for the Europe itself. --- a/Whois/ArinWhois/ArinWhois.pm +++ b/Whois/ArinWhois/ArinWhois.pm @@ -108,7 +108,7 @@ sub SplitResult { unless($result); foreach my $error (keys(%WHOIS_ERROR)) { - # Respond containes one of the errors codes + # Respond contains one of the errors codes # from Whois server return $self->error($error, $ERROR{$error}) if($result =~ m/$WHOIS_ERROR{$error}/m); --- a/Whois/RipeWhois/FormatMode/FormatMode.pm +++ b/Whois/RipeWhois/FormatMode/FormatMode.pm @@ -33,7 +33,7 @@ # External Programs : None # Problems : None known # To Do : None -# Comments : This module provided only to ease the transition to the +# Comments : This module provided only to ease the transition to the # RIPE Whois v3 # $Id: FormatMode.pm,v 1.5 2001/10/10 15:23:31 timur Exp $ #------------------------------------------------------------------------------ @@ -44,7 +44,7 @@ use vars qw($VERSION @ISA); require Exporter; -@ISA = qw(Exporter); +@ISA = qw(Exporter); $VERSION = '1.03'; @@ -72,7 +72,7 @@ my %shortattr = ( '*wd' => 'withdrawn', '*zc' => 'zone-c', ); -# Hash of hashes, which containes the order of the fields for the +# Hash of hashes, which contains the order of the fields for the # most common RIPE Whois objects. my %class = ( 'aut-num' => { @@ -127,7 +127,7 @@ my %class = ( 'changed' => 10, 'source' => 11 }, - + 'role' => { 'role' => 1, 'address' => 2, @@ -172,10 +172,10 @@ sub short2long { sub sort_order { my($class) = @_; - + # Return nothing if nothing was passed return unless($class); - # Return the list of weights, corresponding to the + # Return the list of weights, corresponding to the # class, or nothing, if we don't know about it return $class{$class}; } @@ -190,14 +190,14 @@ sub sort_order { sub sort_by_field { my($class, $hash) = @_; - + # Get the order of the fields for the class my $type = sort_order($class); # Get the list of the fields my @keys = keys(%{$hash}); # Return immedeately, if there is no defined sorting order. return @keys unless($type && (ref($type) eq 'HASH')); - + # Sort the list of key fields according to the predefined # order. my @list = sort { @@ -210,7 +210,7 @@ sub sort_by_field { my $t_beta = defined($type->{$beta}) ? $type->{$beta} : 1000; # Compare two weights $t_alpha <=> $t_beta; - + } @keys; # Return the result return @list; @@ -233,10 +233,10 @@ sub Filter { $obj =~ s/\n[ \t\+]\s*/ /mg; # Zap spaces and tabs $obj =~ s/[ \t]+/ /mg; - + # Return, if sorting is not required return $obj unless($need_sorting); - + # We need to sort fields as well my %obj = (); my @obj = (); @@ -256,8 +256,8 @@ sub Filter { } # Return unsorted object, if we don't know the sorting order return $obj unless(sort_order($key_field)); - - # Sort the fields acording to the RIPE DB v2 + + # Sort the fields acording to the RIPE DB v2 foreach my $field (sort_by_field($key_field, \%obj)) { foreach my $line (@{$obj{$field}}) { push(@obj, sprintf("%-14s%s", "$field:", $line)); --- a/Whois/RipeWhois/RipeWhois.pm +++ b/Whois/RipeWhois/RipeWhois.pm @@ -167,7 +167,7 @@ sub SplitResult { # Did we get any errors from the server foreach my $error (keys(%WHOIS_ERROR)) { - # Respond containes one of the errors codes + # Respond contains one of the errors codes # from Whois server return $self->error($error, $ERROR{$error}) if($result =~ m/$WHOIS_ERROR{$error}/m); debian/patches/05_fix_priv_range.patch0000644000000000000000000000125312270754347015160 0ustar From: Jan Krajdl Subject: Fix detection of 10/8. diff -urNad asused-3.72~/ipv4pack/ipv4pack.pm asused-3.72/ipv4pack/ipv4pack.pm --- asused-3.72~/ipv4pack/ipv4pack.pm 2001-10-10 17:23:32.000000000 +0200 +++ asused-3.72/ipv4pack/ipv4pack.pm 2009-11-23 20:18:44.000000000 +0100 @@ -271,7 +271,7 @@ # check for a valid range: no CLASS-D and upper (223-255), no 127/8 # and no private networks allowed (10/8) - return ("", $O_PRIVATERANGE) if ($1 =~ /^10|127$/); + return ("", $O_PRIVATERANGE) if ($1 eq "10" || $1 eq "127"); return ("", $O_RESERVEDCLASS) if ($1 > 223); if ($3 eq '/') { # range is in format quad/prefix debian/patches/04_drop_network_tests.patch0000644000000000000000000000547712270754347016130 0ustar From: Jan Wagner Subject: disable tests requiring network access diff -Nur asused-3.72.orig/Net/RIPEWhois/in/test.pl asused-3.72/Net/RIPEWhois/in/test.pl --- asused-3.72.orig/Net/RIPEWhois/in/test.pl 2001-04-18 15:56:09.000000000 +0000 +++ asused-3.72/Net/RIPEWhois/in/test.pl 2008-05-08 12:49:00.000000000 +0000 @@ -20,15 +20,3 @@ # (correspondingly "not ok 13") depending on the success of chunk 13 # of the test code): -my $whois = new RipeWhois('FormatMode' => 1); - -my $assign = new Net::RIPEWhois::in(Whois => $whois); - -my @assign = $assign->getIn('212.22/16', '-r -M -T in'); - -foreach my $inetnum (sort(@assign)) { - print "$inetnum:\n"; - print "\tna: ", $assign->{$inetnum}{'na'}, "\n"; - print "\tac: ", join('; ', @{$assign->{$inetnum}{'ac'}}), "\n"; - print "\ttc: ", join('; ', @{$assign->{$inetnum}{'tc'}}), "\n"; -} \ No newline at end of file diff -Nur asused-3.72.orig/Whois/ArinWhois/test.pl asused-3.72/Whois/ArinWhois/test.pl --- asused-3.72.orig/Whois/ArinWhois/test.pl 2001-04-20 14:29:14.000000000 +0000 +++ asused-3.72/Whois/ArinWhois/test.pl 2008-05-08 12:50:01.000000000 +0000 @@ -28,17 +28,6 @@ exit; } -my @result = $whois->QueryObjects("BT235-ARIN"); - -unless(@result) { - printf("Query error: %s\n", $whois->GetErrorString()); - print "not ok 3\n"; - exit; -} -else { - print "ok 3\n"; -} - print "-" x 30, "\n"; foreach (@result) { diff -Nur asused-3.72.orig/Whois/RipeWhois/test.pl asused-3.72/Whois/RipeWhois/test.pl --- asused-3.72.orig/Whois/RipeWhois/test.pl 2001-04-18 17:01:20.000000000 +0000 +++ asused-3.72/Whois/RipeWhois/test.pl 2008-05-08 12:50:26.000000000 +0000 @@ -36,25 +36,3 @@ else { print "ok 3\n"; } - -my $test = 4; - -foreach my $object (qw(BAT-RIPE TIB-RIPE CREW-RIPE)) { - - my @result = $whois->QueryObjects($object); - - unless(@result) { - printf("Query error: %s\n", $whois->GetErrorString()); - print "not ok $test\n"; - exit; - } - else { - print "ok $test\n"; - print "-" x 30, "\n"; - foreach (@result) { - print "$_\n"; - print "-" x 30, "\n"; - } - } - $test++; -} diff -Nur asused-3.72.orig/Whois/test.pl asused-3.72/Whois/test.pl --- asused-3.72.orig/Whois/test.pl 2001-08-28 14:04:34.000000000 +0000 +++ asused-3.72/Whois/test.pl 2008-05-08 12:51:02.000000000 +0000 @@ -46,32 +46,3 @@ else { print "ok 5\n"; } - -my $test = 6; - -foreach my $object (qw(BAT-RIPE TIB-RIPE)) { - if($whois->Query($object)) { - printf("Query error: %s\n", $whois->GetError()); - print "not ok $test\n"; - exit; - } - else { - print "ok $test\n"; - } - - $test++; - - my $result = $whois->GetResult(); - - if($result) { - print "ok $test\n"; - print "-" x 30, "\n"; - print $result; - print "-" x 30, "\n"; - } - else { - print "not ok $test\n"; - exit; - } - $test++; -} debian/patches/03_interpreter_fix.patch0000644000000000000000000000053512270754347015367 0ustar From: Jan Wagner Subject: fix interpreter --- asused-3.72.orig/Reg/Asused/Asused.pm 2006-11-05 21:34:43.000000000 +0100 +++ asused-3.72/Reg/Asused/Asused.pm 2006-11-05 21:37:45.000000000 +0100 @@ -1,5 +1,3 @@ -#!/usr/local/bin/perl5.00502 -# # Copyright (c) 1999, 2000 RIPE NCC # # All Rights Reserved debian/rules0000755000000000000000000000021012270754347010252 0ustar #!/usr/bin/make -f %: dh $@ override_dh_auto_install: dh_auto_install # remove broken man rm -rf debian/asused/usr/share/man/man1 debian/control0000644000000000000000000000163312271165465010605 0ustar Source: asused Section: utils Priority: optional Maintainer: Sebastien Badia Build-Depends: debhelper (>= 9~) Build-Depends-Indep: perl Homepage: ftp://ftp.ripe.net/tools/OLD/ Vcs-Git: git://anonscm.debian.org/collab-maint/asused.git Vcs-Browser: http://anonscm.debian.org/gitweb/?p=collab-maint/asused.git Standards-Version: 3.9.5 Package: asused Architecture: all Depends: ${perl:Depends}, ${misc:Depends} Description: This is a tool used for checking various aspects of IP allocations and assignments as stored in the RIPE database. . Asused is a tool to summaries address space is registered in the RIPE database. For each allocated inetnum object a summary of used and free address space is printed. A grant total summary for all prefixes is also provided. If there are no errors in locating allocations and assignments under an allocation. In the total % are calculated on total allocations. debian/source/0000755000000000000000000000000012270754347010501 5ustar debian/source/format0000644000000000000000000000001412270754347011707 0ustar 3.0 (quilt) debian/changelog0000644000000000000000000000626512272027247011056 0ustar asused (3.72-11) unstable; urgency=low * New maintainer (closes: #612901) * Bump Standards-Version to 3.9.5 (no changes) * Migrate to collab-maint (GIT) * Update homepage URL * Fixes all lintian warning/errors * Migrated debian/copyright to DEP-3 (wiki-copyright-format-uri) * Updated debian/control (extended-description-is-probably-too-short) * Add description debian/patches/06 (quilt-patch-missing-description) * Fix manpages whitespace and typo (spelling-error-in-manpage) * Update subject of debian/patches/02_typo_fix.patch -- Sebastien Badia Tue, 28 Jan 2014 23:26:42 +0100 asused (3.72-10) unstable; urgency=low * QA Upload [ Jari Aalto ] * Remove deprecated dpatch and upgrade to packaging format "3.0 quilt". Closes: #664408 * Update to Standards-Version to 3.9.3 and debhelper to 9. [ Frank Lichtenheld ] * Change maintainer to QA Group * Convert to dh * Fix POD errors in asused.pod -- Frank Lichtenheld Mon, 24 Dec 2012 02:13:39 +0100 asused (3.72-9) unstable; urgency=low * Fix broken Vcs information -- Jan Wagner Wed, 10 Mar 2010 08:39:20 +0100 asused (3.72-8) unstable; urgency=low * Updating standards version to 3.8.4 - Add README.source * Removed "our" out of the description * Add "Copyright" to all copyrights in debian/copyright * Change Vcs information * Fix detection of 10/8 with adding 05_fix_priv_range.dpatch, thanks Jan Krajdl (Closes: #557666) * Add 1.0 to debian/source/format * Add ${misc:Depends} to dependencies -- Jan Wagner Tue, 09 Mar 2010 23:54:19 +0100 asused (3.72-7) unstable; urgency=low * Updating standards version to 3.8.0, no changes needed * implement machine-interpretable copyright file * move perl to Build-Depends-Indep -- Jan Wagner Sun, 20 Jul 2008 12:38:03 +0200 asused (3.72-6) unstable; urgency=low * add 04_drop_network_tests.dpatch to remove tests requiring network access (Closes: #479916) -- Jan Wagner Thu, 08 May 2008 12:39:09 +0000 asused (3.72-5) unstable; urgency=low * fixed minor typo in cwhois.3 * bump copyright of packaging to 2008 -- Jan Wagner Mon, 14 Apr 2008 22:32:06 +0200 asused (3.72-4) unstable; urgency=low * added Vcs- fields, moved Homepage into source header's field * bump standards version to 3.7.3 * use binary-indep instead of binary-arch * fix FTBFS with Perl 5.10 by unconditional rmdir of /usr/lib/perl5 in debian/rules, thanks Niko Tyni for reporting and providing a solution (Closes: #468198) -- Jan Wagner Wed, 27 Feb 2008 18:43:31 +0100 asused (3.72-3) unstable; urgency=low * install cwhois manpage proper * fix clean target in rules -- Jan Wagner Thu, 08 Nov 2007 09:05:55 +0100 asused (3.72-2) unstable; urgency=low * added manpage for cwhois * update README.Debian to hint about 32 Bit ASN -- Jan Wagner Sun, 5 Nov 2006 23:50:15 +0100 asused (3.72-1) unstable; urgency=low * Initial release (Closes: #397236). -- Jan Wagner Sun, 5 Nov 2006 14:03:07 +0100 debian/manpages0000644000000000000000000000002012270754347010707 0ustar debian/cwhois.3 debian/README.Debian0000644000000000000000000000276012270754347011247 0ustar asused for Debian ----------------- RIPE NCC announced the introdution of 32 Bit ASN, this version is not prepared to support this, since the 'support [...] is discontinued'. So if you are own an 32 Bit ASN, this software will not work for you! Feel free to provide patches to fix this issue. -- Jan Wagner Thu, 25 Jan 2007 07:10:37 +0100 Statement by RIPE NCC: "Dear 'asused' users! Please, note, that support of this program is discontinued and that RIPE NCC is coming with the new improved program as a replacement." Unfortunately the improved the replacement can't be found yet. So hopefully we live with what we have yet. Before you start, you need to setup a global config /etc/asused.conf or a .asusedrc in your home. An example can be found in /usr/share/doc/asused/examples/ Registry Information File ------------------------- To use asused, you need to fill a config file with your registry information. You can put it into the asused.conf file in the current working directory, or into .asusedrc in your home directory. Alternatively, you can specify an arbitrary file location on the asused command line with the --config switch. The config file should contain: REGID = your registry ID, as it was assigned by RIPE NCC ALLOC = a set of strings, each of them should have one allocation string in a prefixed notation. There is a file called asused.conf in this distribution containing example data. -- Jan Wagner Sun, 5 Nov 2006 14:03:07 +0100 debian/copyright0000644000000000000000000000441112271025640011120 0ustar Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/ Upstream-Name: asused Upstream-Contact: RIPE Source: ftp://ftp.ripe.net/tools/OLD/ Files: * Copyright: 1998-2003 software group RIPE NCC 1998-2003 Monica Cortes 1998-2003 Antony Antony 1998-2003 Timur Bakeyev License: MIT Files: debian/* Copyright: 2006, 2008 Jan Wagner 2014 Sebastien Badia License: GPL-2+ License: MIT Permission to use, copy, modify, and distribute this software and its documentation for any purpose and without fee is hereby granted, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation, and that the name of the author not be used in advertising or publicity pertaining to distribution of the software without specific, written prior permission. . THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS; IN NO EVENT SHALL AUTHOR BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. License: GPL-2+ This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. . 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. See the GNU General Public License for more details. . 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 St, Fifth Floor, Boston, MA 02110-1301 USA . On Debian systems, the complete text of the GNU General Public License can be found in /usr/share/common-licenses/GPL-2 file. debian/compat0000644000000000000000000000000212270754347010377 0ustar 9 debian/watch0000644000000000000000000000010012270754347010221 0ustar version=3 ftp://ftp.ripe.net/tools/OLD/asused-([\d.]+)\.tar\.gz