+# Statistics
+function sp_delay(sec)
+{
+ return (sec > 60*60*24 ? int(sec/60/60/24) "d " : "") \
+ (sec > 60*60 ? int(sec/60/60)%24 "h " : "") \
+ int(sec/60)%60 "m"
+}
+
+function sp_max(list, i, max)
+{
+ for (i=0; i<length(list); i++)
+ if (max == "" || list[i] > max)
+ max = list[i]
+ return max
+}
+
+function sp_avg(list, i, sum)
+{
+ for (i=0; i<length(list); i++)
+ sum += list[i]
+ return sum / length(list)
+}
+
+function sp_cur(list)
+{
+ return list[length(list)-1]
+}
+
+function sp_stats(file, line, arr, time, user, turn, start, delay, extra)
+{
+ # Process log file
+ while ((stat = getline line < file) > 0) {
+ # Parse date
+ if (!match(line, /^([0-9\- \:]*) \| (.*)$/, arr))
+ continue
+ gsub(/[:-]/, " ", arr[1])
+ time = mktime(arr[1])
+
+ # Parse user
+ if (!match(arr[2], /^([^:]*): (.*)$/, arr))
+ continue
+ user = arr[1]
+
+ # Record user latency
+ if (turn) {
+ delay[turn][length(delay[turn])] = time - start
+ turn = 0
+ }
+ if (match(arr[2], /^(it is your|you .*(first|lead)!$)/, arr)) {
+ turn = user
+ start = time
+ }
+ }
+ close(file)
+
+ # Add current latency
+ if (turn) {
+ delay[turn][length(delay[turn])] = systime() - start
+ debug("time: " (systime() - start))
+ }
+
+ # Check for error
+ if (stat < 0)
+ reply("File does not exist: " file);
+
+ # Output statistics
+ for (user in delay) {
+ extra = (user != turn) ? "" : \
+ ", " sp_delay(sp_cur(delay[user])) " (cur)";
+ say("latency for " user \
+ ": " sp_delay(sp_avg(delay[user])) " (avg)" \
+ ", " sp_delay(sp_max(delay[user])) " (max)" extra)
+ }
+}
+