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)