hi, in the attachmant is my server, everyone who interestet in.
one problem is still there, if I sending 3 mails, only the first and the
second are araiving.
i suppose I have do somthing with fork ... ?
the main:
----------------------
use Socket;
use IO::Socket;
use File::Find;
use File::Basename;
use Net::DNS;
$mail_dir = dirname($0);
$PORT = 25;
$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())
{
&income_handle;
}
---------------------------------------
any suggestion ?
thanx, kris.
port25.pl
