in reply to Re: Net::NNTP ping?
in thread Net::NNTP ping?
$ perl -MNet::NNTP -MSocket -e '$n=Net::NNTP->new(localhost,Port=>1199 +,Timeout=>10,Debug=>1);print $n->date()||"undef"' Net::NNTP>>> Net::NNTP(2.22) Net::NNTP>>> Net::Cmd(2.24) Net::NNTP>>> Exporter(5.562) Net::NNTP>>> IO::Socket::INET(1.25) Net::NNTP>>> IO::Socket(1.26) Net::NNTP>>> IO::Handle(1.21) Net::NNTP=GLOB(0x826b0b0)<<< 200 Leafnode NNTP Daemon, version 1.9.31. +rel running at localhost (my fqdn: xxxx.client.attbi.com) Net::NNTP=GLOB(0x826b0b0)>>> MODE READER Net::NNTP=GLOB(0x826b0b0)<<< 200 Leafnode 1.9.31.rel, pleased to meet +you! Net::NNTP=GLOB(0x826b0b0)>>> DATE Net::NNTP=GLOB(0x826b0b0)<<< 500 Unknown command Net::NNTP=GLOB(0x826b0b0)>>> QUIT Net::NNTP=GLOB(0x826b0b0)<<< 205 Always happy to serve! undef ^- output
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: Re: Net::NNTP ping?
by robobunny (Friar) on Jan 02, 2004 at 14:27 UTC |