Post.lua

--[[
CheckLogin function Check Login given in PublishSettings
and save to PublishSettings if successful
by Martin von Berg
]]

------------- Debug ----------------------
--require 'strict.lua'
-- local inspect = require 'inspect'
--local LrMobdebug = import 'LrMobdebug' -- Import LR/ZeroBrane debug module
--LrMobdebug.start()

----------------------------------------

local LrHttp = import( 'LrHttp' )

-- Check Login given in PublishSettings
function CheckLogin( publishSettings ) 
    --LrMobdebug.on()
	publishSettings.urlreadable = false
	--Log('Debug: ' .. tostring(logDebug))
	
	local ReturnTable = {} 
	 
	publishSettings.hash = ''
	local uid = publishSettings.loginName
	local pwd = publishSettings.loginPassword
    local hash = 'Basic ' .. encb64(uid .. ':' .. pwd)   
	local httphead = {
      {field='Authorization', value=hash},
      }
  
	local url = publishSettings.siteURL .. "/wp-json/wp/v2/"
	Log('CheckLogin url: ' .. url)  -- Debugging
	Log('CheckLogin hash-value: ' .. hash) -- Debugging

	--local result, headers = LrHttp.get( url ) -- GET-Anfrage ohne Auth
	local result, headers = LrHttp.post( url, '', {}, 'HEAD',2 ) -- GET-Anfrage ohne Auth
	local headresp = inspect(headers)

	if headers.status == 200 then
		ReturnTable['warning'] = 'REST-API (GET) of site can be reached without PWD! Check OAuth!'
	elseif headers.status == 401 then
       	result = JSON:decode(result)
    	local str = 'OK. GET-Req without Auth. blocked. Authorization required. ' -- .. result.message
		ReturnTable['Authentification'] = str
	elseif string.match(headresp, 'error') then
		ReturnTable['error'] = 'Cannot reach Site. Check Site URL.'
		Log('Site not found: ' .. headresp)
	else
		ReturnTable['error'] = 'Cannot Reach Site. Unknown Error'
		Log('Site not reached: ' .. headers.status)
	end
	
	if headers.status == 200 or headers.status == 401 then
		publishSettings.urlreadable = true

		local result, headers = LrHttp.post( url, '', httphead )
    
		if headers.status == 500 then
			ReturnTable['error'] = 'Login failed! Check Username and Password.'
		elseif headers.status == 404 then
			ReturnTable['success'] = 'Sucess. Login-OK! with hash-Method:    ' .. hash
			publishSettings.hash = encb64(uid .. ':' .. pwd)
			result = JSON:decode(result)  -- Debugging
			Log(result)  -- Debugging
		elseif headers.status == 401 then
			result = JSON:decode(result)
			ReturnTable['error'] = result.message
		else
      		ReturnTable['error'] = 'Site reachable, but unknown error.'
		end

		-- Check Install of Plugin for communication via REST-API
		url = publishSettings.siteURL .. "/wp-json/wp/v2/plugins"
		local result, headers = LrHttp.get( url, httphead )
		
		if headers.status == 200 then
			local wppluginName = 'wpcat[_-]json[_-]rest'
			local str = inspect(result) -- JSON-Rückgabe für ein Image in str umwandeln
			local i = string.match(result, wppluginName) 
			local pluginstatus
			local pluginversion

			if i ~= nil then
				result = JSON:decode(result) 
				for k = 1, #result do
					local m,n = string.find(result[k]['textdomain'], wppluginName)
					if m~= nil then
						pluginstatus = result[k]['status']
						pluginversion = result[k]['version']
					end
				end

				if pluginstatus == 'active' then
					ReturnTable['plugin'] = 'OK. Wordpress Plugin installed and active. Version: ' .. tostring(pluginversion)
					publishSettings.wpplugin = true
				else
					ReturnTable['plugin'] = 'OK. Wordpress Plugin installed but not activated! Version: ' .. tostring(pluginversion)
					publishSettings.wpplugin = false
				end

			else
				ReturnTable['plugin'] = 'Plugin not installed. Many functions won\'t work!'
				publishSettings.wpplugin = false
			end
		else
			ReturnTable['plugin'] = 'Unknown Error while searching for Plugin'
			publishSettings.wpplugin = false
		end

	end
	Log('CheckLogin: End')
  	return ReturnTable, nil
end