home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / lm2_100.lzh / lm2.cmd < prev    next >
OS/2 REXX Batch file  |  1994-09-11  |  3KB  |  87 lines
  1. /*              LogManager/2            */
  2. /*                                      */
  3. /*              Version 1.00            */
  4. /*                                      */
  5. /*             By Chris Snell           */
  6. /*           Deadicated Software        */
  7.  
  8. /*  DO NOT DISTIBUTE THIS SOFTWARE IF IT IS IN MODIFIED FORM!  SEE LM2.DOC FOR DETAILS!  */
  9.  
  10.  
  11. Call RxFuncAdd 'SysLoadFuncs','REXXUTIL','SysLoadFuncs'
  12. Call SysLoadFuncs
  13.  
  14. Configfile='LM2.CFG'
  15.  
  16. Call CopyInfo
  17.  
  18. ExistConfig = SysFileTree(Configfile,'TestingCfg','F')
  19. If TestingCfg.0 = 0 Then
  20.    Say 'I cannot find LM2.CFG!'
  21. Else Say 'Processing Configuration File... Done!'
  22.  
  23. TodaysDate = Date('N')
  24. Say' '
  25. Say'Processing logfiles for' TodaysDate'.'
  26. Say' '
  27. Do While CurrentLine > ''
  28.   CurrentLine = LINEIN(Configfile)
  29.  
  30.     If Pos('%', CurrentLine) = 0 then Do
  31.        Parse Upper Var CurrentLine TrashVerb CurrentLine
  32.  
  33.       /* begin scanning for verbs */
  34.  
  35.          If Pos('TRANSLATE',TrashVerb) > 0 then Do
  36.            Parse Upper Var CurrentLine Logname CurrentLine
  37.            Parse Upper Var CurrentLine LogFileEnd
  38.            Logname = Strip(Logname,'B')
  39.            Logend = Strip(LogfileEnd,'B')
  40.            Temp = length(Logname)
  41.  
  42.            If Temp > 0 then Do
  43.              '@Echo Off'
  44.              TheDate = date('S')
  45.              NewLogfileEnd = Insert('.', LogFileEnd)
  46.              TheYear=Left(TheDate,4)
  47.              TheMonth=SubStr(TheDate,5,2)
  48.              TheDay=SubStr(TheDate,7,2)
  49.              MonthDay = Insert(TheMonth,TheDay)
  50.              NewDate = Insert(MonthDay,TheYear)
  51.              NewLogfileName = Insert(NewDate,NewLogfileEnd)
  52.              OldLogfileName = Insert(Logname, '.LOG')
  53.              ExistNewLogFile = SysfileTree(NewLogfileName,'TestingNewLogFile','F')
  54.  
  55.              If TestingNewLogFile.0 = 1 Then Do
  56.                Say ''NewLogfilename 'already exists...  Prepare for errors!'
  57.              End
  58.  
  59.              ExistLogFile = SysFileTree(OldLogfileName,'TestingLogfile','F')
  60.  
  61.              If TestingLogfile.0 = 1 Then Do
  62.                LogName = insert(Logname,'.LOG')
  63.                Temp = Length(Logname)
  64.                Tempname = insert(' ',Logname,Temp, 12-temp)
  65.                Say 'Renaming' Tempname' ->' NewLogFileName''
  66.                Ren OldLogFileName NewLogFileName
  67.              End
  68.                 If TestingLogfile.0 = 0 Then Do
  69.                  Say ''OldLogFileName 'not found!'
  70.                 End
  71.              End
  72.        End
  73.     End
  74. End
  75. Exit
  76.  
  77. CopyInfo: Procedure
  78.  
  79. Say ' '
  80. Say '    ░░░░▒▒▒▒▓▓▓▓████'
  81. Say '    LogManager/2'
  82. Say '   By Chris Snell'
  83. Say 'Deadicated Software'
  84. Say '████▓▓▓▓▒▒▒▒░░░░    '
  85. Say ''
  86. Return
  87.