Coyote Point Systems E350GX, Руководство по установке и администрированию

Страница: 261 / 344

Equalizer Installation and Administration Guide 257
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
print "Connection from: [$client_ipnum]\n";
# send the server agent response value
print CLIENT $response;
# close connection
close CLIENT;
}
Here is the output of the server program when it is started on the server:
$ ./serveragent.pl 50
Server agent started on port 1510
Connection from: [10.0.0.32]
Another “Connection” line prints each time the server agent is probed by Equalizer.
From Equalizer’s perspective, all that is returned by the server agent is the integer set on the command line. For
example, if you use the example server agent above and set the response to “50”, here is what you will see if you use
the
telnet command to open the server agent IP and port:
$ telnet 10.0.0.120 1510
50
Connection to host lost.