Coyote Point Systems Equalizer Spezifikationen Seite 20

  • Herunterladen
  • Zu meinen Handbüchern hinzufügen
  • Drucken
  • Seite
    / 22
  • Inhaltsverzeichnis
  • LESEZEICHEN
  • Bewertet. / 5. Basierend auf Kundenbewertungen
Seitenansicht 19
Deploying Equalizer with MS Terminal Services
Deployment Guide
© 2010 Coyote Point Systems, Inc. All Rights Reserved. | www.coyotepoint.com 20
Appendix A: Terminal Services Server Agent
The sample Server Agent included in this appendix is intended to be installed
and run on a Windows Terminal Services enabled server to provide accurate
probe feedback to Equalizer. It can be used in any Equalizer / Terminal Services
configuration to avoid probing the Terminal Services port on the server and, by
doing so, to avoid consuming a Terminal Services license. The general procedure
is to:
Turn TCP and ACV probing off for the server (enable "don't probe" on the
server's configuration tab).
Run a program on the terminal server (a "server agent") to return server
status information. The server agent can be configured to return simple
up/down status, or an indication of the load on the server. A sample
server agent is below. By default, server agents use port 1510, but this
can be changed.
Enable the cluster "require agent response" flag to require a server agent
response in order to mark the server up.
The complete procedure is provided in Step 10 and 11 on pages 16 and 17.
Sample Server Agent
1. #--------------------
2. # srvrgnt-msts.pl
3. #--------------------
4. #(c) Copyright 2009 Coyote Point Systems Inc.
5.
6. use strict;
7. use Socket;
8.
9. # YOU MUST SET maxconn to the same value used for maximum connections on
10. # the MS Terminal Server on which this agent will be installed.
11. # As delivered, this script uses an arbitrary default of 75.
12. my $maxconn=75;
13.
14. # YOU MUST SET port to the same value used for server agent port on
15. # Equalizer. The Equalizer default is 1510
16. my $port = 1510;
17.
18. # create a socket and set the options, set up listen port
19. my $proto = getprotobyname('tcp');
20. socket(SERVER, PF_INET, SOCK_STREAM, $proto) or die "socket: $!";
21. setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, 1) or die "setsock: $!";
22. my $paddr = sockaddr_in($port, INADDR_ANY);
23.
24. # bind to the port, then listen on it; print diagnostic
25. bind(SERVER, $paddr) or die "bind: $!";
26. listen(SERVER, SOMAXCONN) or die "listen: $!";
Seitenansicht 19
1 2 ... 15 16 17 18 19 20 21 22

Kommentare zu diesen Handbüchern

Keine Kommentare