Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
services	[ DIR ]	drwxr-xr-x
CHANGELOG	6.42 KB	-rw-r--r--
WEBMIN-STATUS-MIB.txt	1.53 KB	-rw-r--r--
acl_security.pl	508 B	-rwxr-xr-x
alive-monitor.pl	241 B	-rwxr-xr-x
apache-monitor.pl	697 B	-rwxr-xr-x
backup_config.pl	801 B	-rwxr-xr-x
bind8-monitor.pl	710 B	-rwxr-xr-x
cfengine-monitor.pl	415 B	-rwxr-xr-x
cgi_args.pl	321 B	-rwxr-xr-x
change-monitor.pl	735 B	-rwxr-xr-x
config	182 B	-rw-r--r--
config-ALL-linux	210 B	-rw-r--r--
config-debian-linux	225 B	-rw-r--r--
config-debian-linux-3.0	216 B	-rw-r--r--
config-debian-linux-3.1-ALL	216 B	-rw-r--r--
config-freebsd	195 B	-rw-r--r--
config-hpux	182 B	-rw-r--r--
config-netbsd	182 B	-rw-r--r--
config-solaris	182 B	-rw-r--r--
config-syno-linux	197 B	-rw-r--r--
config.info	1.09 KB	-rw-r--r--
config.info.ca	1.31 KB	-rw-r--r--
config.info.cs	802 B	-rw-r--r--
config.info.de	1.28 KB	-rw-r--r--
config.info.es	659 B	-rw-r--r--
config.info.fa	994 B	-rw-r--r--
config.info.fr	1.42 KB	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.it	0 B	-rw-r--r--
config.info.ja	1.04 KB	-rw-r--r--
config.info.ko	764 B	-rw-r--r--
config.info.nl	984 B	-rw-r--r--
config.info.no	962 B	-rw-r--r--
config.info.pl	1021 B	-rw-r--r--
config.info.ru	486 B	-rw-r--r--
config.info.sv	99 B	-rw-r--r--
config.info.tr	567 B	-rw-r--r--
config.info.uk	479 B	-rw-r--r--
config.info.zh	86 B	-rw-r--r--
config.info.zh_TW	229 B	-rw-r--r--
consume-monitor.pl	1.89 KB	-rwxr-xr-x
defaultacl	15 B	-rw-r--r--
delete_mons.cgi	1.03 KB	-rwxr-xr-x
delete_tmpls.cgi	712 B	-rwxr-xr-x
dhcpd-monitor.pl	616 B	-rwxr-xr-x
dns-monitor.pl	1.3 KB	-rwxr-xr-x
dnsadmin-monitor.pl	667 B	-rwxr-xr-x
dovecot-monitor.pl	302 B	-rwxr-xr-x
du-monitor.pl	790 B	-rw-r--r--
edit_mon.cgi	9.61 KB	-rwxr-xr-x
edit_sched.cgi	3.24 KB	-rwxr-xr-x
edit_tmpl.cgi	1.81 KB	-rwxr-xr-x
exec-monitor.pl	1.52 KB	-rwxr-xr-x
fail2ban-monitor.pl	516 B	-rwxr-xr-x
feedback_files.pl	175 B	-rwxr-xr-x
file-monitor.pl	3.35 KB	-rwxr-xr-x
ftp-monitor.pl	3.05 KB	-rwxr-xr-x
hostsentry-monitor.pl	521 B	-rwxr-xr-x
http-monitor.pl	4.13 KB	-rwxr-xr-x
iface-monitor.pl	908 B	-rwxr-xr-x
index.cgi	4.77 KB	-rwxr-xr-x
inetd-monitor.pl	399 B	-rwxr-xr-x
init-monitor.pl	576 B	-rw-r--r--
jabber-monitor.pl	667 B	-rwxr-xr-x
ldap-monitor.pl	1.51 KB	-rwxr-xr-x
list_tmpls.cgi	1.05 KB	-rwxr-xr-x
load-monitor.pl	1.1 KB	-rwxr-xr-x
log_parser.pl	673 B	-rwxr-xr-x
mailq-monitor.pl	1.3 KB	-rwxr-xr-x
memory-monitor.pl	1.55 KB	-rwxr-xr-x
module.info	168 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	128 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	167 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	198 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	247 B	-rw-r--r--
module.info.ca	118 B	-rw-r--r--
module.info.ca.auto	14 B	-rw-r--r--
module.info.cs	33 B	-rw-r--r--
module.info.cs.auto	105 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	120 B	-rw-r--r--
module.info.de	121 B	-rw-r--r--
module.info.de.auto	15 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	274 B	-rw-r--r--
module.info.es	40 B	-rw-r--r--
module.info.es.auto	95 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	132 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	185 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	134 B	-rw-r--r--
module.info.fr	42 B	-rw-r--r--
module.info.fr.auto	107 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	155 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	134 B	-rw-r--r--
module.info.hu	37 B	-rw-r--r--
module.info.hu.auto	99 B	-rw-r--r--
module.info.it	39 B	-rw-r--r--
module.info.it.auto	96 B	-rw-r--r--
module.info.ja	57 B	-rw-r--r--
module.info.ja.auto	130 B	-rw-r--r--
module.info.ko	36 B	-rw-r--r--
module.info.ko.auto	92 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	131 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	136 B	-rw-r--r--
module.info.ms	119 B	-rw-r--r--
module.info.ms.auto	15 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	146 B	-rw-r--r--
module.info.nl	33 B	-rw-r--r--
module.info.nl.auto	97 B	-rw-r--r--
module.info.no	32 B	-rw-r--r--
module.info.no.auto	96 B	-rw-r--r--
module.info.pl	97 B	-rw-r--r--
module.info.pl.auto	15 B	-rw-r--r--
module.info.pt	0 B	-rw-r--r--
module.info.pt.auto	133 B	-rw-r--r--
module.info.pt_BR	0 B	-rw-r--r--
module.info.pt_BR.auto	142 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	153 B	-rw-r--r--
module.info.ru	56 B	-rw-r--r--
module.info.ru.auto	165 B	-rw-r--r--
module.info.sk	33 B	-rw-r--r--
module.info.sk.auto	106 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	135 B	-rw-r--r--
module.info.sv	33 B	-rw-r--r--
module.info.sv.auto	92 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	250 B	-rw-r--r--
module.info.tr	32 B	-rw-r--r--
module.info.tr.auto	105 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	208 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	174 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	182 B	-rw-r--r--
module.info.zh	36 B	-rw-r--r--
module.info.zh.auto	76 B	-rw-r--r--
module.info.zh_TW	40 B	-rw-r--r--
module.info.zh_TW.auto	82 B	-rw-r--r--
mon-monitor.pl	431 B	-rwxr-xr-x
monitor.pl	14.59 KB	-rwxr-xr-x
mysql-monitor.pl	450 B	-rwxr-xr-x
nfs-monitor.pl	394 B	-rwxr-xr-x
nut-monitor.pl	2.13 KB	-rwxr-xr-x
oldfile-monitor.pl	864 B	-rwxr-xr-x
ping-monitor.pl	6.84 KB	-rwxr-xr-x
portsentry-monitor.pl	535 B	-rwxr-xr-x
postfix-monitor.pl	509 B	-rwxr-xr-x
postgresql-monitor.pl	480 B	-rwxr-xr-x
prefs.info	58 B	-rw-r--r--
proc-monitor.pl	1.7 KB	-rwxr-xr-x
proftpd-monitor.pl	842 B	-rwxr-xr-x
qmailadmin-monitor.pl	424 B	-rwxr-xr-x
query-monitor.pl	2.89 KB	-rwxr-xr-x
raid-monitor.pl	1.66 KB	-rwxr-xr-x
refresh.cgi	550 B	-rwxr-xr-x
rssh-monitor.pl	2.63 KB	-rwxr-xr-x
safeacl	15 B	-rw-r--r--
samba-monitor.pl	453 B	-rwxr-xr-x
save_mon.cgi	3.23 KB	-rwxr-xr-x
save_sched.cgi	2.44 KB	-rwxr-xr-x
save_tmpl.cgi	1.25 KB	-rwxr-xr-x
sendmail-monitor.pl	682 B	-rwxr-xr-x
sensors-monitor.pl	3.9 KB	-rwxr-xr-x
slapd-monitor.pl	606 B	-rwxr-xr-x
space-monitor.pl	3.09 KB	-rwxr-xr-x
squid-monitor.pl	881 B	-rwxr-xr-x
sshd-monitor.pl	817 B	-rwxr-xr-x
sslcert-monitor.pl	4.11 KB	-rwxr-xr-x
status-lib.pl	17.62 KB	-rwxr-xr-x
status_monitor_api.pl	593 B	-rwxr-xr-x
system_info.pl	1.48 KB	-rw-r--r--
tcp-monitor.pl	1.23 KB	-rwxr-xr-x
traffic-monitor.pl	2.4 KB	-rwxr-xr-x
uninstall.pl	434 B	-rwxr-xr-x
usermin-monitor.pl	496 B	-rwxr-xr-x
webmin-monitor.pl	363 B	-rwxr-xr-x
xinetd-monitor.pl	491 B	-rwxr-xr-x

