plugins/network.lua

   1 --[[
   2 =pod
   3
   4 =head1 NAME
   5
   6 network.lua - wmiirc-lua plugin for monitoring network interfaces
   7
   8 =head1 SYNOPSIS
   9
  10     -- in your wmiirc.lua:
  11     wmii.load_plugin("network")
  12
  13
  14 =head1 DESCRIPTION
  15
  16 For the options you can define something like
  17
  18 wmii.set_conf("network.interfaces.wired", "eth0")
  19 wmii.set_conf("network.interfaces.wireless", "wlan0")
  20
  21 which will show informations about the wireless device wlan0 and
  22 the non-wireless device eth0
  23
  24 =head1 SEE ALSO
  25
  26 L<wmii(1)>, L<lua(1)>
  27
  28 =head1 AUTHOR
  29
  30 Jan-David Quesel <jdq@gmx.net>
  31
  32 =head1 LICENCE AND COPYRIGHT
  33
  34 Copyright (c) 2008, Jan-David Quesel <jdq@gmx.net>
  35
  36 This is free software.  You may redistribute copies of it under the terms of
  37 the GNU General Public License L<http://www.gnu.org/licenses/gpl.html>.  There
  38 is NO WARRANTY, to the extent permitted by law.
  39
  40 =cut
  41 --]]
  42
  43 local wmii = require("wmii")
  44 local io = require("io")
  45 local string = require("string")
  46 local pairs = pairs
  47
  48 module("network")
  49 api_version = 0.1
  50
  51 wmii.set_conf("network.interfaces.wired", "eth0")
  52 wmii.set_conf("network.interfaces.wireless", "")
  53
  54 local devices = { }
  55 -- ------------------------------------------------------------
  56 -- MODULE VARIABLES
  57 local timer  = nil
  58
  59 local function _command ( cmd )
  60
  61         if (cmd) then
  62                 wmii.log( "about to run " .. cmd)
  63                 local file = io.popen( cmd)
  64                 local status = file:read("*a")
  65                 file:close()
  66
  67                 return status
  68                 --return status:match("[^\n]*")
  69         else
  70                 return ""
  71         end
  72 end
  73
  74 local function create_device_string(device)
  75         local ip = "ifconfig " .. device["name"]
  76         local ipstr = _command(ip)
  77         ipstr = ipstr:gmatch("inet addr:([0-9.]+)")()
  78         if ipstr == nil or ipstr == "" then
  79                 txt = device["name"] .. ": down"
  80         else
  81                 ipstr = ipstr.sub(ipstr, 1, ipstr.len(ipstr))
  82                 txt = device["name"] .. ": " .. ipstr
  83                 if device["wireless"] then
  84                         local ssid = "iwconfig " .. device["name"]
  85                         local str_ssid = _command(ssid)
  86                         str_ssid = str_ssid:gmatch("ESSID:\"(.*)\"")()
  87                         txt = txt .. "@(" .. str_ssid .. ")"
  88                 end
  89         end
  90
  91         device["widget"]:show(txt)
  92 end
  93
  94
  95 local function generate_lists()
  96         wmii.log("generating interface list")
  97         local strings = wmii.get_conf("network.interfaces.wired")
  98         for str in strings:gmatch("%w+") do
  99                 devices[#devices+1] = {
 100                                                                 name        = str,
 101                                                                 widget      = wmii.widget:new ("350_network_" .. str),
 102                                                                 wireless = false
 103                                                           }
 104                 wmii.log("found " .. str)
 105         end
 106         local strings = wmii.get_conf("network.interfaces.wireless")
 107         for str in strings:gmatch("%w+") do
 108                 devices[#devices+1] = {
 109                                                                 name        = str,
 110                                                                 widget      = wmii.widget:new ("350_network_" .. str),
 111                                                                 wireless = true
 112                                                           }
 113                 wmii.log("found " .. str)
 114         end
 115
 116 end
 117
 118 local function update ()
 119         for _,device in pairs(devices) do
 120                 create_device_string(device)
 121         end
 122 end
 123
 124 local function network_timer ( timer )
 125         if #devices == 0 then
 126                 generate_lists()
 127         end
 128         update()
 129     return 60
 130
 131 end
 132
 133 timer = wmii.timer:new (network_timer, 1)