From de674ebb5e8a7ff689809224f5a820b7887e016d Mon Sep 17 00:00:00 2001 From: timriker Date: Mon, 27 Oct 2003 20:06:05 +0000 Subject: [PATCH] current fork count git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@862 c11ca15a-4712-0410-83d8-924469b57eb5 --- blootbot/src/UserExtra.pl | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/blootbot/src/UserExtra.pl b/blootbot/src/UserExtra.pl index 0292db7..f4155db 100644 --- a/blootbot/src/UserExtra.pl +++ b/blootbot/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; -- 2.39.5