-----------------------------------------------------------------------------------------------------------------
-- garbagecalendar module script: m_ximmio.lua
----------------------------------------------------------------------------------------------------------------
ver = '20230811-0900'
websitemodule = 'm_ximmio'
-- API WebSite:  https://wasteapi.2go-mobile.com/api  &  https://wasteprod2api.ximmio.com
--
--- Find your Companycode by:
--   1. goto your webpage calendar and display the garbage calendar
--   2. go into Developer mode for your browser (F12)
--   3. find source file controller.js
--   4. find this section and copy the value for companyCode:
--     $api('GetConfigOption', {
--       companyCode: '53d8db94-7945-42fd-9742-9bbc71dbe4c1',
--       configName: 'ALL'
--       })
-- Copy the found Companycode value and paste it into the Companycode field in your garbagecalendarconfig.lua
-- to make this module work!

-- =======================================================================================
-- Check required fields for this module. The script will end when one is missing.
-- =======================================================================================
chkfields = {
	'websitemodule',
	'Zipcode',
	'Housenr',
	--	'Housenrsuf',
	'Datafile',
	--	'Hostname',
	--	'Street',
	'Companycode'
}

-- Start Functions =========================================================================
--------------------------------------------------------------------------
-- Perform the actual update process for the given address
function Perform_Update()
	Print_logfile('---- web update ----------------------------------------------------------------------------')
	local Web_Data
	local webhost = 'https://wasteprod2api.ximmio.com'
	---
	-- Get the information for the specified address specifically the UniqueId for the subsequent calls
	Web_Data = genfuncs.perform_webquery('--data "companyCode=' .. Companycode .. '&postCode=' .. Zipcode .. '&houseNumber=' .. Housenr .. '&houseNumberAddition=' .. Housenrsuf .. '" "' .. webhost .. '/api/FetchAdress"')
	if Web_Data == '' then
		return
	end
	if (Web_Data:sub(1, 2) == '[]') then
		Print_logfile('### Error: Check your Zipcode and Housenr as we get an [] response.')
		return
	end
	local adressdata = JSON:decode(Web_Data)
	-- Decode JSON table and find the appropriate address when there are multiple options when toevoeging is used like 10a
	if adressdata['dataList'] == nil or adressdata['dataList'][1] == nil then
		webhost = 'https://wasteapi.2go-mobile.com'
		Web_Data = genfuncs.perform_webquery('--data "companyCode=' .. Companycode .. '&postCode=' .. Zipcode .. '&houseNumber=' .. Housenr .. '&houseNumberAddition=' .. Housenrsuf .. '" "' .. webhost .. '/api/FetchAdress"')
		adressdata = JSON:decode(Web_Data)
	end
	if adressdata['dataList'] == nil or adressdata['dataList'][1] == nil then
		Print_logfile('### Error: No UniqueId retrieved, datalist missing...  stopping execution.')
		return
	end
	local UniqueId = adressdata['dataList'][1]['UniqueId']
	if UniqueId == nil or UniqueId == '' then
		Print_logfile('### Error: No UniqueId retrieved...  stopping execution.')
		return
	end

	Print_logfile('UniqueId:' .. UniqueId)
	-- set startdate to today en end date to today + 28 days
	local startDate = os.date('%Y-%m-%d')
	local endDate = os.date('%Y-%m-%d', os.time() + 28 * 24 * 60 * 60)
	Web_Data = genfuncs.perform_webquery('--data "companyCode=' .. Companycode .. '&uniqueAddressID=' .. UniqueId .. '&startDate=' .. startDate .. '&endDate=' .. endDate .. '" "' .. webhost .. '/api/GetCalendar"')
	if (Web_Data:sub(1, 2) == '[]') then
		Print_logfile('### Error: Unable to retrieve Afvalstromen information...  stopping execution.')
		return
	end
	local jdata = JSON:decode(Web_Data)
	-- get the Datalist tabel for the coming scheduled pickups
	if type(jdata) ~= 'table' then
		Print_logfile('### Error: Empty Kalender found stopping execution.')
		return
	end
	jdata = jdata['dataList'] -- get the Datalist tabel for the coming scheduled pickups
	if type(jdata) ~= 'table' then
		Print_logfile('### Error: Empty Kalender found stopping execution.')
		return
	end
	-- process the data
	Print_logfile('- start looping through received data -----------------------------------------------------------')
	processdata(jdata)
end

function processdata(ophaaldata)
	Print_logfile('ophaaldata records:' .. (#ophaaldata or '??'))
	for i = 1, #ophaaldata do
		local record = ophaaldata[i]
		if type(record) == 'table' then
			local web_garbagetype = record['_pickupTypeText']
			local web_garbagedesc = ''
			--Print_logfile( web_garbagetype)
			if (record['description'] ~= nil and record['description'] ~= 'Null') then
				web_garbagedesc = record['description']
			end
			local garbagedate = record['pickupDates']
			for y = 1, #garbagedate do
				-- Get days diff
				Print_logfile(y .. ' web_garbagetype:' .. tostring(web_garbagetype) .. '   web_garbagedate:' .. tostring(garbagedate[y]))
				local dateformat, daysdiffdev = genfuncs.GetDateFromInput(garbagedate[y], '(%d+)[-%s]+(%d+)[-%s]+(%d+)', {'yyyy', 'mm', 'dd'})
				if daysdiffdev == nil then
					Print_logfile('Invalid date from web for : ' .. web_garbagetype .. '   date:' .. garbagedate[y])
				else
					if (daysdiffdev >= 0) then
						garbagedata[#garbagedata + 1] = {}
						garbagedata[#garbagedata].garbagetype = web_garbagetype
						garbagedata[#garbagedata].garbagedate = dateformat
						garbagedata[#garbagedata].diff = daysdiffdev
						garbagedata[#garbagedata].wdesc = web_garbagedesc
					end
				end
			end
		end
	end
end
-- End Functions =========================================================================