From 52be04baa703cb5c0263aecb61f0079230367cd0 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sun, 12 Dec 2010 22:01:12 +0100
Subject: New plugin: Uptime

---
 Plugins/Uptime.hs | 51 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 Plugins/Uptime.hs

(limited to 'Plugins/Uptime.hs')

diff --git a/Plugins/Uptime.hs b/Plugins/Uptime.hs
new file mode 100644
index 0000000..6d81acd
--- /dev/null
+++ b/Plugins/Uptime.hs
@@ -0,0 +1,51 @@
+------------------------------------------------------------------------------
+-- |
+-- Module      : Plugins.Uptime
+-- Copyright   : (c) 2010 Jose Antonio Ortega Ruiz
+-- License     : BSD3-style (see LICENSE)
+--
+-- Maintainer  : jao@gnu.org
+-- Stability   : unstable
+-- Portability : unportable
+-- Created: Sun Dec 12, 2010 20:26
+--
+--
+-- Uptime
+--
+------------------------------------------------------------------------------
+
+
+module Plugins.Uptime (Uptime(..)) where
+
+import Plugins
+
+import qualified Data.ByteString.Lazy.Char8 as B
+
+data Uptime = Uptime String Int
+    deriving (Read, Show)
+
+instance Exec Uptime where
+    alias (Uptime a _) = a
+    run   (Uptime _ _) = uptime
+    rate  (Uptime _ r) = r
+
+readUptime :: IO Float
+readUptime =
+  fmap (read . B.unpack . head . B.words) (B.readFile "/proc/uptime")
+
+secsPerDay :: Integer
+secsPerDay = 24 * 3600
+
+uptime :: IO String
+uptime = do
+  t <- readUptime
+  let tsecs = floor t
+      secs = tsecs `mod` secsPerDay
+      days = tsecs `quot` secsPerDay
+      hrs = secs `quot` 3600
+      mins = (secs `mod` 3600) `div` 60
+      dstr | days == 0 = ""
+           | otherwise = show days ++ "d "
+      str x | x < 10 = '0':show x
+            | otherwise = show x
+  return $ dstr ++ str hrs ++ ":" ++ str mins
-- 
cgit v1.2.3