Code Editor : monitor.pl

#!/usr/bin/perl
# monitor.pl
# Check all the monitors and send email if something is down

$no_acl_check++;
delete($ENV{'FOREIGN_MODULE_NAME'});
delete($ENV{'SCRIPT_NAME'});
delete($ENV{'SERVER_ROOT'});
delete($ENV{'LANG'});
require './status-lib.pl';

# Check if the monitor should be run now
@tm = localtime(time());
if ($ARGV[0] ne "--force") {
	@hours = split(/\s+/, $config{'sched_hours'});
	!@hours || &indexof($tm[2], @hours) >= 0 || exit;
	@days = split(/\s+/, $config{'sched_days'});
	!@days || &indexof($tm[6], @days) >= 0 || exit;
	$by = "cron";
	}
else {
	shift(@ARGV);
	$by = "web";
	}

# Check for list of monitors to limit refresh to
%onlycheck = map { $_, 1 } @ARGV;

# Open status and number of fails files
&lock_file($oldstatus_file);
&read_file($oldstatus_file, \%oldstatus);
&lock_file($fails_file);
&read_file($fails_file, \%fails);
&lock_file($lastsent_file);
&read_file($lastsent_file, \%lastsent);

# Get the list of services, ordered so that those with dependencies are first
@services = &list_services();
@services = sort { &sort_func($a, $b) } @services;
if (keys %onlycheck) {
	@services = grep { $onlycheck{$_->{'id'}} } @services;
	}

