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 action = args[1]

		local conn   = lm.connection.bless ( main.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 )

commands_help['blocklist'] = '[[add | del] [jid]]\n\nRetrieves list, adds or removes buddies to/from mcabber\'s server blocklist.\nAny stanzas from buddy in list are blocked by server.'

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

local privacy_handler_registered = false

hooks_d['hook-post-connect'].privacy =

	function ( args )

		privacy.active ( lm.connection.bless ( main.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( main.connection () ):handler ( privacy_handler, 'iq', 'normal' )

		privacy_handler_registered = true

		hooks_d['hook-post-connect'].privacy =

			function ( args )

				privacy.active ( lm.connection.bless ( main.connection () ), 'mcabber',

					function ()

						print ( 'Server blocklist activated' )

					end,

					function ()

						-- list may be absent, so, we will not pollute log with errors

					end )

			end

		hooks_d['hook-quit'].privacy =

			function ( args )

				if privacy_handler_registered then

					lm.connection.bless( main.connection () ):handler ( privacy_handler, 'iq' )

				end

			end

	end

-- vim: se ts=4: --