current fork count

[infobot.git] / src / UserExtra.pl

diff --git a/src/UserExtra.pl b/src/UserExtra.pl
index d028ca5ab74b9fe65919971ee64268a5f3b91ff0..f4155db853064fa03b8b81ce6339f26880c145ab 100644 (file)
--- a/src/UserExtra.pl
+++ b/src/UserExtra.pl
@@ -58,7 +58,7 @@ sub chaninfo {
 
        ### line 1.
        foreach (sort keys %channels) {
-           if (/^\s*$/ or / /) {
+           if ( /^\s*$/ or / / ) {
                &status("chanstats: fe channels: chan == NULL.");
                &ircCheck();
                next;
@@ -622,8 +622,8 @@ sub userCommands {
 
        &status("USER reload $who");
        &pSReply("reloading...");
-       &reloadAllModules();
-       &pSReply("reloaded.");
+       my $modules = &reloadAllModules();
+       &pSReply("reloaded:$modules");
        return;
     }
 
@@ -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;