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