Coyote Point Systems Equalizer GX Series, Administration Manual

Page: 660 / 866

Server Health Check Probes
Sample Server Agent
You can create custom Server Agents as shell scripts, or in Java, Perl, C, or other languages. The
code snippet below is an example of a simple server agent example written in Perl. This code
assumes that an integer response value is supplied on the command line and returns that value
when a connection is made on port 1510 (configurable via the server instance
Probe Port
(
probe_
port
) variable). This sample agent is intended for testing purposes only. In a real deployment,
the server agent would determine the response value to return by polling system resources, or
some other real-time method.
#!/usr/bin/perl -w
# serveragent.pl
#--------------------
#(c) Copyright 2014 Fortinet, Inc.
use strict;
use Socket;
# use port 1510 as default
my $port = 1510;
my $proto = getprotobyname('tcp');
# take the server agent response value from the command line
my $value = shift;
my $response = "$value\n";
# response has to be a valid server agent response
$response==-1 or ($response > 0 and $response<101)
or die "Response must be between -1 and 100";
# create a socket and set the options, set up listen port
socket(SERVER, PF_INET, SOCK_STREAM, $proto) or die "socket: $!";
setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, 1) or die "setsock: $!";
my $paddr = sockaddr_in($port, INADDR_ANY);
# bind to the port, then listen on it
bind(SERVER, $paddr) or die "bind: $!";
listen(SERVER, SOMAXCONN) or die "listen: $!";
print "Server agent started on port $port\n";
# accepting a connection
my $client_addr;
while ($client_addr = accept(CLIENT, SERVER)) {
# find out who connected
my ($client_port, $client_ip) = sockaddr_in($client_addr);
my $client_ipnum = inet_ntoa($client_ip);
# print who has connected -- this is for debugging only
660 Copyright © 2014 Coyote Point Systems, A Subsidiary of Fortinet, Inc.