chiark / gitweb /
Add a --verbose option.
authorColin Watson <cjwatson@chiark.greenend.org.uk>
Mon, 19 Aug 2002 08:30:41 +0000 (08:30 +0000)
committerColin Watson <cjwatson@chiark.greenend.org.uk>
Mon, 19 Aug 2002 08:30:41 +0000 (08:30 +0000)
verify-status.pl

index 0b98045..e3faa0c 100755 (executable)
@@ -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";
+               }
        }
 }