i build up a connection:
----------------------------------------------------------
$server = IO::Socket::INET->new( Proto => 'tcp',
LocalPort => $PORT,
Listen => SOMAXCONN,
Reuse => 1);
my $name = (gethostbyname ('localhost'))[0];
my $addr = (gethostbyname ($name))[4];
$this_server = (gethostbyaddr ($addr, AF_INET))[0];
die "can't setup server" unless $server;
print "[SMTPserver \"$this_server\" accepting clients]\n";
print "-"x 60;
print "\n";
while ($client = $server->accept())
{
# do the code thing 220...
}
--------------------------------------------------------------
how does fork do ?
while ($client = $server->accept())
{
? while($pid= fork)
? {
# do the code thing 220...
? }
}
###
??? where can I find an example ?
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
