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