Mudlet - Forum

function getBaseDir()
	local dir = getMudletHomeDir()
	local loc = string.find(dir, "[\\/]profiles[\\/]")
	local basedir = string.sub(dir, 0, loc)
	return basedir
end

function loadShared(filename)
	local newpath = getBaseDir()..'shared/'
	dofile(newpath..filename..'.lua')
end

function scandir(dirname)
--from http://www.wellho.net/resources/ex.php4?item=u112/dlisting
	callit = os.tmpname()
	os.execute("ls -a1 "..dirname .. " >"..callit)
	f = io.open(callit,"r")
	rv = f:read("*all")
	f:close()
	os.remove(callit)
	tabby = {}
	local from = 1
	local delim_from, delim_to = string.find( rv, "\n", from )
	while delim_from do
		table.insert( tabby, string.sub( rv, from , delim_from-1 ) )
		from = delim_to + 1
		delim_from, delim_to = string.find( rv, "\n", from )
	end
	-- table.insert( tabby, string.sub( rv, from ) )
	-- Comment out eliminates blank line on end!
	return tabby
	end

function loadSharedFolder(folder)
	local linuxfolder = string.gsub(folder,' ', '\\ ')
	local basedir = getBaseDir()..'shared/'
	local files = scandir(basedir..linuxfolder)
	local mudletdir = basedir..folder..'/'
	for i,v in pairs(files) do
		if v ~= '.' and v ~= '..' then
			dofile(mudletdir..v)
		end
	end
end