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?id=" .. k
				else
					del=nil
				end
				table.insert ( listed_files , cfe{inuse=fileinuseresult, del=del, save="", view="/view?id=" .. k, size=size, lastmod=lastmod, name=v, type="", id=k} )
			end
		end
		files:close()
	end
	return listed_files
end

get = function (self,path)
	local logfile_result = {}
	return list_files( path )
end