1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
-----------------------------------------------------------------------------
-- |
-- Module : Plugins.Monitors.Wireless
-- Copyright : (c) Jose Antonio Ortega Ruiz
-- License : BSD-style (see LICENSE)
--
-- Maintainer : Jose Antonio Ortega Ruiz
-- Stability : unstable
-- Portability : unportable
--
-- A monitor reporting ESSID and link quality for wireless interfaces
--
-----------------------------------------------------------------------------
module Plugins.Monitors.Wireless (wirelessConfig, runWireless) where
import System.Console.GetOpt
import Plugins.Monitors.Common
import Network.IWlib
newtype WirelessOpts = WirelessOpts
{ qualityIconPattern :: Maybe IconPattern
}
defaultOpts :: WirelessOpts
defaultOpts = WirelessOpts
{ qualityIconPattern = Nothing
}
options :: [OptDescr (WirelessOpts -> WirelessOpts)]
options =
[ Option "" ["quality-icon-pattern"] (ReqArg (\d opts ->
opts { qualityIconPattern = Just $ parseIconPattern d }) "") ""
]
parseOpts :: [String] -> IO WirelessOpts
parseOpts argv =
case getOpt Permute options argv of
(o, _, []) -> return $ foldr id defaultOpts o
(_, _, errs) -> ioError . userError $ concat errs
wirelessConfig :: IO MConfig
wirelessConfig =
mkMConfig "<essid> <quality>"
["essid", "quality", "qualitybar", "qualityvbar", "qualityipat"]
runWireless :: String -> [String] -> Monitor String
runWireless iface args = do
opts <- io $ parseOpts args
iface' <- if "" == iface then io findInterface else return iface
wi <- io $ getWirelessInfo iface'
na <- getConfigValue naString
let essid = wiEssid wi
qlty = fromIntegral $ wiQuality wi
e = if essid == "" then na else essid
ep <- showWithPadding e
q <- if qlty >= 0
then showPercentWithColors (qlty / 100)
else showWithPadding ""
qb <- showPercentBar qlty (qlty / 100)
qvb <- showVerticalBar qlty (qlty / 100)
qipat <- showIconPattern (qualityIconPattern opts) (qlty / 100)
parseTemplate [ep, q, qb, qvb, qipat]
findInterface :: IO String
findInterface = do
c <- readFile "/proc/net/wireless"
let nds = lines c
return $ if length nds > 2 then takeWhile (/= 'c') (nds!!2) else []
|