# Check for services that are down
$nowunix = time();
$now = &make_date($nowunix);
($nowdate, $nowtime) = split(/\s+/, $now);
$thishost = &get_system_hostname();
$ecount = 0;
foreach $serv (@services) {
	if ($serv->{'nosched'} == 1) {
		# Scheduled checking totally disabled
		delete($oldstatus{$serv->{'id'}});
		next;
		}
	@remotes = &expand_remotes($serv);

# Check if we depend on something that is down
	if ($serv->{'depend'} && defined($oldstatus{$serv->{'depend'}})) {
		$depend = &get_service($serv->{'depend'});
		$depstats = &expand_oldstatus($oldstatus{$serv->{'depend'}},
					      $depend);
		@depremotes = split(/\s+/, $depend->{'remote'});
		if ($depstats->{$depremotes[0]} != 1) {
			# It is .. mark all as failed dependencies
			$oldstatus{$serv->{'id'}} = 
				join(" ", map { "$_=-4" } @remotes);
			next;
			}
		}

# Find the current status
	$warn = $serv->{'nosched'} == 0 ? $config{'sched_warn'} :
		$serv->{'nosched'} - 2;
	@stats = &service_status($serv);
	$oldstats = &expand_oldstatus($oldstatus{$serv->{'id'}}, $serv);

# Find the notification modes
	%notify = map { $_, 1 } split(/\s+/, $serv->{'notify'});

# If the number of fails before warning is > 1, then the status may
	# still be considered OK even if it is down right now
	local $up = $stat->{'up'};
	if ($up != 1 && $serv->{'fails'} > 1) {
		$fails{$serv->{'id'}}++;
		if ($fails{$serv->{'id'}} < $serv->{'fails'}) {
			# Not really down yet
			$up = 1;
			}
		}
	else {
		$fails{$serv->{'id'}} = 0;
		}

# Check for a status change or failure on each monitored host,
	# and perform the appropriate action
	$newstats = { };
	$newvalues = { };
	$newvalues_nice = { };
	foreach $r (@remotes) {
		# Work out the hostname
		local $host = $r eq "*" ? $thishost : $r;
		$o = $oldstats->{$r};

# Get the up/down status
		local ($stat) = grep { $_->{'remote'} eq $r } @stats;
		if (!$stat) {
			print STDERR "Failed to find status for $r!\n";
			next;
			}

# If the number of fails before warning is > 1, then the status
		# may still be considered OK even if it is down right now
		local $up = $stat->{'up'};
		local $fid = $serv->{'id'}."-".$r;
		if ($up != 1 && $serv->{'fails'} > 1) {
			# Not up, but more than one failure is needed for it to
			# be considered down for alerting purposes.
			$fails{$fid}++;
			if ($fails{$fid} < $serv->{'fails'}) {
				# Not really down yet
				$up = 1;
				}
			}
		else {
			$fails{$fid} = 0;
			}

$thisemail = undef;
		$suffix = undef;
		$out = undef;
		if ($warn == 0 && $up == 0 && $o) {
			# Service has just gone down
			$suffix = "down";
			$out = &run_on_command($serv, $serv->{'ondown'}, $r);
			}
		elsif ($warn == 1 && $up != $o &&
		       (defined($o) || $up == 0)) {
			# Service has changed status
			if ($up == 0) {
				# A monitor has gone down
				$suffix = "down";
				$out = &run_on_command($serv, $serv->{'ondown'}, $r);
				}
			elsif ($up == 1 && $o != -4) {
				# A monitor has come back up after being down
				$suffix = "up";
				$out = &run_on_command($serv, $serv->{'onup'}, $r);
				}
			elsif ($up == -1) {
				# Detected that a program the monitor depends on
				# is not installed
				$suffix = "un";
				}
			elsif ($up == -2) {
				# Cannot contact remote Webmin
				$suffix = "webmin";
				}
			elsif ($up == -3) {
				# Monitor function timed out
				$suffix = "timed";
				$out = &run_on_command($serv,
						       $serv->{'ontimeout'}, $r);
				}
			}
		elsif ($warn == 2 && $up == 0) {
			# Service is down now
			$suffix = "isdown";
			$out = &run_on_command($serv, $serv->{'ondown'}, $r);
			}
		elsif ($warn == 3 && $up == 1) {
			# Service is up now
			$suffix = "isup";
			$out = &run_on_command($serv, $serv->{'onup'}, $r);
			}

# If something happened, notify people
		if ($suffix &&
		    $nowunix - $lastsent{$serv->{'id'}} > $config{'email_interval'} * 60) {
			$subj = &text('monitor_sub_'.$suffix,
				      $serv->{'desc'}, $host);
			if ($notify{'pager'}) {
				$pager_msg .= &make_message($suffix, $host,
							$serv, 'pager', $stat);
				}
			if ($notify{'sms'}) {
				$sms_msg .= &make_message($suffix, $host,
							$serv, 'sms', $stat);
				}
			if ($notify{'snmp'}) {
				push(@snmp_msg, &make_message($suffix, $host,
							$serv, 'snmp', $stat));
				}
			if ($notify{'email'}) {
				$thisemail .= &make_message($suffix, $host,
							$serv, 'email', $stat);
				if ($out) {
					$thisemail .= $out;
					}
				$thisemail .= "\n";
				$ecount++;
				}
			$lastsent{$serv->{'id'}} = $nowunix;
			}
		$newstats->{$r} = $up;
		$newvalues->{$r} = $stat->{'value'};
		$newvalues_nice->{$r} = $stat->{'nice_value'};

if ($serv->{'email'} && $thisemail) {
			# If this service has an extra email address specified,
			# send to it
			&send_status_email($thisemail,
			  $config{'subject_mode'} ? $subj : &text('monitor_sub', $subj),
			  $serv->{'email'});
			}

$email .= $thisemail;
		if ($config{'sched_single'} && $email) {
			# Force the sending of one email and page per report
			&send_status_email($email,
			  $config{'subject_mode'} ? $subj : &text('monitor_sub', $subj),
			  $config{'sched_email'});
			undef($email);
			if ($pager_msg) {
				&send_status_pager($pager_msg);
				undef($pager_msg);
				}
			if ($sms_msg) {
				&send_status_sms($sms_msg);
				undef($sms_msg);
				}
			}

# If any SNMP messages are defined, send them
		if (@snmp_msg) {
			&send_status_trap(@snmp_msg);
			undef(@snmp_msg);
			}
		}

# Log the status
	$newstatus_str = join(" ", map { "$_=$newstats->{$_}" } @remotes);
	$newvalues_str = join("/", map { "$_=$newvalues->{$_}" } @remotes);
	$newvalues_nice_str = join("/", map { "$_=$newvalues_nice->{$_}" } @remotes);
	%history = ( 'time' => $nowunix,
		     'new' => $newstatus_str,
		     'value' => $newvalues_str,
		     'nice_value' => $newvalues_nice_str,
		     'by' => $by );
	if (defined($oldstatus{$serv->{'id'}})) {
		$history{'old'} = $oldstatus{$serv->{'id'}};
		}
	&add_history($serv, \%history);

# Update old status hash
	$oldstatus{$serv->{'id'}} = $newstatus_str;

# If successful, clear the last-sent time
	if ($ok == 1) {
		delete($lastsent{$serv->{'id'}});
		}
	}

