projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ca1c90a
)
more pc11->pc61 stats improvements
author
Dirk Koopman
<djk@tobit.co.uk>
Wed, 11 Jan 2023 15:56:53 +0000
(15:56 +0000)
committer
Dirk Koopman
<djk@tobit.co.uk>
Wed, 11 Jan 2023 15:56:53 +0000
(15:56 +0000)
perl/DXProtHandle.pm
patch
|
blob
|
history
diff --git
a/perl/DXProtHandle.pm
b/perl/DXProtHandle.pm
index 6929316421c16ccbbd30d2bbfdf2a86c698fdf25..c12c59bdfc496dedcf1e10b247c3360dd526b4e3 100644
(file)
--- 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);
$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;
}
undef $pc11_saved;
}
@@
-322,7
+322,9
@@
sub handle_11
}
} else {
}
} 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;
}
$recurse = 0;
undef $pc11_saved;
}