From 8ae8f91a98ed92edfd00551c36a88cc716432cee Mon Sep 17 00:00:00 2001
From: Arcidayne <9382522b@opayq.com>
Date: Mon, 26 Oct 2015 15:13:06 -0700
Subject: [PATCH] Cleanup, Bug fixes

---
 Epic_Calendar/Epic_Calendar.xml | 150 ++++++++++++++++++--------------
 1 file changed, 84 insertions(+), 66 deletions(-)

diff --git a/Epic_Calendar/Epic_Calendar.xml b/Epic_Calendar/Epic_Calendar.xml
index d3b7c5d..34f8d10 100644
--- a/Epic_Calendar/Epic_Calendar.xml
+++ b/Epic_Calendar/Epic_Calendar.xml
@@ -1,21 +1,21 @@
 <?xml version="1.0" encoding="iso-8859-1"?>
 <!DOCTYPE muclient>
-<!-- Saved on Thursday, September 10, 2015, 11:08 PM -->
+<!-- Saved on Monday, October 26, 2015, 12:46 PM -->
 <!-- MuClient version 4.98 -->
 
-<!-- Plugin "Epic_Calendar" generated by Plugin Wizard -->
+<!-- Plugin "Epic_CalendarV2" generated by Plugin Wizard -->
 
 <muclient>
 <plugin
-   name="Epic_Calendar"
+   name="Epic_CalendarV2"
    author="Arcidayne"
-   id="b14b904695ffa4f7c77ba823"
+   id="365b29d0ecd49b468c0c00f5"
    language="Lua"
-   purpose="Shows upcoming Epic Runs"
+   purpose="Future Epic events shown right in the MUD!"
    save_state="y"
-   date_written="2015-09-10 23:06:41"
+   date_written="2015-10-26 12:43:55"
    requires="4.00"
-   version="1.0"
+   version="2.0"
    >
 
 </plugin>
@@ -33,10 +33,10 @@
    sequence="100"
   >
   <send>if "%1" == "" then
-  	ColourNote("white","","======================== How To Use =======================\\n\\ngetcal &lt;if/icefall|inferno|oc|all&gt;\\n\\n===========================================================")
-  	else
-  	get_cal(string.gsub("%1"," ",""))
-  	end</send>
+   ColourNote("cyan", "", "Epic Calendar Help: ", "white", "", "Type ", "green", "", "getcal &lt;", "darkcyan", "", "icefall", "green", "", "|", "darkcyan", "", "if", "green", "", "|", "red", "", "inferno", "green", "", "|", "blue", "", "oc", "green", "", "|", "white", "", "all", "green", "", "&gt;")
+   else
+   get_cal(string.gsub("%1"," ",""))
+   end</send>
   </alias>
 </aliases>
 
