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