View difference between Paste ID: cWSt5dDX and gaSL8HZC

 local nick = "rockettek"
-IRCCC v 0.9.2 ComputerCraft IRC Client
+local password = "oauth:c306b08cc06j7foa7uzxez63fyiff4"
-Matti Vapa, 2014
+
-https://github.com/mattijv/IRCCC/
+
-http://pastebin.com/gaSL8HZC
+
 local decode_scanComment
-This is a ComputerCraft IRC client, or more specifically a client for the qwebirc backend server.
+
-Unfortunately the HTTP API in ComputerCraft doesn't allow for a true IRC client (even though the
+
-HTTP protocol can in theory be used to communicate with an IRC server[1]). This client provides
+
-a work-around by interfacing with the qwebirc backend. qwebirc is a popular webchat interface and
+
-is relatively straightforward to work with. In addition, several IRC servers already host a webchat
+
-server, so there's no need to set up your own, although that remains a possibility if you can't
+
-find a webchat for your favourite server to connect to.
+
 local isEncodable
-How to use:
+local counter = 0
 local sessionID = ""
-	* Download with: pastebin get gaSL8HZC irc
+
-	* Check that the baseUrl and dynamicUrl parameters are correct. Examples are provided for espernet
+
-	  and quakenet. By default the client connects to espernet.
+
-	* Start the client with:
+
-		irc
+
   end
-You can also supply an optional nick argument to set your nickname, or you can change your nick within the client with the standard /nick command.
+
-Currently supported commands are:
+
 
-/window N			- switch to window N
+
-/join CHANNEL		- join CHANNEL
+
-/part				- part the current channel or private chat
+
-/quit 				- disconnect and quit
+
-/nick NICK			- change nickname to NICK
+
-/query USER 		- start a private chat with user USER
+
-/help 				- list available commands
+
     return base.tostring(v)
   end
-1. https://www.youtube.com/watch?v=2ctRfWnisSk#t=343
+
   -- Handle tables
-TODO:
+
-		- color support
+
-		- better handling of the IRC protocol
+
-		- use window API where available
+
     if bArray then
-This program is released under the MIT license.
+
         table.insert(rval, encode(v[i]))
-]]--
+
     else        -- An object, not an array
       for i,j in base.pairs(v) do
--- look at the source of the qwebirc webchat login page and take the values
+
--- for baseUrl and dynamicBaseUrl for use here
+
--- examples for espernet and quakenet
+
       end
-local baseUrl = "http://webchat.esper.net/"
+
-local dynamicUrl = ""
+
---local baseUrl = "http://webchat.quakenet.org/"
+
---local dynamicUrl = "dynamic/leibniz/"
+
       return '{' .. table.concat(rval,',') .. '}'
     end
---------------------------------------------------------------------------------
+
---------------------------------------------------------------------------------
+
--- JSON4Lua: JSON encoding / decoding support for the Lua language.
+
--- json Module.
+
--- Author: Craig Mason-Jones
+
--- Homepage: http://json.luaforge.net/
+
--- Version: 0.9.40
+
--- This module is released under the MIT License (MIT).
+
 end
