Hi,

My first thought would be to create a program that connects to your server via a telnet connect (on port 6021), which forks for each connection. When it can no longer get a connection, you have hit it's limit.

The server might drop the connection after a finite amount of time if it does not receive any data, so bear this in mind.

I may well be totally of track with this idea though.

Is there any info on some kind of limit in the servers documentation? What about the servers memory?

TIMTOWTDI.

Just a few suggestions.

You could try using to list the listening sockets. However, you need some extra options because by default, netstat may list only connected sockets. On linux, try netstat -paAinet, on solaris, netstat -afinet.

Also, you may just need a program like netcat or nmap.

Considering what you are running, I doubt what I am about to propose is the answer.  Now with the caveat out of the way... at any point in the telephone game you're playing (user => web page => your script => apache => access) would blocking I/O be a factor?  For IPC, I know this is an issue; not sure about sockets though.

#!/usr/bin/perl
#  Very simple client program to search for 
#  regular expressions on specified Web sites. 
# 
require 5.002;
use strict;
use Socket;

# Perl 5 technique for declaring local variables. 
my ( $host,     $in_addr, $proto, $port,    $addr );
my ( $response, $page,    $file,  $pattern, %urls );

# Set up some URLs and patterns in an array hash 
my @pages = ( "zentara.net", "perlmonks.org" );

foreach $page (@pages) {
    ( $host, $file ) = split /\//, $page, 2;

    # Form the HTTP server address from the host 
    # name and port number 
    $in_addr = ( gethostbyname($host) )[4];
    $port    = 80;
    $addr    = sockaddr_in( $port, $in_addr );
    $proto   = getprotobyname('tcp');

    # Create an Internet protocol socket. 
    socket( S, AF_INET, SOCK_STREAM, $proto )
      or die "socket:$!";

    # Connect our socket to the server socket. 
    connect( S, $addr )
      or die "connect:$!";

    # For fflush on socket file handle after every 
    # write. 
    select(S);
    $| = 1;
    select(STDOUT);

    # Send get request to server. 

    print S "GET /$file HTTP/1.0\n\n";
    print "===================$page===========================\n";

    # Look for patterns in returned HTML. 
    while (<S>) {
        foreach $page (@pages) {
            print;
        }
    }
    close(S);
}
exit;
[download]