From: Colin Watson <cjwatson@chiark.greenend.org.uk>
Date: Mon, 19 Aug 2002 08:30:41 +0000 (+0000)
Subject: Add a --verbose option.
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~cjwatson/git?p=bin.git;a=commitdiff_plain;h=e427ec79eaba80225c1fdca2021ebd29c4c779ed;ds=sidebyside

Add a --verbose option.
---

diff --git a/verify-status.pl b/verify-status.pl
index 0b98045..e3faa0c 100755
--- a/verify-status.pl
+++ b/verify-status.pl
@@ -2,6 +2,17 @@
 use diagnostics;
 use strict;
 
+my $verbose = 0;
+
+while (@ARGV) {
+	my $arg = shift;
+	if ($arg eq '-v' or $arg eq '--verbose') {
+		$verbose = 1;
+	} else {
+		warn "Unrecognized option: $arg\n";
+	}
+}
+
 local (*AVAILABLE, *STATUS);
 open AVAILABLE, '</var/lib/dpkg/available' or
 	die "Can't open available file: $!";
@@ -41,10 +52,14 @@ close AVAILABLE;
 
 foreach my $package (sort keys %available)
 {
-	if (defined $status{$package})
+	my ($av, $st) = ($available{$package}, $status{$package});
+	if (defined $st)
 	{
-		print "!!! " if $available{$package} ne $status{$package};
-		print "$package $available{$package} $status{$package}\n";
+		if ($av ne $st) {
+			print "!!! $package $av $st\n";
+		} elsif ($verbose) {
+			print "$package $av $st\n";
+		}
 	}
 }