From 6f81d5ac0698008ccca256663f1f057a8c894001 Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Fri, 4 Jul 2008 17:48:27 +0000
Subject: Modified apk to use controllerfunctions and common lsp file.

git-svn-id: svn://svn.alpinelinux.org/acf/apk-tools/trunk@1278 ab2d0c66-481e-0410-8bed-d214d4d58bed
---
 apk-config-html.lsp | 15 +--------------
 apk-controller.lua  | 38 +++++---------------------------------
 apk-html.lsp        | 20 +++-----------------
 3 files changed, 9 insertions(+), 64 deletions(-)
 mode change 100644 => 120000 apk-config-html.lsp

diff --git a/apk-config-html.lsp b/apk-config-html.lsp
deleted file mode 100644
index a884ec9..0000000
--- a/apk-config-html.lsp
+++ /dev/null
@@ -1,14 +0,0 @@
-<? local form = ... ?>
-<? require("viewfunctions") ?>
-<?
---[[ DEBUG INFORMATION
-io.write("<H1>DEBUGGING</H1><span style='color:red'><H2>DEBUG INFO: CFE</H2>")
-io.write(html.cfe_unpack(form))
-io.write("</span>")
---]]
-?>
-
-<H1><?= form.label ?></H1>
-<?
-	displayform(form)
-?>
diff --git a/apk-config-html.lsp b/apk-config-html.lsp
new file mode 120000
index 0000000..4b6b762
--- /dev/null
+++ b/apk-config-html.lsp
@@ -0,0 +1 @@
+../form-html.lsp
\ No newline at end of file
diff --git a/apk-controller.lua b/apk-controller.lua
index 9bb53bb..9876347 100644
--- a/apk-controller.lua
+++ b/apk-controller.lua
@@ -1,4 +1,5 @@
 -- the interfaces  controller
+require("controllerfunctions")
 
 module (..., package.seeall)
 
@@ -9,11 +10,7 @@ read = function(self)
 end
 
 loaded = function(self)
-	-- Get command result out of session data
-	local cmdresult = self.sessiondata.cmdresult
-	self.sessiondata.cmdresult = nil
-	local loaded = self.model.get_loaded_packages()
-	return cfe({ type="group", value={loaded=loaded, cmdresult=cmdresult} })
+	return cfe({ type="group", value={loaded=self.model.get_loaded_packages()} })
 end
 
 available = function(self)
@@ -21,38 +18,13 @@ available = function(self)
 end
 
 delete = function(self)
-	local package = self.clientdata.package or ""
-	local cmdresult = self.model.delete_package(package, self.sessiondata)
-	-- Put the result in session data and redirect
-	self.sessiondata.cmdresult = cmdresult
-	redirect(self)
+	return self:redirect_to_referrer(self.model.delete_package(self.clientdata.package or "", self.sessiondata))
 end
 
 install = function(self)
-	local package = self.clientdata.package or ""
-	local cmdresult = self.model.install_package(package, self.sessiondata)
-	-- Put the result in session data and redirect
-	self.sessiondata.cmdresult = cmdresult
-	redirect(self)
+	return self:redirect_to_referrer(self.model.install_package(self.clientdata.package or "", self.sessiondata))
 end
 
 config = function(self)
-	local config = self.model.get_config()
-	if self.clientdata.Save then
-		for name,value in pairs(config.value) do
-			if self.clientdata[name] then
-				value.value = self.clientdata[name]
-			end
-		end
-		config = self.model.set_config(config)
-		if not config.errtxt then
-			config.descr = "Saved Configuration"
-		end
-	end
-
-	config.type = "form"
-	config.option = "Save"
-	config.label = "Edit Configuration"
-
-	return config
+	return controllerfunctions.handle_form(self, self.model.get_config, self.model.set_config, self.clientdata, "Save", "Edit Configuration", "Configuration Saved")
 end
diff --git a/apk-html.lsp b/apk-html.lsp
index 19cb085..13c1749 100644
--- a/apk-html.lsp
+++ b/apk-html.lsp
@@ -1,4 +1,5 @@
-<? local form = ... ?>
+<? local form, viewlibrary, page_info, session = ... ?>
+<? require("viewfunctions") ?>
 <?
 --[[ DEBUG INFORMATION
 io.write("<H1>DEBUGGING</H1><span style='color:red'><H2>DEBUG INFO: CFE</H2>")
@@ -7,12 +8,7 @@ io.write("</span>")
 --]]
 ?>
 
-<? if form.value.cmdresult then ?>
-<H1>Command Result</H1>
-<DL>
-<?= form.value.cmdresult.value ?>
-</DL>
-<? end ?>
+<? displaycommandresults({"delete", "install"}, session) ?>
 
 <? if form.value.loaded then ?>
 <H1>Loaded Packages</H1>
@@ -59,13 +55,3 @@ io.write("</span>")
 </TABLE>
 </DL>
 <? end ?>
-
-<?
---[[ DEBUG INFORMATION
-io.write("<H1>DEBUGGING</H1><span style='color:red'><H2>DEBUG INFO: CFE</H2>")
-io.write(html.cfe_unpack(form))
-io.write("</span>")
---]]
-?>
-
-
-- 
cgit v1.2.3