--- edited for brevity
+
 local function decode(s, startPos)
   startPos = startPos and startPos or 1
   startPos = decode_scanWhitespace(s,startPos)
   base.assert(startPos<=string.len(s), 'Unterminated JSON encoded object found at position in [' .. s .. ']')
   local curChar = string.sub(s,startPos,startPos)
   -- Object
   if curChar=='{' then
     return decode_scanObject(s,startPos)
   end
   -- Array
   if curChar=='[' then
     return decode_scanArray(s,startPos)
   end
   -- Number
   if string.find("+-0123456789.e", curChar, 1, true) then
     return decode_scanNumber(s,startPos)
   end
   -- String
   if curChar==[["]] or curChar==[[']] then
     return decode_scanString(s,startPos)
   end
   if string.sub(s,startPos,startPos+1)=='/*' then
     return decode(s, decode_scanComment(s,startPos))
   end
   -- Otherwise, it must be a constant
   return decode_scanConstant(s,startPos)
 end
 local function null()
   return null -- so json.null() will also return null ;-)
 end
 function decode_scanArray(s,startPos)
   local array = {}      -- The return value
   local stringLen = string.len(s)
   base.assert(string.sub(s,startPos,startPos)=='[','decode_scanArray called but array does not start at position ' .. startPos .. ' in string:\n'..s )
   startPos = startPos + 1
   -- Infinite loop for array elements
   repeat
     startPos = decode_scanWhitespace(s,startPos)
     base.assert(startPos<=stringLen,'JSON String ended unexpectedly scanning array.')
     local curChar = string.sub(s,startPos,startPos)
     if (curChar==']') then
       return array, startPos+1
     end
     if (curChar==',') then
       startPos = decode_scanWhitespace(s,startPos+1)
     end
     base.assert(startPos<=stringLen, 'JSON String ended unexpectedly scanning array.')
     object, startPos = decode(s,startPos)
     table.insert(array,object)
   until false
 end
 function decode_scanComment(s, startPos)
   base.assert( string.sub(s,startPos,startPos+1)=='/*', "decode_scanComment called but comment does not start at position " .. startPos)
   local endPos = string.find(s,'*/',startPos+2)
   base.assert(endPos~=nil, "Unterminated comment in string at " .. startPos)
   return endPos+2
 end
 
 function decode_scanConstant(s, startPos)
   local consts = { ["true"] = true, ["false"] = false, ["null"] = nil }
   local constNames = {"true","false","null"}
 
   for i,k in base.pairs(constNames) do
     --print ("[" .. string.sub(s,startPos, startPos + string.len(k) -1) .."]", k)
     if string.sub(s,startPos, startPos + string.len(k) -1 )==k then
       return consts[k], startPos + string.len(k)
     end
   end
   base.assert(nil, 'Failed to scan constant from string ' .. s .. ' at starting position ' .. startPos)
 end
 function decode_scanNumber(s,startPos)
   local endPos = startPos+1
   local stringLen = string.len(s)
   local acceptableChars = "+-0123456789.e"
   while (string.find(acceptableChars, string.sub(s,endPos,endPos), 1, true)
         and endPos<=stringLen
         ) do
     endPos = endPos + 1
   end
   local stringValue = 'return ' .. string.sub(s,startPos, endPos-1)
   local stringEval = base.loadstring(stringValue)
   base.assert(stringEval, 'Failed to scan number [ ' .. stringValue .. '] in JSON string at position ' .. startPos .. ' : ' .. endPos)
   return stringEval(), endPos
 end
 function decode_scanObject(s,startPos)
   local object = {}
   local stringLen = string.len(s)
   local key, value
   base.assert(string.sub(s,startPos,startPos)=='{','decode_scanObject called but object does not start at position ' .. startPos .. ' in string:\n' .. s)
   startPos = startPos + 1
   repeat
     startPos = decode_scanWhitespace(s,startPos)
     base.assert(startPos<=stringLen, 'JSON string ended unexpectedly while scanning object.')
     local curChar = string.sub(s,startPos,startPos)
     if (curChar=='}') then
       return object,startPos+1
     end
     if (curChar==',') then
       startPos = decode_scanWhitespace(s,startPos+1)
     end
     base.assert(startPos<=stringLen, 'JSON string ended unexpectedly scanning object.')
     -- Scan the key
     key, startPos = decode(s,startPos)
     base.assert(startPos<=stringLen, 'JSON string ended unexpectedly searching for value of key ' .. key)
     startPos = decode_scanWhitespace(s,startPos)
     base.assert(startPos<=stringLen, 'JSON string ended unexpectedly searching for value of key ' .. key)
     base.assert(string.sub(s,startPos,startPos)==':','JSON object key-value assignment mal-formed at ' .. startPos)
     startPos = decode_scanWhitespace(s,startPos+1)
     base.assert(startPos<=stringLen, 'JSON string ended unexpectedly searching for value of key ' .. key)
     value, startPos = decode(s,startPos)
     object[key]=value
   until false   -- infinite loop while key-value pairs are found
 end
 function decode_scanString(s,startPos)
   base.assert(startPos, 'decode_scanString(..) called without start position')
   local startChar = string.sub(s,startPos,startPos)
   base.assert(startChar==[[']] or startChar==[["]],'decode_scanString called for a non-string')
   local escaped = false
   local endPos = startPos + 1
   local bEnded = false
   local stringLen = string.len(s)
   repeat
     local curChar = string.sub(s,endPos,endPos)
     -- Character escaping is only used to escape the string delimiters
     if not escaped then
       if curChar==[[\]] then
         escaped = true
       else
         bEnded = curChar==startChar
       end
     else
       -- If we're escaped, we accept the current character come what may
       escaped = false
     end
     endPos = endPos + 1
     base.assert(endPos <= stringLen+1, "String decoding failed: unterminated string at position " .. endPos)
   until bEnded
   local stringValue = 'return ' .. string.sub(s, startPos, endPos-1)
   local stringEval = base.loadstring(stringValue)
   base.assert(stringEval, 'Failed to load string [ ' .. stringValue .. '] in JSON4Lua.decode_scanString at position ' .. startPos .. ' : ' .. endPos)
   return stringEval(), endPos
 end
 function decode_scanWhitespace(s,startPos)
   local whitespace=" \n\r\t"
   local stringLen = string.len(s)
   while ( string.find(whitespace, string.sub(s,startPos,startPos), 1, true)  and startPos <= stringLen) do
     startPos = startPos + 1
   end
   return startPos
 end
 function encodeString(s)
   s = string.gsub(s,'\\','\\\\')
   s = string.gsub(s,'"','\\"')
   s = string.gsub(s,'\n','\\n')
   s = string.gsub(s,'\t','\\t')
   return s
 end
 function isArray(t)
   -- Next we count all the elements, ensuring that any non-indexed elements are not-encodable
   -- (with the possible exception of 'n')
   local maxIndex = 0
   for k,v in base.pairs(t) do
     if (base.type(k)=='number' and math.floor(k)==k and 1<=k) then      -- k,v is an indexed pair
       if (not isEncodable(v)) then return false end     -- All array elements must be encodable
       maxIndex = math.max(maxIndex,k)
     else
       if (k=='n') then
         if v ~= table.getn(t) then return false end  -- False if n does not hold the number of elements
       else -- Else of (k=='n')
         if isEncodable(v) then return false end
       end  -- End of (k~='n')
     end -- End of k,v not an indexed pair
   end  -- End of loop across all pairs
   return true, maxIndex
 end
 function isEncodable(o)
   local t = base.type(o)
   return (t=='string' or t=='boolean' or t=='number' or t=='nil' or t=='table') or (t=='function' and o==null)
 end
 
 local post = function(url,data)
 	local cacheAvoidance = "abc"..tostring(math.random(0,10000)) -- not sure if this is needed...
 	local resp = http.post("http://86.11.11.101:9090/e/"..url,"r="..cacheAvoidance.."&t="..tostring(counter)..data)
 	counter = counter + 1
 	return resp
 end
 
 -- better responsiveness with asynchronous methods as we usually let the recv couroutine handle the responses
 local request = function(url,data)
 	local cacheAvoidance = "abc"..tostring(math.random(0,10000)) -- not sure if this is needed...
 	http.request("http://86.11.11.101:9090/e/"..url,"r="..cacheAvoidance.."&t="..tostring(counter)..data)
 	counter = counter + 1
 end
 
 -- these special URLs are used by the webchat server for different methods
 local send = function(data)
 	return request("p","&s="..sessionID.."&c="..textutils.urlEncode(data))
 end
 
 local recv = function()
 	return post("s","&s="..sessionID)
 end
 
 local connect = function(password)
   if password ~= nil then
   	return post("n","&nick="..nick.."&password="..password)
   else
     return post("n","&nick="..nick)
   end
 end
 
 local pong = function(data)
 	return send("PONG :"..data)
 end
 
 local quit = function(_reason)
 	local reason = _reason or ""
 	return send("QUIT :"..reason)
 end
 
 -- lua default string methods suck :/
 local split = function(str,sep)
         local sep, fields = sep or ":", {}
         local pattern = string.format("([^%s]+)", sep)
         str:gsub(pattern, function(c) fields[#fields+1] = c end)
         return fields
 end
 
 --[[
 local handleResponse = function(data)
 	for i = 1, #data do
 		local id = data[i][2]
 		if id == "PING" then
 			pong(data[i][4][1])
 		elseif id == "PRIVMSG" then
 			local senderDetails = data[i][3]
 			local sender = senderDetails:sub(1,senderDetails:find("!")-1)
 			local channel = data[i][4][1]:lower()
 			if channel == nick then
 				channel = sender
 			end
 			local msg = data[i][4][2]
             --exec
 			print("<"..sender.."> "..msg)
 		end
         print("<"..sender.."> "..msg)
 	end
 end
 ]]
 
 local handleResponse = function(data)
 		print(textutils.serialize(data))
         for i = 1, #data do
---------------------------------------------------------------------------------
+                local id = data[i][2]
---------------------------------------------------------------------------------
+                if id == "PING" then
                         pong(data[i][4][1])
--- ComputerCraft IRC client code begins here
+                elseif id == "PRIVMSG" then
                         local senderDetails = data[i][3]
---------------------------------------------------------------------------------
+                        local sender = senderDetails:sub(1,senderDetails:find("!")-1)
---------------------------------------------------------------------------------
+                        local channel = data[i][4][1]:lower()
                         print(textutils.serialize(data[i]))
-local defaultNick = "cc-irc-client"..tostring(math.random(1,1000))
+                        print(channel)
-local nick = defaultNick
+                        local msg = data[i][4][2]
-local password = nil
+                        print("<"..sender.."> "..msg)
-local newNick = ""
+                else
                         print(data[i])
-local counter = 0 -- used by the qwebirc protocol for something
+                end
-local sessionID = "" -- as is this, although a bit more self evident
+
 end
-local currentChannel = "status"
+
-local quitReason = ""
+
 print("Connecting...")
-local BUFFERSIZE = 100 -- keep this many lines in each windows history
+
-local offset = 0 -- for scrolling, not implemented
+--if not resp then term.clear() term.setCursorPos(1,1) term.write("Unable to connect to IRC bridge!") os.pullEvent() os.reboot() end
 _data = resp.readAll()
-local w,h = term.getSize()
+
-local legacy = true --(window == nil) CC v < 1.6 doesn't have the window API which would be useful, but maybe later
+
-local windows = {}
+print("Got sessionID: "..sessionID)
-local winnumbers = {}
+
-local seen = {}
+send("JOIN #rockettek")
-if not legacy then
+
-	local origTerm = term.current()
+
-	windows["input"] = window.create(origTerm,1,h-1,w,2)
+
-	windows["status"] = window.create(origTerm,1,1,w,h-2)
+
-	windows["current"] = windows["status"]
+
-else
+
-	windows["status"] = {}
+
-	windows["current"] = windows["status"]
+
 		end
-table.insert(winnumbers,"status")
+
-seen[windows["status"]] = true
+
-local lock = "off"
+
 
-local win2num = function(win)
+receive()