if ($message =~ /^statu?s$/i) {
my $startString = scalar(gmtime $^T);
my $upString = &Time2String(time() - $^T);
- my ($auser,$asystem,$cuser,$csystem) = times;
+ my ($puser,$psystem,$cuser,$csystem) = times;
my $factoids = &countKeys("factoids");
my $forks = 0;
foreach (keys %forked) {
"I'm using about \002$memusage\002 ".
"kB of memory. With \002$forks\002 active ".
&fixPlural("fork",$forks).
- ". uptimes $auser,$asystem,$cuser,$csystem"
+ ". Process time user/system $puser/$psystem child $cuser/$csystem"
);
return;