From 9ad06ae596a145e84c5825efa9ab0bb634cf3e73 Mon Sep 17 00:00:00 2001 From: hvxl Date: Sun, 25 Sep 2022 10:48:11 +0200 Subject: [PATCH] Fix timeout when the CS command is executed via the web API. --- otmonitor.vfs/otmonitor.tcl | 1 + otmonitor.vfs/web.tcl | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/otmonitor.vfs/otmonitor.tcl b/otmonitor.vfs/otmonitor.tcl index 3315ce5..b2274f0 100644 --- a/otmonitor.vfs/otmonitor.tcl +++ b/otmonitor.vfs/otmonitor.tcl @@ -526,6 +526,7 @@ proc process {line} { alert watchdogtimer } elseif {[scan $line {CS: %f} ctrlsetpt] == 1} { output "[ts]\t$line" + response $line after cancel commandexpired if {$ctrlsetpt != 0.0} { after 62915 commandexpired diff --git a/otmonitor.vfs/web.tcl b/otmonitor.vfs/web.tcl index 193e7b1..50f377c 100644 --- a/otmonitor.vfs/web.tcl +++ b/otmonitor.vfs/web.tcl @@ -137,7 +137,7 @@ proc ::wibble::include {name} { } proc ::wibble::zone::userinfo {state} { - set details [format "via websocket from %s:%s" \ + set details [format "via web API from %s:%s" \ [dict get $state request peerhost] [dict get $state request peerport]] if {[dict exists $state authentication user]} { append details ", user: [dict get $state authentication user]"