/usr/bin/rdebsums is in debsums 2.1.2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 | #! /usr/bin/perl
# rdebsums: a wrapper around debsums to also check dependencies of a package
# Copyright 2007 by Vincent Fourmond <fourmond@debian.org>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
my $usage="rdebsums --help | --others [debsum options] package
Runs debsums on package and all its dependencies.
\t--others\talso include Recommends and Suggests
";
if(grep(/^--others/, @ARGV)) {
print "Also running debsums on suggests and recommends\n";
$others = 1;
@ARGV = grep(!/^--others/, @ARGV)
} else {
$others = 0;
}
if(! (scalar @ARGV) || grep(/^--help/, @ARGV) ) {
print $usage;
exit 1;
}
my $pack = pop;
my $options = join(" ", @ARGV);
my $overall_rc = 0;
for my $p (dependencies($pack, $others)) {
print "\nRunning debsums $options $p:\n";
my $rc = system "debsums $options $p";
$overall_rc = max($overall_rc, $rc);
}
if ($overall_rc > 0) {
exit $overall_rc >> 8;
} else {
exit 0;
}
# Gets all the installed dependencies of a package, including
# recommends and suggests if the second argument is true.
sub dependencies {
my $pack = shift;
my $also_not_depends = shift || 0;
my $ignore = shift || {};
# We first sanitize $pack:
if($pack =~ /([a-z0-9+.-]+)/) {
$pack = $1;
} else {
return ();
}
# We first get direct children:
my @direct_children;
my $dpkg_query_cmd = "dpkg-query -W -f '\${Depends}".
($also_not_depends ? ' ${Recommends} ${Suggests}' : "").
"' $pack 2> /dev/null";
my $dpkg_query = `$dpkg_query_cmd`;
while($dpkg_query =~ /\([^)]+\)|([a-z0-9+.-]+)/g) {
if($1) {
push @direct_children, $1;
}
}
$ignore->{$pack} = 1;
# Then, we add their dependencies
for my $subp (@direct_children) {
dependencies($subp, $also_not_depends, $ignore) unless
$ignore->{$subp};
$ignore{$subp} = 1;
}
return (keys %{$ignore});
}
sub max {
my ($a, $b) = @_;
return($a > $b ? $a : $b);
}
|