[debsums] 03/05: Add a flag to report the expected and actual checksums of files checked
Axel Beckert
abe at deuxchevaux.org
Sat Jan 21 19:31:09 UTC 2017
This is an automated email from the git hooks/post-receive script.
abe pushed a commit to branch master
in repository debsums.
commit 32eb6ec4cdad04985a4d6f34ca57905b55888659
Author: Morgan Marquis-Boire <mmb at google.com>
Date: Wed Feb 15 16:08:59 2012 -0800
Add a flag to report the expected and actual checksums of files checked
---
debsums | 12 ++++++++++--
1 file changed, 10 insertions(+), 2 deletions(-)
diff --git a/debsums b/debsums
index beed62c..82cb1ac 100755
--- a/debsums
+++ b/debsums
@@ -68,6 +68,7 @@ Options:
-l, --list-missing list packages which don't have an md5sums file
-s, --silent only report errors
-m, --md5sums=FILE read list of deb checksums from FILE
+ -x, --report-mismatches report errors and print the md5sums mismatch
-r, --root=DIR root directory to check (default /)
-d, --admindir=DIR dpkg admin directory (default /var/lib/dpkg)
-p, --deb-path=DIR[:DIR...] search path for debs
@@ -88,6 +89,7 @@ GetOptions (
'c|changed' => \my $changed,
'l|list-missing' => \my $missing,
's|silent' => \my $silent,
+ 'x|report-mismatches' => \my $report,
'm|md5sums=s' => \my $md5sums,
'r|root=s' => \my $root,
'd|admindir=s' => \my $admindir,
@@ -526,13 +528,13 @@ sub resolve_path {
if ($s eq $sum)
{
- printf "%-*s OK\n", $width, "$root/$path" unless $silent;
+ printf "%-*s OK\n", $width, "$root/$path" unless ($silent || $report);
return 0;
}
if (is_replaced $pack, $path, $s)
{
- printf "%-*s REPLACED\n", $width - 6, "$root/$path" unless $silent;
+ printf "%-*s REPLACED\n", $width - 6, "$root/$path" unless ($silent || $report);
return 0;
}
@@ -550,6 +552,12 @@ sub resolve_path {
return 2;
}
+ if ($report)
+ {
+ warn "$self: changed file $root/$path (observed:$s expected:$sum) (from $pack package)\n";
+ return 2;
+ }
+
if ($silent)
{
warn "$self: changed file $root/$path (from $pack package)\n";
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/debsums.git
More information about the Pkg-perl-cvs-commits
mailing list