chiark
/
gitweb
/
~cjwatson
/
bin.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add a --verbose option.
[bin.git]
/
verify-status.pl
diff --git
a/verify-status.pl
b/verify-status.pl
index 0b980456901b1f35189382e1f6f159221264314d..e3faa0cdaedec01d108dc6feee919e88a72a0452 100755
(executable)
--- a/
verify-status.pl
+++ b/
verify-status.pl
@@
-2,6
+2,17
@@
use diagnostics;
use strict;
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: $!";
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)
{
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";
+ }
}
}
}
}