home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / sysutl / setpgms.arc / NLOG.BAT < prev    next >
Encoding:
DOS Batch File  |  1987-01-16  |  4.0 KB  |  123 lines
  1. echo off
  2. rem .BAT file to log computer usage Copyright 1986 A. B. Krueger GPW MI 48236.
  3. rem Customization section start:
  4. set logdir=c:\$temp
  5. set progdir=c:\utility\
  6. rem Customization section end:
  7. :top
  8.  %progdir%setnow
  9.  echo Time is now: %time% %date% 
  10.  if exist %logdir%\oldlog.log goto close
  11.  if z%1 == z   goto getwho
  12.  if z%1 == zin goto getwho
  13.  if z%1 == zIN goto getwho
  14.  if z%1 == zon goto getwho
  15.  if z%1 == zON goto getwho
  16.  if z%1 == zout goto notlogged
  17.  if z%1 == zOUT goto notlogged
  18.  if z%1 == zoff goto notlogged
  19.  if z%1 == zOFF goto notlogged
  20.  echo Correct parmeters are: OFF and ON. The default is ON.
  21.  goto exit
  22.  
  23. :getwho
  24.  rem echo Enter your initials or quit, then ─┘
  25.  echo Enter your initials then ─┘
  26.  %progdir%setread who /u
  27.  rem if z%who% == zQUIT goto exit
  28.  if z%who% == zJSK goto gotwho
  29.  if z%who% == zDLK goto gotwho
  30.  if z%who% == zSAK goto gotwho
  31.  if z%who% == zSLK goto gotwho
  32.  if z%who% == zABK goto gotwho
  33.  echo Only Krueger household initials are accepted, not %who%!!!
  34.  goto getwho
  35.  
  36. :gotwho
  37.  if %who% == JSK set username=Joe
  38.  if %who% == DLK set username=Dan
  39.  if %who% == SAK set username=Sarah
  40.  if %who% == SLK set username=Sue
  41.  if %who% == ABK set username=Arny
  42.  %progdir%setglob username=%username%
  43.  echo %username%, please type Business or Pleasure (B or P)
  44.  %progdir%setread busplea /u /f
  45.  if z%busplea% == zB goto gotbus
  46.  if z%busplea% == zP goto gotbus
  47.  echo only B or P are allowed
  48.  goto gotwho
  49.  
  50. :gotbus
  51.  if %busplea% == B set type=business
  52.  if %busplea% == P set type=pleasure
  53. :getdesc
  54.  echo %username%, please type a short description of the 
  55.  echo  %type% computer usage planned for this session, then -┘
  56.  %progdir%setread desc 
  57. :gotdesc
  58.  if z%desc% == z goto getdesc
  59.  echo %date% %time% %busplea% login %who% %desc% >%logdir%\oldlog.log 
  60.  echo %date% %time% %busplea% login %who% %desc% >>%logdir%\cumlog.log 
  61.  echo %date% %time% C checkpoint >%logdir%\newlog.log 
  62.  echo %username%, you are logged in to do %type% computer usage.
  63.  set type=
  64.  echo  If you change the type of work you are doing, log in again using the
  65.  echo  LOG command
  66.  goto exit
  67.  
  68. :close
  69.  echo Open log entry exists:
  70.  type %logdir%\oldlog.log 
  71.  echo Last log checkpoint data:
  72.  type %logdir%\newlog.log 
  73. :getsess
  74.  if z%1 == zout goto getclose
  75.  if z%1 == zOUT goto getclose
  76.  if z%1 == zoff goto getclose
  77.  if z%1 == zOFF goto getclose
  78.  echo Do you wish continue this session? (Y or N)
  79.  %progdir%setread answer /u /f
  80.  if z%answer% == zY goto exit
  81.  if z%answer% == zN goto getclose
  82.  echo only Y or N are allowed
  83.  goto getsess
  84. :getclose
  85.  echo Do you wish to close open log entry with data from checkpoint? (Y or N)
  86.  %progdir%setread answer /u /f
  87.  if z%answer% == zY goto gotoff
  88.  if z%answer% == zN goto getoff
  89.  echo only Y or N are allowed
  90.  goto getclose
  91.  
  92. :gotoff
  93.  copy %logdir%\cumlog.log+%logdir%\newlog.log /B %logdir%\cumlog.log /B >nul
  94.  echo %username%, you are logged out.
  95.  goto closej
  96.  
  97. :getoff
  98.  echo Enter time off, or hit -┘ for %time%
  99.  %progdir%setread oldtime /u
  100.  if z%oldtime% == z set oldtime=%time%
  101.  echo Enter date off, or hit -┘ for %date%
  102.  %progdir%setread olddate /u
  103.  if z%olddate% == z set olddate=%date%
  104.  echo %olddate% %oldtime% L logout >>%logdir%\cumlog.log 
  105.  echo %username%, you are logged out.
  106. :closej
  107.  if exist %logdir%\oldlog.log del %logdir%\oldlog.log 
  108.  if exist %logdir%\newlog.log del %logdir%\newlog.log 
  109.  if z%1 == z goto getwho
  110.  goto exit
  111.  
  112. :notlogged
  113.  echo %username%, You are not currently logged on! No action taken.
  114. :exit
  115.  set oldtime=
  116.  set olddate=
  117.  set who=
  118.  set busplea=
  119.  set desc=
  120.  set progdir=
  121.  set answer=
  122.  
  123.