more useless data

[infobot.git] / src / UserExtra.pl

diff --git a/src/UserExtra.pl b/src/UserExtra.pl
index f4155db853064fa03b8b81ce6339f26880c145ab..30b05f5c9187c345abcd23151c54f4416709608e 100644 (file)
--- a/src/UserExtra.pl
+++ b/src/UserExtra.pl
@@ -225,7 +225,7 @@ sub factstats {
 sub karma {
     my $target = lc( shift || $who );
     my $karma  = &sqlSelect("stats", "counter",
-       { nick => $target, type => "karma" }) || 0; 
+       { nick => $target, type => "karma" }) || 0;
 
     if ($karma != 0) {
        &pSReply("$target has karma of $karma");
@@ -330,7 +330,7 @@ sub tell {
     $target    = $talkchannel  if ($target =~ /^us$/i);
     $target    = $who          if ($target =~ /^(me|myself)$/i);
 
-    &status("tell: target = $target, query = $query");  
+    &status("tell: target = $target, query = $query");
 
     # "intrusive".
 #    if ($target !~ /^$mask{chan}$/ and !&IsNickInAnyChan($target)) {
@@ -416,7 +416,7 @@ sub DNS {
            $result = $match." is ".$x unless ($x =~ /^\s*$/);
        } else {
            $result = "I can't seem to find that address in DNS";
-        }
+       }
 
     } else {
 
@@ -795,11 +795,13 @@ sub userCommands {
     if ($message =~ /^statu?s$/i) {
        my $startString = scalar(gmtime $^T);
        my $upString    = &Time2String(time() - $^T);
+       my ($auser,$asystem,$cuser,$csystem) = times;
        my $factoids    = &countKeys("factoids");
        my $forks = 0;
        foreach (keys %forked) {
            $forks += scalar keys %{ $forked{$_} };
        }
+       $forks /= 2;
        $count{'Commands'}      = 0;
        foreach (keys %cmdstats) {
            $count{'Commands'} += $cmdstats{$_};
@@ -822,7 +824,7 @@ sub userCommands {
          "I'm using about \002$memusage\002 ".
          "kB of memory. With \002$forks\002 active ".
                &fixPlural("fork",$forks).
-         "."
+         ". uptimes $auser,$asystem,$cuser,$csystem"
        );
 
        return;