View difference between Paste ID: B49r6Sz8 and ZPpDtMsn

 --// dctoirc.lua: A simple passthrough for IRC to dc++ chat
 
 debug = false
 
 --// if this is intended for multiple users at the IRC end then set this true
 multiuser = false
 --//IRC details
 server = "irc.freenode.net"
 port = 6667
 --// you may use a nick instead of a channel to have it /msg straight to that nick
 channel = "#channel"
 --// nick for IRC, the DC++ nick is configured in the client
 nick = "ZBot"
 --// show DC++ joins in irc
 showjoins = false
 
 local passthrough = {}
 socket = require("socket")
 client = socket.tcp()
 client:settimeout(1)
 
 res,err = client:connect(server, port)
 DC():PrintDebug("  **dctoirc.lua: connect",res,err)
 
 function send(txt)
     local res = client:send(txt.."\r\n")
     if not res then
         print("send","error")
     else
         print("send",txt)
     end
 end
 
 function recv()
     local res, err = client:receive('*l')
     if err == 'timeout' then
         return res, false, true
     end
     return res, err, false
 end
 
 function IRCEvents()
     local events = {}
 	local event =
 	function(trigger, callback)
 		local cb = callback
 		return
 			function()
 				if string.match(res, trigger) then
 					cb()
 					return true
 				else
 					return false
 				end
 			end
 	end
     return {
         setListener =
             function(trigger, callback)
                 table.insert(events,event(trigger,callback))
             end,
         check =
             function()
                 local res
                 for k,v in pairs(events) do
                     v()
                 end
             end
     }
 end
 
 IRC = IRCEvents()
 --// set up our timer to check the IRC channel 5 times a second:
 dcpp:setListener( "timer", "Pings",
 	function()
 		--// Timer only calls once a second, not really enough for our needs so we loop within it
 		for variable = 0, 5, 1 do
 			res, err, timeout = recv()
 			if not err and not timeout then
 				if debug then
 					DC():PrintDebug("  **dctoirc.lua: "..res )
 				end
 				IRC.check()
 				print("RECV", res)
 			end
 		end
 	end
 )
 
 IRC.setListener("PING ",
 	function()
 		--// normal PING requests from the server
 		if string.sub(res,1,4)=="PING" then
 			response = string.gsub(res,"PING","PONG",1)
 		--// PING requests from other users
 		else
 			from, timestamp = string.match(res, "^:([%a%d]+)!.* PRIVMSG "..nick.." :.PING ([%d]+).")
 			if from and timestamp then
 				response = "NOTICE "..from.." :\001PING "..timestamp.."\001"
 			end
 		end
 		send(response)
 	end
 )
 
 IRC.setListener("NOTICE Auth",
 	function()
 		--// Only join a channel if channel is a channel rather than user
 		if string.sub(channel,1,1)=="#" then
 			send("JOIN "..channel)
 		end
 	end
 )
 
 IRC.setListener("PRIVMSG",
 	function()
 		--//would ideally use this regex but lua doesn't like it
 		--if string.find(res,"^:[%a%d]+!.* PRIVMSG "..channel.."|"..nick.." :.*$") then
 		if string.find(res,"^:[%a%d]+!.* PRIVMSG [#%a%d]+ :.*$") then
 			user = string.match(res, "^:([%a%d]+)!")
 			message = string.match(res, "^:[%a%d]+!.* PRIVMSG [#%a%d]+ :(.*)$")
 			--// make /me work
 			if string.match(message, "^\001ACTION ") then
 				message = "/me "..string.match(message, "^\001ACTION (.*)\001")
 			end
 			if debug then
 				DC():PrintDebug("  **dctoirc.lua: user="..user.." message="..message )
 			end
 			local hubs = dcpp:getHubs()
 			table.foreach(hubs,
 				function(_,shub)
 					if multiuser then
 						shub:sendChat( "<"..user..">"..message )
 					else
 						shub:sendChat( message )
 					end
 				end
 			)
 		end
 	end
 )
 
 dcpp:setListener( "chat", "passthrough",
 	function( hub, user, text )
 		send("PRIVMSG "..channel.." :<"..user:getNick()..">"..text)
 	end
 )
 
 --// you probably don't want it repeating everything you it says on irc
 --dcpp:setListener( "ownChat", "passthrough",
 --	function( hub, text )
 --		send("PRIVMSG "..channel.." :<"..hub:getOwnNick()..">"..text)
 --	end
 --)
 
 dcpp:setListener( "unknownChat", "passthrough",
 	function( hub, text )
 		send("PRIVMSG "..channel.." :**"..text)
 	end
 )
 
 
 if showjoins then
 	--//user join, userConnected doesn't seem to work properly
 	dcpp:setListener( "userMyInfo", "passthrough",
 		function( hub, user, stuff )
 			send("PRIVMSG "..channel.." :** "..user:getNick().." connected")
 		end
 	)
 
 	dcpp:setListener( "userQuit", "passthrough",
 		function( hub, nick )
 			send("PRIVMSG "..channel.." :** "..nick.." quit")
 		end
 	)
 end
 
 --// Identify
 send("NICK "..nick)
 send("USER "..nick.." 0 * : DC++/IRC passthrough by zed0")
 
-DC():PrintDebug( "  ** Loaded dctoirc.lua **" )
+DC():PrintDebug( "  ** Loaded dctoirc.lua **" )