current fork count

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@862 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/UserExtra.pl b/src/UserExtra.pl
index 0292db704c167420d2bd8239847cc61a94a52e22..f4155db853064fa03b8b81ce6339f26880c145ab 100644 (file)
--- a/src/UserExtra.pl
+++ b/src/UserExtra.pl
@@ -787,7 +787,7 @@ sub userCommands {
        }
 
        &pSReply($reply);
-               
+
        return;
     }
 
@@ -796,7 +796,10 @@ sub userCommands {
        my $startString = scalar(gmtime $^T);
        my $upString    = &Time2String(time() - $^T);
        my $factoids    = &countKeys("factoids");
-
+       my $forks = 0;
+       foreach (keys %forked) {
+           $forks += scalar keys %{ $forked{$_} };
+       }
        $count{'Commands'}      = 0;
        foreach (keys %cmdstats) {
            $count{'Commands'} += $cmdstats{$_};
@@ -817,7 +820,9 @@ sub userCommands {
          ".  I have been awake for $upString this session, and ".
          "currently reference \002$factoids\002 factoids.  ".
          "I'm using about \002$memusage\002 ".
-         "kB of memory."
+         "kB of memory. With \002$forks\002 active ".
+               &fixPlural("fork",$forks).
+         "."
        );
 
        return;