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
  90 function hwaddr.cfgvalue(self, section)
  91         local ix = self.map:get(section, "ifname") or ""
  92               ix = (type(ix) == "table") and ix[1] or ix
  93
  94         local mac = fs.readfile("/sys/class/net/" .. ix .. "/address")
  95
  96         if not mac then
  97                 mac = luci.util.exec("ifconfig " .. ix)
  98                 mac = mac and mac:match(" ([A-F0-9:]+)%s*\n")
  99         end
 100
 101         if mac and #mac > 0 then
 102                 return mac:upper()
 103         end
 104
 105         return "?"
 106 end
 107
 108
 109 ipaddr = s:option(DummyValue, "ipaddr",
 110         translate("<abbr title=\"Internet Protocol Version 4\">IPv4</abbr>" ..
 111                 "-Address"))
 112 function ipaddr.cfgvalue(self, section)
 113         return table.concat(wa.network_get_addresses(section), ", ")
 114 end
 115
 116 txrx = s:option(DummyValue, "_txrx", translate("Traffic"),
 117         translate("transmitted / received"))
 118
 119 function txrx.cfgvalue(self, section)
 120         local ix = self.map:get(section, "ifname")
 121
 122         local rx = netstat and netstat[ix] and netstat[ix][1]
 123         rx = rx and wa.byte_format(tonumber(rx)) or "-"
 124
 125         local tx = netstat and netstat[ix] and netstat[ix][9]
 126         tx = tx and wa.byte_format(tonumber(tx)) or "-"
 127
 128         return string.format("%s / %s", tx, rx)
 129 end
 130
 131 errors = s:option(DummyValue, "_err", translate("Errors"),
 132         translate("TX / RX"))
 133
 134 function errors.cfgvalue(self, section)
 135         local ix = self.map:get(section, "ifname")
 136
 137         local rx = netstat and netstat[ix] and netstat[ix][3]
 138         local tx = netstat and netstat[ix] and netstat[ix][11]
 139
 140         rx = rx and tostring(rx) or "-"
 141         tx = tx and tostring(tx) or "-"
 142
 143         return string.format("%s / %s", tx, rx)
 144 end
 145
 146 -- Show ATM bridge section if we have the capabilities
 147 if fs.access("/usr/sbin/br2684ctl") then
 148         atm = m:section(TypedSection, "atm-bridge", translate("ATM Bridges"),
 149                 translate("ATM bridges expose encapsulated ethernet in AAL5 " ..
 150                         "connections as virtual Linux network interfaces which can " ..
 151                         "be used in conjunction with DHCP or PPP to dial into the " ..
 152                         "provider network."))
 153
 154         atm.addremove = true
 155         atm.anonymous = true
 156
 157         atm.create = function(self, section)
 158                 local sid = TypedSection.create(self, section)
 159                 local max_unit = -1
 160
 161                 m.uci:foreach("network", "atm-bridge",
 162                         function(s)
 163                                 local u = tonumber(s.unit)
 164                                 if u ~= nil and u > max_unit then
 165                                         max_unit = u
 166                                 end
 167                         end)
 168
 169                 m.uci:set("network", sid, "unit", max_unit + 1)
 170                 m.uci:set("network", sid, "atmdev", 0)
 171                 m.uci:set("network", sid, "encaps", "llc")
 172                 m.uci:set("network", sid, "payload", "bridged")
 173                 m.uci:set("network", sid, "vci", 35)
 174                 m.uci:set("network", sid, "vpi", 8)
 175
 176                 return sid
 177         end
 178
 179         atm:tab("general", translate("General Setup"))
 180         atm:tab("advanced", translate("Advanced Settings"))
 181
 182         vci    = atm:taboption("general", Value, "vci", translate("ATM Virtual Channel Identifier (VCI)"))
 183         vpi    = atm:taboption("general", Value, "vpi", translate("ATM Virtual Path Identifier (VPI)"))
 184         encaps = atm:taboption("general", ListValue, "encaps", translate("Encapsulation mode"))
 185         encaps:value("llc", translate("LLC"))
 186         encaps:value("vc", translate("VC-Mux"))
 187
 188         atmdev  = atm:taboption("advanced", Value, "atmdev", translate("ATM device number"))
 189         unit    = atm:taboption("advanced", Value, "unit", translate("Bridge unit number"))
 190         payload = atm:taboption("advanced", ListValue, "payload", translate("Forwarding mode"))
 191         payload:value("bridged", translate("bridged"))
 192         payload:value("routed", translate("routed"))
 193 end
 194
 195 return m