Hi, I am trying to fetch messages out of a mail program like the comunicator
or outlook sended to the server, but I always gets an error (quit) after i
sending
250 OK\r\n
back to the client.
My Test PL:
#! c:/perl/bin/perl.exe -w
use IO::Socket;
use Net::hostent;
$PORT = 25;
$server = IO::Socket::INET->new( Proto => 'tcp',
LocalPort => $PORT,
Listen => SOMAXCONN,
Reuse => 1);
die "can't setup server" unless $server;
print "[Server $0 accepting clients]\n";
while ($client = $server->accept())
{
$poptime = localtime();
print "$poptime OK->\n";
print $client "250 OK\r\n";
while ( <$client>)
{
print "income: $_\n";
#print $client "250 OK\r\n";
}
close $client;
print "closed \n";
}
----------------
any help ?
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