# Close oldstatus, fails and lastsent files
&write_file($oldstatus_file, \%oldstatus);
&unlock_file($oldstatus_file);
&write_file($fails_file, \%fails);
&unlock_file($fails_file);
&write_file($lastsent_file, \%lastsent);
&unlock_file($lastsent_file);

# Send the email and page with all messages, if necessary
if ($ecount && !$config{'sched_single'}) {
	&send_status_email($email,
			   $config{'subject_mode'} ? $text{'monitor_sub2'} :
			   $ecount == 1 ? &text('monitor_sub', $subj) :
			   	          &text('monitor_sub3', $ecount),
			   $config{'sched_email'});
	}
if ($pager_msg && !$config{'sched_single'}) {
	&send_status_pager($pager_msg);
	}
if ($sms_msg && !$config{'sched_single'}) {
	&send_status_sms($sms_msg);
	}

# send_status_email(text, subject, email-to)
sub send_status_email
{
return if (!$_[2]);
&foreign_require("mailboxes", "mailboxes-lib.pl");

# Construct and send the email (using correct encoding for body)
local $from = $config{'sched_from'} ? $config{'sched_from'}
				    : &mailboxes::get_from_address();
&mailboxes::send_text_mail($from, $_[2], undef, $_[1], $_[0],
			   $config{'sched_smtp'});
}

