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

diff --git a/src/IRC/Irc.pl b/src/IRC/Irc.pl
index c3e5ee3d4e912f374acba6d163666ba03e9d4de8..6fd4f074086efba4d68121c48b88436823db4619 100644 (file)
--- 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 101b95c2e42216e4328153442a74f4e01b8039e2..9923a092115a3aa652ae4c7d241a1d12bef254fb 100644 (file)
--- 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...