From 67d6de95c0ccb72947e99cac72dd24aca95af325 Mon Sep 17 00:00:00 2001
From: Grahame Grieve <grahameg@gmail.ccom>
Date: Mon, 4 Mar 2024 09:08:48 +1100
Subject: [PATCH] add CPU usage to telnet ping

---
 server/telnet_server.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/server/telnet_server.pas b/server/telnet_server.pas
index 5db92507d..d189986e6 100644
--- a/server/telnet_server.pas
+++ b/server/telnet_server.pas
@@ -308,7 +308,7 @@ procedure TTelnetThreadHelper.ping;
   magic := TFslObject.nextMagic;
   if FServer.FShuttingDown then
   begin
-    send('$@ping: '+inttostr(GetThreadCount)+' threads; shutting down');
+    send('$@ping: '+Logging.cpu.usage+' '+inttostr(GetThreadCount)+' threads; shutting down');
   end
   else if (now > FNextPing) then
   begin
@@ -317,7 +317,7 @@ procedure TTelnetThreadHelper.ping;
     begin
       mem := mem + ep.cacheSize(magic);
     end;
-    send('$@ping: '+inttostr(GetThreadCount)+' threads, '+Logging.MemoryStatus(true)+', '+DescribeBytes(mem)+' MB used');
+    send('$@ping: '+Logging.cpu.usage+' '+inttostr(GetThreadCount)+' threads, '+Logging.MemoryStatus(true)+', '+DescribeBytes(mem)+' MB used');
   end;
   FNextPing := now + (DATETIME_SECOND_ONE * 10);
 end;