<?php
/**
 * JEvents Component for Joomla! 3.x
 *
 * @version     $Id: saveIcalEvent.php 3548 2012-04-20 09:25:43Z geraintedwards $
 * @package     JEvents
 * @copyright   Copyright (C) 2008-2020 GWESystems Ltd, 2006-2008 JEvents Project Group
 * @license     GNU/GPLv2, see http://www.gnu.org/licenses/gpl-2.0.html
 * @link        http://www.jevents.net
 */

defined('_JEXEC') or die('Restricted access');

use Joomla\CMS\Language\Text;
use Joomla\CMS\Factory;
use Joomla\CMS\Uri\Uri;
use Joomla\CMS\Router\Route;
use Joomla\String\StringHelper;
use Joomla\Utilities\ArrayHelper;
use Joomla\CMS\Plugin\PluginHelper;

class SaveIcalEvent
{

	// we can use dry run to create the event data without saving it!
	public static function save($array, &$queryModel, $rrule, $dryrun = false)
	{

		$cfg    = JEVConfig::getInstance();
		$db     = Factory::getDbo();
		$user   = Factory::getUser();
		$app    = Factory::getApplication();
		$input  = $app->input;

		// Allow plugins to check data validity
		PluginHelper::importPlugin("jevents");
		$res = $app->triggerEvent('onBeforeSaveEvent', array(&$array, &$rrule, $dryrun));

		// TODO do error and hack checks here
		$ev_id    = (int) ArrayHelper::getValue($array, "evid", 0);
		$newevent = $ev_id == 0;

		$data = array();

		// TODO add UID to edit form
		$data["UID"] = ArrayHelper::getValue($array, "uid", md5(uniqid(rand(), true)));

		$data["X-EXTRAINFO"] = ArrayHelper::getValue($array, "extra_info", "");
		$data["LOCATION"]    = ArrayHelper::getValue($array, "location", "");
		$data["GEOLON"]      = (float) ArrayHelper::getValue($array, "geolon", "");
		$data["GEOLAT"]      = (float) ArrayHelper::getValue($array, "geolat", "");
		$data["allDayEvent"] = ArrayHelper::getValue($array, "allDayEvent", "off");
		// Joomla 3.2 fix !!  The form doesn't respect the checkbox value in the form xml file being "on" instead of 1
		if ($data["allDayEvent"] == 1)
		{
			$data["allDayEvent"] = "on";
		}
		$data["CONTACT"]       = ArrayHelper::getValue($array, "contact_info", "");
		$data["DESCRIPTION"]   = ArrayHelper::getValue($array, "jevcontent", "");
		$data["publish_down"]  = ArrayHelper::getValue($array, "publish_down", "2006-12-12");
		$data["publish_up"]    = ArrayHelper::getValue($array, "publish_up", "2006-12-12");
		$data["publish_down2"] = ArrayHelper::getValue($array, "publish_down2", false);
		$data["publish_up2"]   = ArrayHelper::getValue($array, "publish_up2", false);

		$test = JevDate::strtotime($data["publish_up"] . ' 08:00');
		$test2 = JevDate::strtotime($data["publish_up2"] . ' 08:00');
		if ($data["publish_down2"])
		{
			$data["publish_down"] = $data["publish_down2"];
		}
		if ($data["publish_up2"])
		{
			$data["publish_up"] = $data["publish_up2"];
		}

		$data["SUMMARY"] = ArrayHelper::getValue($array, "title", "");
		$data["URL"]     = ArrayHelper::getValue($array, "url", "");

		// If user is jevents can deleteall or has backend access then allow them to specify the creator
		$jevuser   = JEVHelper::getAuthorisedUser();
		$creatorid = $input->getInt("jev_creatorid", 0);
		if ($creatorid > 0)
		{
			$access = $user->authorise('core.admin', 'com_jevents') || $user->authorise('core.deleteall', 'com_jevents');

			if (($jevuser && $jevuser->candeleteall) || $access)
			{
				$data["X-CREATEDBY"] = $creatorid;
			}

		}

		$ics_id				= (int) ArrayHelper::getValue( $array,  "ics_id",0);

		if ($data["allDayEvent"] == "on")
		{
			$start_time = "00:00";
		}
		else $start_time = ArrayHelper::getValue($array, "start_time", "08:00");
		$publishstart           = $data["publish_up"] . ' ' . $start_time . ':00';
		$data["DTSTART"]        = JevDate::strtotime($publishstart);
		$data["X-PUBLISHSTART"] = $publishstart;

		if ($data["allDayEvent"] == "on")
		{
			$end_time = "00:00";
		}
		else $end_time = ArrayHelper::getValue($array, "end_time", "15:00");
		$publishend = $data["publish_down"] . ' ' . $end_time . ':00';

		if (isset($array["noendtime"]) && $array["noendtime"])
		{
			$publishend = $data["publish_down"] . ' 23:59:59';
		}

		$data["DTEND"] = JevDate::strtotime($publishend);

		// iCal for whole day uses 00:00:00 on the next day JEvents uses 23:59:59 on the same day
		list ($h, $m, $s) = explode(":", $end_time . ':00');
		if (($h + $m + $s) == 0 && $data["allDayEvent"] == "on" && $data["DTEND"] >= $data["DTSTART"])
		{
			$publishend    = JevDate::strftime('%Y-%m-%d 23:59:59', ($data["DTEND"]));
			$data["DTEND"] = JevDate::strtotime($publishend);
		}
		$data["X-PUBLISHEND"] = $publishend;

		$data["RRULE"] = $rrule;

		$data["MULTIDAY"]  = ArrayHelper::getValue($array, "multiday", "1");
		$data["NOENDTIME"] = ArrayHelper::getValue($array, "noendtime", "0");
		$data["X-COLOR"]   = ArrayHelper::getValue($array, "color", "");

		$data["LOCKEVENT"] = ArrayHelper::getValue($array, "lockevent", "0");

		// Add any custom fields into $data array
		foreach ($array as $key => $value)
		{
			if (strpos($key, "custom_") === 0)
			{
				$data[$key] = $value;
			}
			// convert jform data to data format used before
			if (strpos($key, "jform") === 0 && is_array($value))
			{
				foreach ($value as $cfkey => $cfvalue)
				{
					$data["custom_" . $cfkey] = $cfvalue;
				}
			}
		}


		$vevent = iCalEvent::iCalEventFromData($data);

		$vevent->catid = ArrayHelper::getValue($array, "catid", 0);
		$vevent->catids	= ArrayHelper::getValue( $array, "catid", 0);

		if (is_array($vevent->catid))
		{
			$vevent->catid = ArrayHelper::toInteger($vevent->catid);
		}
		// if catid is empty then use the catid of the ical calendar
		if ((is_string($vevent->catid) && $vevent->catid <= 0) || (is_array($vevent->catid) && count($vevent->catid) == 0))
		{
			$query = "SELECT catid FROM #__jevents_icsfile WHERE ics_id=$ics_id";
			$db->setQuery($query);
			$vevent->catid = $db->loadResult();
		}
		// minimum access is 1 in Joomla 2.5+
		$vevent->access = (int) ArrayHelper::getValue($array, "access", 1);

		$vevent->state = (int) ArrayHelper::getValue($array, "state", 0);
		// Shouldn't really do this like this
		$vevent->_detail->priority = (int) ArrayHelper::getValue($array, "priority", 0);

		// Set Timezone where required
		$vevent->tzid = ArrayHelper::getValue($array, "tzid", "");

		// FRONT END AUTO PUBLISHING CODE
		$isPublisher = JEVHelper::isEventPublisher();

		if (!$isPublisher)
		{
			$isPublisher = JEVHelper::canPublishOwnEvents($ev_id, $vevent);
		}
		// Always un-publish if no Publisher otherwise publish automatically (for new events)
		// Should we always notify of new events
		$notifyAdmin = $cfg->get("com_notifyallevents", 0);
		if (!$isPublisher)
		{
			if ($newevent || (int) $cfg->get('jevunpublishonedit', '1') === 1)
			{
				$vevent->state = 0;
			}
			// In this case we send a notification email to admin
			$notifyAdmin = true;
		}

		$vevent->icsid = $ics_id;
		if ($ev_id > 0)
		{
			$vevent->ev_id = $ev_id;
		}

		$rp_id = (int) ArrayHelper::getValue($array, "rp_id", 0);
		if ($rp_id > 0)
		{
			// I should be able to do this in one operation but that can come later
			$testevent = $queryModel->listEventsById(intval($rp_id), 1, "icaldb");
			if (!JEVHelper::canEditEvent($testevent))
			{
				throw new Exception(Text::_('ALERTNOTAUTH'), 403);

				return false;
			}
		}

		$db      = Factory::getDbo();
		$success = true;
		//echo "class = ".get_class($vevent);

		if (isset($vevent->catids))
		{
			unset($vevent->catids); // Remove catids from storage since they are not part of the table structure
		}

		if (!$dryrun)
		{
			try
			{
				$vevent->store();

			}
			catch (Exception $e)
			{
				throw new Exception($e->getMessage());
				$success = false;
				$app->enqueueMessage('101 - ' . Text::_('COULD_NOT_SAVE_EVENT_'), 'warning');
			}
		}
		else
		{
			// need a value for eventid to pretend we have saved the event so we can get the repetitions
			if (!isset($vevent->ev_id))
			{
				$vevent->ev_id = 0;
			}
			$vevent->rrule->eventid = $vevent->ev_id;
		}

		// Only update the repetitions if the event edit says the repetitions will have changed or a new event or ONLY 1 repetition
		$repetitions = $vevent->getRepetitions(true);
		if ($newevent || $input->getInt("updaterepeats", 1) || count($repetitions) == 1)
		{
			if (!$dryrun)
			{
				try
				{
					$vevent->storeRepetitions();

				}
				catch (Exception $e)
				{
					throw new Exception($e->getMessage());
					$success = false;
					$app->enqueueMessage('101 - ' . Text::_('COULD_NOT_SAVE_REPETITIONS'), 'warning');
				}
			}
		}

		// whilst the DB field is called 'state' we use the variable 'published' in all of JEvents so must set it before the plugin
		$vevent->published = $vevent->state;
		$res               = $app->triggerEvent('onAfterSaveEvent', array(&$vevent, $dryrun));
		if ($dryrun) return $vevent;

		// Do the repeats overlap each other
		$overlaprepeats = false;
		if (count($repetitions) > 1)
		{
			$oldrep = false;
			foreach ($repetitions as $rep)
			{
				if (!$oldrep)
				{
					$oldrep = $rep;
					continue;
				}
				else
				{
					if ($rep->startrepeat < $oldrep->endrepeat && $rep->endrepeat > $oldrep->startrepeat)
					{
						$overlaprepeats = true;
						break;
					}
					$oldrep = $rep;
				}
			}
		}
		if ($overlaprepeats)
		{
			$app->enqueueMessage(JTExt::_("JEV_CHECK_OVERLAPPING_REPEATS"), "warning");
		}

		// If not authorised to publish in the frontend then notify the administrator
		if (!$dryrun && $success && $notifyAdmin)
		{


			JLoader::register('JEventsCategory', JEV_ADMINPATH . "/libraries/categoryClass.php");
			$cat = new JEventsCategory($db);
			$cat->load($vevent->catid);
			$adminuser = $cat->getAdminUser();

			$adminEmail = $adminuser->email;
			$config     = new JConfig();
			$sitename   = $config->sitename;

			$subject_text = (!$newevent ? Text::_('JEV_MAIL_MODIFIED') : Text::_('JEV_MAIL_ADDED')) . ' ' . $sitename;
			$subject      = ($vevent->state == '1') ? Text::_('COM_JEV_INFO') . $subject_text : Text::_('COM_JEV_APPROVAL') . $subject_text;


			$Itemid = JEVHelper::getItemid();
			// reload the event to get the reptition ids
			$evid      = (int) $vevent->ev_id;
			$testevent = $queryModel->getEventById($evid, 1, "icaldb");

			list($year, $month, $day) = JEVHelper::getYMD();
			//http://joomlacode1.5svn/index.php?option=com_jevents&task=icalevent.edit&evid=1&Itemid=68&rp_id=72&year=2008&month=09&day=10&lang=cy
			$uri  = Uri::getInstance(Uri::base());
			$root = $uri->toString(array('scheme', 'host', 'port'));

			if ($testevent)
			{
				$rp_id      = $testevent->rp_id();
				$modifylink = '<a href="' . $root . Route::_('index.php?option=' . JEV_COM_COMPONENT . '&task=icalevent.edit&evid=' . $evid . '&rp_id=' . $rp_id . '&Itemid=' . $Itemid . "&year=$year&month=$month&day=$day") . '"><b>' . Text::_('JEV_MODIFY') . '</b></a>' . "\n";
				$viewlink   = '<a href="' . $root . Route::_('index.php?option=' . JEV_COM_COMPONENT . '&task=icalrepeat.detail&evid=' . $rp_id . '&Itemid=' . $Itemid . "&year=$year&month=$month&day=$day&login=1") . '"><b>' . Text::_('JEV_VIEW') . '</b></a>' . "\n";
				$title      = $testevent->title();
				$content    = $testevent->content();
				$catids     = $testevent->catids() ? $testevent->catids() : array();
				if (($key = array_search($testevent->catid(), $catids)) !== false)
				{
					unset($catids[$key]);
				}
				$cc = "";
				if (count($catids) > 0)
				{
					$ccs = array();
					foreach ($catids as $catid)
					{
						$cat->load($catid);
						$catadminuser = $cat->getAdminUser();
						if ($catadminuser->email != $adminEmail && !in_array($catadminuser->email, $ccs))
						{
							$ccs[] = $catadminuser->email;
						}
					}
					if (count($ccs) > 0)
					{
						$cc = implode(",", $ccs);
					}
				}
			}
			else
			{
				$modifylink = '<a href="' . $root . Route::_('index.php?option=' . JEV_COM_COMPONENT . '&task=icalevent.edit&evid=' . $evid . '&Itemid=' . $Itemid . "&year=$year&month=$month&day=$day") . '"><b>' . Text::_('JEV_MODIFY') . '</b></a>' . "\n";
				$viewlink   = '<a href="' . $root . Route::_('index.php?option=' . JEV_COM_COMPONENT . '&task=icalevent.detail&evid=' . $evid . '&Itemid=' . $Itemid . "&year=$year&month=$month&day=$day&login=1") . '"><b>' . Text::_('JEV_VIEW') . '</b></a>' . "\n";
				$title      = $data["SUMMARY"];
				$content    = $data["DESCRIPTION"];
				$subject    .= " PROBLEMS SAVING THIS EVENT";
				$cc         = "";
			}

			$created_by = $user->name . " (" . $user->email . ")";
			if ($created_by == null || $created_by == " ()")
			{
				$created_by = "Anonymous";
				if ($input->getString("custom_anonusername", "") != "")
				{
					$created_by = $input->getString("custom_anonusername", "") . " (" . $input->getString("custom_anonemail", "") . ")";
				}
			}

			JEV_CommonFunctions::sendAdminMail($sitename, $adminEmail, $subject, $title, $content, $day, $month, $year, $start_time, $end_time, $created_by, Uri::root(), $modifylink, $viewlink, $testevent, $cc);

		}
		if ($success)
		{
			return $vevent;
		}

		return $success;
	}

