diff options
author | bustico | 2009-07-06 12:15:37 +0000 |
---|---|---|
committer | bustico | 2009-07-06 12:15:37 +0000 |
commit | 444095d3740e5d6c8f21d4c9121bd8d7a100e35d (patch) | |
tree | a7cef653ce08175c0874b2163b41db43b21a7ee2 /example/ivystat.pl | |
parent | f62ebfa82686020ab0ceea009c9688aae9cef9de (diff) | |
download | ivy-perl-444095d3740e5d6c8f21d4c9121bd8d7a100e35d.zip ivy-perl-444095d3740e5d6c8f21d4c9121bd8d7a100e35d.tar.gz ivy-perl-444095d3740e5d6c8f21d4c9121bd8d7a100e35d.tar.bz2 ivy-perl-444095d3740e5d6c8f21d4c9121bd8d7a100e35d.tar.xz |
put tcp socket in no_delay mode to reduce latency
Diffstat (limited to 'example/ivystat.pl')
-rwxr-xr-x | example/ivystat.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/example/ivystat.pl b/example/ivystat.pl index 933ad7c..0d4e2e4 100755 --- a/example/ivystat.pl +++ b/example/ivystat.pl @@ -234,7 +234,8 @@ sub writeLogs () # total : nb octets envoyés, nb mess envoyés, nb octets reçus, nb mess reçus # pour chaque agents en receptions : # nb octets envoyés, nb mess envoyés, - my (@sortedApp, $appf, $appn, $appt, $regx, $numRegx); + my (@sortedApp, $appf, $appn, $appt, $regx); + my $numRegx = 0; my %regxByNumOccur; # il faut que le filehandle LOG soit valide @@ -336,7 +337,7 @@ sub receivePongCb($$) $max = $time if $time > $max; $total += $time; $received ++; -# printf ("DBG> :$received: $appf [$min, $time, $max]\n"); + printf ("DBG> :$received: $appf [$min, $time, $max]\n"); @{$pingResponse{$appf}} = ($min, $max, $total, $received, $sent); } |