--- /dev/null
+'use strict';
+'require rpc';
+'require uci';
+'require form';
+
+var callHostHints, callDUIDHints, callDHCPLeases, CBILeaseStatus;
+
+callHostHints = rpc.declare({
+ object: 'luci',
+ method: 'host_hints'
+});
+
+callDUIDHints = rpc.declare({
+ object: 'luci',
+ method: 'duid_hints'
+});
+
+callDHCPLeases = rpc.declare({
+ object: 'luci',
+ method: 'leases',
+ params: [ 'family' ],
+ expect: { dhcp_leases: [] }
+});
+
+CBILeaseStatus = form.DummyValue.extend({
+ renderWidget: function(section_id, option_id, cfgvalue) {
+ return E([
+ E('h4', _('Active DHCP Leases')),
+ E('div', { 'id': 'lease_status_table', 'class': 'table' }, [
+ E('div', { 'class': 'tr table-titles' }, [
+ E('div', { 'class': 'th' }, _('Hostname')),
+ E('div', { 'class': 'th' }, _('IPv4-Address')),
+ E('div', { 'class': 'th' }, _('MAC-Address')),
+ E('div', { 'class': 'th' }, _('Leasetime remaining'))
+ ]),
+ E('div', { 'class': 'tr placeholder' }, [
+ E('div', { 'class': 'td' }, E('em', _('Collecting data...')))
+ ])
+ ])
+ ]);
+ }
+});
+
+return L.view.extend({
+
+
+ load: function() {
+ return Promise.all([
+ callHostHints(),
+ callDUIDHints()
+ ]);
+ },
+
+ render: function(hosts_duids) {
+ var hosts = hosts_duids[0],
+ duids = hosts_duids[1],
+ m, s, o, ss, so;
+
+ m = new form.Map('dhcp', _('DHCP and DNS'), _('Dnsmasq is a combined <abbr title="Dynamic Host Configuration Protocol">DHCP</abbr>-Server and <abbr title="Domain Name System">DNS</abbr>-Forwarder for <abbr title="Network Address Translation">NAT</abbr> firewalls'));
+ m.tabbed = true;
+
+ s = m.section(form.TypedSection, 'dnsmasq', _('Server Settings'));
+ s.anonymous = true;
+ s.addremove = false;
+
+ s.tab('general', _('General Settings'));
+ s.tab('files', _('Resolv and Hosts Files'));
+ s.tab('tftp', _('TFTP Settings'));
+ s.tab('advanced', _('Advanced Settings'));
+ s.tab('leases', _('Static Leases'));
+
+ s.taboption('general', form.Flag, 'domainneeded',
+ _('Domain required'),
+ _('Don\'t forward <abbr title="Domain Name System">DNS</abbr>-Requests without <abbr title="Domain Name System">DNS</abbr>-Name'));
+
+ s.taboption('general', form.Flag, 'authoritative',
+ _('Authoritative'),
+ _('This is the only <abbr title="Dynamic Host Configuration Protocol">DHCP</abbr> in the local network'));
+
+
+ s.taboption('files', form.Flag, 'readethers',
+ _('Use <code>/etc/ethers</code>'),
+ _('Read <code>/etc/ethers</code> to configure the <abbr title="Dynamic Host Configuration Protocol">DHCP</abbr>-Server'));
+
+ s.taboption('files', form.Value, 'leasefile',
+ _('Leasefile'),
+ _('file where given <abbr title="Dynamic Host Configuration Protocol">DHCP</abbr>-leases will be stored'));
+
+ s.taboption('files', form.Flag, 'noresolv',
+ _('Ignore resolve file')).optional = true;
+
+ o = s.taboption('files', form.Value, 'resolvfile',
+ _('Resolve file'),
+ _('local <abbr title="Domain Name System">DNS</abbr> file'));
+
+ o.depends('noresolv', '');
+ o.optional = true;
+
+
+ s.taboption('files', form.Flag, 'nohosts',
+ _('Ignore <code>/etc/hosts</code>')).optional = true;
+
+ s.taboption('files', form.DynamicList, 'addnhosts',
+ _('Additional Hosts files')).optional = true;
+
+ o = s.taboption('advanced', form.Flag, 'quietdhcp',
+ _('Suppress logging'),
+ _('Suppress logging of the routine operation of these protocols'));
+ o.optional = true;
+
+ o = s.taboption('advanced', form.Flag, 'sequential_ip',
+ _('Allocate IP sequentially'),
+ _('Allocate IP addresses sequentially, starting from the lowest available address'));
+ o.optional = true;
+
+ o = s.taboption('advanced', form.Flag, 'boguspriv',
+ _('Filter private'),
+ _('Do not forward reverse lookups for local networks'));
+ o.default = o.enabled;
+
+ s.taboption('advanced', form.Flag, 'filterwin2k',
+ _('Filter useless'),
+ _('Do not forward requests that cannot be answered by public name servers'));
+
+
+ s.taboption('advanced', form.Flag, 'localise_queries',
+ _('Localise queries'),
+ _('Localise hostname depending on the requesting subnet if multiple IPs are available'));
+
+ //local have_dnssec_support = luci.util.checklib('/usr/sbin/dnsmasq', 'libhogweed.so');
+ var have_dnssec_support = true;
+
+ if (have_dnssec_support) {
+ o = s.taboption('advanced', form.Flag, 'dnssec',
+ _('DNSSEC'));
+ o.optional = true;
+
+ o = s.taboption('advanced', form.Flag, 'dnsseccheckunsigned',
+ _('DNSSEC check unsigned'),
+ _('Requires upstream supports DNSSEC; verify unsigned domain responses really come from unsigned domains'));
+ o.optional = true;
+ }
+
+ s.taboption('general', form.Value, 'local',
+ _('Local server'),
+ _('Local domain specification. Names matching this domain are never forwarded and are resolved from DHCP or hosts files only'));
+
+ s.taboption('general', form.Value, 'domain',
+ _('Local domain'),
+ _('Local domain suffix appended to DHCP names and hosts file entries'));
+
+ s.taboption('advanced', form.Flag, 'expandhosts',
+ _('Expand hosts'),
+ _('Add local domain suffix to names served from hosts files'));
+
+ s.taboption('advanced', form.Flag, 'nonegcache',
+ _('No negative cache'),
+ _('Do not cache negative replies, e.g. for not existing domains'));
+
+ s.taboption('advanced', form.Value, 'serversfile',
+ _('Additional servers file'),
+ _('This file may contain lines like \'server=/domain/1.2.3.4\' or \'server=1.2.3.4\' for domain-specific or full upstream <abbr title="Domain Name System">DNS</abbr> servers.'));
+
+ s.taboption('advanced', form.Flag, 'strictorder',
+ _('Strict order'),
+ _('<abbr title="Domain Name System">DNS</abbr> servers will be queried in the order of the resolvfile')).optional = true;
+
+ s.taboption('advanced', form.Flag, 'allservers',
+ _('All Servers'),
+ _('Query all available upstream <abbr title="Domain Name System">DNS</abbr> servers')).optional = true;
+
+ o = s.taboption('advanced', form.DynamicList, 'bogusnxdomain', _('Bogus NX Domain Override'),
+ _('List of hosts that supply bogus NX domain results'));
+
+ o.optional = true;
+ o.placeholder = '67.215.65.132';
+
+
+ s.taboption('general', form.Flag, 'logqueries',
+ _('Log queries'),
+ _('Write received DNS requests to syslog')).optional = true;
+
+ o = s.taboption('general', form.DynamicList, 'server', _('DNS forwardings'),
+ _('List of <abbr title="Domain Name System">DNS</abbr> servers to forward requests to'));
+
+ o.optional = true;
+ o.placeholder = '/example.org/10.1.2.3';
+
+
+ o = s.taboption('general', form.Flag, 'rebind_protection',
+ _('Rebind protection'),
+ _('Discard upstream RFC1918 responses'));
+
+ o.rmempty = false;
+
+
+ o = s.taboption('general', form.Flag, 'rebind_localhost',
+ _('Allow localhost'),
+ _('Allow upstream responses in the 127.0.0.0/8 range, e.g. for RBL services'));
+
+ o.depends('rebind_protection', '1');
+
+
+ o = s.taboption('general', form.DynamicList, 'rebind_domain',
+ _('Domain whitelist'),
+ _('List of domains to allow RFC1918 responses for'));
+ o.optional = true;
+
+ o.depends('rebind_protection', '1');
+ o.datatype = 'host(1)';
+ o.placeholder = 'ihost.netflix.com';
+
+
+ o = s.taboption('advanced', form.Value, 'port',
+ _('<abbr title="Domain Name System">DNS</abbr> server port'),
+ _('Listening port for inbound DNS queries'));
+
+ o.optional = true;
+ o.datatype = 'port';
+ o.placeholder = 53;
+
+
+ o = s.taboption('advanced', form.Value, 'queryport',
+ _('<abbr title="Domain Name System">DNS</abbr> query port'),
+ _('Fixed source port for outbound DNS queries'));
+
+ o.optional = true;
+ o.datatype = 'port';
+ o.placeholder = _('any');
+
+
+ o = s.taboption('advanced', form.Value, 'dhcpleasemax',
+ _('<abbr title="maximal">Max.</abbr> <abbr title="Dynamic Host Configuration Protocol">DHCP</abbr> leases'),
+ _('Maximum allowed number of active DHCP leases'));
+
+ o.optional = true;
+ o.datatype = 'uinteger';
+ o.placeholder = _('unlimited');
+
+
+ o = s.taboption('advanced', form.Value, 'ednspacket_max',
+ _('<abbr title="maximal">Max.</abbr> <abbr title="Extension Mechanisms for Domain Name System">EDNS0</abbr> packet size'),
+ _('Maximum allowed size of EDNS.0 UDP packets'));
+
+ o.optional = true;
+ o.datatype = 'uinteger';
+ o.placeholder = 1280;
+
+
+ o = s.taboption('advanced', form.Value, 'dnsforwardmax',
+ _('<abbr title="maximal">Max.</abbr> concurrent queries'),
+ _('Maximum allowed number of concurrent DNS queries'));
+
+ o.optional = true;
+ o.datatype = 'uinteger';
+ o.placeholder = 150;
+
+ o = s.taboption('advanced', form.Value, 'cachesize',
+ _('Size of DNS query cache'),
+ _('Number of cached DNS entries (max is 10000, 0 is no caching)'));
+ o.optional = true;
+ o.datatype = 'range(0,10000)';
+ o.placeholder = 150;
+
+ s.taboption('tftp', form.Flag, 'enable_tftp',
+ _('Enable TFTP server')).optional = true;
+
+ o = s.taboption('tftp', form.Value, 'tftp_root',
+ _('TFTP server root'),
+ _('Root directory for files served via TFTP'));
+
+ o.optional = true;
+ o.depends('enable_tftp', '1');
+ o.placeholder = '/';
+
+
+ o = s.taboption('tftp', form.Value, 'dhcp_boot',
+ _('Network boot image'),
+ _('Filename of the boot image advertised to clients'));
+
+ o.optional = true;
+ o.depends('enable_tftp', '1');
+ o.placeholder = 'pxelinux.0';
+
+ o = s.taboption('general', form.Flag, 'localservice',
+ _('Local Service Only'),
+ _('Limit DNS service to subnets interfaces on which we are serving DNS.'));
+ o.optional = false;
+ o.rmempty = false;
+
+ o = s.taboption('general', form.Flag, 'nonwildcard',
+ _('Non-wildcard'),
+ _('Bind dynamically to interfaces rather than wildcard address (recommended as linux default)'));
+ o.optional = false;
+ o.rmempty = true;
+
+ o = s.taboption('general', form.DynamicList, 'interface',
+ _('Listen Interfaces'),
+ _('Limit listening to these interfaces, and loopback.'));
+ o.optional = true;
+
+ o = s.taboption('general', form.DynamicList, 'notinterface',
+ _('Exclude interfaces'),
+ _('Prevent listening on these interfaces.'));
+ o.optional = true;
+
+ o = s.taboption('leases', form.SectionValue, '__leases__', form.GridSection, 'host', null,
+ _('Static leases are used to assign fixed IP addresses and symbolic hostnames to DHCP clients. They are also required for non-dynamic interface configurations where only hosts with a corresponding lease are served.') + '<br />' +
+ _('Use the <em>Add</em> Button to add a new lease entry. The <em>MAC-Address</em> identifies the host, the <em>IPv4-Address</em> specifies the fixed address to use, and the <em>Hostname</em> is assigned as a symbolic name to the requesting host. The optional <em>Lease time</em> can be used to set non-standard host-specific lease time, e.g. 12h, 3d or infinite.'));
+
+ ss = o.subsection;
+
+ ss.addremove = true;
+ ss.anonymous = true;
+
+ so = ss.option(form.Value, 'name', _('Hostname'));
+ so.datatype = 'hostname("strict")';
+ so.rmempty = true;
+ so.write = function(section, value) {
+ uci.set('dhcp', section, 'name', value);
+ uci.set('dhcp', section, 'dns', '1');
+ };
+ so.remove = function(section) {
+ uci.unset('dhcp', section, 'name');
+ uci.unset('dhcp', section, 'dns');
+ };
+
+ so = ss.option(form.Value, 'mac', _('<abbr title="Media Access Control">MAC</abbr>-Address'));
+ so.datatype = 'list(unique(macaddr))';
+ so.rmempty = true;
+ so.cfgvalue = function(section) {
+ var macs = uci.get('dhcp', section, 'mac'),
+ result = [];
+
+ if (!Array.isArray(macs))
+ macs = (macs != null && macs != '') ? macs.split(/\ss+/) : [];
+
+ for (var i = 0, mac; (mac = macs[i]) != null; i++)
+ if (/^([0-9a-fA-F]{1,2}):([0-9a-fA-F]{1,2}):([0-9a-fA-F]{1,2}):([0-9a-fA-F]{1,2}):([0-9a-fA-F]{1,2}):([0-9a-fA-F]{1,2})$/.test(mac))
+ result.push('%02X:%02X:%02X:%02X:%02X:%02X'.format(
+ parseInt(RegExp.$1, 16), parseInt(RegExp.$2, 16),
+ parseInt(RegExp.$3, 16), parseInt(RegExp.$4, 16),
+ parseInt(RegExp.$5, 16), parseInt(RegExp.$6, 16)));
+
+ return result.length ? result.join(' ') : null;
+ };
+ Object.keys(hosts).forEach(function(mac) {
+ so.value(mac);
+ });
+
+ so = ss.option(form.Value, 'ip', _('<abbr title="Internet Protocol Version 4">IPv4</abbr>-Address'));
+ so.datatype = 'or(ip4addr,"ignore")';
+ so.validate = function(section, value) {
+ var mac = this.map.lookupOption('mac', section),
+ name = this.map.lookupOption('name', section),
+ m = mac ? mac[0].formvalue(section) : null,
+ n = name ? name[0].formvalue(section) : null;
+
+ if ((m == null || m == '') && (n == null || n == ''))
+ return _('One of hostname or mac address must be specified!');
+
+ return true;
+ };
+ Object.keys(hosts).forEach(function(mac) {
+ if (hosts[mac].ipv4)
+ so.value(hosts[mac].ipv4);
+ });
+
+ so = ss.option(form.Value, 'leasetime', _('Lease time'));
+ so.rmempty = true;
+
+ so = ss.option(form.Value, 'duid', _('<abbr title="The DHCP Unique Identifier">DUID</abbr>'));
+ so.datatype = 'and(rangelength(20,36),hexstring)';
+ Object.keys(duids).forEach(function(duid) {
+ so.value(duid, '%s (%s)'.format(duid, duids[duid].name || '?'));
+ });
+
+ so = ss.option(form.Value, 'hostid', _('<abbr title="Internet Protocol Version 6">IPv6</abbr>-Suffix (hex)'));
+
+ o = s.taboption('leases', CBILeaseStatus, '__status__');
+
+ return m.render().then(function(mapEl) {
+ L.Poll.add(function() {
+ return callDHCPLeases(4).then(function(leases) {
+ cbi_update_table(mapEl.querySelector('#lease_status_table'),
+ leases.map(function(lease) {
+ var exp;
+
+ if (lease.expires === false)
+ exp = E('em', _('unlimited'));
+ else if (lease.expires <= 0)
+ exp = E('em', _('expired'));
+ else
+ exp = '%t'.format(lease.expires);
+
+ return [
+ lease.hostname || '?',
+ lease.ipaddr,
+ lease.macaddr,
+ exp
+ ];
+ }),
+ E('em', _('There are no active leases')));
+ });
+ });
+
+ return mapEl;
+ });
+ }
+});
+++ /dev/null
--- Copyright 2008 Steven Barth <steven@midlink.org>
--- Licensed to the public under the Apache License 2.0.
-
-local ipc = require "luci.ip"
-local sys = require "luci.sys"
-local o
-require "luci.util"
-
-m = Map("dhcp", translate("DHCP and DNS"),
- translate("Dnsmasq is a combined <abbr title=\"Dynamic Host Configuration Protocol" ..
- "\">DHCP</abbr>-Server and <abbr title=\"Domain Name System\">DNS</abbr>-" ..
- "Forwarder for <abbr title=\"Network Address Translation\">NAT</abbr> " ..
- "firewalls"))
-
-s = m:section(TypedSection, "dnsmasq", translate("Server Settings"))
-s.anonymous = true
-s.addremove = false
-
-s:tab("general", translate("General Settings"))
-s:tab("files", translate("Resolv and Hosts Files"))
-s:tab("tftp", translate("TFTP Settings"))
-s:tab("advanced", translate("Advanced Settings"))
-
-s:taboption("general", Flag, "domainneeded",
- translate("Domain required"),
- translate("Don't forward <abbr title=\"Domain Name System\">DNS</abbr>-Requests without " ..
- "<abbr title=\"Domain Name System\">DNS</abbr>-Name"))
-
-s:taboption("general", Flag, "authoritative",
- translate("Authoritative"),
- translate("This is the only <abbr title=\"Dynamic Host Configuration Protocol\">DHCP</" ..
- "abbr> in the local network"))
-
-
-s:taboption("files", Flag, "readethers",
- translate("Use <code>/etc/ethers</code>"),
- translate("Read <code>/etc/ethers</code> to configure the <abbr title=\"Dynamic Host " ..
- "Configuration Protocol\">DHCP</abbr>-Server"))
-
-s:taboption("files", Value, "leasefile",
- translate("Leasefile"),
- translate("file where given <abbr title=\"Dynamic Host Configuration Protocol\">DHCP</" ..
- "abbr>-leases will be stored"))
-
-s:taboption("files", Flag, "noresolv",
- translate("Ignore resolve file")).optional = true
-
-rf = s:taboption("files", Value, "resolvfile",
- translate("Resolve file"),
- translate("local <abbr title=\"Domain Name System\">DNS</abbr> file"))
-
-rf:depends("noresolv", "")
-rf.optional = true
-
-
-s:taboption("files", Flag, "nohosts",
- translate("Ignore <code>/etc/hosts</code>")).optional = true
-
-s:taboption("files", DynamicList, "addnhosts",
- translate("Additional Hosts files")).optional = true
-
-qu = s:taboption("advanced", Flag, "quietdhcp",
- translate("Suppress logging"),
- translate("Suppress logging of the routine operation of these protocols"))
-qu.optional = true
-
-se = s:taboption("advanced", Flag, "sequential_ip",
- translate("Allocate IP sequentially"),
- translate("Allocate IP addresses sequentially, starting from the lowest available address"))
-se.optional = true
-
-bp = s:taboption("advanced", Flag, "boguspriv",
- translate("Filter private"),
- translate("Do not forward reverse lookups for local networks"))
-bp.default = bp.enabled
-
-s:taboption("advanced", Flag, "filterwin2k",
- translate("Filter useless"),
- translate("Do not forward requests that cannot be answered by public name servers"))
-
-
-s:taboption("advanced", Flag, "localise_queries",
- translate("Localise queries"),
- translate("Localise hostname depending on the requesting subnet if multiple IPs are available"))
-
-local have_dnssec_support = luci.util.checklib("/usr/sbin/dnsmasq", "libhogweed.so")
-
-if have_dnssec_support then
- o = s:taboption("advanced", Flag, "dnssec",
- translate("DNSSEC"))
- o.optional = true
-
- o = s:taboption("advanced", Flag, "dnsseccheckunsigned",
- translate("DNSSEC check unsigned"),
- translate("Requires upstream supports DNSSEC; verify unsigned domain responses really come from unsigned domains"))
- o.optional = true
-end
-
-s:taboption("general", Value, "local",
- translate("Local server"),
- translate("Local domain specification. Names matching this domain are never forwarded and are resolved from DHCP or hosts files only"))
-
-s:taboption("general", Value, "domain",
- translate("Local domain"),
- translate("Local domain suffix appended to DHCP names and hosts file entries"))
-
-s:taboption("advanced", Flag, "expandhosts",
- translate("Expand hosts"),
- translate("Add local domain suffix to names served from hosts files"))
-
-s:taboption("advanced", Flag, "nonegcache",
- translate("No negative cache"),
- translate("Do not cache negative replies, e.g. for not existing domains"))
-
-s:taboption("advanced", Value, "serversfile",
- translate("Additional servers file"),
- translate("This file may contain lines like 'server=/domain/1.2.3.4' or 'server=1.2.3.4' for"..
- "domain-specific or full upstream <abbr title=\"Domain Name System\">DNS</abbr> servers."))
-
-s:taboption("advanced", Flag, "strictorder",
- translate("Strict order"),
- translate("<abbr title=\"Domain Name System\">DNS</abbr> servers will be queried in the " ..
- "order of the resolvfile")).optional = true
-
-s:taboption("advanced", Flag, "allservers",
- translate("All Servers"),
- translate("Query all available upstream <abbr title=\"Domain Name System\">DNS</abbr> servers")).optional = true
-
-bn = s:taboption("advanced", DynamicList, "bogusnxdomain", translate("Bogus NX Domain Override"),
- translate("List of hosts that supply bogus NX domain results"))
-
-bn.optional = true
-bn.placeholder = "67.215.65.132"
-
-
-s:taboption("general", Flag, "logqueries",
- translate("Log queries"),
- translate("Write received DNS requests to syslog")).optional = true
-
-df = s:taboption("general", DynamicList, "server", translate("DNS forwardings"),
- translate("List of <abbr title=\"Domain Name System\">DNS</abbr> " ..
- "servers to forward requests to"))
-
-df.optional = true
-df.placeholder = "/example.org/10.1.2.3"
-
-
-rp = s:taboption("general", Flag, "rebind_protection",
- translate("Rebind protection"),
- translate("Discard upstream RFC1918 responses"))
-
-rp.rmempty = false
-
-
-rl = s:taboption("general", Flag, "rebind_localhost",
- translate("Allow localhost"),
- translate("Allow upstream responses in the 127.0.0.0/8 range, e.g. for RBL services"))
-
-rl:depends("rebind_protection", "1")
-
-
-rd = s:taboption("general", DynamicList, "rebind_domain",
- translate("Domain whitelist"),
- translate("List of domains to allow RFC1918 responses for"))
-rd.optional = true
-
-rd:depends("rebind_protection", "1")
-rd.datatype = "host(1)"
-rd.placeholder = "ihost.netflix.com"
-
-
-pt = s:taboption("advanced", Value, "port",
- translate("<abbr title=\"Domain Name System\">DNS</abbr> server port"),
- translate("Listening port for inbound DNS queries"))
-
-pt.optional = true
-pt.datatype = "port"
-pt.placeholder = 53
-
-
-qp = s:taboption("advanced", Value, "queryport",
- translate("<abbr title=\"Domain Name System\">DNS</abbr> query port"),
- translate("Fixed source port for outbound DNS queries"))
-
-qp.optional = true
-qp.datatype = "port"
-qp.placeholder = translate("any")
-
-
-lm = s:taboption("advanced", Value, "dhcpleasemax",
- translate("<abbr title=\"maximal\">Max.</abbr> <abbr title=\"Dynamic Host Configuration " ..
- "Protocol\">DHCP</abbr> leases"),
- translate("Maximum allowed number of active DHCP leases"))
-
-lm.optional = true
-lm.datatype = "uinteger"
-lm.placeholder = translate("unlimited")
-
-
-em = s:taboption("advanced", Value, "ednspacket_max",
- translate("<abbr title=\"maximal\">Max.</abbr> <abbr title=\"Extension Mechanisms for " ..
- "Domain Name System\">EDNS0</abbr> packet size"),
- translate("Maximum allowed size of EDNS.0 UDP packets"))
-
-em.optional = true
-em.datatype = "uinteger"
-em.placeholder = 1280
-
-
-cq = s:taboption("advanced", Value, "dnsforwardmax",
- translate("<abbr title=\"maximal\">Max.</abbr> concurrent queries"),
- translate("Maximum allowed number of concurrent DNS queries"))
-
-cq.optional = true
-cq.datatype = "uinteger"
-cq.placeholder = 150
-
-cs = s:taboption("advanced", Value, "cachesize",
- translate("Size of DNS query cache"),
- translate("Number of cached DNS entries (max is 10000, 0 is no caching)"))
-cs.optional = true
-cs.datatype = "range(0,10000)"
-cs.placeholder = 150
-
-s:taboption("tftp", Flag, "enable_tftp",
- translate("Enable TFTP server")).optional = true
-
-tr = s:taboption("tftp", Value, "tftp_root",
- translate("TFTP server root"),
- translate("Root directory for files served via TFTP"))
-
-tr.optional = true
-tr:depends("enable_tftp", "1")
-tr.placeholder = "/"
-
-
-db = s:taboption("tftp", Value, "dhcp_boot",
- translate("Network boot image"),
- translate("Filename of the boot image advertised to clients"))
-
-db.optional = true
-db:depends("enable_tftp", "1")
-db.placeholder = "pxelinux.0"
-
-o = s:taboption("general", Flag, "localservice",
- translate("Local Service Only"),
- translate("Limit DNS service to subnets interfaces on which we are serving DNS."))
-o.optional = false
-o.rmempty = false
-
-o = s:taboption("general", Flag, "nonwildcard",
- translate("Non-wildcard"),
- translate("Bind dynamically to interfaces rather than wildcard address (recommended as linux default)"))
-o.optional = false
-o.rmempty = true
-
-o = s:taboption("general", DynamicList, "interface",
- translate("Listen Interfaces"),
- translate("Limit listening to these interfaces, and loopback."))
-o.optional = true
-
-o = s:taboption("general", DynamicList, "notinterface",
- translate("Exclude interfaces"),
- translate("Prevent listening on these interfaces."))
-o.optional = true
-
-m:section(SimpleSection).template = "lease_status"
-
-s = m:section(TypedSection, "host", translate("Static Leases"),
- translate("Static leases are used to assign fixed IP addresses and symbolic hostnames to " ..
- "DHCP clients. They are also required for non-dynamic interface configurations where " ..
- "only hosts with a corresponding lease are served.") .. "<br />" ..
- translate("Use the <em>Add</em> Button to add a new lease entry. The <em>MAC-Address</em> " ..
- "identifies the host, the <em>IPv4-Address</em> specifies the fixed address to " ..
- "use, and the <em>Hostname</em> is assigned as a symbolic name to the requesting host. " ..
- "The optional <em>Lease time</em> can be used to set non-standard host-specific " ..
- "lease time, e.g. 12h, 3d or infinite."))
-
-s.addremove = true
-s.anonymous = true
-s.template = "cbi/tblsection"
-
-name = s:option(Value, "name", translate("Hostname"))
-name.datatype = "hostname('strict')"
-name.rmempty = true
-
-function name.write(self, section, value)
- Value.write(self, section, value)
- m:set(section, "dns", "1")
-end
-
-function name.remove(self, section)
- Value.remove(self, section)
- m:del(section, "dns")
-end
-
-mac = s:option(Value, "mac", translate("<abbr title=\"Media Access Control\">MAC</abbr>-Address"))
-mac.datatype = "list(unique(macaddr))"
-mac.rmempty = true
-
-function mac.cfgvalue(self, section)
- local val = Value.cfgvalue(self, section)
- return ipc.checkmac(val) or val
-end
-
-ip = s:option(Value, "ip", translate("<abbr title=\"Internet Protocol Version 4\">IPv4</abbr>-Address"))
-ip.datatype = "or(ip4addr,'ignore')"
-
-time = s:option(Value, "leasetime", translate("Lease time"))
-time.rmempty = true
-
-duid = s:option(Value, "duid", translate("<abbr title=\"The DHCP Unique Identifier\">DUID</abbr>"))
-duid.datatype = "and(rangelength(20,36),hexstring)"
-fp = io.open("/var/hosts/odhcpd")
-if fp then
- for line in fp:lines() do
- local net_val, duid_val = string.match(line, "# (%S+)%s+(%S+)")
- if duid_val then
- duid:value(duid_val, duid_val)
- end
- end
- fp:close()
-end
-
-hostid = s:option(Value, "hostid", translate("<abbr title=\"Internet Protocol Version 6\">IPv6</abbr>-Suffix (hex)"))
-
-sys.net.host_hints(function(m, v4, v6, name)
- if m and v4 then
- ip:value(v4)
- mac:value(m, "%s (%s)" %{ m, name or v4 })
- end
-end)
-
-function ip.validate(self, value, section)
- local m = mac:formvalue(section) or ""
- local n = name:formvalue(section) or ""
- if value and #n == 0 and #m == 0 then
- return nil, translate("One of hostname or mac address must be specified!")
- end
- return Value.validate(self, value, section)
-end
-
-
-return m
projects / project / luci.git / commitdiff