# send_status_pager(text)
# Send some message with the pager command, if configured
sub send_status_pager
{
local ($text) = @_;
return if (!$config{'sched_pager'});
return if (!$config{'pager_cmd'});
system("$config{'pager_cmd'} ".quotemeta($config{'sched_pager'})." ".
       quotemeta($text)." >/dev/null 2>&1 </dev/null");
}

# send_status_sms(text)
sub send_status_sms
{
local ($text) = @_;
return if (!$text || !$config{'sched_carrier'} || !$config{'sched_sms'});
&foreign_require("mailboxes", "mailboxes-lib.pl");

local $from = $config{'sched_from'} ? $config{'sched_from'}
				    : &mailboxes::get_from_address();
local ($carrier) = grep { $_->{'id'} eq $config{'sched_carrier'} }
			&list_sms_carriers();
return if (!$carrier);
local $email = $config{'sched_sms'}."\@".$carrier->{'domain'};
local $subject = $config{'sched_subject'};
if ($subject eq "*") {
	$subject = $text;
	$text = undef;
	}
&mailboxes::send_text_mail($from, $email, undef, $subject, $text,
			   $config{'sched_smtp'});
}

# send_status_trap(msg, ...)
# Send an SNMP trap for some message, if configured
sub send_status_trap
{
return if (!$config{'snmp_server'});

# Connect to SNMP server
eval "use Net::SNMP qw(OCTET_STRING)";
if (!$@) {
	# Using the Net::SNMP module
	local ($session, $error) = Net::SNMP->session(
		"-hostname" => $config{'snmp_server'},
		"-port" => 162,
		"-version" => $config{'snmp_version'},
		"-community" => $config{'snmp_community'},
		);
	if ($error) {
		print STDERR "SNMP connect failed : $error\n";
		return;
		}

# Build OIDs list
	local (@oids, $m);
	foreach $m (@_) {
		local $oid = $config{'snmp_trap'};
		push(@oids, $oid, 4, $m);
		}

# Send off a trap
	local $rv;
	if ($config{'snmp_version'} == 1) {
		$rv = $session->trap(
			"-varbindlist" => \@oids);
		}
	elsif ($config{'snmp_version'} >= 2) {
		@oids = ( "1.3.6.1.2.1.1.3.0", 67, 0,
			  "1.3.6.1.6.3.1.1.4.1.0", 6, $oids[0],
			  @oids );
		$rv = $session->snmpv2_trap(
			"-varbindlist" => \@oids);
		}
	if (!$rv) {
		print STDERR "trap failed! : ",$session->error(),"\n";
		}
	return;
	}
eval "use SNMP_Session";
if (!$@) {
	# Using the SNMP::Session module
	eval "use BER";
	local $session = $config{'snmp_version'} == 1 ?
			SNMP_Session->open($config{'snmp_server'},
					   $config{'snmp_community'}, 162) :
			SNMPv2c_Session->open($config{'snmp_server'},
					   $config{'snmp_community'}, 162);
	if (!$session) {
		print STDERR "SNMP connect to $config{'snmp_server'} failed\n";
		return;
		}

local $rv;
	if ($config{'snmp_version'} == 1) {
		local @myoid= ( 1,3,6,1,4,1 );
		local @oids;
		foreach my $m (@_) {
			push(@oids, [
				encode_oid(split(/\./, $config{'snmp_trap'})),
				encode_string($m) ]);
			}
		$rv = $session->trap_request_send(
			encode_oid(@myoid),
			encode_ip_address(&to_ipaddress(&get_system_hostname())),
			encode_int(2),
			encode_int(0),
			encode_timeticks(0),
			@oids
			);
		}
	elsif ($config{'snmp_version'} == 2) {
		@oids = ( "1.3.6.1.2.1.1.3.0", 67, 0,
			  "1.3.6.1.6.3.1.1.4.1.0", 6, $oids[0],
			  @oids );
		$rv = $session->v2_trap_request_send(\@oids, 0);
		}
	if (!$rv) {
		print STDERR "trap failed!\n";
		}
	
	return;
	}
print STDERR "No SNMP perl module found\n";
}

