Path: archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsfeed.media.kyoto-u.ac.jp!newsfeed.icl.net!newsfeed.fjserv.net!proxad.net!newsfeed.tpinternet.pl!news.atman.pl!news.intercom.pl!f124.n480!f127.n480!f112.n480!f200.n2432!f605.n774!f954.n640!f531.n640!f1042.n640!not-for-mail
Newsgroups: fido.4dos
Distribution: fido
From: Jasen Betts 
Date: Wed, 17 Dec 03 06:58:54 +0100
Subject: long BTM file
Message-ID: 
References: 
Organization: Money is the root of all wealth.
Lines: 52
Xref: archiver1.google.com fido.4dos:70

Hi mark.

16-Dec-03 10:21:36, mark lewis wrote to Jasen Betts


 JB>> cool, I pasted it in and then pushed it around a bit and stuck a
 JB>> few ifs in to make some bits optional and shorten some of the
 JB>> long lines and one minior change:

 ML>>> Executing %@UPPER[%[run%m]]... >> %logfile

 JB>> I removed %@upper because some programs are case-sensitive with
 JB>> their commad-line options.

 ml> ahhh... i wasn't quite aware that it logged the command line
 ml> options, too... the main idea was to log with application being
 ml> executed... preferrably without the path or extension but that's
 ml> ok, too... i guess it doesn't really matter that much..

 ml>>> there should possibly be a log entry for the A rule and how it
 ml>>> was answered for the program being asked about running... i
 ml>>> haven't dug that far into it, though... still trying to figure
 ml>>> out some of the syntax..

 JB>> I've added that too, also logging of options... I've just gotta
 JB>> test it now!

 ml> cool... look forward to the next release/update...

I want to speed this bit up first.... it seems to be slowing everything
down.  after I fix it (or give up) I'll post the new version.

    set RULE=%[RULES].
    do while "%RULE" ne ""
     set X=%@INSTR[0,1,%RULE]
     set RULE=%@INSTR[1,99,%RULE]

     iff %@index[+-0123456789,%[x]] ne -1 then
        set V=%[V]%[X]
     else
        if "%V" == "" set V=0
        if "%[RULE_%R]" ne "" set V= %V
        set RULE_%R=%[RULE_%R]%V
        set V=
        SET R=%@UPPER[%[X]]
     endiff
  enddo



 -=> Bye <=-