modules/admin-full/luasrc/model/cbi/admin_network/network.lua

   1 --[[
   2 LuCI - Lua Configuration Interface
   3
   4 Copyright 2008 Steven Barth <steven@midlink.org>
   5 Copyright 2008 Jo-Philipp Wich <xm@leipzig.freifunk.net>
   6
   7 Licensed under the Apache License, Version 2.0 (the "License");
   8 you may not use this file except in compliance with the License.
   9 You may obtain a copy of the License at
  10
  11         http://www.apache.org/licenses/LICENSE-2.0
  12
  13 $Id$
  14 ]]--
  15
  16 local sys = require "luci.sys"
  17 local wa  = require "luci.tools.webadmin"
  18 local fs  = require "nixio.fs"
  19
  20 local netstate = luci.model.uci.cursor_state():get_all("network")
  21 m = Map("network", translate("Interfaces"))
  22
  23 local created
  24 local netstat = sys.net.deviceinfo()
  25
  26 s = m:section(TypedSection, "interface", "")
  27 s.addremove = true
  28 s.anonymous = false
  29 s.extedit   = luci.dispatcher.build_url("admin", "network", "network") .. "/%s"
  30 s.template  = "cbi/tblsection"
  31 s.override_scheme = true
  32
  33 function s.filter(self, section)
  34         return section ~= "loopback" and section
  35 end
  36
  37 function s.create(self, section)
  38         if TypedSection.create(self, section) then
  39                 created = section
  40         else
  41                 self.invalid_cts = true
  42         end
  43 end
  44
  45 function s.parse(self, ...)
  46         TypedSection.parse(self, ...)
  47         if created then
  48                 m.uci:save("network")
  49                 luci.http.redirect(luci.dispatcher.build_url("admin", "network", "network")
  50                  .. "/" .. created)
  51         end
  52 end
  53
  54 up = s:option(Flag, "up")
  55 function up.cfgvalue(self, section)
  56         return netstate[section] and netstate[section].up or "0"
  57 end
  58
  59 function up.write(self, section, value)
  60         local call
  61         if value == "1" then
  62                 call = "ifup"
  63         elseif value == "0" then
  64                 call = "ifdown"
  65         end
  66         os.execute(call .. " " .. section .. " >/dev/null 2>&1")
  67 end
  68
  69 ifname = s:option(DummyValue, "ifname", translate("Device"))
  70 function ifname.cfgvalue(self, section)
  71         return netstate[section] and netstate[section].ifname
  72 end
  73
  74 ifname.titleref = luci.dispatcher.build_url("admin", "network", "vlan")
  75
  76
  77 if luci.model.uci.cursor():load("firewall") then
  78         zone = s:option(DummyValue, "_zone", translate("Zone"))
  79         zone.titleref = luci.dispatcher.build_url("admin", "network", "firewall", "zones")
  80
  81         function zone.cfgvalue(self, section)
  82                 return table.concat(wa.network_get_zones(section) or { "-" }, ", ")
  83         end
  84 end
  85
  86 hwaddr = s:option(DummyValue, "_hwaddr",
  87         translate("<abbr title=\"Media Access Control\">MAC</abbr>-Address"),
  88         translate("Hardware Address"))
  89 function hwaddr.cfgvalue(self, section)
  90         local ix = self.map:get(section, "ifname") or ""
  91         local mac = fs.readfile("/sys/class/net/" .. ix .. "/address")
  92
  93         if not mac then
  94                 mac = luci.util.exec("ifconfig " .. ix)
  95                 mac = mac and mac:match(" ([A-F0-9:]+)%s*\n")
  96         end
  97
  98         if mac and #mac > 0 then
  99                 return mac:upper()
 100         end
 101
 102         return "?"
 103 end
 104
 105
 106 ipaddr = s:option(DummyValue, "ipaddr",
 107         translate("<abbr title=\"Internet Protocol Version 4\">IPv4</abbr>" ..
 108                 "-Address"))
 109 function ipaddr.cfgvalue(self, section)
 110         return table.concat(wa.network_get_addresses(section), ", ")
 111 end
 112
 113 txrx = s:option(DummyValue, "_txrx", translate("Traffic"),
 114         translate("transmitted / received"))
 115
 116 function txrx.cfgvalue(self, section)
 117         local ix = self.map:get(section, "ifname")
 118
 119         local rx = netstat and netstat[ix] and netstat[ix][1]
 120         rx = rx and wa.byte_format(tonumber(rx)) or "-"
 121
 122         local tx = netstat and netstat[ix] and netstat[ix][9]
 123         tx = tx and wa.byte_format(tonumber(tx)) or "-"
 124
 125         return string.format("%s / %s", tx, rx)
 126 end
 127
 128 errors = s:option(DummyValue, "_err", translate("Errors"),
 129         translate("TX / RX"))
 130
 131 function errors.cfgvalue(self, section)
 132         local ix = self.map:get(section, "ifname")
 133
 134         local rx = netstat and netstat[ix] and netstat[ix][3]
 135         local tx = netstat and netstat[ix] and netstat[ix][11]
 136
 137         rx = rx and tostring(rx) or "-"
 138         tx = tx and tostring(tx) or "-"
 139
 140         return string.format("%s / %s", tx, rx)
 141 end
 142
 143 return m