Т ******************** Т *** Compute time *** Т ******************** (DТ outputs the total time spent online thanks to a ARMtcp logfile 2 <1Х "Nom complet du log ARMTCP Ю analyser";Log$ F Phandle%=▌(Log$) Ztotal%=0 d nх∙ ╛е#handle% x ═ У ║ Line$=єgetline(handle%) ╙ pos%=їLine$,"Online") Є Щ pos%>0 └ е#handle% Ў start%=єdecodetime(Line$) х р У Ф Line$=єgetline(handle%) П" pos%=їLine$,"Disconnecting") З Щ pos%>0 └ е#handle% end%=єdecodetime(Line$) Т Beware of wrap-around ! "" Г start%>end% ▄ end%+=24*3600 , subtotal%=(end%-start%) 6 total%+=subtotal% @н JFЯ "Total time:";total%;" seconds online ["+єencodetime(total%)+"]" T ы#handle% ^Ю h rщєencodetime(t%) | Й r1%,r2%,r3%,t$ ├> r1%=t% │ 3600:r3%=t%-3600*r1%:r2%=r3% │ 60:r3%=r3%-60*r2% ░!=ц(r1%)+":"+ц(r2%)+":"+ц(r3%) єщєdecodetime(ln$) ў Т converts time in seconds ╦ Й p1$,p2$,p3$ б p1$=аln$,1,2) л p2$=аln$,4,2) ж p3$=аln$,7,2) Ю!=(╩(p1$)*60+╩(p2$))*60+╩(p3$) Й Тщєgetline(p%) Ч Й l$,a% l$="":a%= #p% х∙ ╛ е#p% ─ a%<>10 l$+=Ґa%:a%= #p% & н 0=l$ Ъ