home bbs files messages ]

Just a sample of the Echomail archive

<< oldest | < older | list | newer > | newest >> ]

 Message 553 
 Allen Prunty to All 
 Need Help with ELEBBS nwsfltr.pas file 
 13 Sep 16 01:39:18 
 
   Hello everybody!

Since ELEBBS is a clone of Remoteaccess and it has no place of it's
own I'm guess this is the most appropriate place.

I'm useing ELENEWS to download a few newsgroups as it's quite a bit
more effective than gating to FTS back and forth.

ELEBBS has a pascal like script... I'm not a programmer but usually
can do pretty well when there's an example or two in the scripts and
can get things going.

ELEBBS has a pascal-like scripting progrma.  I'm looking at it's
NWSFILT.PAS file and havent' a clue how to make this darn script
filter the spam out of the news.  It's pretty simple to enter the
strings of my filter criteria in it.  In fact I once wrote a NNTP
filter in cobol (yes cobol) which was pretty good at massaging data.
Complicated by a recent brain injury i'm not the best... but there's
nothing here to go by.  Can someone please take a look.

The script is in it's entirety below.

Thanks

Allen

---- SNIP

program NWSFILT;
(*
**
** EleBBS EleXer source.
** Filter for EleNEWS.
**
** Created: 24-may-2001
** Last update: 24-may-2001
** Written by: Maarten Bekers
**
*)

type ArticleRecord = record
                       FromWho : String;
                       Subject : String;
                       MsgSize : Integer[4];
                       MsgLines: Integer[4];
                       Headers : Array[1..50] of String;
                       HdrLines: Integer[4];
                     end; { ArticleRecord }

var ArticleInf: ArticleRecord;
begin
  {-- now get the header as read by EleNEWS
----------------------------------}
  GetNewsArticleHeader(ArticleInf);

  {-- we can add checking here. if our return value is NO the message
wont ---}
  {-- be downloaded any further
----------------------------------------------}
   {  ...  }

  {-- we accept all messages by default
--------------------------------------}
  SetResultValue('YES');
end. { nwsfilt }

----------------- END SNIP

Not a clue :-(

Allen


-+-
 + Origin: LiveWire BBS - Telnet://livewirebbs.com (1:2320/100)

=== Cut ===

Allen


... A wise man can see more from a mountain top than a fool can from the
---
 * Origin: LiveWirebbs.com -=* Making BBSing Great Again *=- (1:2320/100)

<< oldest | < older | list | newer > | newest >> ]

(c) 1994,  bbs@darkrealms.ca