ParseLib.lua

-- ParseLib V1.1.1
-- https://github.com/lsouchet/gideros-parse-rest

--Copyright (c) 2015, Lucas Souchet (https://github.com/lsouchet)
--All rights reserved.
--
--Redistribution and use in source and binary forms, with or without
--modification, are permitted provided that the following conditions are met:
--
--1. Redistributions of source code must retain the above copyright notice, this
--   list of conditions and the following disclaimer.
--2. Redistributions in binary form must reproduce the above copyright notice,
--   this list of conditions and the following disclaimer in the documentation
--   and/or other materials provided with the distribution.
--
--THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
--ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
--WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
--DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
--ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
--(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
--LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
--ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
--(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
--SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
--
--The views and conclusions contained in the software and documentation are those
--of the authors and should not be interpreted as representing official policies,
--either expressed or implied, of the FreeBSD Project.


ParseLib = Core.class()
ParseLibDebug = false
function ParseLib:init(appId, apiKey, scoreTable, playerTable)
	self.version = "1.1.1"
	if scoreTable then
		self.scoreClass = scoreTable
	else
		self.scoreClass = "Score"
	end
	if playerTable then
		self.playerClass = playerTable
	else
		self.playerClass = "Player"
	end
	self.baseUrl = "https://api.parse.com/1/classes/"
	self.urls = {score = self.baseUrl..self.scoreClass, player = self.baseUrl..self.playerClass}
	self.headerAppId = {name = "X-Parse-Application-Id", key = appId}
	self.headerApiKey = {name = "X-Parse-REST-API-Key", key = apiKey}
	self.headerJson = {name = "Content-Type", key = "application/json"}

	self:resetUserData()
end

function debug(source, message)
	if ParseLibDebug then
		print(source..": ", message)
	end
end

function ParseLib:resetUserData()
	self.userObjectId = nil
	self.currentFacebookId = nil
end

function ParseLib:getPostHeader()
	return {[self.headerAppId["name"]] = self.headerAppId["key"],
	 		[self.headerApiKey["name"]] = self.headerApiKey["key"],
	 		[self.headerJson["name"]] = self.headerJson["key"]}
end

function ParseLib:getGETHeader()
	return {[self.headerAppId["name"]] = self.headerAppId["key"],
	 		[self.headerApiKey["name"]] = self.headerApiKey["key"]}
end

onLoginComplete = function(request, event)
	local callback = request.userRequest["Callback"]
	local params = request.userRequest["Param"]
	local user = json.decode(event.data)
	if user.results == nil then
		if request.userRequest and callback then
			callback(false, nil, params)
		end
		return
	end
	if #user.results < 1 then
		if (request.self.createPlayer == nil) then
			if callback then
				callback(false, nil, params)
			else
				debug("ParseLib.onLoginComplete", "Unable to create player")
			end
			return
		end
		request.self.createPlayer(request.self, request.userRequest["FacebookId"],
								  request.userRequest["Callback"])
		return
	end
	if user.results[1].objectId == nil then
		if callback then
			callback(false, nil, params)
		else
			debug("ParseLib.onLoginComplete","No object id")
		end
		return
	end
	if user.results[1].facebookId == nil then
		if callback then
			callback(false, nil, params)
		else
			debug("ParseLib.onLoginComplete","No object id")
		end
		return
	end
	request.self.userObjectId = user.results[1].objectId
	request.self.currentFacebookId = user.results[1].facebookId
	if callback then
		callback(true, user.results[1], params)
	end
end

onLoginError = function(request)
	local callback = request.userRequest["Callback"]
	local params = request.userRequest["Param"]
	debug("ParseLib.onLoginError","Unable to connect")
	if callback then
		callback(false, nil, params)
	end
end

-- Get user id from facebook ID. Callback(bool, user id)
function ParseLib:login(facebookId, callback, params)
	self:resetUserData()
	local headers = self:getGETHeader()
	local body = '?where={"facebookId":"'..facebookId..'"}'
	local loader = UrlLoader.new(self.urls["player"]..body, UrlLoader.GET, headers, '')
	local request = {}
	request.userRequest = {}
	request.userRequest["Callback"] = callback
	request.userRequest["Param"] = params
	request.userRequest["FacebookId"] = facebookId
	request.self = self
	loader:addEventListener(Event.COMPLETE, onLoginComplete, request)
	loader:addEventListener(Event.ERROR, onLoginError, request)
end

onCreateComplete = function(request, event)
	local callback = request.userRequest["Callback"]
	local params = request.userRequest["Param"]
	local user = json.decode(event.data)
	if user.createdAt == nil or user.objectId == nil then
		if callback then
			callback(false, nil, params)
		else
			debug("ParseLib.onCreateComplete", event.data)
		end
		return
	end
	request.self.userObjectId = user.objectId
	request.self.currentFacebookId = request.userRequest["FacebookId"]
	if callback then
		callback(true, user, params)
	end
end

onCreateError = function(request)
	local callback = request.userRequest["Callback"]
	local params = request.userRequest["Param"]
	if (callback) then
		callback(false, nil, params)
	else 
		debug("ParseLib.onCreateError","")
	end
end

-- Add player to database with username and password. 
-- Callback(bool, user) is called when query ends.
function ParseLib:createPlayer(facebookId, callback, params)
	self:resetUserData()
	local headers = self:getPostHeader()
	local body = '{"facebookId":"'..facebookId..'"}'
	local loader = UrlLoader.new(self.urls["player"], UrlLoader.POST, headers, body)
	local request = {}
	request.userRequest = {}
	request.userRequest["Callback"] = callback
	request.userRequest["Param"] = params
	request.userRequest["FacebookId"] = facebookId
	request.self = self
	loader:addEventListener(Event.COMPLETE, onCreateComplete, request)
	loader:addEventListener(Event.ERROR, onCreateError, request)
end

onGetScoreComplete = function(request, event) -- tab = {self,player}
	--print("ParseLib.onGetScoreComplete", event.data)
	local callback = request.userRequest["Callback"]
	local params = request.userRequest["Param"]
	local scores = json.decode(event.data)
	debug("ParseLib.onGetScoreComplete",event.data)
	if scores == nil or scores.results == nil or #scores.results < 1 or 
		scores.results[1].score == nil then
		if callback then 
			callback(true, {}, params)
			return
		end
	end
	if callback then 
		callback(true, scores.results, params)
	end
end

onGetScoreError = function(request)
	local callback = request.userRequest["Callback"]
	local params = request.userRequest["Param"]
	debug("ParseLib.onGetScoreError","Unable to connect")
	if callback then
		callback(false, {}, params)
	end
end


-- get scores for current user at level "level". callback(bool, scores)
function ParseLib:getScore(level, facebookId, callback, params)
	local headers = {[self.headerAppId["name"]] = self.headerAppId["key"],
	 				[self.headerApiKey["name"]] = self.headerApiKey["key"]}
	local body = '?limit=10000&order='
	if level then
		body = body..'score'
	else
		body = body..'level'
	end
	body = body..'&include=owner&where={"owner":{"$inQuery":{"where":{"facebookId":'
	if facebookId == nil then
		if self.currentFacebookId == nil or self.userObjectId == nil then
			debug("ParseLib.getScore", "not logged in")
			if callback then
				callback(false, params)
			end
			return
		end
		body = body..'"'..self.currentFacebookId..'"'
	elseif #facebookId == 0 then
		debug("ParseLib.getScore", "no facebook id provided")
		callback(false, params)
		return
	elseif #facebookId < 2 then
		body = body..'"'..facebookId[1]..'"'
	else
		body = body..'{"$in":["'..facebookId[1]..'"'
		for i = 2, table.getn(facebookId), 1 do
			body = body..',"'..facebookId[i]..'"'
		end
		body = body..']}'
	end
	body = body..'},"className":"'..self.playerClass..'"}}'
	if level then
		body = body..',"level":'..level
	end
	body = body.."}"
	local loader = UrlLoader.new(self.urls["score"]..body, UrlLoader.GET, headers, "")
	local request = {}
	request.userRequest = {}
	request.userRequest["Callback"] = callback
	request.userRequest["Param"] = params
	request.userRequest["GetScore"] = facebookId
	request.self = self
	loader:addEventListener(Event.COMPLETE, onGetScoreComplete, request)
	loader:addEventListener(Event.ERROR, onGetScoreError, request)
end

function ParseLib:addScore(levelScorePair, callback, params)
	if (self.currentFacebookId == nil or self.userObjectId == nil) then
		debug("ParseLib.addScore", "not logged in")
		if callback then
			callback(false, params)
		end
		return
	end
	self.currentAddScore = levelScorePair
	for k, v in ipairs(levelScorePair) do
		self:handleScore(v.level, v.score, callback, params)
	end
end

onHandleScoreComplete = function(request, event)
	local callback = request.userRequest["Callback"]
	local params = request.userRequest["Param"]
	local result = json.decode(event.data)
	debug("onHandleScoreComplete",event.data)
	local level = result.result.level
	local score = result.result.score
	local callCallback = true
	if request.self.currentAddScore then
		callCallback = false
		for k, v in ipairs(request.self.currentAddScore) do
			if v.level == level then
				table.remove(request.self.currentAddScore, k)
				break
			end
		end
		if #request.self.currentAddScore < 1 then
			callCallback = true
		end
	end
	if callback and callCallback == true then
    	callback(true, params)
    else
		debug("ParseLib.onHandleScoreComplete", "level: "..level..", score: "..score)
    end
end

onHandleScoreError = function(request)
	local callback = request.userRequest["Callback"]
	local params = request.userRequest["Param"]
	if callback then
		callback(false, params)
	else 
		debug("ParseLib.onHandleScoreError", "Unable to connect")
	end
end

function ParseLib:handleScore(level, score, callback, params)
	local headers = self:getPostHeader()
	local body = '{"table":{"score":"'..self.scoreClass..'","player":"'..self.playerClass..'"},"data":{"objectId":"'..self.userObjectId..'","level":'..level..',"score":'..score..'}}'
	debug("ParseLib.handleScore", "request: "..body)
	local loader = UrlLoader.new("https://api.parse.com/1/functions/handleScore", UrlLoader.POST, headers, body)
	local request = {}
	request.userRequest = {}
	request.userRequest["Callback"] = callback
	request.userRequest["Param"] = params
	request.userRequest["Level"] = level
	request.userRequest["Score"] = score
	request.self = self
	loader:addEventListener(Event.COMPLETE, onHandleScoreComplete, request)
	loader:addEventListener(Event.ERROR, onHandleScoreError, request)
end