module (..., package.seeall)

-- no initializer in model - use controller.init for that

local function file_info ( path )
	local file = io.popen("ls -lh " .. path )
	local file_inuse = io.popen("fuser " .. path )
	split = require("split")
	local file_info_result = file:read("*a") or "unknown"
	local fileinuseresult = file_inuse:read("*a") or "unkown"
	if fileinuseresult == "" then 
		fileinuseresult = "Delete"
	else
		fileinuseresult = "in use"
	end
	local size = rawget(split("%s+", file_info_result),5)
	local lastmod = rawget(split("%s+", file_info_result),6) .. " " .. rawget(split("%s+", file_info_result),7) .. " " .. rawget(split("%s+", file_info_result),8)
	file:close()
	file_inuse:close()
	return lastmod,size,fileinuseresult
end

local function list_files ( path )
	local listed_files = {}
	local open_files = {}
	split = require("split")
	local files = io.popen("find " .. path .. " -type f | sort")

	table.insert ( listed_files , cfe{inuse="Delete", save="Save", view="View", size="Size", lastmod="Last Modified", name="File"} )

	if ( files ) then
		local f = files:read("*a") or "unknown"
		for k,v in pairs(split("%s", f)) do
			if v ~= "" then
				local lastmod,size,fileinuseresult = file_info(v)
				if ( fileinuseresult == "Delete" ) then
					del="/delete?name=" .. v
				else
					del=nil
				end
				table.insert ( listed_files , cfe{inuse=fileinuseresult, del=del, save="", view="/view?name=" .. v, size=size, lastmod=lastmod, name=v, type="", id=k} )
			end
		end
		files:close()
	end
	return listed_files
end

local function checkfilefordelete ( filetodelete )
	local deletedfile = {}
	local available_files = get()
	for k,v in pairs(available_files) do
		if ( available_files[k].name == filetodelete ) then
			if ( available_files[k].del ) then
				local status, err = os.remove( filetodelete )
				if not ( err ) then
					deletedfile = cfe{value="File '" .. filetodelete .. "' has been successfully deleted!", type="text", option=nil, errtxt=err}
				end
			else
			end
		end
	end
	if not ( deletedfile.value ) then
		if not ( err ) then
			err = "The file is not accepted for removal!"
		end
		deletedfile = cfe{value="File '" .. filetodelete .. "' has not been deleted!", type="text", option=nil, errtxt=err}
	end
	return deletedfile
end

local function checkfileforview ( path )
	local file = {}
	local available_files = get()
	filecontent = cfe{value="", type="longtext", option=nil, errtxt="You are not allowed to view this file!"}
	for k,v in pairs(available_files) do
		if ( available_files[k].name == path ) then
			local file = io.open( path )
			local file_result = file:read("*a") or "unknown"
			file:close()
			err=nil
			filecontent = cfe{value=file_result, type="longtext", option=nil, errtxt=err}
		end
	end
	return filecontent
end

get = function (self)
	return list_files( "/var/log /tmp/squid/log" )
end

delete = function (self,filetodelete)
	return checkfilefordelete( filetodelete )
end

view = function (self,filetoview)
	return checkfileforview( filetoview )
end