diff options
Diffstat (limited to 'dhcp-model.lua')
| -rw-r--r-- | dhcp-model.lua | 142 |
1 files changed, 142 insertions, 0 deletions
diff --git a/dhcp-model.lua b/dhcp-model.lua new file mode 100644 index 0000000..2a952f7 --- /dev/null +++ b/dhcp-model.lua @@ -0,0 +1,142 @@ +-- acf model for /etc/dhcp/* +-- Copyright(c) 2007 A. Brodmann - Licensed under terms of GPL2 +module (..., package.seeall) + +local subnet = { } +local cfgdir = "/etc/dhcp/" + +subnet_read = function( name ) + local filename = cfgdir .. name .. ".subnet" + local net = { name = cfe({ type="message", value=name, label="Name" }), + defleasetime = cfe({ label="Default Lease Time" }), + maxleasetime = cfe({ label="Maximum Lease Time" }), + gateway = cfe({ label="Gateway"}), + domainname = cfe({ label="Domainname" }), + dnssrv1 = cfe({ label="DNS Server 1" }), + dnssrv2 = cfe({ label="DNS Server 2" }), + subnet = cfe({ label="Subnet" }), + netmask = cfe({ label="Netmask" }), + leaserangestart = cfe({ label="Lease Range Start" }), + leaserangeend = cfe({ label="Lease Range End" }), + wpad = cfe({ label="Web Proxy Auto Discovery" }) + } + + for line in io.lines(filename) do + if (string.sub(line, 1, 15) == "def-lease-time:") then + net.defleasetime.value = string.sub(line, 17) + elseif (string.sub(line, 1, 15) == "max-lease-time:") then + net.maxleasetime.value = string.sub(line, 17) + elseif (string.sub(line, 1, 8) == "gateway:") then + net.gateway.value = string.sub(line, 10) + elseif (string.sub(line, 1, 12) == "domain-name:") then + net.domainname.value = string.sub(line, 14) + elseif (string.sub(line, 1, 10) == "dns-srv-1:") then + net.dnssrv1.value = string.sub(line, 12) + elseif (string.sub(line, 1, 10) == "dns-srv-2:") then + net.dnssrv2.value = string.sub(line, 12) + elseif (string.sub(line, 1, 7) == "subnet:") then + net.subnet.value = string.sub(line, 9) + elseif (string.sub(line, 1, 8) == "netmask:") then + net.netmask.value = string.sub(line, 10) + elseif (string.sub(line, 1, 18) == "lease-range-start:") then + net.leaserangestart.value = string.sub(line, 20) + elseif (string.sub(line, 1, 16) == "lease-range-end:") then + net.leaserangeend.value = string.sub(line, 18) + elseif (string.sub(line, 1, 5) == "wpad:") then + net.wpad.value = string.sub(line, 7) + end + end + + return net +end + +subnet_write = function( net ) + local filename = cfgdir .. net.name.value .. ".subnet" + local file = io.open( filename, "w+" ) + file:write( "def-lease-time: " .. net.defleasetime.value .. "\n" ) + file:write( "max-lease-time: " .. net.maxleasetime.value .. "\n" ) + file:write( "gateway: " .. net.gateway.value .. "\n" ) + file:write( "domain-name: " .. net.domainname.value .. "\n" ) + file:write( "dns-srv-1: " .. net.dnssrv1.value .. "\n" ) + file:write( "dns-srv-2: " .. net.dnssrv2.value .. "\n" ) + file:write( "subnet: " .. net.subnet.value .. "\n" ) + file:write( "netmask: " .. net.netmask.value .. "\n" ) + file:write( "lease-range-start: " .. net.leaserangestart.value .. "\n" ) + file:write( "lease-range-end: " .. net.leaserangeend.value .. "\n" ) + file:write( "wpad: " .. net.wpad.value .. "\n" ) + file:close() + return net +end + +read_file = function ( filename ) + local contents = "" + local line = "" + local file = io.open( filename, "r" ) + if file ~= nil then + line = file:read( "*l" ) + while line ~= nil do + contents = contents .. "\n" .. line + line = file:read( "*l" ) + end + file:close() + else + contents = "\n Error: File not found!\n\n" + end + + return contents +end + +is_running = function( process ) + local retval = false + local file = io.popen("pidof " .. process) + if file ~= nil then + local line = file:read( "*l" ) + file:close() + if #line > 0 then + retval = true + end + end + + return retval +end + +get_dhcpd_version = function() + local retval = "dhcpd" + local file = io.popen("/usr/sbin/dhcpd --version") + if file ~= nil then + local line = file:read( "*a" ) + if #line > 0 then + retval = line + end + file:close() + end + + return retval +end + +service_control = function ( command ) + + local retval = "" + local line = "" + local file = io.popen( "/etc/init.d/dhcpd " .. command ) + if file ~= nil then + line = file:read( "*l" ) + while line ~= nil do + retval = retval .. "\n" .. line + line = file:read( "*l" ) + end + file:close() + end + + return retval +end + +function nonil( value ) + local retval = "" + if value ~= nil then + retval = value + end + + return retval +end + |