	public static function generateRRule($array)
	{

		//static $weekdayMap=array("SU"=>0,"MO"=>1,"TU"=>2,"WE"=>3,"TH"=>4,"FR"=>5,"SA"=>6);
		static $weekdayReverseMap = array("SU", "MO", "TU", "WE", "TH", "FR", "SA");

		$interval = ArrayHelper::getValue($array, "rinterval", 1);

		$freq = ArrayHelper::getValue($array, "freq", "NONE");
		if ($freq != "NONE")
		{
			$rrule         = array();
			$rrule["FREQ"] = $freq;
			$countuntil    = ArrayHelper::getValue($array, "countuntil", "count");
			if ($countuntil == "count")
			{
				$count = (int) ArrayHelper::getValue($array, "count", 1);
				if ($count <= 0) $count = 1;
				$rrule["COUNT"] = $count;
			}
			else
			{
				$publish_down = ArrayHelper::getValue($array, "publish_down", "2006-12-12");
				$until        = ArrayHelper::getValue($array, "until", $publish_down);
				$until2       = ArrayHelper::getValue($array, "until2", false);
				if ($until2)
				{
					$until = $until2;
				}
				$rrule["UNTIL"] = JevDate::strtotime($until . " 00:00:00");

			}
			$rrule["INTERVAL"]       = $interval;
			$rrule["IRREGULARDATES"] = ArrayHelper::getValue($array, "irregularDates", array(), "ARRAY");
			array_walk($rrule["IRREGULARDATES"], function (& $item, $index) {

				$item = JevDate::strtotime($item . " 00:00:00");
			});
		}

		$whichby = ArrayHelper::getValue($array, "whichby", "bd");

		switch ($whichby)
		{
			case "byd":
				$byd_direction      = ArrayHelper::getValue($array, "byd_direction", "off") == "off" ? "+" : "-";
				$byyearday          = ArrayHelper::getValue($array, "byyearday", "");
				$rrule["BYYEARDAY"] = $byd_direction . $byyearday;
				break;
			case "bm":
				$bm_direction     = ArrayHelper::getValue($array, "bm_direction", "off") == "off" ? "+" : "-";
				$bymonth          = ArrayHelper::getValue($array, "bymonth", "");
				$rrule["BYMONTH"] = $bymonth;
				break;
			case "bwn":
				$bwn_direction     = ArrayHelper::getValue($array, "bwn_direction", "off") == "off" ? "+" : "-";
				$byweekno          = ArrayHelper::getValue($array, "byweekno", "");
				$rrule["BYWEEKNO"] = $bwn_direction . $byweekno;
				break;
			case "bmd":
				$bmd_direction       = ArrayHelper::getValue($array, "bmd_direction", "off") == "off" ? "+" : "-";
				$bymonthday          = ArrayHelper::getValue($array, "bymonthday", "");
				$rrule["BYMONTHDAY"] = $bmd_direction . $bymonthday;
				break;
			case "bd":
				$bd_direction = ArrayHelper::getValue($array, "bd_direction", "off") == "off" ? "+" : "-";
				$weekdays     = ArrayHelper::getValue($array, "weekdays", array());
				$weeknums     = ArrayHelper::getValue($array, "weeknums", array());
				$byday        = "";
				if (count($weeknums) == 0)
				{
					// special case for weekly repeats which don't specify week of a month
					foreach ($weekdays as $wd)
					{
						if (StringHelper::strlen($byday) > 0) $byday .= ",";
						$byday .= $weekdayReverseMap[$wd];
					}
				}
				foreach ($weeknums as $week)
				{
					foreach ($weekdays as $wd)
					{
						if (StringHelper::strlen($byday) > 0) $byday .= ",";
						$byday .= $bd_direction . $week . $weekdayReverseMap[$wd];
					}
				}
				$rrule["BYDAY"] = $byday;
				break;
		}

		return $rrule;
	}
}
