From 413172fbecd5dd9657cf2f152e734ab03ce34a13 Mon Sep 17 00:00:00 2001
From: minoru <minoru@c5a866bd-50d8-4676-849d-1ff353571b08>
Date: Wed, 8 Apr 2009 17:02:20 +0000
Subject: [PATCH] CPU Frequency now in GHz if it's more than 1000 MHz

---
 sysinfo.pl | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/sysinfo.pl b/sysinfo.pl
index 2da9df0..80b21e6 100644
--- a/sysinfo.pl
+++ b/sysinfo.pl
@@ -64,7 +64,7 @@ sub sysinfo {
         # 14  grey
         # 15  lightgrey
         # NOTE: Irssi can not display all this colors because it run in terminal which have limited number of colors (8, if I remember correctly), but other users (which use X clients, not irssi or wechat :) will see it properly
-        my $format = "[\002Kernel:\002 $kernelVersion] [\002Uptime:\002 $uptime] [\002CPU:\002 $CPUModel $CPUFreq MHz] [\002RAM:\002 $RAMFree/$RAMTotal free ($RAMCached cached)] [\002Swap:\002 $SwapFree/$SwapTotal free ($SwapCached cached)] [\002Audio:\002 $audioDev] [\002Video:\002 $videoDev]";
+        my $format = "[\002Kernel:\002 $kernelVersion] [\002Uptime:\002 $uptime] [\002CPU:\002 $CPUModel $CPUFreq] [\002RAM:\002 $RAMFree/$RAMTotal free ($RAMCached cached)] [\002Swap:\002 $SwapFree/$SwapTotal free ($SwapCached cached)] [\002Audio:\002 $audioDev] [\002Video:\002 $videoDev]";
         # Print message to current channel or query (if it exist)
         $witem->command("MSG " . $witem->{name} . " $format");
     }
@@ -134,6 +134,16 @@ sub getCPUInfo {
         }
     }
     close(PROC) || die "Can't close /proc/cpuinfo";
+    # Convert MHz to GHz is freq is more than 1000
+    my ($freq_num,$numeric) = split " ", $freq;
+    if ($freq_num > 1000) {
+        $freq = $freq_num / 1000;
+        # Keep 1 digit after decimal point
+        $freq = sprintf("%.1f", $freq);
+        $freq .= " GHz";
+    } else {
+        $freq .= " MHz";
+    };
     return ($model,$freq,$bogomips);
 }