43 lines
748 B
Plaintext
43 lines
748 B
Plaintext
fn licencesInUse =
|
|
(
|
|
local logFile = openFile "mlijobs.txt"
|
|
local out = 0
|
|
local maxOut = -1
|
|
local maxTimes = #()
|
|
|
|
while not EOF logFile do
|
|
(
|
|
line = readLine logFile
|
|
|
|
if findString line "OUT" != undefined then
|
|
(
|
|
out += 1
|
|
)
|
|
else
|
|
(
|
|
out -= 1
|
|
)
|
|
|
|
if out > maxOut then
|
|
(
|
|
maxOut = out
|
|
maxTimes = #()
|
|
)
|
|
|
|
if out == maxOut then
|
|
(
|
|
append maxTimes (filterString line " ")[4]
|
|
)
|
|
)
|
|
format "Maximum simultaneous license use is % at the following times:\n" maxOut
|
|
|
|
for time in maxTimes do
|
|
(
|
|
format "%\n" time
|
|
)
|
|
|
|
close logFile
|
|
)
|
|
|
|
licencesInUse()
|