projects
/
mirror
/
dsa-nagios.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ peter@palfrader.org-20090303204311-ej5qnljpoh3ejukk]
[mirror/dsa-nagios.git]
/
dsa-nagios-nrpe-config
/
dsa-check-packages
diff --git
a/dsa-nagios-nrpe-config/dsa-check-packages
b/dsa-nagios-nrpe-config/dsa-check-packages
index
ee0027c
..
b5615e4
100755
(executable)
--- a/
dsa-nagios-nrpe-config/dsa-check-packages
+++ b/
dsa-nagios-nrpe-config/dsa-check-packages
@@
-77,10
+77,14
@@
sub get_packages {
my $installed = $pkgs{'ii'};
delete $pkgs{'ii'};
my $installed = $pkgs{'ii'};
delete $pkgs{'ii'};
+ open my $olderr, ">&STDERR" or die "Can't dup STDERR: $!";
+ open STDERR, ">/dev/null" or die "Can't dup STDOUT: $!";
+
open (F, "apt-cache policy ".(join(" ", keys(%$installed)))." |") or die ("Cannot run apt-cache policy: $!\n");
@lines = <F>;
close(F);
chomp(@lines);
open (F, "apt-cache policy ".(join(" ", keys(%$installed)))." |") or die ("Cannot run apt-cache policy: $!\n");
@lines = <F>;
close(F);
chomp(@lines);
+ open STDERR, ">&", $olderr or die "Can't dup OLDERR: $!";
my $line;
my $pkgname = undef;
my $line;
my $pkgname = undef;
@@
-105,6
+109,11
@@
sub get_packages {
for my $pkgname (keys %$installed) {
my $pkg = $installed->{$pkgname};
for my $pkgname (keys %$installed) {
my $pkg = $installed->{$pkgname};
+ unless (defined($pkg->{'candidate'})) {
+ $obsolete{$pkgname} = $pkg;
+ next;
+ }
+
if ($pkg->{'candidate'} ne $pkg->{'installed'}) {
$outofdate{$pkgname} = $pkg;
next;
if ($pkg->{'candidate'} ne $pkg->{'installed'}) {
$outofdate{$pkgname} = $pkg;
next;