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