projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
219f494
)
fix percentages in pc11 debugging
author
Dirk Koopman
<djk@tobit.co.uk>
Wed, 11 Jan 2023 17:40:59 +0000
(17:40 +0000)
committer
Dirk Koopman
<djk@tobit.co.uk>
Wed, 11 Jan 2023 17:40:59 +0000
(17:40 +0000)
perl/DXProtHandle.pm
patch
|
blob
|
history
diff --git
a/perl/DXProtHandle.pm
b/perl/DXProtHandle.pm
index 2814d07fd8807ee0a6cdb222599fe7861c42e6d4..f3c0f6aefd22a0fab07278a15442bea512eb12e2 100644
(file)
--- a/
perl/DXProtHandle.pm
+++ b/
perl/DXProtHandle.pm
@@
-267,7
+267,7
@@
sub handle_11
if ($key eq $pc11_saved->[0]) {
++$pc11_to_61;
my $percent = $pc11_rx ? $pc11_to_61 * 100 / $pc11_rx : 0;
if ($key eq $pc11_saved->[0]) {
++$pc11_to_61;
my $percent = $pc11_rx ? $pc11_to_61 * 100 / $pc11_rx : 0;
- dbg(sprintf("recurse: $recurse saved PC11 spot $key dumped, better pc61 received pc61: $pc61_rx pc11: $pc11_rx -> pc61: $pc11_to_61 (%0.1f
\
%)", $percent)) if isdbg("pc11");
+ dbg(sprintf("recurse: $recurse saved PC11 spot $key dumped, better pc61 received pc61: $pc61_rx pc11: $pc11_rx -> pc61: $pc11_to_61 (%0.1f
%
%)", $percent)) if isdbg("pc11");
undef $pc11_saved;
}
}
undef $pc11_saved;
}
}
@@
-277,7
+277,7
@@
sub handle_11
++$pc11_rx;
if ($pc11_saved) {
++$pc11_rx;
if ($pc11_saved) {
- if ($key eq $pc11_saved->[0]) {
+ if ($key eq $pc11_saved->[0]
) {
dbg("recurse: $recurse saved PC11 spot $key, dupe pc11 received and dumped") if isdbg("pc11");
return; # because it's a dup
}
dbg("recurse: $recurse saved PC11 spot $key, dupe pc11 received and dumped") if isdbg("pc11");
return; # because it's a dup
}
@@
-290,7
+290,7
@@
sub handle_11
$spot[14] = $r->ip;
++$rpc11_to_61;
my $percent = $pc11_rx ? $rpc11_to_61 * 100 / $pc11_rx : 0;
$spot[14] = $r->ip;
++$rpc11_to_61;
my $percent = $pc11_rx ? $rpc11_to_61 * 100 / $pc11_rx : 0;
- dbg(sprintf("recurse: $recurse PC11 spot $key promoted to pc61 ip $spot[14] pc61: $pc61_rx pc11: $pc11_rx -> pc61 $pc11_to_61 (%0.1f
\
%)", $percent)) if isdbg("pc11");
+ dbg(sprintf("recurse: $recurse PC11 spot $key promoted to pc61 ip $spot[14] pc61: $pc61_rx pc11: $pc11_rx -> pc61 $pc11_to_61 (%0.1f
%
%)", $percent)) if isdbg("pc11");
undef $pc11_saved;
}
undef $pc11_saved;
}
@@
-313,7
+313,7
@@
sub handle_11
} else {
my $count = $pc11_to_61+$rpc11_to_61;
my $percent = $pc11_rx ? $count*100 / $pc11_rx : 0;
} else {
my $count = $pc11_to_61+$rpc11_to_61;
my $percent = $pc11_rx ? $count*100 / $pc11_rx : 0;
- dbg(sprintf("recurse: $recurse PC61 spot $key passed onward pc61: $pc61_rx pc11: $pc11_rx -> pc61: $count (%0.1f
\
%)", $percent)) if isdbg("pc11");
+ dbg(sprintf("recurse: $recurse PC61 spot $key passed onward pc61: $pc61_rx pc11: $pc11_rx -> pc61: $count (%0.1f
%
%)", $percent)) if isdbg("pc11");
$recurse = 0;
undef $pc11_saved;
}
$recurse = 0;
undef $pc11_saved;
}