add CPU usage to telnet ping

HealthIntersections · Mar 3, 2024 · 67d6de9 · 67d6de9
1 parent 0ab766f
commit 67d6de9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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;