| Subject: | news response "Server" header with leafnode 2 |
| Date: | Sun, 29 Nov 2009 08:59:25 +1100 |
| To: | bug-libwww-perl [...] rt.cpan.org |
| From: | Kevin Ryde <user42 [...] zip.com.au> |
With debian packaged libwww-perl 5.834 and perl 5.10.1, the program
foo.pl below prints
2.0.0.alpha20070602a, pleased to meet you!
on a leafnode 2 news server, where I hoped it would have the name
"Leafnode" in there.
The string from $nntp->message, after Net::NNTP does "MODE READER", is
Leafnode 2.0.0.alpha20070602a, pleased to meet you!
but I see LWP::Protocol::nntp chops off the first word. Is there a
reason for that? Perhaps it could only strip known superfluous first
words, in the interests of not losing information.
use strict;
use warnings;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $resp = $ua->head('news://localhost/comp.lang.perl.misc');
my $server = $resp->header('Server');
print $server,"\n";