IMPORTANT: due to a drive failure, as of 13-Mar-2021, the Mercurial repository had to be re-mirrored, which changed every commit SHA. The old SHAs and trees are backed up in the vault branches. Please migrate to the new branches as soon as you can.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
prosody/util/pluginloader.lua

69 lines
1.7 KiB

-- Prosody IM
-- Copyright (C) 2008-2010 Matthew Wild
-- Copyright (C) 2008-2010 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;