xymon ตอนที่ 3

ข้อมูลในการ Test host สามารถส่งหา xymon โดยแบ่งเป็น

1. client-side หมายถึง client Test status เองแล้วส่งผลการ Test ให้ xymon server

- xymon client

- script

2. server-side หมายถึง server ทำ process ในการ test เอง เช่นการ ping, check port ของ เครื่อง host

ตัวอย่าง client-side


~/server/bin/xymon 192.168.132.101 "status mbox.mgw green `date` mail gateway"

~/server/bin/xymon 192.168.132.101 "status mbox.mgw green `date` mail gateway"

xymon3-01

ตัวอย่าง perl code.


#Perl version:
#!/usr/bin/perl
#
sub sendToXymon {
	use IO::Socket;
	my($server,$port,$msg) = @_ ;
	my $response;
	my $sock = new IO::Socket::INET (
			PeerAddr => $server,
			PeerPort => $port,
			Proto => 'tcp',
		);
	die "Could not create socket: $!\n" unless $sock;
	print $sock $msg;
	shutdown($sock, 1);
	while ($response=<$sock>)
	{
		print "$response";
	}
	close($sock);
}

$host = $ARGV[0];
if ($#ARGV != 2) {
  $port = 1984;
  $msg = $ARGV[1];
}
else {
  $port = $ARGV[1];
  $msg = $ARGV[2];
}
sendToXymon($host, $port, $msg);

#Perl version:

#!/usr/bin/perl

sub sendToXymon {

use IO::Socket;

my($server,$port,$msg) = @_ ;

my $response;

my $sock = new IO::Socket::INET (

PeerAddr => $server,

PeerPort => $port,

Proto => 'tcp',

);

die "Could not create socket: $!\n" unless $sock;

print $sock $msg;

shutdown($sock, 1);

while ($response=<$sock>)

{

print "$response";

}

close($sock);

}

$host = $ARGV[0];

if ($#ARGV != 2) {

$port = 1984;

$msg = $ARGV[1];

}

else {

$port = $ARGV[1];

$msg = $ARGV[2];

}

sendToXymon($host, $port, $msg);

./test.pl 192.168.132.101 1984 “status mbox.mgw green date ‘Mail GateWay Up’”

xymon3-02

Ref.

http://www.xymon.com/xymon/help/xymon-tips.html