/usr/lib/xymon/server/ext/aptdiff is in hobbit-plugins 20170219.
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 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 | #!/usr/bin/perl -w
# Copyright (C) 2008, 2012 Christoph Berg <myon@debian.org>
#
# Permission is hereby granted, free of charge, to any person
# obtaining a copy of this software and associated documentation
# files (the "Software"), to deal in the Software without
# restriction, including without limitation the rights to use,
# copy, modify, merge, publish, distribute, sublicense, and/or sell
# copies of the Software, and to permit persons to whom the
# Software is furnished to do so, subject to the following
# conditions:
#
# The above copyright notice and this permission notice shall be
# included in all copies or substantial portions of the Software.
#
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
# OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
# HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
# WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
# OTHER DEALINGS IN THE SOFTWARE.
# Server script to monitor list of installed packages in a group of hosts
#
# The test result will appear in the "aptdiff" column for one of the hosts.
# In hosts.cfg, use aptdiff=POOL[,POOL...] where POOL is a hostname or a
# sprintf-pattern PATTERN:START:END. The script will ask the xymon server
# for the dpkg sections of the clientlogs. Running kernels are also checked
# via the uname section.
#
# Examples:
# aptdiff=foo.bla.org,bar.bla.org
# aptdiff=web%02d.bla.org:1:8
use strict;
use Hobbit qw(file_to_list_of_regexps);
# File with list of "$hostname $pkg" regexps of host/pkg patterns to ignore
my @diff_ignore = file_to_list_of_regexps ("/etc/xymon/aptdiff_ignore");
my @lines = `$ENV{XYMONHOME}/bin/xymongrep "aptdiff=*"`;
foreach my $line (@lines) {
$line =~ /^(\S+)\s+(\S+)\s+#.*\baptdiff=(\S+)/ or next;
my ($ip, $hostname, $data) = ($1, $2, $3);
my ($template, $start, $end) = split (/:/, $data);
my @templates = split (/,/, $template);
my @hosts;
if ($start and $end) {
foreach my $t (@templates) {
foreach my $n ($start .. $end) {
push @hosts, sprintf ($t, $n);
}
}
} else {
@hosts = @templates;
}
my $out;
my %dpkg;
foreach my $host (@hosts) {
next if exists $dpkg{$host};
my $found = 0;
open(F, '-|', "$ENV{XYMON} $ENV{XYMONSERVERHOSTNAME} 'clientlog $host section=uname,dpkg'") or die "$host: $!";
while (<F>) {
if (/\[dpkg\]/) {
next;
} elsif (/\[uname\]/) {
my $uname = <F>;
chomp $uname;
$uname =~ s/^(\S+)\s+\S+/$1/; # strip hostname
$dpkg{$host}->{'KERNEL'} = $uname;
$dpkg{_all}->{'KERNEL'} = 1;
next;
}
next unless /^([ih])i (\S+) (\S+)/;
$dpkg{$host}->{$2} = $3 . ($1 eq 'h' ? "/hold" : "");
$dpkg{_all}->{$2} = 1;
$found = 1;
}
close F;
$host = '' unless $found;
}
@hosts = grep /./, @hosts;
my $first = shift @hosts || next;
my $diff = 0;
my $bb = new Hobbit ({ test => 'aptdiff', hostname => $hostname });
foreach my $pkg (sort keys %{$dpkg{_all}}) {
my $ver = $dpkg{$first}->{$pkg} || "(none)";
foreach my $other (@hosts) {
my $otherver = $dpkg{$other}->{$pkg} || "(none)";
if ($ver ne $otherver) {
my $color = 'yellow';
if (grep { "$hostname $pkg" =~ $_ } @diff_ignore) {
$color = 'clear';
} else {
$diff = 1;
}
$bb->color_line ($color, "$pkg: $first $ver $other $otherver\n");
}
}
}
if ($diff) {
$bb->print ("\n");
} elsif (@hosts) {
$bb->color_line ('green',
"no package differences in pool $hostname\n\n");
} else {
$bb->color_line ('clear', "not enough hosts in pool $hostname\n\n");
}
$bb->print ("Hosts:\n" . join ("\n", $first, @hosts) . "\n");
$bb->send;
}
|