# run_on_command(&serv, command, remote-host)
sub run_on_command
{
local ($serv, $cmd, $r) = @_;
$r = undef if ($r eq "*");
return undef if (!$cmd);
local $out;
if ($serv->{'runon'} && $r) {
	# Run on the remote host
	$remote_error_msg = undef;
	&remote_foreign_call($r, "status",
		"set_monitor_environment", $serv);
	&remote_error_setup(\&remote_error_callback);
	if ($config{'output'}) {
		$out = &remote_foreign_call($r, "status",
			"backquote_command", "($cmd) 2>&1 </dev/null");
		}
	else {
		&remote_foreign_call($r, "status",
			"execute_command", $cmd);
		}
	&remote_error_setup(undef);
	&remote_foreign_call($r, "status",
		"reset_monitor_environment", $serv);
	if ($remote_error_msg) {
		return &text('monitor_runerr', $cmd, $r,
			     $remote_error_msg);
		}
	return &text('monitor_run1', $cmd, $r)."\n".$out;
	}
else {
	# Just run locally
	&set_monitor_environment($serv);
	if ($config{'output'}) {
		$out = &backquote_command("($cmd) 2>&1 </dev/null");
		}
	else {
		&execute_command($cmd);
		}
	&reset_monitor_environment($serv);
	return &text('monitor_run2', $cmd)."\n".$out;
	}
}

