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 <m...@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 _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits