1) Modified the generation process

2) Moved dynamic host configuration
   from the subnet scope to global.
   Reason: in isc-dhcp host declarations are
   always global.


git-svn-id: svn://svn.alpinelinux.org/acf/dhcp/trunk@344 ab2d0c66-481e-0410-8bed-d214d4d58bed

1 files changed, 128 insertions, 90 deletions

diff --git a/dhcp-model.lua b/dhcp-model.lua
index 1b3c71d..f0c1ada 100644
--- a/dhcp-model.lua
+++ b/dhcp-model.lua
@@ -114,6 +114,7 @@ config_generate = function()
 	tmpfile:write( "max-lease-time " .. settings.maxleasetime.value .. ";\n\n" )
 	
 	-- get, validate and write subnet configurations to tmp config file
+	tmpfile:write( "###### SUBNET CONFIG BEGIN ######\n\n" )
 	subnets = get_subnets()
 	local numnetworks = 0
 	for k,v in ipairs(subnets) do
@@ -164,13 +165,6 @@ config_generate = function()
 			msg = "Configuration Generation Failed!\n\n" .. spec2_msg
 			return msg
 		end
-		spec2_msg = generate_hosts( tmpfile, tmpfilename, net )
-		if #spec2_msg > 0 then
-			tmpfile:close()
-			os.remove( tmpfilename )
-			msg = "Configuration Generation Failed!\n\n" .. spec2_msg
-			return msg
-		end
 		--- generate advanced part / drop in
 		advancedfile = io.open( cfgdir .. net.name.value .. ".advanced", "r" )
 		if advancedfile ~= nil then
@@ -185,6 +179,7 @@ config_generate = function()
 	
 		tmpfile:write( "}\n\n" )
 	end
+	tmpfile:write( "###### SUBNET CONFIG END ######\n\n" )
 	
 	if numnetworks <= 0 then
 		tmpfile:close()
@@ -194,6 +189,13 @@ config_generate = function()
 		return msg
 	end
 	
+	msg = generate_hosts( tmpfile )
+	if #msg > 0 then
+		tmpfile:close()
+		os.remove( tmpfilename )
+		return msg
+	end
+	
 	config_generate_extconfig( tmpfile, "postconfig" )
 	
 	tmpfile:close()
@@ -216,7 +218,7 @@ end
 generate_pool = function( tmpfile, tmpfilename, net )
 	if not validator.is_ipv4( net.leaserangestart.value ) or
 	   not validator.is_ipv4( net.leaserangeend.value ) then
-	   if net.unknownclients.value == "permit" then
+	   if net.unknownclients.value == "allow" then
 	   	msg = "Reason: permitted unknown clients but failed to define lease range!\n"
 	   	return msg
 	   end
@@ -226,12 +228,12 @@ generate_pool = function( tmpfile, tmpfilename, net )
 
 	--- pool header 
 	tmpfile:write( "  pool {\n" )
-	if net.unknownclients.value == "permit" then
-		tmpfile:write( "    permit known clients;\n" )
-		tmpfile:write( "    permit unknown clients;\n" )
+	if net.unknownclients.value == "allow" then
+		tmpfile:write( "    allow known-clients;\n" )
+		tmpfile:write( "    allow unknown-clients;\n" )
 	else
-		tmpfile:write( "    permit known clients;\n" )
-		tmpfile:write( "    deny unknown clients;\n" )
+		tmpfile:write( "    allow known-clients;\n" )
+		tmpfile:write( "    deny unknown-clients;\n" )
 	end
 	tmpfile:write( "    range " .. net.leaserangestart.value .. " " .. net.leaserangeend.value .. ";\n" )
 	tmpfile:write( "  }\n" )
@@ -239,53 +241,103 @@ generate_pool = function( tmpfile, tmpfilename, net )
 	return ""
 end
 
-generate_hosts = function( tmpfile, tmpfilename, net )
-	--- generate static hosts
-	statichostsfile = io.open( cfgdir .. net.name.value .. ".static", "r" )
-	if statichostsfile ~= nil then
-		statichosts = statichostsfile:read( "*a" )
-		if statichosts == nil then
-			statichostsfile:close()
-			msg = "Configuration Generation Failed!\n\n" ..
-			      "Reason: failed to read static hosts file for '" .. net.name.value .. "'"
-			return msg
-		end
-		msg = validate_statichosts( statichosts )
+generate_hosts = function( outfile ) 
+
+	retval = ""
+	
+	outfile:write( "\n####### STATIC HOSTS BEGIN ######\n\n" )
+
+	snets = get_subnets()
+	for k,v in ipairs(snets) do
+		msg = generate_hosts_persubnet( outfile, v )
 		if #msg > 0 then
-			statichostsfile:close()
-			msg = "Configuration Generation Failed!\n\n" ..
-			      "Reason: " .. msg
 			return msg
 		end
+	end
 	
-		--- loop through all hosts
-		done = false
-		hosttoken = tokenizer.new( statichosts, "\n" )
-		while not done do
-			hosttoken, nexthost = tokenizer.next( hosttoken )
-			if nexthost ~= nil then
-				if string.sub( nexthost, 1, 1) ~= "#" then
-					spectoken = tokenizer.new( nexthost, ";" )
-					spectoken, hostname  = tokenizer.next( spectoken )
-					spectoken, ip  = tokenizer.next( spectoken )
-					spectoken, mac  = tokenizer.next( spectoken )
-					spectoken, comment  = tokenizer.next( spectoken )
-					tmpfile:write("  host " .. hostname .. " {\n")
-					tmpfile:write("    hardware ethernet " .. mac .. ";\n")
-					tmpfile:write("    fixed-address " .. ip .. ";\n")
-					tmpfile:write("  }\n")
+	retval = generate_hosts_dynamic( outfile )
+
+	return retval
+end
+
+generate_hosts_persubnet = function( outfile, netname )
+
+	retval = ""
+
+	hostsfile = io.open( cfgdir .. netname .. ".static", "r" )
+	if hostsfile ~= nil then
+		hostsdata = hostsfile:read( "*a" )
+		if hostsdata ~= nil then
+			outfile:write( "# " .. netname .. "\n" )
+			outfile:write( "group {\n" )
+			local done = false
+			hosttoken = tokenizer.new( hostsdata, "\n" )
+			while not done do
+				hosttoken, nexthost = tokenizer.next( hosttoken )
+				if nexthost ~= nil then
+					if string.sub( nexthost, 1, 1) ~= "#" then
+						spectoken = tokenizer.new( nexthost, ";" )
+						spectoken, hostname  = tokenizer.next( spectoken )
+						spectoken, ip  = tokenizer.next( spectoken )
+						spectoken, mac  = tokenizer.next( spectoken )
+						spectoken, comment  = tokenizer.next( spectoken )
+						outfile:write("  host " .. hostname .. " {\n")
+						outfile:write("    hardware ethernet " .. mac .. ";\n")
+						outfile:write("    fixed-address " .. ip .. ";\n")
+						outfile:write("  }\n")
+					end
+				else
+					done = true
 				end
-			else
-				done = true
 			end
+			outfile:write( "}\n\n" )
+			outfile:write( "###### STATIC HOSTS END ######\n\n" )
+		else
+			retval = "Configuration Generation Failed: Failed to read data from subnet static hosts file for " .. netname
 		end
-		statichostsfile:close()
+		hostsfile:close()
 	end
-	---
 
-        if net.unknownclients.value == "permit" then
-        	return ""
-        end
+	return retval
+end
+
+generate_hosts_dynamic = function( outfile )
+
+	retval = ""
+	
+	hostsfile = io.open( cfgdir .. "dhcpd.dynamic", "r" )
+	if hostsfile ~= nil then
+		hostsdata = hostsfile:read( "*a" )
+		if hostsdata ~= nil then
+			outfile:write( "group {\n" )
+			local done = false
+			hosttoken = tokenizer.new( hostsdata, "\n" )
+			while not done do
+				hosttoken, nexthost = tokenizer.next( hosttoken )
+				if nexthost ~= nil then
+					if string.sub( nexthost, 1, 1) ~= "#" then
+						spectoken = tokenizer.new( nexthost, ";" )
+						spectoken, hostname  = tokenizer.next( spectoken )
+						spectoken, mac  = tokenizer.next( spectoken )
+						spectoken, comment  = tokenizer.next( spectoken )
+						outfile:write("  host " .. hostname .. " {\n")
+						outfile:write("    hardware ethernet " .. mac .. ";\n")
+						outfile:write("  }\n")
+					end
+				else
+					done = true
+				end
+			end
+			outfile:write( "}\n" )
+		else
+			retval = "Configuration Generation Failed: Failed to read data from dynamic hosts file!"
+		end
+	end
+	
+	return retval
+end
+
+generate_hosts_old = function( tmpfile, tmpfilename, net )
 	--- generate dynamic hosts
 	dynamichostsfile = io.open( cfgdir .. net.name.value .. ".dynamic", "r" )
 	if dynamichostsfile ~= nil then
@@ -340,6 +392,7 @@ advglobal_read = function()
 
 	preconfig = ""
 	postconfig = ""
+	dynamic = ""
 
 	file = io.open( cfgdir .. "dhcpd.preconfig", "r" )
 	if file ~= nil then
@@ -359,10 +412,19 @@ advglobal_read = function()
 		file:close()
 	end
 	
-	return cfe({ preconfig = preconfig, postconfig = postconfig })
+	file = io.open( cfgdir .. "dhcpd.dynamic", "r" )
+	if file ~= nil then
+		dynamic = file:read( "*a" )
+		if dynamic == nil then
+			dynamic = ""
+		end
+		file:close()
+	end
+	
+	return cfe({ preconfig = preconfig, postconfig = postconfig, dynamic = dynamic })
 end
 
-advglobal_update = function( preconfig, postconfig )
+advglobal_update = function( preconfig, postconfig, dynamic )
 
 	file = io.open( cfgdir .. "dhcpd.preconfig", "wb+" )
 	if file ~= nil then
@@ -376,7 +438,13 @@ advglobal_update = function( preconfig, postconfig )
 		file:close()
 	end
 	
-	return cfe({ preconfig = preconfig, postconfig = postconfig })
+	file = io.open( cfgdir .. "dhcpd.dynamic", "wb+" )
+	if file ~= nil then
+		file:write( dynamic )
+		file:close()
+	end
+	
+	return cfe({ preconfig = preconfig, postconfig = postconfig, dynamic = dynamic })
 end
 
 subnet_read = function( name )
@@ -410,12 +478,11 @@ subnet_read = function( name )
 			net.unknownclients.value = string.sub(line, 18)
 		end
 	end
-	if net.unknownclients.value ~= "permit" then
+	if net.unknownclients.value ~= "allow" then
 		net.unknownclients.value = "deny"
 	end
 	
 	net.statichosts.value = subnet_get_spechosts( name, "static" )
-	net.dynamichosts.value = subnet_get_spechosts( name, "dynamic" )
 	net.advanced.value = subnet_get_spechosts( name, "advanced" )
 	
 	return net
@@ -453,21 +520,6 @@ subnet_update_statichosts = function( name, statichosts )
 	return msg
 end
 
-subnet_update_dynamichosts = function( name, dynamichosts )
-	local msg = "";
-	local filename = cfgdir .. name .. ".dynamic"
-	
-	file, errmsg = io.open( filename, "wb+" )
-	if file == nil then
-		msg = "Error: Failed to open " .. filename .. "(" .. errmsg .. ")!"
-	else 
-		file:write( dynamichosts )
-		file:close()
-	end
-	
-	return msg
-end
-
 subnet_update_advanced = function( name, advanced )
 	local msg = "";
 	local filename = cfgdir .. name .. ".advanced"
@@ -534,20 +586,6 @@ subnet_write = function( net )
 		table.insert( fields, "statichosts" )
 	end
 
-        if net.unknownclients.value == "deny" then
-		spec_msg = validate_dynamichosts( net.dynamichosts.value )
-		if #spec_msg == 0 then
-			spec_msg = subnet_update_dynamichosts( net.name.value, net.dynamichosts.value )
-			if #spec_msg > 0 then
-				msg = spec_msg
-				table.insert( fields, "dynamichosts" )
-			end
-		else
-			msg = spec_msg
-			table.insert( fields, "dynamichosts" )
-		end
-	end
-	
 	spec_msg = subnet_update_advanced( net.name.value, net.advanced.value )
 	if #spec_msg > 0 then
 		msg = spec_msg
@@ -616,17 +654,17 @@ validate_dynamichosts = function( dynamichosts )
 				fieldtoken, mac = tokenizer.next( fieldtoken )
 				fieldtoken, comment = tokenizer.next( fieldtoken )
 				if hostname == nil then
-					msg = msg .. "Static Hosts: hostname missing on line " .. line .. "!\n"
+					msg = msg .. "Dynamic Hosts: hostname missing on line " .. line .. "!\n"
 				else 
 					if not is_valid_hostname( hostname ) then
-						msg = msg .. "Static Hosts: Invalid hostname on line " .. line .. "!\n"
+						msg = msg .. "Dynamic Hosts: Invalid hostname on line " .. line .. "!\n"
 					end
 				end
 				if mac == nil then
-					msg = msg .. "Static Hosts: mac missing on line " .. line .. "!\n"
+					msg = msg .. "Dynamic Hosts: mac missing on line " .. line .. "!\n"
 				else 
 					if not validator.is_mac( mac ) then
-						msg = msg .. "Static Hosts: Invalid mac on line " .. line .. "!\n"
+						msg = msg .. "Dynamic Hosts: Invalid mac on line " .. line .. "!\n"
 					end
 				end
 			end
@@ -853,7 +891,7 @@ create_new_net = function( name, defleasetime, maxleasetime, gateway, domainname
 	        advanced       = { label="Advanced", value=nonil(advanced), type="text" },
 	        useadvanced    = { label="Use Advanced", value=nonil(useadvanced), type="text" }
 	      }
-	if net.unknownclients.value ~= "permit" then
+	if net.unknownclients.value ~= "allow" then
 		net.unknownclients.value = "deny"
 	end