@@ -45,16 +45,38 @@
 
 <script>
 <![CDATA[
+function get_eastern_offset(time)
+	tzpage = "https://maps.googleapis.com/maps/api/timezone/json?location=28.4158,-81.2989&timestamp=" .. time .. "&key=AIzaSyBv_QnejlevQTnNxF3sF-j0NxzkDLOv4fY" -- Gets offset data for Eastern Time Zone
 
--- [[Many thanks to Shaelynne for keeping everyone up-to-date with the Epic Calendars! ]]--
+	if async_ok then
+		tzrpage = async.request(tzpage, "HTTPS")
+	end
 
-function date_check(dateTime)
-	
-	if (os.time(os.date("!*t"))-dateTime) < 0 then
-		return true
-	else
-		return false
+	retval, page, status, headers, full_status = tzrpage:join()
+	tzrpage = nil
+
+	if status == 200 then
+		tzopage = json.decode(page)
 	end
+
+	local eastern_offset = tzopage.rawOffset+tzopage.dstOffset -- Adds the offset information together (includes Daylight Savings)
+
+	return eastern_offset
+end
+
+function get_local_time(dateTime)
+	local xyear, xmonth, xday = string.match(dateTime, "(%d+)%-(%d+)%-(%d+)") -- Date format is displayed as yyyy-mm-dd
+	local xhour, xmin = string.match(dateTime, "%a(%d+):(%d+)") -- Time format is displayed as Thh:mm
+
+	local event_time = os.time({year = xyear, month = xmonth, day = xday, hour = xhour or 23, min = xmin or 59, sec = 0}) -- Gets epoch time for event time
+
+	local utc_event_time = event_time-get_eastern_offset(event_time) -- Sets UTC's time for the event
+
+	local utctime, localtime = os.date("!*t", utc_event_time), os.date("*t", utc_event_time) -- Sets table data for events based on UTC's time of the event
+	localtime.isdst = false
+	local localoffset = os.difftime(os.time(utctime), os.time(localtime)) -- Sets the time difference between UTC and local time at the time of the event UTC
+
+	return os.date("%A, %B %d %Y at %I:%M%p", (utc_event_time-localoffset)) -- Should return local time of the event
 end
 
 function date_note(dateTime)
@@ -65,31 +87,14 @@ function date_note(dateTime)
 	end
 end
 
-function get_tz_offset(dateTime, offset)
-
-	local xyear, xmonth, xday = string.match(dateTime,"(%d+)%-(%d+)%-(%d+)")
-	
-	local xhour, xmin = string.match(dateTime,"%a(%d+):(%d+)")
-	
-	local UTC_from_Eastern = os.time({year = xyear, month = xmonth, day = xday, hour = xhour or 23, min = xmin or 59, sec = 0}) + (offset*3600)
-
-
-	local UTC_time, local_time = os.time(os.date("!*t")), os.time()
-	local time_zone = os.difftime(local_time, UTC_time)
-
-	local converted_time = UTC_from_Eastern + time_zone
-	return converted_time
-end
-
 function get_cal(epic)
 	async_ok, async = pcall (require, "async")
-	json = require 'json'
-	require('tprint')
+
 
 	local cal_output = {}
 	local epic_list, key, calid = "all if icefall inferno oc", "AIzaSyAHEnr8iiK42hzM21pXSbTrBIQ2ezEEUHA", ""
+	
 	if string.match(epic_list, epic:lower()) then
-
 		if epic:lower() == "icefall" or epic:lower() == "if" then
 			calid = "h8jf8vbgsl0in0nmg3vj06r9g4%40group.calendar.google.com"
 		elseif epic:lower() == "inferno" then
@@ -100,56 +105,69 @@ function get_cal(epic)
 			calid = "shaelynne22%40gmail.com"
 		end
 
-		rpage = "https://www.googleapis.com/calendar/v3/calendars/" .. calid .. "/events?key=" .. key
-		tzpage = "http://wwp.greenwichmeantime.com/time/scripts/clock-8/runner.php?tz=america_cayman"
+		local offset_utc, string_offset = os.difftime(os.time(os.date("*t")), os.time(os.date("!*t"))), ""
+
+		if offset_utc < 0 then
+			string_offset = "-" .. string.format("%02d",(offset_utc*-1)/3600) .. ":00"
+		else
+			string_offset = "+" .. string.format("%02d", math.floor(offset_utc/3600)) .. ":00"
+		end
+
+		local timeMin = os.date("%Y-%m-%dT%I:%M:%S" .. string_offset, os.time())
+
+		rpage = "https://www.googleapis.com/calendar/v3/calendars/" .. calid .. "/events?key=" .. key .. "&timeMin=" .. timeMin
 
 		if async_ok then
-			epage = async.request(rpage,"HTTPS")
-			tpage = async.request(tzpage, "HTTP")
+			epage = async.request(rpage, "HTTPS")
+		else
+			ColourNote("async_ok check failed!")
 		end
 
 		retval, page, status, headers, full_status = epage:join()
 		epage = nil
-		
+
 		if status == 200 then
 			epage = json.decode(page)
+		else
+			print(status .. ": Status failed!")
 		end
 
-		retval, page, status, headers, full_status = tpage:join()
-		tpage = nil
+		if epage.items[1] then
+			for i = 1, #epage.items do
+				starttime, summary = "", epage.items[i].summary or "No summary found!"
 
-		if status == 200 then
-			tz_off = string.match(page,"%(GMT %-(%d):00%)")
-		end
+				if epage.items[i].start.date then
+					starttime = epage.items[i].start.date
+				else
+					starttime = epage.items[i].start.dateTime
+				end
 
-		for i = 1, #epage.items do
-			local starttime, summary = "", ""
-			if epage.items[i].start.date then
-				starttime = epage.items[i].start.date
-			else
-				starttime = epage.items[i].start.dateTime
-			end
+				if #summary < 30 then
+					summary = summary .. string.rep(" ", 22-#summary) .. "- "
+				end
 
-			if #epage.items[i].summary < 20 then
-				summary = epage.items[i].summary .. string.rep(" ", 20-#epage.items[i].summary) .. "- "
-			else
-				summary = epage.items[i].summary .. "- "
-			end
-
-			if date_check(get_tz_offset(starttime, tz_off)) then
-				table.insert(cal_output, summary .. os.date("%A, %B %d %Y at %I:%M%p",get_tz_offset(starttime, tz_off)) .. " " .. date_note(starttime))
 			end
+			table.insert(cal_output, summary .. get_local_time(starttime) .. date_note(starttime))
 		end
+
+		local header_string = " Upcoming Runs (Local time) "
+
 		if cal_output[1] then
-			ColourNote("white","","================ Upcoming Runs (Local time) ===============\n\n" .. table.concat(cal_output,"\n") .. "\n\n===========================================================")
+			ColourNote("white", "", string.rep("=", 16), "cyan", "", header_string, "white", "", string.rep("=", 16) .. "\n\n", "green", "", table.concat(cal_output, "\n"), "white", "", "\n\n" .. string.rep("=", 60))
 		else
-			ColourNote("white","","================ Upcoming Runs (Local time) ===============\n\nNo upcoming runs for " .. epic .. "!\n\n===========================================================")
+			ColourNote("white", "", string.rep("=", 16), "cyan", "", header_string, "white", "", string.rep("=", 16) .. "\n\n", "green", "", "No upcoming runs for " .. epic .. "!", "white", "", "\n\n" .. string.rep("=", 60))
 		end
 	else
-		ColourNote("white", "", "======================== EpicError ========================\n\nNot a valid calendar choice (IF/Icefall, Inferno, OC, All)\n\n===========================================================")
+		ColourNote("cyan", "", "Epic Calendar Error: ", "white", "", "Valid choices are: IF/Icefall, Inferno, OC, All)")
 	end
-	epage, tz_off = nil, nil
+	epage, starttime, summary, cal_output = nil, nil, nil, nil
 end
+
+function OnPluginInstall()
+	if not json then json = require 'json' end
+	async_ok, async = pcall (require, "async")
+end
+
 ]]>
 </script>