View difference between Paste ID: D5phjuGj and rWp0GXDW

 ---------------------------------------------------
 -- Player Module for CraftNanny
 -- 	by Demethan
 -- 	www.breakfastcraft.com
---	www.craftnanny.org
+--	www.mrjohndowe.com/craftnanny
 --	2015-08-13
 --		- Fixed inventory compare.
 --		- post inventory addition with quantities.
 ---------------------------------------------------
 
 
 -- pastebin for installer
-local installer = "Q8ah3K9S"
+local installer = "PTGLduYm"
 -- players ignored by senors
 local allowedPlayerArray={}
 -- inventory arrays to compare
 local snapShot={}
 local snapShot2={}
 local itemString={}
 -- players currently inside sensor range
 local flag={}
 -- counter for scanning animation
 local heart = 0
 -- counter for phone_home()
 local time = 0
 -- user token to send to server
 local token = '0'
 -- this scanners name
 local scanner = ''
 -- owenrs username on website
 local username = ''
 -- currently installed version
 local version = 2
 
 --Cleanup
 if fs.exists("log.txt") then
 	ok,msg = pcall (fs.delete,"log.txt")
 		if msg~=nil then
 			os.reboot()
 		end
 end
 
 -- write text to the terminal screen
 function draw_text_term(x, y, text, text_color, bg_color)
   term.setTextColor(text_color)
   term.setBackgroundColor(bg_color)
   term.setCursorPos(x,y)
   write(text)
 end
 
 -- draw a line on the terminal screen
 function draw_line_term(x, y, length, color)
     term.setBackgroundColor(color)
     term.setCursorPos(x,y)
     term.write(string.rep(" ", length))
 end
 
 function bars()
 	draw_line_term(1, 1, 51, colors.lime)
 	draw_line_term(1, 19, 51, colors.lime)
 	draw_text_term(20, 1, 'Base Scanner', colors.gray, colors.lime)
-	draw_text_term(13, 19, 'craftnanny.org', colors.gray, colors.lime)
+	draw_text_term(13, 19, 'mrjohndowe.com/craftnanny', colors.gray, colors.lime)
 end
 
 function scanner_screen()
 	term.clear()
 
 	-- scanner info
 	bars()
 	draw_text_term(1, 2, 'Scanner: ', colors.lime, colors.black)
 	draw_text_term(10, 2, scanner, colors.white, colors.black)
 	draw_text_term(1, 3, 'Owner: ', colors.lime, colors.black)
 	draw_text_term(8, 3, username, colors.white, colors.black)
 	draw_text_term(1, 4 , string.rep("-", 51), colors.lime, colors.black)
 
 	-- scanning graphuc
 	heart = heart + 1
 	draw_text_term(3, 10, 'Scanning ', colors.red, colors.black)
 	draw_text_term(12, 10 , string.rep(".", heart), colors.red, colors.black)
 	if heart == 15 then
 		heart = 1
 	end
 end
 
 -- retrieves token from local text file
 -- called at startup if config.txt exists
 -- token is used to authorize the scanner to post to users log
 function load_config()
   sr = fs.open("config.txt", "r")
     token = sr.readLine()
 	scanner = sr.readLine()
 	username = sr.readLine()
   sr.close()
 end
 
 -- called for new installations and when the scanner needs to be updated
 function run_installer()
 	if fs.exists("install") then
 	    fs.delete("install")
 	  end
 	  shell.run("pastebin get "..installer.." install")
 	  sleep(1)
 	  shell.run("install")
 end
 
 -- called every 30 seconds when scanner is running
 -- tells the server that the scanner is online
 -- checks version and automtically updates
 function phone_home()
