home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / podstawy / dos / 4dos / 4uzytki / ez-btm11.exe / LOADER.ZIP / KR.BAT < prev    next >
DOS Batch File  |  1994-05-16  |  2KB  |  78 lines

  1. : KR.BAT
  2. : Runs KERMIT, then records working time in a log of the month (the log
  3. : is created by this batch file for each month under the name KERM-mmm.LOG
  4. : (where 'mmm' stand for the first three characters of the month's name).
  5. :
  6. : When shelling to DOS, if your prompt was designed to show which
  7. : pgm is loaded, it will indicate that Kermit is on. (See 4start.btm for
  8. : formula.)
  9. : Itamar Even-Zohar (itamarez@plato.tau.ac.il)
  10.  
  11. setlocal
  12. set kermpath=C:\KR
  13. REM          ^^^^^ change as appropriate.
  14. set compuname=%@label[%_disk]
  15. cdd %kermpath
  16.  
  17. :: set compuname=%@lower[%@label[%_disk:]]
  18. :: if .%compuname==.xxxxxxxx goto pgms
  19. :: (You can cancel the whole report procedure by activating
  20. :: the above lines, and the line at 'abolish:' below.
  21. :: Replace 'xxxxxxxx' by the label of your computer.
  22.  
  23. gosub log_name
  24.  
  25. timer | set tm=%@LINE[con,0]
  26.   rem sets timer's results on 'tm'
  27. echo %_date, %_time, %tm >> %log_name
  28.   rem puts time, date & starting time into file %log_name
  29.  
  30. :pgms
  31. iff not "%pgm"=="" then
  32.  set oldpgm=%pgm
  33.  set pgm=kermit(%pgm)
  34.  else
  35. set pgm=kermit
  36.  endiff
  37.  
  38. cls
  39. ks 0 %1 enter^kermit.exe -f mskermit.ini
  40.  
  41. : (when kermit is exited:)
  42. set pgm=%oldpgm
  43. set oldpgm=
  44.  
  45. :: :abolish
  46. :: if .%compuname==.xxxxxxxx goto exit
  47. :: (You can cancel the continuation of the report procedure by
  48. ::  activating the above line.)
  49.  
  50. timer | set tm=%@LINE[con,0]
  51. echo %_date, %_time, %tm %@char[13] >> %log_name
  52. unset tm
  53. ks end^list %log_name
  54.  
  55. :exit
  56. endlocal
  57. quit
  58.  
  59. :-----------sub-routine----------------
  60. :log_name
  61. set date=%@SUBSTR[%_date,0,2]
  62.       iff %date==01 then ^ set da=Jan
  63.   elseiff %date==02 then ^ set da=Feb
  64.   elseiff %date==03 then ^ set da=Mar
  65.   elseiff %date==04 then ^ set da=Apr
  66.   elseiff %date==05 then ^ set da=May
  67.   elseiff %date==06 then ^ set da=Jun
  68.   elseiff %date==07 then ^ set da=Jul
  69.   elseiff %date==08 then ^ set da=Aug
  70.   elseiff %date==09 then ^ set da=Sep
  71.   elseiff %date==10 then ^ set da=Oct
  72.   elseiff %date==11 then ^ set da=Nov
  73.   elseiff %date==12 then ^ set da=Dec
  74.       endiff
  75. set log_name=KERM-%DA.LOG
  76. if not exist %kermpath\%log_name (echo %log_name > %kermpath\%log_name)
  77. return
  78.