home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / ftpfid17.zip / FTPMON.CMD < prev    next >
OS/2 REXX Batch file  |  1996-07-13  |  1KB  |  41 lines
  1. /* ftpstatm.cmd   */
  2. ftprpt = 'f:\bbs\logs\ftprpt.log'
  3. ftpmon = 'f:\bbs\logs\ftpmon.log'
  4.  
  5. New=Directory('f:bbs\logs')
  6.     
  7.     IF Stream(ftprpt,'C', 'Query Exists') <>' ' Then
  8.     Do
  9.     rc = stream(ftprpt,'C','open read')
  10.     total_sent = 0
  11.     total_rec = 0
  12.     total_time = 0
  13.     total_sec = 0
  14.     session_total = 0
  15.      do until LINES(ftprpt) = 0
  16.       line = LINEIN(ftprpt)
  17.       parse var line dae mon yr sent stat sentmuch bytes dytes recmuch rest muchtime mi muchsec se ap bp etime
  18.         total_sent = total_sent + sentmuch
  19.         total_rec = total_rec + recmuch
  20.         total_time = total_time + muchtime
  21.         total_sec = total_sec + muchsec
  22. if etime <> '' then
  23.         session_total = session_total + etime
  24.         if total_sec > 59 then
  25.           do
  26.         total_time = total_time + 1
  27.         total_sec = total_sec - 60
  28.           end
  29.  
  30.        end /* Do Until */
  31.        rc = stream(ftprpt,'C','close')
  32.        del 'ftprpt.bak'
  33.        ren 'ftprpt.log ftprpt.bak'
  34.        total_secs = total_time*60 + total_sec
  35.        total_t = total_sent + total_rec
  36.        appbps = total_t % total_secs
  37.        rc = stream(ftpmon,'C','open write')
  38.        rc = lineout(ftpmon,date('N') 'Monthly Stats: 'total_sent 'sent - 'total_rec 'recieved 'total_time%60 'hours or 'total_time 'minutes 'total_sec 'secs. 'appbps 'bps. 'session_total%60)
  39.        rc = stream(ftpmon,'C','close')
  40.      end
  41. exit