sub remote_error_callback
{
$remote_error_msg = $_[0];
}

# Returns 1 if b should be first, -1 if a should be first, 0 if same
sub sort_func
{
local ($a, $b) = @_;
if ($a->{'id'} eq $b->{'id'}) {
	return 0;
	}
elsif (!$a->{'depend'} && !$b->{'depend'}) {
	return $a->{'desc'} cmp $b->{'desc'};
	}
elsif ($a->{'depend'} && !$b->{'depend'}) {
	return 1;
	}
elsif (!$a->{'depend'} && $b->{'depend'}) {
	return -1;
	}
else {
	return $a->{'depend'} eq $b->{'id'} ? 1 :
	       $b->{'depend'} eq $a->{'id'} ? -1 :
		$a->{'desc'} cmp $b->{'desc'};
	}
}

# quoted_encode(text)
sub quoted_encode
{
local $t = $_[0];
$t =~ s/([=\177-\377])/sprintf("=%2.2X",ord($1))/ge;
return $t;
}

# make_message(status, host, &server, type, &status)
# Returns the message for some email, SMS or SNMP. May use a template, or
# the built-in default.
sub make_message
{
local ($suffix, $host, $serv, $type, $stat) = @_;
local $tmpl = $serv->{'tmpl'} ? &get_template($serv->{'tmpl'}) : undef;
if ($tmpl && $tmpl->{$type}) {
	# Construct from template
	local %hash = ( 'DESC' => $serv->{'desc'},
			'HOST' => $host || &get_system_hostname(),
			'DATE' => $nowdate,
			'TIME' => $nowtime,
			'STATUS' => $text{'mon_'.$suffix},
			uc($suffix) => 1,
		      );
	foreach my $s (@monitor_statuses) {
		$hash{uc($s)} ||= 0;
		}
	if ($stat) {
		foreach my $k ('value', 'nice_value', 'desc') {
			$hash{'STATUS_'.uc($k)} = $stat->{$k} ? $stat->{$k} : "";
			}
		}
	foreach my $k (keys %$serv) {
		$hash{'SERVICE_'.uc($k)} = $serv->{$k};
		}
	local $rv = &substitute_template($tmpl->{$type}, \%hash);
	$rv =~ s/[\r\n]+$//;
	$rv .= "\n";
	return $rv;
	}
else {
	# Use built-in
	if ($type eq 'sms') {
		return &text('monitor_pager_'.$suffix,
			     $host, $serv->{'desc'}, $now);
		}
	elsif ($type eq 'pager') {
		return &text('monitor_pager_'.$suffix,
			     $host, $serv->{'desc'}, $now);
		}
	elsif ($type eq 'snmp') {
		return &text('monitor_snmp_'.$suffix,
			     $host, $serv->{'desc'});
		}
	elsif ($type eq 'email') {
		my $rv = &text('monitor_email_'.$suffix,
			       $host, $serv->{'desc'}, $now)."\n";
		if ($stat->{'desc'}) {
			$rv .= &text('monitor_email_stat',
				     $stat->{'desc'})."\n";
			}
		return $rv;
		}
	}
}

${this.title}

Code Editor : monitor.pl