Hi All,
I'm using Net::NNTP to transfer articles from servers. My aim is to write
an NNTP proxy.
I obtain the article from my parent news server, write the file to disk, and
serve the current, as well as future requests for that article from the
local file on the disk. My results are very inconsistent, and I suspect
that it is related to the \r\n line breaks conflicting with the binary data
retrieved from the article (a line may include \r\n when it's not actually
meant to indicate the END of a line). I am currently using:
local $/ = "\r\n";
my $Article = $nntp->article($Command['1']);
if ($Article) {
# The parent has the article! Let's take it.
open FILE, ">:raw", $File or die $!;
binmode(FILE);
foreach my $line (@$Article) {
print FILE $line;
}
close(FILE);
$ReturnStr = "220 0 " . $Command['1'] . "\r\n";
open FILE, "<:raw", $File;
binmode(FILE);
foreach my $line (<FILE>) {
$ReturnStr .= $line;
}
close(FILE);
$ReturnStr .= ".\r\n";
binmode(STDOUT);
print $ReturnStr;
For some articles, the above code is absolutely fine and no problems are
returned. For others, the binary attachments to the article (regardless of
type of file), is corrupt, and cannot be opened. The results are also very
inconsistent, and being binary I'm not exactly sure how to provide samples
of what works and what doesn't. I've analysed packet captures excessively,
and I am definitely getting all the data correctly, and consistently from my
parent news server - the problem is related to me writing the file to the
local disk, and serving the content of that file from the local disk.
Hopefully someone can assist and point me towards the right direction -
after spending close to a week on this, I'm ready to pull out my hair! :-(
--
Chris.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
