Made changes for new handle_form style and remove redirect_to_referrer

1 files changed, 16 insertions, 9 deletions

diff --git a/dnscache-model.lua b/dnscache-model.lua
index 89685e3..2b0ee44 100644
--- a/dnscache-model.lua
+++ b/dnscache-model.lua
@@ -192,7 +192,8 @@ function setNewDomain(self, domain)
 	return domain
 end
 
-function getDomain(getdomainname)
+function getDomain(self, clientdata)
+	local getdomainname = clientdata.domain
 	local domain = cfe({ value=getdomainname, label="Domain", errtxt="Invalid domain" })
 	local iplist = cfe({ type="list", value={}, label="List of DNS servers" })
 	local domains = getDomains()
@@ -222,20 +223,26 @@ function setDomain(self, domain)
 	return domain
 end
 
-function deleteDomain(domainname)
-	local cmdresult = cfe({ value="Domain not deleted", label="Delete domain result", errtxt="Invalid domain" })
+function getDeleteDomain(self, clientdata)
+	local domain = cfe({ value=clientdata.domain or "", label="Domain" })
+	return cfe({ type="group", value={domain=domain}, label="Delete Domain" })
+end
+
+function deleteDomain(self, domain)
+	domain.errtxt = "Domain not deleted"
+	domain.value.domain.errtxt = "Invalid domain"
 	local domains = getDomains()
-	if domainname == "@" then
-		cmdresult.errtxt = "Cannot delete root domain"
+	if domain.value.domain.value == "@" then
+		domain.value.domain.errtxt = "Cannot delete root domain"
 	else
 		for i,name in ipairs(domains.value) do
-			if name == domainname then
+			if name == domain.value.domain.value then
 				os.remove(baseurl.."servers/"..name)
-				cmdresult.errtxt = nil
-				cmdresult.value = "Domain deleted"
+				domain.errtxt = nil
+				domain.value.domain.errtxt = nil
 				break
 			end
 		end
 	end
-	return cmdresult
+	return domain
 end