/**
* @static
* @param int $calendarId
* @throws Sabre_DAV_Exception_NotFound
* @return void
*/
protected static function createCache_internal($calendarId)
{
$calendar = Sabre_CalDAV_Backend_Common::loadCalendarById($calendarId);
switch ($calendar["uri"]) {
case CALDAV_FRIENDICA_MINE:
$sql_where = " AND cid = 0";
break;
case CALDAV_FRIENDICA_CONTACTS:
$sql_where = " AND cid > 0";
break;
default:
throw new Sabre_DAV_Exception_NotFound();
}
$r = q("SELECT * FROM `event` WHERE `uid` = %d " . $sql_where . " ORDER BY `start`", IntVal($calendar["namespace_id"]));
foreach ($r as $row) {
$uid = $calendar["uri"] . "-" . $row["id"];
$vevent = dav_create_empty_vevent($uid);
$component = dav_get_eventComponent($vevent);
if ($row["adjust"]) {
$start = datetime_convert('UTC', date_default_timezone_get(), $row["start"]);
$finish = datetime_convert('UTC', date_default_timezone_get(), $row["finish"]);
} else {
$start = $row["start"];
$finish = $row["finish"];
}
$summary = $row["summary"] != "" ? $row["summary"] : $row["desc"];
$desc = $row["summary"] != "" ? $row["desc"] : "";
$component->add("SUMMARY", icalendar_sanitize_string($summary));
$component->add("LOCATION", icalendar_sanitize_string($row["location"]));
$component->add("DESCRIPTION", icalendar_sanitize_string($desc));
$ts_start = wdcal_mySql2PhpTime($start);
$ts_end = wdcal_mySql2PhpTime($start);
$allday = strpos($start, "00:00:00") !== false && strpos($finish, "00:00:00") !== false;
$type = $allday ? Sabre\VObject\Property\DateTime::DATE : Sabre\VObject\Property\DateTime::LOCALTZ;
$datetime_start = new Sabre\VObject\Property\DateTime("DTSTART");
$datetime_start->setDateTime(new DateTime(date("Y-m-d H:i:s", $ts_start)), $type);
$datetime_end = new Sabre\VObject\Property\DateTime("DTEND");
$datetime_end->setDateTime(new DateTime(date("Y-m-d H:i:s", $ts_end)), $type);
$component->add($datetime_start);
$component->add($datetime_end);
$data = $vevent->serialize();
q("INSERT INTO %s%scal_virtual_object_cache (`calendar_id`, `data_uri`, `data_summary`, `data_location`, `data_start`, `data_end`, `data_allday`, `data_type`,\n\t\t\t\t`calendardata`, `size`, `etag`) VALUES (%d, '%s', '%s', '%s', '%s', '%s', %d, '%s', '%s', %d, '%s')", CALDAV_SQL_DB, CALDAV_SQL_PREFIX, $calendarId, dbesc($uid), dbesc($summary), dbesc($row["location"]), dbesc($row["start"]), dbesc($row["finish"]), $allday ? 1 : 0, dbesc($row["type"] == "birthday" ? "birthday" : ""), dbesc($data), strlen($data), md5($data));
}
}
/**
* @param Sabre_VObject_Component_VEvent $component
* @param wdcal_local $localization
*/
function wdcal_set_component_recurrence(&$component, &$localization)
{
$component->__unset("RRULE");
$component->__unset("EXRULE");
$component->__unset("EXDATE");
$component->__unset("RDATE");
$part_until = "";
switch ($_REQUEST["rec_until_type"]) {
case "date":
$date = $localization->date_local2timestamp($_REQUEST["rec_until_date"]);
$part_until = ";UNTIL=" . date("Ymd", $date);
$datetime_until = new Sabre\VObject\Property\DateTime("UNTIL");
$datetime_until->setDateTime(new DateTime(date("Y-m-d H:i:s", $date)), Sabre\VObject\Property\DateTime::DATE);
break;
case "count":
$part_until = ";COUNT=" . IntVal($_REQUEST["rec_until_count"]);
break;
}
switch ($_REQUEST["rec_frequency"]) {
case "daily":
$part_freq = "FREQ=DAILY";
if (isset($_REQUEST["rec_daily_byday"])) {
$days = array();
foreach ($_REQUEST["rec_daily_byday"] as $x) {
if (in_array($x, array("MO", "TU", "WE", "TH", "FR", "SA", "SU"))) {
$days[] = $x;
}
}
if (count($days) > 0) {
$part_freq .= ";BYDAY=" . implode(",", $days);
}
}
break;
case "weekly":
$part_freq = "FREQ=WEEKLY";
if (isset($_REQUEST["rec_weekly_wkst"]) && in_array($_REQUEST["rec_weekly_wkst"], array("MO", "SU"))) {
$part_freq .= ";WKST=" . $_REQUEST["rec_weekly_wkst"];
}
if (isset($_REQUEST["rec_weekly_byday"])) {
$days = array();
foreach ($_REQUEST["rec_weekly_byday"] as $x) {
if (in_array($x, array("MO", "TU", "WE", "TH", "FR", "SA", "SU"))) {
$days[] = $x;
}
}
if (count($days) > 0) {
$part_freq .= ";BYDAY=" . implode(",", $days);
}
}
break;
case "monthly":
$part_freq = "FREQ=MONTHLY";
$part_freq .= wdcal_set_component_recurrence_special($component, $_REQUEST["rec_monthly_day"]);
break;
case "yearly":
/** @var Sabre\VObject\Property\DateTime $start */
$start = $component->__get("DTSTART");
$part_freq = "FREQ=YEARLY";
$part_freq .= ";BYMONTH=" . $start->getDateTime()->format("n");
$part_freq .= wdcal_set_component_recurrence_special($component, $_REQUEST["rec_yearly_day"]);
break;
default:
$part_freq = "";
}
if ($part_freq == "") {
return;
}
if (isset($_REQUEST["rec_interval"])) {
$part_freq .= ";INTERVAL=" . InTVal($_REQUEST["rec_interval"]);
}
if (isset($_REQUEST["rec_exceptions"])) {
$arr = array();
foreach ($_REQUEST["rec_exceptions"] as $except) {
$arr[] = new DateTime(date("Y-m-d H:i:s", $except));
}
/** @var Sabre\VObject\Property\MultiDateTime $prop */
$prop = Sabre\VObject\Property::create("EXDATE");
$prop->setDateTimes($arr);
$component->add($prop);
}
$rrule = $part_freq . $part_until;
$component->add(new Sabre\VObject\Property("RRULE", $rrule));
}
/**
*
*/
function wdcal_print_feed($base_path = "")
{
$server = dav_create_server(true, true, false);
$ret = null;
$method = $_GET["method"];
switch ($method) {
case "add":
$cs = wdcal_print_feed_getCal($server, DAV_ACL_WRITE);
if ($cs == null) {
echo wdcal_jsonp_encode(array('IsSuccess' => false, 'Msg' => t('No access')));
killme();
}
try {
$item = dav_create_empty_vevent();
$component = dav_get_eventComponent($item);
$component->add("SUMMARY", icalendar_sanitize_string(dav_compat_parse_text_serverside("CalendarTitle")));
if (isset($_REQUEST["allday"])) {
$type = Sabre\VObject\Property\DateTime::DATE;
} else {
$type = Sabre\VObject\Property\DateTime::LOCALTZ;
}
$datetime_start = new Sabre\VObject\Property\DateTime("DTSTART");
$datetime_start->setDateTime(new DateTime(date("Y-m-d H:i:s", IntVal($_REQUEST["CalendarStartTime"]))), $type);
$datetime_end = new Sabre\VObject\Property\DateTime("DTEND");
$datetime_end->setDateTime(new DateTime(date("Y-m-d H:i:s", IntVal($_REQUEST["CalendarEndTime"]))), $type);
$component->add($datetime_start);
$component->add($datetime_end);
$uid = $component->__get("UID");
$data = $item->serialize();
$cs->createFile($uid . ".ics", $data);
$ret = array('IsSuccess' => true, 'Msg' => 'add success', 'Data' => $uid . ".ics");
} catch (Exception $e) {
$ret = array('IsSuccess' => false, 'Msg' => $e->__toString());
}
break;
case "list":
$weekstartday = isset($_REQUEST["weekstartday"]) ? IntVal($_REQUEST["weekstartday"]) : 1;
// 1 = Monday
$num_days = isset($_REQUEST["num_days"]) ? IntVal($_REQUEST["num_days"]) : 7;
$ret = null;
$date = wdcal_get_list_range_params($_REQUEST["showdate"], $weekstartday, $num_days, $_REQUEST["viewtype"]);
$ret = array();
$ret['events'] = array();
$ret["issort"] = true;
$ret["start"] = $date[0];
$ret["end"] = $date[1];
$ret['error'] = null;
$cals = dav_get_current_user_calendars($server, DAV_ACL_READ);
foreach ($cals as $cal) {
$prop = $cal->getProperties(array("id"));
if (isset($prop["id"]) && (!isset($_REQUEST["cal"]) || in_array($prop["id"], $_REQUEST["cal"]))) {
$backend = wdcal_calendar_factory_by_id($prop["id"]);
$events = $backend->listItemsByRange($prop["id"], $date[0], $date[1], $base_path);
$ret["events"] = array_merge($ret["events"], $events);
}
}
$tmpev = array();
foreach ($ret["events"] as $e) {
if (!isset($tmpev[$e["start"]])) {
$tmpev[$e["start"]] = array();
}
$tmpev[$e["start"]][] = $e;
}
ksort($tmpev);
$ret["events"] = array();
foreach ($tmpev as $e) {
foreach ($e as $f) {
$ret["events"][] = $f;
}
}
break;
case "update":
$r = q("SELECT `calendarobject_id`, `calendar_id` FROM %s%sjqcalendar WHERE `id`=%d", CALDAV_SQL_DB, CALDAV_SQL_PREFIX, IntVal($_REQUEST["jq_id"]));
if (count($r) != 1) {
echo wdcal_jsonp_encode(array('IsSuccess' => false, 'Msg' => t('No access')));
killme();
}
try {
$cs = dav_get_current_user_calendar_by_id($server, $r[0]["calendar_id"], DAV_ACL_READ);
$obj_uri = Sabre_CalDAV_Backend_Common::loadCalendarobjectById($r[0]["calendarobject_id"]);
$vObject = dav_get_current_user_calendarobject($server, $cs, $obj_uri["uri"], DAV_ACL_WRITE);
$component = dav_get_eventComponent($vObject);
if (!$component) {
echo wdcal_jsonp_encode(array('IsSuccess' => false, 'Msg' => t('No access')));
killme();
}
if (isset($_REQUEST["allday"])) {
$type = Sabre\VObject\Property\DateTime::DATE;
} else {
$type = Sabre\VObject\Property\DateTime::LOCALTZ;
}
$datetime_start = new Sabre\VObject\Property\DateTime("DTSTART");
$datetime_start->setDateTime(new DateTime(date("Y-m-d H:i:s", IntVal($_REQUEST["CalendarStartTime"]))), $type);
$datetime_end = new Sabre\VObject\Property\DateTime("DTEND");
$datetime_end->setDateTime(new DateTime(date("Y-m-d H:i:s", IntVal($_REQUEST["CalendarEndTime"]))), $type);
$component->__unset("DTSTART");
$component->__unset("DTEND");
$component->add($datetime_start);
$component->add($datetime_end);
$data = $vObject->serialize();
/** @var Sabre_CalDAV_CalendarObject $child */
$child = $cs->getChild($obj_uri["uri"]);
$child->put($data);
$ret = array('IsSuccess' => true, 'Msg' => 'Succefully');
} catch (Exception $e) {
echo wdcal_jsonp_encode(array('IsSuccess' => false, 'Msg' => t('No access')));
killme();
}
break;
case "remove":
$r = q("SELECT `calendarobject_id`, `calendar_id` FROM %s%sjqcalendar WHERE `id`=%d", CALDAV_SQL_DB, CALDAV_SQL_PREFIX, IntVal($_REQUEST["jq_id"]));
if (count($r) != 1) {
echo wdcal_jsonp_encode(array('IsSuccess' => false, 'Msg' => t('No access')));
killme();
}
try {
$cs = dav_get_current_user_calendar_by_id($server, $r[0]["calendar_id"], DAV_ACL_WRITE);
$obj_uri = Sabre_CalDAV_Backend_Common::loadCalendarobjectById($r[0]["calendarobject_id"]);
$child = $cs->getChild($obj_uri["uri"]);
$child->delete();
$ret = array('IsSuccess' => true, 'Msg' => 'Succefully');
} catch (Exception $e) {
echo wdcal_jsonp_encode(array('IsSuccess' => false, 'Msg' => t('No access')));
killme();
}
break;
}
echo wdcal_jsonp_encode($ret);
killme();
}
/**
* Sets or unsets the Date and Time for a property.
* When $datetime is set to 'now', use the current time
* When $datetime is null, unset the property
*
* @param string $name
* @param DateTime $datetime
* @param int $dateType
* @return void
*/
public function setDateTime($name, $datetime, $dateType = Sabre\VObject\Property\DateTime::LOCALTZ)
{
if ($datetime == 'now') {
$datetime = new DateTime();
}
if ($datetime instanceof DateTime) {
$datetime_element = new Sabre\VObject\Property\DateTime($name);
$datetime_element->setDateTime($datetime, $dateType);
$this->vObject->__set($name, $datetime_element);
} else {
$this->vObject->__unset($name);
}
}
