#!/usr/local/bin/rexx

TRACE OFF

PARSE ARG user

IF user='' THEN DO
   SAY 'Unesi username BRE! ;>'
   EXIT
   END

'last 'user' | grep ttyC >FIFO'
'last 'user' | grep ttyS >FIFO'

max=QUEUED()

Ukupno=0
DO i=1 TO max
   PARSE PULL line
   IF word(line, 1)="wtmp" THEN ITERATE
   IF strip(line)="" THEN ITERATE
   PARSE VAR line . 40 day mon dat tim .
   PARSE VAR line . '(' time ')' .
   IF time="" THEN time=0
   ELSE DO
      PARSE VAR time sat':'min
      PARSE VAR sat d'+'s
      IF s<>"" THEN DO
         sat=s*24+s
         END
      time=sat*60+min
      END
   Ukupno=Ukupno+time 
END

SAY '            Ova osoba je ukupno provela:' ukupno 'minuta.'
IF ukupno>0 THEN DO
   dd=''
   x=TRUNC(ukupno/60)
   y=RIGHT('00'ukupno-(x*60), 2)
   IF x>24 THEN DO
      dana=TRUNC(x/24)
      z=x-(dana*24)
      x=z
      dd=dana' dana '
   END

   SAY '            A to je negde oko:' dd x':'y 'sati.'
   SAY '            Ovo vreme se racuna od:' day mon dat tim
   END
EXIT ukupno
