-- vim:ts=4:sw=4:noet
-- 
-- spy snooper bot for PtokaX (tested on 0.3.2.3 Test2B)
-- by Sedulus 20030201, no rights reserved
--
-- this is a standalone snooper bot
-- doesn't register itself as a regular bot,
-- but sends a $Hello to the users who may use it.
-- (refresh user list if you don't see it)
--
-- usage:
--   start <nick>	starts snooping on <nick>
--   stop <nick>	stops snooping on <nick
--   list			list all snoopers and snoopees
--
-- it reports _any_ activity by the user,
-- and all private messages to the user.
--
-- when a user goes offline, the user is cleared from the list
-- and the snooper is notified.
--
-- changes: v0.3: 20030209
--  * added help
--  * fixed a bug with bot_name having magic regex characters
--  * a refresh-user-list restores the bot, and privileged users (i.e. they who
--    may spy) will see the bot without having to re-enter
--
-- changes: v0.2: 20030205
--  * added: allowedSnoopers
--    set this table to `nil' to allow snooping by all operators,
--    else add the snoopers names as keys with non-nil values.
--    
-- changes: v0.1: 20030205
--  * added: bSnoopChat, bSnoopPM, bSnoopSearch, bSnoopSR, bSnoopConnect
--    now you don't need to see all the garbage (like passive search results),
--    unless you want to.
--    

bot_name = "-Spy-"	-- use "!Spy"; the ! so it gets high in the list
bAllowOpSnoop = 0	-- allow OPs to spy on OPs

bSnoopChat = 1		-- report chat messages
bSnoopPM = 1		-- report private messages
bSnoopSearch = 1	-- report searches
bSnoopSR = 0		-- report passive search results
bSnoopConnect = 0	-- report connection attempts to other users

--// use the table below if you only want the users in it to be able to snoop
--// ...for paranoid hubowners ;)
--// NOTE that they need to be OPs too
allowedSnoopers = {
	["[Rug.nl]Sedulus"] = 1,
	["Cop][Killer"] = 1,
}
--// otherwise, comment out the above, or use
allowedSnoopers = nil

snoopTable = {}		-- this will fill itself with OPs that are online

function is( bool )	if bool and bool ~= 0 then return 1 ; end ; end	-- allowing 0 to mean OFF


function OpConnected( curUser )
	-- use a hello, so no non-op sees our presence
	if not allowedSnoopers or allowedSnoopers[curUser.sName] then
		curUser:SendData( "$Hello "..bot_name )
		snoopTable[curUser.sName] = {}
	end
end
function OpDisconnected( curUser )
	if not allowedSnoopers or allowedSnoopers[curUser.sName] then
		snoopTable[curUser.sName] = nil
	end
	clearSuspectFromList( curUser.sName )
end
function UserDisconnected( curUser )
	clearSuspectFromList( curUser.sName )
end


function DataArrival( curUser, data )

	--// make sure no one steals our name

	if data == "$ValidateNick "..bot_name.."|" then
		curUser:SendData( "$ValidateDenide" )
		curUser:Disconnect()

	--// re-send Hello //--

	elseif data == "$GetNickList|" then
		if curUser.bOperator and ( not allowedSnoopers or allowedSnoopers[curUser.sName] ) then
			if not snoopTable[curUser.sName] then snoopTable[curUser.sName] = {} end
			curUser:SendData( "$Hello "..bot_name )
		end
	end

	--// adjust behaviour

	if curUser.bOperator and ( not allowedSnoopers or allowedSnoopers[curUser.sName] ) then
		local ret,c,to,from,msg = strfind( data, "^$To: ([^ ]+) .*$<([^ ]+)> (.*)%|$" )
		if ret and to == bot_name and from == curUser.sName then
			--// help
			if msg == "help" then
				curUser:SendPM( bot_name, "snooper bot, commands:\r\n"..
					"start <user>\r\n"..
					"stop <user>\r\n"..
					"list"
				)
			--// start
			elseif strsub( msg, 1, 5 ) == "start" then
				local nick = strsub( msg, 7 )
				local obj = GetItemByName( nick )
				if obj then
					if obj.bOperator and not is( bAllowOpSnoop ) then
						curUser:SendPM( bot_name, "refuses to snoop on operators" )
					elseif nick == curUser.sName or nick == bot_name then
						curUser:SendPM( bot_name, "can't snoop on yourself or me" )
					elseif snoopTable[curUser.sName][nick] then
						curUser:SendPM( bot_name, "on the job already" )
					else
						snoopTable[curUser.sName][nick] = 1
						curUser:SendPM( bot_name, "START snooping on "..nick )
					end
				else
					curUser:SendPM( bot_name, nick.." is not online" )
				end
			--// stop
			elseif strsub( msg, 1, 4 ) == "stop" then
				local nick = strsub( msg, 6 )
				if snoopTable[curUser.sName][nick] then
					snoopTable[curUser.sName][nick] = nil
					curUser:SendPM( bot_name, "STOPPED snooping on "..nick )
				else
					curUser:SendPM( bot_name, "wasn't snooping on "..nick )
				end
			--// list
			elseif msg == "list" then
				local str = "snoop list:"
				for snooper, suspects in snoopTable do
					str = str.."\r\n"..snooper.." snooping on:"
					for suspect, e in suspects do
						str = str.."\r\n\t"..suspect
					end
				end
				curUser:SendPM( bot_name, str )
			end
		end
	end

	--// snoop

	local ret,c,to = strfind( data, "^$To: ([^ ]+) " )
	for snooper, suspects in snoopTable do
		for suspect, e in suspects do
			if suspect == curUser.sName then
				if
					( strfind( data, "^<" ) and is( bSnoopChat ) ) or
					( strfind( data, "^$To: " ) and is( bSnoopPM ) ) or
					( strfind( data, "^$Search " ) and is( bSnoopSearch ) ) or
					( strfind( data, "^$SR " ) and is( bSnoopSR ) ) or
					( strfind( data, "^$ConnectToMe " ) and is( bSnoopConnect ) ) or
					( strfind( data, "^$RevConnectToMe " ) and is( bSnoopConnect ) )
				then
					SendPmToNick( snooper, bot_name, "<< data from "..suspect.." >> "..data )
				end
			elseif ret and suspect == to and is( bSnoopPM ) then
				SendPmToNick( snooper, bot_name, "<< data to "..suspect.." >> "..data )
			end
		end
	end

end

function clearSuspectFromList( name )
	for snooper, suspects in snoopTable do
		for suspect, e in suspects do
			if suspect == name then
				snoopTable[snooper][suspect] = nil
				SendPmToNick( snooper, bot_name, "STOPPED snooping on "..name.." (went offline)" )
			end
		end
	end
end