This file is indexed.

/usr/lib/xymon/client/ext/misc is in hobbit-plugins 20160122.

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
#!/usr/bin/perl -w

use strict;
use IPC::Run qw(run timeout);
use Hobbit;
my $bb = new Hobbit ('misc');

my @tests = sort grep { /\/[a-zA-Z0-9_-]+$/ } glob "/etc/xymon/misc.d/*";

foreach my $test (@tests) {
	next unless -x $test;

	my ($stdin, $stdout, $stderr);
	run ([$test], \$stdin, \$stdout, \$stderr, timeout(300));
	my $rc = $? >> 8;

	$test =~ /\/([a-zA-Z0-9_-]+)$/;
	my $name = $1;

	my $color = ($rc == 0 and not $stderr) ? 'green' :
		    (($rc == 1 and not $stderr) ? 'yellow' : 'red');

	$bb->color_line($color, $name . ($rc ? " returned $rc" : '') . (($stdout or $stderr) ? ':' : '') ."\n");
	if ($stdout) {
		$stdout =~ s/^/   /mg;
		$bb->print ($stdout);
	}
	if ($stderr) {
		$stderr =~ s/^/   /mg;
		$bb->print ($stderr);
	}
}

$bb->send unless ($bb->{color} eq 'clear');