--- dns-browse-1.9.orig/Makefile.in +++ dns-browse-1.9/Makefile.in @@ -4,6 +4,7 @@ # $Id: Makefile.in,v 1.5 1997/12/04 20:10:58 johnh Exp $ # +DESTDIR= TOSHAR=README dns_browse dns_tree \ Makefile.in configure configure.in install-sh release PACKAGE=dns_browse @@ -17,10 +18,8 @@ PERL = @PERL@ install: - { echo "#!$(WISH) -f"; cat dns_browse; } >t - $(INSTALL) -m 755 t $(bindir)/dns_browse - { echo "#!$(PERL) -w"; cat dns_tree; } >t - $(INSTALL) -m 755 t $(bindir)/dns_tree + $(INSTALL) -m 755 dns_browse $(DESTDIR)$(bindir)/ + $(INSTALL) -m 755 dns_tree $(DESTDIR)$(bindir)/ .tar_files: Makefile release for i in $(TOSHAR); \ @@ -38,3 +37,8 @@ tar cvf - `cat .tar_files` |gzip >$(PACKAGE)-`cat release`.tar.gz rm ./$(PACKAGE)-`cat release` +clean: + -rm *~ config.cache config.status config.log t + +distclean: clean + -rm Makefile --- dns-browse-1.9.orig/debian/changelog +++ dns-browse-1.9/debian/changelog @@ -0,0 +1,165 @@ +dns-browse (1.9-8.1) unstable; urgency=medium + + * Non maintainer upload by the Reproducible Builds team. + * No source change upload to rebuild on buildd with .buildinfo files. + + -- Holger Levsen Sun, 03 Jan 2021 16:40:53 +0100 + +dns-browse (1.9-8) unstable; urgency=low + + * Fix FTBFS with upcoming Tcl/Tk changes (Closes: #724979) + Replaced build dependency on tk8.5 by tk to fix FTBFS after Tcl/Tk + + packages droped alternatives for /usr/bin/wish. + (Thanks to Sergei Golovan for providing a patch for this) + * debian/control: + - Update maintainer name using proper UTF-8 encoding + - Remove useless ${perl:Depends} + * debian/rules: + - Replace dh_clean -k with dh_prep + * dns_tree: Meaningful error if the program fails because it cannot + do a zone transfer + * dns_browse: Adjust properly the size font (it looked huge previously) + + -- Javier Fernández-Sanguino Peña Thu, 31 Oct 2013 02:40:32 +0100 + +dns-browse (1.9-7) unstable; urgency=low + + * Add docbook-to-man to the Build-Dependencies (Closes: #618248) + + -- Javier Fernandez-Sanguino Pen~a Mon, 14 Mar 2011 00:08:31 +0100 + +dns-browse (1.9-6) unstable; urgency=low + + * Move Homepage: to a debian/control header (Closes: #615288) + * Update dependency on wish, use 'tk8.5 | wish' instead of 'tk8.4 | wish' + * dns_browse: + - Add '-h' command line switch to print usage + - Catch the event when the window cannot be generated (when not running + out of an X display) + * dns_browse: + - '-h' now prints the usage just like '-?' does + * Add manpages for dns_browse and dns_tree (Closes: #196396). + * debian/copyright: convert to UTF-8 + * Remove debian/README.Debian as the bug mentioned has been fixed years + ago. + + -- Javier Fernandez-Sanguino Pen~a Sun, 27 Feb 2011 10:44:57 +0100 + +dns-browse (1.9-5) unstable; urgency=low + + * Depend on tk8.4 | wish, not tcl (Closes: #413657) + * Use debhelper compatibility version 5 + * Make the Makefile.in just dump install the scripts not add the perl/wish + header to the scripts. Fix the scripts so that they have a proper header + * Upgrade to latest policy (no changes needed) + + -- Javier Fernandez-Sanguino Pen~a Mon, 27 Aug 2007 19:57:26 +0200 + +dns-browse (1.9-4) unstable; urgency=low + + * Removed obsolete tk8.0 version from Depends: and added tcl8.4 + instead as requeted by Chris Waters (tcl/tk maintainer). + (Closes: #262237) + + -- Javier Fernandez-Sanguino Pen~a Fri, 30 Jul 2004 14:43:27 +0200 + +dns-browse (1.9-3) unstable; urgency=low + + * Added notice in README.Debian, this package might not work properly + with latest bind's 9 dnsutils (version 9.2 at the time of writing). + If this bug is not fixed I might need to ask the ftp masters to + remove the package from the archive. + * Modified dns_tree to use the multilines options when asking + for SOA information. This is necessary since dig version 9.2 (unlike 9.1) + does not use multilines unless explicitly requested to do so. + (Closes: #161441) + * Added debug output to dns_tree in order to check what it is really + executing (more information than verbose) + * Removed calls to old check_root and check_dir and use debhelper + fully now + * Added an install target in debian/rules + * Fixed lintian errors: + - debian/copyright redirects to /usr/share/common-licenses + - added tk8.0 dependancies (it works with tk4.0 but since + it's not in the archive anymore I'm taking the lowest + version which provides wish in unstable) as well as + virtual packaging + - removed '.' from the Description: line + + -- Javier Fernandez-Sanguino Pen~a Fri, 6 Jun 2003 20:37:19 +0200 + +dns-browse (1.9-2) unstable; urgency=low + + * Added Build-Depends (Closes: #195295) + * Moved from non-US to net section + * Added Homepage to debian/control + * Removed call to dh_undocumented + + -- Javier Fernandez-Sanguino Pen~a Sun, 1 Jun 2003 15:50:59 +0200 + +dns-browse (1.9-1) unstable; urgency=low + + * New upstream the release (includes the bug fixed in previous one) + * Added a check for the $HOME environment just in case + + -- Javier Fernandez-Sanguino Pen~a Tue, 14 May 2002 09:47:28 +0200 + +dns-browse (1.8-4) unstable; urgency=high + + * Fixed dns_tree so that it both uses the user home directory. + (Closes: #146591) + * Changed section: non-US to section: non-us. + + -- Javier Fernandez-Sanguino Pen~a Mon, 13 May 2002 10:27:49 +0200 + +dns-browse (1.8-3) unstable; urgency=high + + * Moved to non-US since dig is now only available there (grrr) (Closes #123638) + + -- Javier Fernandez-Sanguino Pen~a Thu, 13 Dec 2001 11:29:29 +0100 + +dns-browse (1.8-2) unstable; urgency=low + + * Added Build-Depends + * Now depends on ${perl} as per perl policy (Closes: #104590) + + -- Javier Fernandez-Sanguino Pen~a Tue, 11 Sep 2001 23:46:38 +0200 + +dns-browse (1.8-1) unstable; urgency=low + + * New upstream release (fixes bug sent by Chris L. Mason) + * Now depends on dnsutils, and depends on perl5 for some time (Closes: #41499) + + -- Javier Fernandez-Sanguino Pen~a Sun, 4 Mar 2001 11:40:59 +0100 + +dns-browse (1.7-1) unstable; urgency=low + + * New upstream release (Closes: #78560) + + -- Javier Fernandez-Sanguino Pen~a Sun, 3 Dec 2000 14:50:18 +0100 + +dns-browse (1.6-4) unstable; urgency=low + + * Now REALLY depends on perl5 (fixes bug reopened) + + -- Javier Fernandez-Sanguino Pen~a Tue, 27 Jul 1999 13:32:26 +0200 + +dns-browse (1.6-3) unstable; urgency=low + + * Now depends on perl5 (fixes bug #41499) + + -- Javier Fernandez-Sanguino Pen~a Tue, 20 Jul 1999 21:44:06 +0200 + +dns-browse (1.6-2) unstable; urgency=low + + * Change control description and dependancies (fixes, Bug#28197) + * Moved compilation to binary-indep and set architecture to all (fixes #28197) + + -- Javier Fernandez-Sanguino Pen~a Tue, 20 Oct 1998 10:53:51 +0200 + +dns-browse (1.6-1) unstable; urgency=low + + * Initial Release. + + -- Javier Fernandez-Sanguino Pen~a Tue, 8 Sep 1998 03:00:53 +0200 + --- dns-browse-1.9.orig/debian/compat +++ dns-browse-1.9/debian/compat @@ -0,0 +1 @@ +5 --- dns-browse-1.9.orig/debian/control +++ dns-browse-1.9/debian/control @@ -0,0 +1,22 @@ +Source: dns-browse +Section: net +Priority: extra +Maintainer: Javier Fernández-Sanguino Peña +Build-Depends: debhelper (>= 3.0.18), autoconf, tk, docbook-to-man +Standards-Version: 3.7.2 +Homepage: http://www.isi.edu/~johnh/SOFTWARE/DNS/ + +Package: dns-browse +Architecture: all +Depends: tk, dnsutils +Description: Front-ends to DNS search + This package provides two programs to make user lookups on DNS + servers: dns_tree and dns_browse. + . + dns_tree is a command-line-based front-end to dig. It replaces the + several dig invocations necessary to fetch a zone, and it formats the + output in a somewhat sensible hierarchical style (a tree). + . + dns_browse is a GUI front-end to dns_tree. It allows point-and-click + DNS browsing and makes it easy to expand/compress hierarchies in one + or more DNS zones. --- dns-browse-1.9.orig/debian/copyright +++ dns-browse-1.9/debian/copyright @@ -0,0 +1,18 @@ +This package was debianized by Javier Fernandez-Sanguino Peña +Tue, 8 Sep 1998 01:58:33 +0200 + + +It can be downloaded from +http://www.isi.edu/~johnh/SOFTWARE/DNS/ + +Copyright: + +dns_browse and dns_tree are Copyright (C) 1997 by John Heidemann. + +These programs are free software; you can redistribute them +and/or modify them under the terms of the GNU General Public License +as published by the Free Software Foundation; either version 2 of the +License, or any later version. + +You can find a copy of the GNU GPL license in your Debian system under +/usr/share/common-licenses/GPL. --- dns-browse-1.9.orig/debian/dirs +++ dns-browse-1.9/debian/dirs @@ -0,0 +1 @@ +usr/bin --- dns-browse-1.9.orig/debian/dns_browse.sgml +++ dns-browse-1.9/debian/dns_browse.sgml @@ -0,0 +1,159 @@ + manpage.1'. You may view + the manual page with: `docbook-to-man manpage.sgml | nroff -man | + less'. A typical entry in a Makefile or Makefile.am is: + +manpage.1: manpage.sgml + docbook-to-man $< > $@ + + + The docbook-to-man binary is found in the docbook-to-man package. + Please remember that if you create the nroff version in one of the + debian/rules file targets (such as build), you will need to include + docbook-to-man in your Build-Depends control field. + + --> + + + Javier"> + Fernandez-Sanguino"> + + February 27th, 2011"> + + 1"> + jfs@debian.org"> + + dns_browse"> + + + Debian"> + GNU"> + GPL"> +]> + + + +
+ &dhemail; +
+ + &dhfirstname; + &dhsurname; + + + 2011 + &dhusername; + + &dhdate; + + + &dhucpackage; + + &dhsection; + + + &dhpackage; + + GUI front-end to dns_tree + + + + &dhpackage; + + + + + + DNS_domain + + + + DESCRIPTION + + This manual page documents briefly the + &dhpackage; command. + + This manual page was written for the &debian; distribution + because the original program does not have a manual page. + + + &dhpackage; is a program that works as a GUI + front-end to dns_tree. It allows point-and-click DNS + browsing and makes it easy to expand/compress hierarchies in one or more + DNS zones. + + + + OPTIONS + + A summary of options is included below. + + + + + + + Show only records of TYPE. This + argument can be repeated to indicate multiple types. Use the + "all" type to print all the known types. + + + + + + + + Show summary of options. + + + + + + + Match only web hosts. Only those hosts which have 'www' in their name will be shown. + + + + + + SEE ALSO + + dig (1), dns_tree (1). + + + + AUTHOR + + This manual page was written by &dhusername; &dhemail; for + the &debian; system (and may be used by others). Permission is + granted to copy, distribute and/or modify this document under + the terms of the &gnu; General Public License, Version 2 any + later version published by the Free Software Foundation. + + + On Debian systems, the complete text of the GNU General Public + License can be found in /usr/share/common-licenses/GPL. + + + + + + --- dns-browse-1.9.orig/debian/dns_tree.sgml +++ dns-browse-1.9/debian/dns_tree.sgml @@ -0,0 +1,203 @@ + manpage.1'. You may view + the manual page with: `docbook-to-man manpage.sgml | nroff -man | + less'. A typical entry in a Makefile or Makefile.am is: + +manpage.1: manpage.sgml + docbook-to-man $< > $@ + + + The docbook-to-man binary is found in the docbook-to-man package. + Please remember that if you create the nroff version in one of the + debian/rules file targets (such as build), you will need to include + docbook-to-man in your Build-Depends control field. + + --> + + + Javier"> + Fernandez-Sanguino"> + + February 27th, 2011"> + + 1"> + jfs@debian.org"> + + dns_browse"> + + + Debian"> + GNU"> + GPL"> +]> + + + +
+ &dhemail; +
+ + &dhfirstname; + &dhsurname; + + + 2011 + &dhusername; + + &dhdate; + + + &dhucpackage; + + &dhsection; + + + &dhpackage; + + command-line frontend to dig + + + + &dhpackage; + + + + + + + + + + + + DNS_domain + + + + DESCRIPTION + + This manual page documents briefly the + &dhpackage; command. + + This manual page was written for the &debian; distribution + because the original program does not have a manual page. + + + &dhpackage; is a program that works as a front-end + to dig. Given a specific domain + &dhpackage; will make several dig + invocations to fetch a zone and it will format the output in in a somewhat + sensible hierarchical style (a tree). + + + Information extracted from the DNS relies on being possible + to fetch a zone through a zone transfer. If the DNS servers for the + requested domain do not allow file transfers &dhpackage; + will not be able to obtain information from the zone. + + All data obtain is cached in ~/.DNS_BROWSE with an approximation of + the usual DNS caching rules. Remove all files in that directory to + prematurely flush the cache. + + + + + + OPTIONS + + A summary of options is included below. + + + + + + + Show only records of TYPE. This + argument can be repeated to indicate multiple types. Use the + "all" type to print all the known types. + + + + + + + + Show only records in which the first component matches the + PERL regexpt MATCH. + + + + + + + Show summary of options. + + + + + + + Enable verbose mode. All DNS requests are printed in the + standard error. + + + + + + + Enable debug output. Presents internal information of the + program + + + + + + + Override warnings (force). + + + + + + + SEE ALSO + + dig (1), dns_browse (1), perlrequick (1). + + + + AUTHOR + + This manual page was written by &dhusername; &dhemail; for + the &debian; system (and may be used by others). Permission is + granted to copy, distribute and/or modify this document under + the terms of the &gnu; General Public License, Version 2 any + later version published by the Free Software Foundation. + + + On Debian systems, the complete text of the GNU General Public + License can be found in /usr/share/common-licenses/GPL. + + + + + + --- dns-browse-1.9.orig/debian/rules +++ dns-browse-1.9/debian/rules @@ -0,0 +1,55 @@ +#!/usr/bin/make -f + +package=dns-browse + +build: + dh_testdir + ./configure --prefix /usr + docbook-to-man debian/dns_browse.sgml >debian/dns_browse.1 + docbook-to-man debian/dns_tree.sgml >debian/dns_tree.1 + touch build + +clean: + dh_testdir + dh_testroot + -rm -f build + if [ -f Makefile ];then make distclean; fi + -rm -f debian/dns_browse.1 debian/dns_tree.1 + dh_clean + +install: build + dh_testdir + dh_testroot + dh_prep + dh_installdirs + make install DESTDIR=debian/dns-browse + +binary-indep: install + dh_testdir + dh_testroot +# dh_perl + dh_installchangelogs + dh_installdocs README* + dh_installman debian/dns_browse.1 debian/dns_tree.1 + dh_compress + dh_fixperms + dh_installdeb + dh_gencontrol + dh_md5sums + dh_builddeb + +binary-arch: + dh_testdir + dh_testroot +# There are no architecture dependent files in this package + +# Below here is fairly generic really + +binary: binary-indep binary-arch + +source diff: + @echo >&2 'source and diff are obsolete - use dpkg-source -b'; false + + +.PHONY: binary binary-arch binary-indep clean checkroot + --- dns-browse-1.9.orig/dns_browse +++ dns-browse-1.9/dns_browse @@ -1,4 +1,4 @@ -#!/home/johnh/BIN/wish -f +#!/usr/bin/wish -f # # dns_browse @@ -20,7 +20,7 @@ # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. # -global dns_tree types +global dns_tree types set dns_tree "dns_tree" set prog "dns_browse" set maximal_types {A CNAME HINFO LOC MX NS PTR TXT} @@ -30,14 +30,14 @@ set www_hosts_only 0 proc usage {} { - puts {usage: gui [-t TYPE ...] starting_domain_name -options: + global prog dns_tree + puts stderr "usage: $prog \[-t TYPE ...\] starting_domain_name" + puts stderr {options: -t TYPE show only records of these TYPE (repeat for multiple types) (the ``all'' type does everything I know about) -w match only web hosts - -Requires dns_tree to be in the path. } + puts stderr "Requires $dns_tree to be in the path." exit 1 } @@ -97,12 +97,12 @@ -relief raised -bd 2 -yscrollcommand "$w.f.s set" \ -setgrid true -wrap word \ -width 60 -padx 4 -pady 4 \ - -font -*-Times-Medium-R-*-140-* + -font -*-Times-Medium-R-*-14-* set defFg [lindex [$wt configure -foreground] 4] set defBg [lindex [$wt configure -background] 4] - $wt tag configure italic -font -*-Times-Medium-I-Normal-*-140-* - $wt tag configure computer -font -*-Courier-Medium-R-Normal-*-120-* - $wt tag configure big -font -*-Times-Bold-R-Normal-*-180-* + $wt tag configure italic -font -*-Times-Medium-I-Normal-*-14-* + $wt tag configure computer -font -*-Courier-Medium-R-Normal-*-12-* + $wt tag configure big -font -*-Times-Bold-R-Normal-*-18-* $wt tag configure reverse -foreground $defBg -background $defFg pack $wt -side left -expand 1 -fill both @@ -583,7 +583,7 @@ -setgrid 1 -height 20 \ -width 60 \ -wrap none \ - -font {-*-Courier-Medium-R-*-140-*} + -font {-*-Courier-Medium-R-*-14-*} scrollbar $w.text.xscroll -command "$w.text.text xview" -orient horizontal scrollbar $w.text.yscroll -command "$w.text.text yview" pack $w.text.xscroll -side bottom -fill x @@ -601,16 +601,16 @@ $wt tag bind minus {if_on_target act_new_window %W [%W index {@%x,%y}] } # $wt tag bind DEBUG {set i [%W index {@%x,%y}]; puts "%W $i [%W tag names $i]"} - $wt tag configure expanding -font {-*-Courier-Bold-R-*-140-*} - $wt tag configure target -font {-*-Courier-Bold-R-*-140-*} -# $wt tag configure ns -font {-*-Courier-Bold-R-*-140-*} + $wt tag configure expanding -font {-*-Courier-Bold-R-*-14-*} + $wt tag configure target -font {-*-Courier-Bold-R-*-14-*} +# $wt tag configure ns -font {-*-Courier-Bold-R-*-14-*} return $wt } proc fill_text_line {w place line base_depth} { if {![regexp "^(\t*)(\[^\t\]+)\t+(\[^\t\]+)(.*)$" $line dummy new_tabs type value rest]} { - error "fill_text_line: $line" + error "fill_text_line: '$line' does not follow expected regular expression for records" } set new_depth [string length $new_tabs] set depth [expr $base_depth+$new_depth] @@ -718,7 +718,7 @@ set wid [incr window_next_id] set w [toplevel ".w$wid"] global prog - wm iconname $w "$prog: $dir" + wm iconname $w "$prog: $dir" wm title $w "$prog: $dir" # set options @@ -765,8 +765,6 @@ set insertion_next_id 0 set window_next_id 0 - wm withdraw . - # option processing global user_types maximal_types default_types www_hosts_only if {[llength $argv] < 1} { @@ -781,6 +779,7 @@ set optarg {} } switch -exact -- $optc { + -h { usage } -t { lappend user_types $optarg set argv [lrange $argv 1 end] @@ -798,6 +797,12 @@ set user_types $default_types } + if [catch { wm withdraw .} ] { + puts stderr "DISPLAY variable not set correctly or not running X" + exit 1 + } + + # argument processing foreach name $argv { build_browser $name {} --- dns-browse-1.9.orig/dns_tree +++ dns-browse-1.9/dns_tree @@ -1,4 +1,4 @@ -#!/home/johnh/BIN/perl5 -w +#!/usr/bin/perl -w # # dns_tree @@ -23,9 +23,9 @@ sub usage { print STDERR <{cmd}, $ah_ref->{name}, $ah_ref->{server}, $ah_ref->{cache_duration}); + my($cmd, $name, $server, $cache_duration, $options) = ($ah_ref->{cmd}, $ah_ref->{name}, $ah_ref->{server}, $ah_ref->{cache_duration}, $ah_ref->{options}); my(@msgs); # What should we keep from the dig output? @@ -229,10 +233,16 @@ }; }; if (-f $fn) { + print STDERR "Reading dig information fron standard input\n" if defined($opts{'debug'}); open(DIG, "< $fn") || croak "cached dig"; $from_cache = 1; } else { - open(DIG, "dig $cmd $name $server |") || croak "dig"; + print STDERR "Calling dig $options $cmd $name $server\n" if defined($opts{'debug'}); + if ( defined ($options) ) { + open(DIG, "dig $options $cmd $name $server |") || croak "dig"; + } else { + open(DIG, "dig $cmd $name $server |") || croak "dig"; + } open(CACHE, "> $fn") || croak "dig to cache $fn"; }; @@ -245,6 +255,7 @@ my($origin) = "."; my($lasta) = undef; while () { + print STDERR "Reading dig input: $_" if defined($opts{'debug'}); print CACHE $_ if (!$from_cache); if ($in_soa) { my($dummy, $n) = split(/\s+/); @@ -328,9 +339,9 @@ sub fetch_nses { my($name, $cache_duration) = @_; - my($res_ref, $msgs_ref) = dig({cmd => 'ns', name => $name, types => [qw(NS)], cache_duration => $cache_duration}); - die "fetch_nses: dig ns failed\n" if (!defined($res_ref)); + my($res_ref, $msgs_ref) = dig({cmd => 'ns', name => $name, types => [qw(NS)], cache_duration => $cache_duration, options => ''}); push_msgs($msgs_ref) if (defined($opts{'verbose'})); + die "fetch_nses: dig ns failed\n" if (!defined($res_ref)); my(@nses); foreach (@$res_ref) { @@ -342,8 +353,9 @@ sub fetch_level_from_ns { my($name, $ns, $types_aref, $cache_duration) = @_; - my($res_ref, $msgs_ref) = dig({cmd => 'axfr', name => $name, server => $ns, types => $types_aref}, cache_duration => $cache_duration); + my($res_ref, $msgs_ref) = dig({cmd => 'axfr', name => $name, server => $ns, types => $types_aref}, cache_duration => $cache_duration, options => ''); push_msgs($msgs_ref); + die "fetch_level_from_ns: dig axfr failed\n" if (!defined($res_ref)); return $res_ref; } @@ -361,15 +373,16 @@ sub fetch_soa { my($name) = @_; - my($soa_ref, $msgs_ref) = dig({cmd => 'soa', name => $name, types => [qw(SOA)]}); - die "fetch_soa: dig soa failed\n" if (!defined($soa_ref)); + my($soa_ref, $msgs_ref) = dig({cmd => 'soa', name => $name, types => [qw(SOA)], options => '+multiline' }); push_msgs($msgs_ref) if (defined($opts{'verbose'})); + die "fetch_soa: dig soa failed\n" if (!defined($soa_ref)); return $soa_ref->[0]; } sub fetch_level { my($name, $types_aref) = @_; my($soa_ref) = fetch_soa($name); + return undef if (!defined($soa_ref)); my($cache_duration) = parse_time_spec($soa_ref->[$SOA_MINIMUM]); my($nses_ref) = fetch_nses($name, $cache_duration); return undef if (!defined($nses_ref)); @@ -390,14 +403,15 @@ } sub main { - &usage if ($#ARGV >= 0 && $ARGV[0] eq '-?'); - &GetOptions(\%opts, qw(f m=s t=s@ v)); + &usage if ($#ARGV >= 0 && ( $ARGV[0] eq '-?' || $ARGV[0] eq '-h' )); + &GetOptions(\%opts, qw(f m=s t=s@ v d)); &usage if ($#ARGV != 0); $opts{'force'} = $opts{'f'}; $opts{'match'} = $opts{'m'}; $opts{'types'} = $opts{'t'}; $opts{'verbose'} = $opts{'v'}; + $opts{'debug'} = $opts{'d'}; my($types_aref) = $opts{'types'}; if (defined($types_aref) && $#$types_aref == 0 && $types_aref->[0] eq 'all') { # special case "all" @@ -425,8 +439,8 @@ } else { foreach (@messages) { print "\ti\t$_\n"; - }; - print "\te\terror looking up $name.\n"; + }; + print "\te\terror looking up $name\n"; exit 1; }; }