modules/admin-full/luasrc/model/cbi/admin_network/ifaces.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 require("luci.tools.webadmin")
  17 arg[1] = arg[1] or ""
  18
  19 local has_3g    = luci.fs.mtime("/usr/bin/gcom")
  20 local has_pptp  = luci.fs.mtime("/usr/sbin/pptp")
  21 local has_pppd  = luci.fs.mtime("/usr/sbin/pppd")
  22 local has_pppoe = luci.fs.glob("/usr/lib/pppd/*/rp-pppoe.so")
  23 local has_pppoa = luci.fs.glob("/usr/lib/pppd/*/pppoatm.so")
  24
  25 m = Map("network", translate("interfaces"), translate("a_n_ifaces1"))
  26
  27 s = m:section(NamedSection, arg[1], "interface")
  28 s.addremove = true
  29
  30 back = s:option(DummyValue, "_overview", translate("overview"))
  31 back.value = ""
  32 back.titleref = luci.dispatcher.build_url("admin", "network", "network")
  33
  34 p = s:option(ListValue, "proto", translate("protocol"))
  35 p.override_scheme = true
  36 p.default = "static"
  37 p:value("static", translate("static"))
  38 p:value("dhcp", "DHCP")
  39 if has_pppd  then p:value("ppp",   "PPP")     end
  40 if has_pppoe then p:value("pppoe", "PPPoE")   end
  41 if has_pppoa then p:value("pppoa", "PPPoA")   end
  42 if has_3g    then p:value("3g",    "UMTS/3G") end
  43 if has_pptp  then p:value("pptp",  "PPTP")    end
  44
  45 if not ( has_pppd and has_pppoe and has_pppoa and has_3g and has_pptp ) then
  46         p.description = translate("network_interface_prereq")
  47 end
  48
  49 br = s:option(Flag, "type", translate("a_n_i_bridge"), translate("a_n_i_bridge1"))
  50 br.enabled = "bridge"
  51 br.rmempty = true
  52
  53 ifname = s:option(Value, "ifname", translate("interface"))
  54 ifname.rmempty = true
  55 for i,d in ipairs(luci.sys.net.devices()) do
  56         if d ~= "lo" then
  57                 ifname:value(d)
  58         end
  59 end
  60
  61 local zones = luci.tools.webadmin.network_get_zones(arg[1])
  62 if zones then
  63         if #zones == 0 then
  64                 m:chain("firewall")
  65
  66                 fwzone = s:option(Value, "_fwzone",
  67                         translate("network_interface_fwzone"),
  68                         translate("network_interface_fwzone_desc"))
  69                 fwzone.rmempty = true
  70                 fwzone:value("", "- " .. translate("none") .. " -")
  71                 fwzone:value(arg[1])
  72                 m.uci:load("firewall")
  73                 m.uci:foreach("firewall", "zone",
  74                         function (section)
  75                                 fwzone:value(section.name)
  76                         end
  77                 )
  78
  79                 function fwzone.write(self, section, value)
  80                         local zone = luci.tools.webadmin.firewall_find_zone(value)
  81                         local stat
  82
  83                         if not zone then
  84                                 stat = m.uci:section("firewall", "zone", nil, {
  85                                         name = value,
  86                                         network = section
  87                                 })
  88                         else
  89                                 local net = m.uci:get("firewall", zone, "network")
  90                                 net = (net or value) .. " " .. section
  91                                 stat = m.uci:set("firewall", zone, "network", net)
  92                         end
  93
  94                         if stat then
  95                                 self.render = function() end
  96                         end
  97                 end
  98         else
  99                 fwzone = s:option(DummyValue, "_fwzone", translate("zone"))
 100                 fwzone.value = table.concat(zones, ", ")
 101         end
 102         fwzone.titleref = luci.dispatcher.build_url("admin", "network", "firewall", "zones")
 103         m.uci:unload("firewall")
 104 end
 105
 106 ipaddr = s:option(Value, "ipaddr", translate("ipaddress"))
 107 ipaddr.rmempty = true
 108 ipaddr:depends("proto", "static")
 109
 110 nm = s:option(Value, "netmask", translate("netmask"))
 111 nm.rmempty = true
 112 nm:depends("proto", "static")
 113 nm:value("255.255.255.0")
 114 nm:value("255.255.0.0")
 115 nm:value("255.0.0.0")
 116
 117 gw = s:option(Value, "gateway", translate("gateway"))
 118 gw:depends("proto", "static")
 119 gw.rmempty = true
 120
 121 bcast = s:option(Value, "bcast", translate("broadcast"))
 122 bcast:depends("proto", "static")
 123 bcast.optional = true
 124
 125 ip6addr = s:option(Value, "ip6addr", translate("ip6address"), translate("cidr6"))
 126 ip6addr.optional = true
 127 ip6addr:depends("proto", "static")
 128
 129 ip6gw = s:option(Value, "ip6gw", translate("gateway6"))
 130 ip6gw:depends("proto", "static")
 131 ip6gw.optional = true
 132
 133 dns = s:option(Value, "dns", translate("dnsserver"))
 134 dns:depends("proto", "static")
 135 dns.optional = true
 136
 137 mtu = s:option(Value, "mtu", "MTU")
 138 mtu.optional = true
 139 mtu.isinteger = true
 140
 141 mac = s:option(Value, "macaddr", translate("macaddress"))
 142 mac.optional = true
 143
 144
 145 srv = s:option(Value, "server", translate("network_interface_server"))
 146 srv:depends("proto", "pptp")
 147 srv.rmempty = true
 148
 149 service = s:option(ListValue, "service", translate("network_interface_service"))
 150 service:value("umts", "UMTS/GPRS")
 151 service:value("cdma", "CDMA")
 152 service:value("evdo", "EV-DO")
 153 service:depends("proto", "3g")
 154
 155 apn = s:option(Value, "apn", translate("network_interface_apn"))
 156 apn:depends("proto", "3g")
 157
 158 pincode = s:option(Value, "pincode",
 159  translate("network_interface_pincode"),
 160  translate("network_interface_pincode_desc")
 161 )
 162 pincode:depends("proto", "3g")
 163
 164 user = s:option(Value, "username", translate("username"))
 165 user.rmempty = true
 166 user:depends("proto", "pptp")
 167 user:depends("proto", "pppoe")
 168 user:depends("proto", "ppp")
 169 user:depends("proto", "3g")
 170
 171 pass = s:option(Value, "password", translate("password"))
 172 pass.rmempty = true
 173 pass.password = true
 174 pass:depends("proto", "pptp")
 175 pass:depends("proto", "pppoe")
 176 pass:depends("proto", "ppp")
 177 pass:depends("proto", "3g")
 178
 179 ka = s:option(Value, "keepalive",
 180  translate("network_interface_keepalive"),
 181  translate("network_interface_keepalive_desc")
 182 )
 183 ka.optional = true
 184 ka:depends("proto", "pptp")
 185 ka:depends("proto", "pppoe")
 186 ka:depends("proto", "ppp")
 187 ka:depends("proto", "3g")
 188
 189 demand = s:option(Value, "demand",
 190  translate("network_interface_demand"),
 191  translate("network_interface_demand_desc")
 192 )
 193 demand.optional = true
 194 demand:depends("proto", "pptp")
 195 demand:depends("proto", "pppoe")
 196 demand:depends("proto", "ppp")
 197 demand:depends("proto", "3g")
 198
 199 device = s:option(Value, "device",
 200  translate("network_interface_device"),
 201  translate("network_interface_device_desc")
 202 )
 203 device:depends("proto", "ppp")
 204 device:depends("proto", "3g")
 205
 206 defaultroute = s:option(Flag, "defaultroute",
 207  translate("network_interface_defaultroute"),
 208  translate("network_interface_defaultroute_desc")
 209 )
 210 defaultroute:depends("proto", "ppp")
 211 defaultroute:depends("proto", "3g")
 212
 213 peerdns = s:option(Flag, "peerdns",
 214  translate("network_interface_peerdns"),
 215  translate("network_interface_peerdns_desc")
 216 )
 217 peerdns:depends("proto", "ppp")
 218
 219 ipv6 = s:option(Flag, "ipv6", translate("network_interface_ipv6") )
 220 ipv6:depends("proto", "ppp")
 221 --ipv6:depends("proto", "3g")
 222
 223 connect = s:option(Value, "connect",
 224  translate("network_interface_connect"),
 225  translate("network_interface_connect_desc")
 226 )
 227 connect.optional = true
 228 connect:depends("proto", "ppp")
 229 connect:depends("proto", "3g")
 230
 231 disconnect = s:option(Value, "disconnect",
 232  translate("network_interface_disconnect"),
 233  translate("network_interface_disconnect_desc")
 234 )
 235 disconnect.optional = true
 236 disconnect:depends("proto", "ppp")
 237 disconnect:depends("proto", "3g")
 238
 239 pppd_options = s:option(Value, "pppd_options",
 240  translate("network_interface_pppd_options"),
 241  translate("network_interface_pppd_options_desc")
 242 )
 243 pppd_options.optional = true
 244 pppd_options:depends("proto", "ppp")
 245 pppd_options:depends("proto", "3g")
 246
 247 maxwait = s:option(Value, "maxwait",
 248  translate("network_interface_maxwait"),
 249  translate("network_interface_maxwait_desc")
 250 )
 251 maxwait.optional = true
 252 maxwait:depends("proto", "3g")
 253
 254
 255 s2 = m:section(TypedSection, "alias", translate("aliases"))
 256 s2.addremove = true
 257
 258 s2:depends("interface", arg[1])
 259 s2.defaults.interface = arg[1]
 260
 261
 262 s2.defaults.proto = "static"
 263
 264 ipaddr = s2:option(Value, "ipaddr", translate("ipaddress"))
 265 ipaddr.rmempty = true
 266
 267 nm = s2:option(Value, "netmask", translate("netmask"))
 268 nm.rmempty = true
 269 nm:value("255.255.255.0")
 270 nm:value("255.255.0.0")
 271 nm:value("255.0.0.0")
 272
 273 gw = s2:option(Value, "gateway", translate("gateway"))
 274 gw.rmempty = true
 275
 276 bcast = s2:option(Value, "bcast", translate("broadcast"))
 277 bcast.optional = true
 278
 279 ip6addr = s2:option(Value, "ip6addr", translate("ip6address"), translate("cidr6"))
 280 ip6addr.optional = true
 281
 282 ip6gw = s2:option(Value, "ip6gw", translate("gateway6"))
 283 ip6gw.optional = true
 284
 285 dns = s2:option(Value, "dns", translate("dnsserver"))
 286 dns.optional = true
 287
 288 return m