Short help
220 - for opening connection
250 - for OK
354 - accept message, end with "." on a line by itself
221 - closing connection
---------------------------------------------------------
Long help
S:-Server C: Client
S: 220 ns.uzpak.uz ESMTP Sendmail 8.9.3/8.9.3; Thu, 4 Jan 2001 06:47:18
+0500
C: EHLO nt2000
S: 250-ns.uzpak.uz Hello cisco-a5.uzpak.uz [195.158.0.155], pleased to meet
you
C: MAIL From:<[EMAIL PROTECTED]> SIZE=509144
S: 250 <[EMAIL PROTECTED]>... Sender ok
C: RCPT To:<[EMAIL PROTECTED]>
S: 250 <[EMAIL PROTECTED]>... Recipient ok
C: DATA
S: 354 Enter mail, end with "." on a line by itself
C: Send message body
S: 250 GAA31855 Message accepted for delivery
C: QUIT
S: 221 ns.uzpak.uz closing connection
-----------------------------------------------------------------
very long help
Thu 2001-01-04 06:48:24: ----------
Thu 2001-01-04 06:46:28: [-1:7] Parsing Message
<c:\mdaemon\remoteq\pd50000002403.msg>
Thu 2001-01-04 06:46:28: [-1:7] From: [EMAIL PROTECTED]
Thu 2001-01-04 06:46:28: [-1:7] To: [EMAIL PROTECTED]
Thu 2001-01-04 06:46:28: [-1:7] Subject: qw
Thu 2001-01-04 06:46:28: [-1:7] Message-Id:
Thu 2001-01-04 06:46:28: [-1:7] Attempting to send message to gateway.
Thu 2001-01-04 06:46:28: [-1:7] Attempting SMTP connection to [195.158.0.1 :
25]
Thu 2001-01-04 06:46:28: [408:7] Waiting for socket connection...
Thu 2001-01-04 06:46:30: [408:7] Socket connection established
Thu 2001-01-04 06:46:30: [408:7] Waiting for protocol initiation...
Thu 2001-01-04 06:46:30: [408:7] 220 ns.uzpak.uz ESMTP Sendmail 8.9.3/8.9.3;
Thu, 4 Jan 2001 06:47:18 +0500
Thu 2001-01-04 06:46:30: [408:7] EHLO nt2000
Thu 2001-01-04 06:46:30: [408:7] 250-ns.uzpak.uz Hello cisco-a5.uzpak.uz
[195.158.0.155], pleased to meet you
Thu 2001-01-04 06:46:30: [408:7] 250-EXPN
Thu 2001-01-04 06:46:30: [408:7] 250-VERB
Thu 2001-01-04 06:46:30: [408:7] 250-8BITMIME
Thu 2001-01-04 06:46:30: [408:7] 250-SIZE
Thu 2001-01-04 06:46:30: [408:7] 250-DSN
Thu 2001-01-04 06:46:30: [408:7] 250-ONEX
Thu 2001-01-04 06:46:30: [408:7] 250-ETRN
Thu 2001-01-04 06:46:30: [408:7] 250-XUSR
Thu 2001-01-04 06:46:30: [408:7] 250 HELP
Thu 2001-01-04 06:46:30: [408:7] MAIL
From:<[EMAIL PROTECTED]> SIZE=509144
Thu 2001-01-04 06:46:32: [408:7] 250 <[EMAIL PROTECTED]>...
Sender ok
Thu 2001-01-04 06:46:32: [408:7] RCPT To:<[EMAIL PROTECTED]>
Thu 2001-01-04 06:46:33: [408:7] 250 <[EMAIL PROTECTED]>... Recipient ok
Thu 2001-01-04 06:46:33: [408:7] DATA
Thu 2001-01-04 06:46:33: [408:7] 354 Enter mail, end with "." on a line by
itself
Thu 2001-01-04 06:46:33: [408:7] Sending
<c:\mdaemon\remoteq\pd50000002403.msg> to [195.158.0.1]
Thu 2001-01-04 06:49:36: [408:7] Transfer Complete.
Thu 2001-01-04 06:49:40: [408:7] 250 GAA31855 Message accepted for delivery
Thu 2001-01-04 06:49:40: [408:7] QUIT
Thu 2001-01-04 06:49:40: [408:7] 221 ns.uzpak.uz closing connection
Thu 2001-01-04 06:49:40: [408:7] SMTP session successful, 509229 bytes
transferred.
Thu 2001-01-04 06:49:40: ----------
Alexander
----- Original Message -----
From: Kristofer Wolff <[EMAIL PROTECTED]>
To: perllist <[EMAIL PROTECTED]>
Sent: Wednesday, January 03, 2001 8:43 PM
Subject: SMTP server (??)
> 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
>
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
