--  READONLY

-- public functions:
--  * readonly
--  * readwrite
--  * toggle_readonly
--  * readonly_jids
-- FIXME:
--  * does not work, as mcabber ignores hook retval on hook-message-out
-- TODO:
--  * more accessors (merge storage with marking?)
--  * commands?

local readonly_db = {}

function readonly ( jid )
	if ( not jid ) or ( jid == '.' ) then
		jid = main.current_buddy ()
	end
	if jid then
		readonly_db [ jid ] = true
	end
end

function readwrite ( jid )
	if ( not jid ) or ( jid == '.' )  then
		jid = main.current_buddy ()
	end
	if jid then
		readonly_db [ jid ] = nil
	end
end

function toggle_readonly ( jid )
	if ( not jid ) or ( jid == '.' ) then
		jid = main.current_buddy ()
	end
	if jid then
		if readonly_db [ jid ] then
			readwrite ( jid )
		else
			readonly ( jid )
		end
	end
end

function readonly_jids ()
	local result = {}
	for jid in pairs ( readonly_db ) do
		table.insert ( result, jid )
	end
	return result
end

main.hook ( 'hook-message-out',
	function ( args )
		if readonly_db [ args.jid ] then
			main.print_info ( args.jid, "Readonly JID, message dropped." )
			return 'drop'
		else
			return 'proceed'
		end
	end )

-- vim: se ts=4 sw=4: --