| TIP: Click on subject to list as thread! | ANSI |
| echo: | |
|---|---|
| to: | |
| from: | |
| date: | |
| 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™.