TIP: Click on subject to list as thread! ANSI
echo: ra_support
to: All
from: Allen Prunty
date: 2016-09-13 01:39:18
subject: Need Help with ELEBBS nwsfltr.pas file

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)
SEEN-BY: 19/33 75 34/999 90/1 116/18 120/331 123/500 128/187 140/1 218/700
SEEN-BY: 222/2 230/150 240/1120 261/38 100 266/404 267/155 280/1027 282/1031
SEEN-BY: 282/1056 292/907 908 320/119 219 340/400 393/68 396/45 633/267 280
SEEN-BY: 640/384 712/620 848 770/1 801/161 189 2320/100
@PATH: 2320/100 261/38 712/848 633/267

SOURCE: echomail via fidonet.ozzmosis.com

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.