Maybe reduce memory usage over time (#1731)

* Maybe reduce memory usage over time

* Fix foreach over hash bug

* Remove json_shared stuff

---------

Co-authored-by: Joe Cooper <swelljoe@rocky-10-dev>

Author: swelljoe

stats-lib-funcs.pl

@@ -382,7 +382,7 @@ sub stats_network_proc
         my @rs;
         my $results = \%result;
         # Parse current data
-        foreach (%$results) {
+        foreach (keys %$results) {
             $rbytes += $results->{$_}->{'rbytes'};
             $tbytes += $results->{$_}->{'tbytes'};
         }
@@ -391,7 +391,7 @@ sub stats_network_proc
         select(undef, undef, undef, $wait_interval);
         $results = stats_network_proc(1);
         # Parse data after dalay
-        foreach (%$results) {
+        foreach (keys %$results) {
             $rbytes2 += $results->{$_}->{'rbytes'};
             $tbytes2 += $results->{$_}->{'tbytes'};
         }

stats.pl

@@ -11,6 +11,7 @@
 use IO::Socket::INET;
 use Net::WebSocket::Server;
 use utf8;
+use Scalar::Util qw(weaken);
 
 our ($current_theme, $json);
 require($ENV{'THEME_ROOT'} . "/stats-lib.pl");
@@ -143,9 +144,13 @@
 		$serv->{'clients_connected'}++;
 		alarm(0);
 		# Set post-connect activity timeout
+		my $wconn = $conn;
+		weaken($wconn);
 		$SIG{'ALRM'} = sub {
-			error_stderr("WebSocket connection $conn->{'port'} is closed due to inactivity");
-			$conn->disconnect();
+			if ($wconn) {
+				error_stderr("WebSocket connection $wconn->{'port'} is closed due to inactivity");
+				$wconn->disconnect();
+			}
 		};
 		alarm(30);
 		# Set maximum send size