Re: About the name PNNTP


"Mats Peterson" <matsp555@xxxxxxxxx> wrote in message
news:DN2Pj.6373$R_4.5088@xxxxxxxxxxxxxxxxxx
Mike Dee <emteedee@xxxxxxxxxxxxxxxx> wrote:
In article <CI%Oj.6368$R_4.5046@xxxxxxxxxxxxxxx>,
Mats Peterson <matsp555@xxxxxxxxx> wrote:

Can't say I like it very much, but at least it won't clash with that
other pnews stuff...

How about Pnewsreader? Too long?


Yeah, a bit :-) Well, it's good enough, this one.

Mats,
good news
Killfiles and filters work!

I changed the location of the resource files and added debug info, so I can
see messages from the server:

use constant {SUBJ => 0, FROM => 1, DATE => 2, ID => 3, REFS => 4};
use constant {POST => 0, REPLY => 1};
use constant NNTP_DEBUG => 1;


my $pnntprc = "pnntp.rc";
my $newsrc = "news.rc";
my $killrc = "kill.rc";
my @filter = ();
my $sigfile = "$ENV{'USERPROFILE'}\\signature.txt";
my @sig = ();


sub conn_server {
$nntp and disc_server;
$nntp = Net::NNTP->new($nntp_host, 'Debug' => NNTP_DEBUG) or do
{prompt "Couldn't connect to `$nntp_host'"; return};
$nntp->reader();
$nntp_user and $nntp_pass and
($nntp->authinfo($nntp_user, $nntp_pass) or do
{prompt $nntp; disc_server});
}


This is what kill.rc looks like:
^From:.*<cbfalconer@xxxxxxxxx>
^Subject:.*memset
^Message-ID:.*googlegroups

Cbfalconer has the distinction of being the first person in my perl
killfile. He worked hard to get there. Obnoxious, dyspeptic, and always
wrong, he's an OS bigot to boot. Congratulations, Chuck.

The filter with memset worked too. How do we killfilter shoes, watches, sex
for pedophiles and the rest of it?

I asked for ten files from comp.lang.c and got only 4 with the original
settings. I think the missing 6 were googlegroups.

Bravo, Mats. What all do I need to do to be able to post now?
--
"Life in Lubbock, Texas, taught me two things: One is that God loves you
and you're going to burn in hell. The other is that sex is the most
awful, filthy thing on earth and you should save it for someone you love."

~~ Butch Han***


.

Loading