Wed, 23 Dec 2009 23:13:39 +0100
mod_saslauth: Adjust sanitizing.
-- Prosody IM -- Copyright (C) 2008-2009 Matthew Wild -- Copyright (C) 2008-2009 Waqas Hussain -- -- This project is MIT/X11 licensed. Please see the -- COPYING file in the source package for more information. -- local plugin_dir = CFG_PLUGINDIR or "./plugins/"; local io_open, os_time = io.open, os.time; local loadstring, pairs = loadstring, pairs; local datamanager = require "util.datamanager"; module "pluginloader" local function load_from_datastore(name) local content = datamanager.load(name, nil, "plugins"); if not content or not content[1] then return nil, "Resource not found"; end return content[1], name; end local function load_file(name) local file, err = io_open(plugin_dir..name); if not file then return file, err; end local content = file:read("*a"); file:close(); return content, name; end function load_resource(plugin, resource, loader) if not resource then resource = "mod_"..plugin..".lua"; end loader = loader or load_file; local content, err = loader(plugin.."/"..resource); if not content then content, err = loader(resource); end -- TODO add support for packed plugins if not content and loader == load_file then return load_resource(plugin, resource, load_from_datastore); end return content, err; end function store_resource(plugin, resource, content, metadata) if not resource then resource = "mod_"..plugin..".lua"; end local store = { content }; if metadata then for k,v in pairs(metadata) do store[k] = v; end end datamanager.store(plugin.."/"..resource, nil, "plugins", store); end function load_code(plugin, resource) local content, err = load_resource(plugin, resource); if not content then return content, err; end return loadstring(content, "@"..err); end return _M;