From efd9bc7177c66d7bb9a994e919d915ecb5c75154 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 12 Dec 2010 23:51:14 +0100 Subject: Uptime as a Monitor --- Plugins/Uptime.hs | 51 --------------------------------------------------- 1 file changed, 51 deletions(-) delete mode 100644 Plugins/Uptime.hs (limited to 'Plugins/Uptime.hs') diff --git a/Plugins/Uptime.hs b/Plugins/Uptime.hs deleted file mode 100644 index 6d81acd..0000000 --- a/Plugins/Uptime.hs +++ /dev/null @@ -1,51 +0,0 @@ ------------------------------------------------------------------------------- --- | --- 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