From 6c2ba8ed2c73f2e61325396a0ea92a39c5a59ea6 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Wed, 11 Jan 2023 15:56:53 +0000 Subject: [PATCH] more pc11->pc61 stats improvements --- perl/DXProtHandle.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index 69293164..c12c59bd 100644 --- a/perl/DXProtHandle.pm +++ b/perl/DXProtHandle.pm @@ -301,7 +301,7 @@ sub handle_11 $spot[14] = $r->ip; ++$rpc11_to_61; my $percent = int($rpc11_to_61 * 100 / $pc11_rx); - dbg("recurse: $recurse PC11 spot $key promoted to pc61 ($percent\%) ip $spot[14] pc61: $pc61_rx pc11: $pc11_rx -> pc61 $pc11_to_61") if isdbg("pc11"); + dbg("recurse: $recurse PC11 spot $key promoted to pc61 ip $spot[14] ($percent\%) pc61: $pc61_rx pc11: $pc11_rx -> pc61 $pc11_to_61") if isdbg("pc11"); undef $pc11_saved; } @@ -322,7 +322,9 @@ sub handle_11 } } else { - dbg("recurse: $recurse PC61 spot $key passed onward pc61: $pc61_rx pc11: $pc11_rx -> pc61 $pc11_to_61") if isdbg("pc11"); + my $count = $pc11_to_61+$rpc11_to_61+0; + my $percent = $pc11_rx ? int($count / $pc11_rx) : 0; + dbg("recurse: $recurse PC61 spot $key passed onward pc61: $pc61_rx pc11: $pc11_rx -> pc61: $count ($percent\%)") if isdbg("pc11"); $recurse = 0; undef $pc11_saved; } -- 2.34.1