-    response = http.post("http://craftnanny.org/code/ping.php",
+    response = http.post("http://mrjohndowe.com/craftnanny/code/ping.php",
     			"token="..token.."&id="..os.getComputerID())
 	current_version = response.readAll()
 
 	if tonumber(current_version) > version then
 			run_installer()
 	end
 end
 
 function round(what, precision)
    if what==nil then return 0 end
    return math.floor(what*math.pow(10,precision)+0.5) / math.pow(10,precision)
 end
 
 function record()
 	term.setCursorPos(1,1)
 	players=s.getPlayers()
 	for num,player in pairs(players) do
 		for p,ign in pairs(player) do
 			if p=="name" then
 				playerData = s.getPlayerByName(ign)
 				data = playerData.all()
 				inventory=data.player.inventory
 				if not allowedPlayerArray[ign] then -- check the allow array
 					draw_text_term(3, 7, ign.." is not on the allowed list        ", colors.red, colors.black)
 					invArray={} -- fresh copy
 					for a,b in pairs(inventory) do --getting player inventory
 						slot=b.all()
 						invArray[slot.name]=slot.qty
 					end
 					if flag[ign]==nil or not flag[ign] then --recording first inventory scan
 						itemString=""
 						snapShot[ign]= invArray
 						draw_text_term(3, 7, ign..": Initial Snapshot             ", colors.green, colors.black)
 						post(ign,1," has entered sensor range")
 						flag[ign]=true -- set player flag for later processing
 					else
 						snapShot2[ign]= invArray
 						draw_text_term(3, 7, ign..": Updated Snapshot             ", colors.green, colors.black)
 						found,Items=compare(snapShot[ign],snapShot2[ign])
 
 						if found then
 							for i,v in pairs(Items) do --building string
 								if v~="" or v~=nil then
 									itemString=" "..v..":"..i..itemString
 									draw_text_term(6, 7, ign..itemString.." is extra since last snapshot of inventory", colors.orange, colors.black)
 									post(ign,3,itemString)
 								end
 							end
 							snapShot[ign]=snapShot2[ign]--inventory has been logged, can now reset the initial snapshot
 							itemString=""
 						else
 							--print(ign," - No item found")
 						end
 						sleep(1)
 
 						if snapShot2[ign]~= nil then --recoding newer inventory until player leaves.
 						snapShot2[ign]= nil
 					end
 				end
 
 				end
 
 
 			end
 
 		end
 	end
 	--Cleanup
 	playerData={}
 	data={}
 	inventory={}
 	found=nil
 
 end
 
 -- iterate through all players with an active flag
 -- see if they're still in range of the scanner
 function leaveCheck()
 	for ign,v in pairs(flag) do
 	--	print("Did ",ign," leave?")
 		local ok,msg=pcall(function ()s.getPlayerByName(ign) end)
 		--print(msg) --debug
 		if not ok and flag[ign] then
 			--print(ign," has left.")
 			flag[ign]=false
 			snapShot[ign]=nil
 			snapShot2[ign]=nil
 			post(ign,2," has left sensor range")
 		end
 	end
 end
 
 -- records a log entry on the server
 -- passes to server:
 	-- token and computer ID (used to verify source)
 	-- event type: 1 = player entering, 2 = player leaving, 3 = inventory change
 	-- ign, players name
 	-- discription of event
 
 
 function logging(ign, event, description)
 	if peripheral.getType("right")== "monitor" then
 		mon = peripheral.wrap("right")
 	elseif peripheral.getType("left")~="monitor" then
 		mon = peripheral.wrap("left")
 	else
 		return
 	end
   if mon then
   	mon.clear()
   	mon.setTextScale(0.5)
   	monMaxX,monMaxY = mon.getSize()
   	print(monMaxX,monMaxY)
   	if monMaxX < 61 then
   		mon.write("monitor too small. Min 4 wide")
   		return
   	end
   	sw = fs.open("log.txt",fs.exists("log.txt") and "a" or "w")
   	line=ign.." "..description
   	sw.writeLine(os.day().."/"..os.time()..": "..ign.." "..description)
   	sw.close()
   	sr = fs.open("log.txt","r")
   	monY=1
   	msg="starting log..."
   	while msg~=nil do
   		ok,msg = pcall(sr.readLine)
   		mon.setCursorPos(1,monY)
   		mon.write(msg)
   		monY=monY+1
   	end
   	sr.close()
 end
 
 end
 
 
 
 -- e.g. post('tom', 2, ' has left sensor range')
 function post(ign, event, description)
 
-	        http.post("http://craftnanny.org/code/log.php",
+	        http.post("http://mrjohndowe.com/craftnanny/code/log.php",
 	        "token="..token.."&ign="..ign.."&id="..os.getComputerID().."&event="..event.."&description="..description)
 			logging(ign, event, description)
 end
 
 function tablelength(T) --get real count of table
   local count = 0
   for _ in pairs(T) do count = count + 1 end
   return count
 end
 
 function compare(t1,t2)
 	local ai = {}
     local r = {}
 	table.sort(t1) --sorting by name
 	table.sort(t2) --sorting by name
 
 	for k,v in pairs(t2) do
 		r[k] = v; ai[v]=true
 	end
 	for k,v in pairs(t1) do
 		if ai[v]~=nil then   --if item match, remove it from temp table r
 			r[k]=nil
 		end
 	end
 
 	if tablelength(r) > 0 then --if there are items left in r
 		 return true,r
 	else
 		return false,nil
 	end
 end
 
 function start_recording()
 	-- main loop
 	while true do
 		-- run scan
 		ok,msg=pcall(record)
 		if not ok then
 			print(msg)
 			break
 		end
 		leaveCheck()
 
 		-- animate screen and delay
 		scanner_screen()
 		sleep(0.5)
 		scanner_screen()
 		sleep(0.5)
 
 		-- main active status with server
 		time = time + 1
 		if time > 30 then
 			time=0
 			phone_home()
 		end
 	end
 end
 
 function start()
 	s=peripheral.wrap("top")
 	heart=0
 	term.clear()
 	term.setCursorPos(1,1)
 
   if fs.exists("config.txt") then
       load_config()
 	  start_recording()
   else
   	  run_installer()
   end
 end
 
 start()