Family Historian User Group

Code: Select all

require("lfs")
function DisableModules()
	local arrFile = { }
	-- List of library module folder/file names
	local arrName = { "loadrequire"; "luasql"; "ltn12"; "md5"; "mime"; "pl"; "socket"; "compat53"; "utf8"; "zip"; }
	local arrType = {
		{ Old="";     New=".fh6";     Mode="directory"; };	-- List of old and new file extensions
		{ Old=".lua"; New=".fh6_lua"; Mode="file"; };
		{ Old=".dll"; New=".fh6_dll"; Mode="file"; };
	}
	local dirData = fhGetContextInfo("CI_APP_DATA_FOLDER").."\\Plugins\\"
	for _, dicType in ipairs (arrType) do
		for _, strName in ipairs (arrName) do	-- Rename any library module folder or file from old to new
			local strOld = dirData..strName..dicType.Old
			local strNew = dirData..strName..dicType.New
			if lfs.attributes(strOld,"mode") == dicType.Mode then
				local isOK, strErr = os.rename(strOld,strNew)
				if isOK then
					table.insert(arrFile,strOld)	-- Log disabled renamed folder or file 
				else
					fhMessageBox("\nModule disablement rename failed for:\n"..strOld.."\n"..(strErr or ""))
				end
			end
		end
	end
	if #arrFile > 0 then
		fhMessageBox("\nThe following FH v6 library folders and files have been disabled\nby inserting 'fh6' into each of their filenames:\n\n"..table.concat(arrFile,"\n"))
	else
		fhMessageBox("\nNo FH v6 library module folders or files needed to be disabled.\n") 
	end
end -- function DisableModules