local lm      = require 'lm'
local privacy = require 'lm.privacy'

privacy.handler (
	function ( name )
		print ( 'Privacy list changed: ' .. name )
	end )

main.command ( 'blocklist',
	function ( args )
		local connection = main.connection ()
		if not connection then
			print "You are not online!"
			return
		end
		local action = args[1]
		local conn   = lm.connection.bless ( connection )
		local who    = main.current_buddy ()
		privacy.list ( conn, 'mcabber',
			function ( list )
				if action == 'add' then
					for i, item in ipairs ( list ) do
						item.order = nil
					end
					table.insert ( list, 1, { type = 'jid', value = args[2] or who, action = 'deny' } )
				elseif action == 'del' then
					for i, item in ipairs ( list ) do
						if item.value == ( args[2] or who ) then
							table.remove ( list, i )
							break
						end
					end
				else
					local text = ''
					for i, item in ipairs ( list ) do
						text = text .. '\n - <' .. ( list.order or '?' ) .. '> ' .. ( list.value or '*' ) .. ' [' .. ( list.type or 'unspecified' ) .. '] ' .. ( list.action or 'unspecified' )
					end
					if text ~= '' then
						print ( 'Blocking list: ' .. text )
					end
					return
				end
				privacy.set ( conn, 'mcabber', list,
					function ()
						print ( 'Blocking list saved' )
					end,
					function ( mesg )
						print ( 'Error saving blocking list: ' .. mesg )
					end )
			end,
			function ( mesg )
				if action == 'add' then
					privacy.set ( conn, 'mcabber',
						{{ type = 'jid', value = args[2] or who, action = 'deny' },
						 { action = 'allow' }},
						function ()
							print ( 'New blocking list created' )
						end,
						function ( message )
							print ( 'Error obtaining/creatieng blocking list: ' .. mesg .. ' / ' .. message )
						end )
				else
					print ( 'Cannot obtain privacy list from server: ' .. mesg )
				end
			end )
	end, true )

local privacy_handler            = lm.message_handler.new ( privacy.iq_handler )
local privacy_handler_registered = false

privacy_pc_handler =
	function ( args )
		local connection = main.connection ()
		if connection then
			privacy.active ( lm.connection.bless ( connection ), 'mcabber',
				function ()
					print ( 'Server blocklist activated' )
				end,
				function ()
					-- list may be absent, so, we will not pollute log with errors
				end )
			lm.connection.bless( connection ):handler ( privacy_handler, 'iq', 'normal' )
			privacy_handler_registered = true
		end
	end
privacy_pd_handler = 
	function ( args )
		if privacy_handler_registered then
			local connection = main.connection ()
			if connection then
				lm.connection.bless( connection ):handler ( privacy_handler, 'iq' )
			end
			privacy_handler_registered = false
		end
	end
main.hook ( 'hook-post-connect',   privacy_pc_handler )
main.hook ( 'hook-pre-disconnect', privacy_pd_handler )
main.hook ( 'hook-lua-quit',       privacy_pd_handler )

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