From c6ea16a8cf7e3bc0e1ef68d6f795520e6db4aebe Mon Sep 17 00:00:00 2001 From: dms Date: Fri, 20 Apr 2001 13:16:57 +0000 Subject: [PATCH] chagned notice lines/sec to 3 made connectivity percentage 5 significant decimal places. git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@454 c11ca15a-4712-0410-83d8-924469b57eb5 --- src/IRC/Irc.pl | 6 +++--- src/UserExtra.pl | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/IRC/Irc.pl b/src/IRC/Irc.pl index c3e5ee3..6fd4f07 100644 --- a/src/IRC/Irc.pl +++ b/src/IRC/Irc.pl @@ -283,11 +283,11 @@ sub notice { $notcount++; $notsize += length $txt; - if ( ($notcount % 4) == 0 and $notcount) { + if ( ($notcount % 3) == 0 and $notcount) { sleep 1; - } elsif ($notsize > 1500) { + } elsif ($notsize > 1000) { sleep 1; - $notsize -= 1500; + $notsize -= 1000; } } else { diff --git a/src/UserExtra.pl b/src/UserExtra.pl index 101b95c..9923a09 100644 --- a/src/UserExtra.pl +++ b/src/UserExtra.pl @@ -635,7 +635,7 @@ sub userCommands { my $connectivity = 100 * ($total_time - $ircstats{'OffTime'}) / $total_time; - my $p = sprintf("%.02f", $connectivity); + my $p = sprintf("%.03f", $connectivity); $p =~ s/(\.\d*)0+$/$1/; if ($p =~ s/\.0$//) { # this should not happen... but why... -- 2.39.5