NNTP problem 1

[redgenie]

I have a script that fetches a list of active articles into an array and it is working fine.

use Net::NNTP;

my $nntp= Net::NNTP->new($newsServer, Timeout => 60, Debug => 0);
$nntp->group($group);
my $listPointer=$nntp->listgroup();

This code fetches ALOT of articles in many cases and what I want to do is fetch only "recent" articles.

Apparantly this can be done with the "newnews" method, but I cannot get it to return anything!

use Net::NNTP;

my $nntp= Net::NNTP->new($newsServer, Timeout => 60, Debug => 0);
$nntp->group($group);
my $listPointer=$nntp->newnews($since);

I've tried all kinds of values for $since ranging from 0 to 1 to epoch-10000 and even dates.

Does anyone have any ideas what I could be doing wrong, I can't find any better documentation on the method than this

http://secu.zzu.edu.cn/book/Perl/Perl Bookshelf [3rd Ed]/perlnut/ch17_02.htm

Thanks in advance

 

[redgenie]

I answered my own question, there is a great explanation here:

http://www.activexperts.com/activmonitor/functions/nntp/rfc977/

Hope this helps someone else

 

[redgenie]

I spoke too soon, there is another explanation here, that would seem to make sense except it seems to think that "group" should go before the "since". Yet it still doesn't work.

http://www.dwam.net/docs/perl/site/lib/News/NNTPClient.html

use Net::NNTP;

my $nntp= Net::NNTP->new($newsServer, Timeout => 60, Debug => 0);
$nntp->group($group);
my $listPointer=$nntp->newnews(time()-86400);

Now surely that should work! All articles in the last day, but it doesn't and there definately are articles!

 

[redgenie]

C'mon you guys, someone must know whats wrong :~

 

[redgenie]

Would you believe it, this works:

use Net::NNTP;

my $nntp= Net::NNTP->new($newsServer, Timeout => 60, Debug => 0);
$nntp->group($group);

my $since=time()-86400;
my $listPointer=$nntp->newnews("$since");

If only all the documentation on the net said that!!

 

[MikeLacey]

nice

Mike

"Deliver me from the bane of civilised life; teddy bear envy."

Want to get great answers to your Tek-Tips questions? Have a look at faq219-2884