Karl Vogel <vogelke(_at_)c17mis(_dot_)region2(_dot_)wpafb(_dot_)af(_dot_)mil>
writes:
I have a small Perl script called "pgnews" which opens a connection to
an NNTP server, gets unread news articles in groups of your choice, and
stores them in SMTP-formatted mail files. You could then run procmail
on the mailbox.
The script is about 9,000 bytes, making it a bit too long to post.
If any kind soul (Jari?) is willing to provide FTP/Web access to this
script, please let me know.
Carl, setup your file server, I can offer TPFS/MPFS procmail modules that
you could use right away. (See X-info)
But if that's not an option I can provide script from my
file server.
Hah :-) If I remember correct I have the same pgnews script back
from 1993 when I made some modifications and cleaned it up a bit.
It worked like a charm back them. But I haven't looked it again for
years, now when I use Emacs Gnus for news handling.
Hm, should I check it again and update it to Perl5 ?
jari
#** SOURCE NAME | pgnews, (Perl Get News)
#** |
#** SYNOPSIS | pgnews [-h hostname]
#** |
#** DESCRIPTION | pgnews goes to a specified NNTP server
#** | and retrieves news articles by newsgroup
#** | and saves them to a specified file in
#** | mailbox format.
#** | Please see the NOTES section.
#** |
#** CHANGES | Programmer: Date: Reason/Comments
#** | Jeffrey B. McGough 09-05-91 initial
#** | Jeffrey B. McGough 09-06-91 Added select (see FIXES)
#** | Jeffrey B. McGough 10-06-91 Fixed erronious end of article
#** | Jeffrey B. McGough 07-09-92 Fixed dup article bug
#** | Jeffrey B. McGough 07-13-92 (See FIXES)
#** | Jeffrey B. McGough 07-27-92 VERSION 2.0 (See FIXES)
#** |
#** NEW FEATURES| Programmer:
#** ADDED| Jari Aalto 02-03-93 allow Comments for startup file
#** | Configuration field added
#** |
#** NOTES | Pgnews needs a file named .pgnews to read
#** | its newsgroup, last message, and savefile from.
#** | .pgnews format is:
#** | newsgroup number savefile
#** | Example:
#** | comp.unix.wizards 7800 cuw
#** | comp.unix.shell 3203 cus
#** | comp.unix.questions 546 cuq
#** |
#** | comp.unix.wizards will be saved to file cuw in
#** | mailbox format starting at article 7800 etc.
#** |