And this is effectively what I WANT to happen...
[C] TAKETHIS <i.am.an.article.you.will.w...@example.com>
[C] Path: pathost!demo!somewhere!not-for-mail
[C] From: "Demo User" <nob...@example.com>
[C] Newsgroups: misc.test
[C] Subject: I am just a test article
[C] Date: 6 Oct 1998 04:38:40 -0500
[C] Organization: An Example Com, San Jose, CA
[C] Message-ID: <i.am.an.article.you.will.w...@example.com>
[C]
[C] This is just a test article.
[C] .
# . indicates the end of the article. Perl now starts to do work,
processing the article it received. As this process takes time, the
main while (1) { loop reading from the socket is now blocked, causing
the server not to read any more from the socket until after the
article has been dealt with.
[C] TAKETHIS <i.am.an.article.you.h...@example.com>
[C] Path: pathost!demo!somewhere!not-for-mail
[C] From: "Demo User" <nob...@example.com>
[C] Newsgroups: misc.test
# Perl server only NOW responds with an acceptance code for the first article.
[S] 239 <i.am.an.article.you.will.w...@example.com>
[C] Subject: I am just a test article
[C] Date: 6 Oct 1998 04:38:40 -0500
[C] Organization: An Example Com, San Jose, CA
[C] Message-ID: <i.am.an.article.you.h...@example.com>
[C]
[C] This is just a test article.
[C] .
# Perl server only NOW responds with an acceptance code for the second article.
[S] 239 <i.am.an.article.you.h...@example.com>
I am now presuming that we've read both articles completely (all
lines) from the socket.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
