X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~cjwatson/git?a=blobdiff_plain;ds=sidebyside;f=verify-status.pl;h=e3faa0cdaedec01d108dc6feee919e88a72a0452;hb=e394b7307a969e545a0a6a1d8ee1890a4a253432;hp=0b980456901b1f35189382e1f6f159221264314d;hpb=048aac6382a1cd35c048734907a51e3be5727e42;p=bin.git

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";
+		}
 	}
 }