From a6854b1bc082f83a96c10a2d3adbf0b8fe01231a Mon Sep 17 00:00:00 2001
From: Andreas Brodmann <andreas.brodmann@gmail.com>
Date: Tue, 20 Nov 2007 20:26:03 +0000
Subject: /acf/squid: added advanced configuration page

git-svn-id: svn://svn.alpinelinux.org/acf/squid/trunk@351 ab2d0c66-481e-0410-8bed-d214d4d58bed
---
 squid-model.lua | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

(limited to 'squid-model.lua')

diff --git a/squid-model.lua b/squid-model.lua
index c61a4e7..f1fee43 100644
--- a/squid-model.lua
+++ b/squid-model.lua
@@ -38,3 +38,36 @@ service_control = function( control )
 	return retval
 end
 
+get_config = function()
+
+	local retval = ""
+	
+	local ptr = io.open( "/etc/squid/squid.conf", "r" )
+	if ptr ~= nil then
+		local retcfg = ptr:read( "*a" )
+		ptr:close()
+		if retcfg == nil then
+			retval = "\n\n    Error: Failed to read /etc/squid/squid.conf!\n\n"
+		else
+			retval = retcfg
+		end
+	end
+
+	return retval
+end
+
+update_config = function( config )
+
+	local retval = "Successfully updated /etc/squid/squid.conf!"
+
+	local ptr = io.open( "/etc/squid/squid.conf", "wb+" )
+	if ptr ~= nil then
+		ptr:write( config )
+		ptr:close()
+	else
+		retval = "update_config(): Error, failed to open /etc/squid/squid.conf!\n"
+	end
+
+	return retval
+end
+
-- 
cgit v1.2.3