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                         str_ssid = str_ssid.sub(str_ssid, 2, str_ssid.len(str_ssid)-3)
  88                         txt = txt .. "@(" .. str_ssid .. ")"
  89                 end
  90         end
  91
  92         device["widget"]:show(txt)
  93 end
  94
  95
  96 local function generate_lists()
  97         wmii.log("generating interface list")
  98         local strings = wmii.get_conf("network.interfaces.wired")
  99         for str in strings:gmatch("%w+") do
 100                 devices[#devices+1] = {
 101                                                                 name        = str,
 102                                                                 widget      = wmii.widget:new ("350_network_" .. str),
 103                                                                 wireless = false
 104                                                           }
 105                 wmii.log("found " .. str)
 106         end
 107         local strings = wmii.get_conf("network.interfaces.wireless")
 108         for str in strings:gmatch("%w+") do
 109                 devices[#devices+1] = {
 110                                                                 name        = str,
 111                                                                 widget      = wmii.widget:new ("350_network_" .. str),
 112                                                                 wireless = true
 113                                                           }
 114                 wmii.log("found " .. str)
 115         end
 116
 117 end
 118
 119 local function update ()
 120         for _,device in pairs(devices) do
 121                 create_device_string(device)
 122         end
 123 end
 124
 125 local function network_timer ( timer )
 126         if #devices == 0 then
 127                 generate_lists()
 128         end
 129         update()
 130     return 60
 131
 132 end
 133
 134 timer = wmii.timer:new (network_timer, 1)