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

diff --git a/verify-status.pl b/verify-status.pl
old mode 100644
new mode 100755
index 0b98045..e3faa0c
--- 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";
+		}
 	}
 }