Check Persistance

["Purcell, Scott" <sp...@ltcgroup.com>]

Hello,
Newbie modperl guy has question about the code he created today. This is the
beginning of a web site, and when the user logs in, I want to create a
socket that will remain persistent in memory until the WebServer is started
again. I do NOT want to keep opening up sockets each time this file is read.
I believe I have it, but since this is my first chunk I wrote for
persistance, I was hoping someone could give it a look.

thanks
Scott Purcell


########
use vars qw ($q $handle);
use CGI;
use strict;
use IO::Socket;
use VBMain::Config qw(%c);

$q = CGI->new;
print $q->header();

unless ($handle = &makeSocket != 0) {
    die("Cannot figure it out");
}



sub makeSocket
{
    $handle = IO::Socket::INET->new(Proto => 'tcp',
                                    PeerAddr => $c{host},
                                    PeerPort => $c{port}) or return 0;
    $handle->autoflush(1);
    print qq{<pre>Connected: $c{host}:$c{port}</pre>};

    return $handle
}