From: dms Date: Wed, 10 Jan 2001 14:56:13 +0000 (+0000) Subject: - update to 'cpustats'. X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d08ee60da7b30623c32a999f3c2d079e256068c8;p=infobot.git - update to 'cpustats'. git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@237 c11ca15a-4712-0410-83d8-924469b57eb5 --- diff --git a/src/UserExtra.pl b/src/UserExtra.pl index 32108e9..e998be4 100644 --- a/src/UserExtra.pl +++ b/src/UserExtra.pl @@ -579,7 +579,16 @@ sub userCommands { # utime(13) + stime(14). my $cpu_usage = sprintf("%.01f", ($data[13]+$data[14]) / 100 ); my $time = time() - $^T; - my $perc = sprintf("%.01f", $cpu_usage*100/$time ); + my $raw_perc = $cpu_usage*100/$time; + my $perc; + + if ($raw_perc > 1) { + $perc = sprintf("%.01f", $raw_perc); + } elsif ($raw_perc > 0.1) { + $perc = sprintf("%.02f", $raw_perc); + } else { # <=0.1 + $perc = sprintf("%.03f", $raw_perc); + } &performStrictReply("Total CPU usage: $cpu_usage s ... Percentage CPU used: $perc %"); &DEBUG("15 => $data[15] (cutime)");