TIP: Click on subject to list as thread! ANSI
echo: 4dos
to: Jasen Betts
from: Gerald Miller
date: 2003-12-22 11:57:24
subject: new! improved!

Hello Jasen,

    Responding to a post in the 4DOS area:
    On Saturday December 20 2003 at 13:33,
    Jasen Betts [3:640/1042] wrote to All,
    about: new! improved!

Okay.  I had a chance to have a more serious look and have made the
following revisions....

:!  RAPID=Y         - don't delay after running progs
::  [added by GBM - Monday, December 22, 2003]
:!  LOGGING=0       - NO logging is performed
:!  LOGGING=1       - log execution of programs
::  [changed by GBM - Monday, December 22, 2003]
:!  LOGGING=2       - log also non-execution if user says no when asked
:!  LOGGING=3       - log also setting of options

............

:: what the head of each log line looks like
::  set LOGHEAD=%%_TIME%%  %{at}UPPER[%{at}NAME[%0]]:
::  [changed by GBM - Monday, December 22, 2003]<<
  set LOGHEAD=%%_TIME%%ÿ
::  NOTE: There is a "hard space" character (Alt 255 - on my system) at the
::  end of %%_TIME%%

............

The above change eliminates some redundancy within the log file:

=== Cut Old ===
----------  Mon 22 Dec, SCHED Process
! 09:44:43  SCHED: Nothing to do because it's all been done!
=== Cut Old ===

=== Cut New ===
----------  Mon 22 Dec, SCHED Process
! 09:44:43  Nothing to do because it's all been done!
=== Cut New ===

............

::  if "%1"=="HELP" .or.
"/HELP"=="%1" .or. "%1"=="-HELP" %=
::  [changed by GBM - Monday, December 22, 2003]
if "%{at}UPPER[%1]" =="HELP" .or.
"/HELP"=="%{at}UPPER[%1]" .or. %=
"%{at}UPPER[%1]"=="-HELP" %=
 ( *ffind  /VMKT"%{at}char[58]!" %_BATCHNAME | *list %+ goto usage )

............

:blankfile
    echos An empty %DATAFILE (with only the header) will now be created;
::  [changed by GBM - Monday, December 22, 2003]
echo  after
echos which you will have to edit and supply the correct data in the proper
echo  format...

............

::    if "%inp" eq "YES!" or then goto blankfile
::  [changed by GBM - Monday, December 22, 2003]
    if "%inp" eq "YES!" set tempfile=%DATAFILE %+ goto blankfile
    echo  The %DATAFILE data file was NOT overwritten!
    goto fin

............

:: logging addition by mfl
    if %LOGGING ge 1 %=
:: echo ! %LOGHEEAD% Nothing to do because it's all been done! >> %logfile
::  [changed by GBM - Monday, December 22, 2003]
   echo ! %LOGHEAD% Nothing to do because it's all been done! >> %logfile
    goto fin

............

::  set DY=%{at}DOW[%_DATE] %{at}DAY[%_DATE] %{at}SUBSTR[%DD%,%{at}EVAL[%{at}MONTH[%_DATE]%=
::* 3],3] %{at}SUBSTR[%{at}YEAR[%_DATE],2,2]
::  [changed by GBM - Monday, December 22, 2003]
  set DY=%{at}DOW[%_DATE] %{at}DAY[%_DATE] %{at}SUBSTR[%DD%,%{at}EVAL[%{at}MONTH[%_DATE]%=
* 3],3] %{at}SUBSTR[%_YEAR[%_DATE],2,2]

............

The above changes:

=== Cut Old ===
----------  Mon 22 Dec, SCHED Process
=== Cut Old ===

to this:

=== Cut New ===
----------  Mon 22 Dec 03, SCHED Process
=== Cut New ===



           Cheers ... Gerald

... The four stages of man are: infancy, childhood, adolescence & obsolescence.
--- GoldED+/DPMI32 v1.1.5-30512
* Origin: There's no intelligent life down here. (1:342/512)
SEEN-BY: 633/267 270
@PATH: 342/512 5 140/1 106/2000 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™.