/**
* Create/Update the scheduling requests for this resource. This includes updating
* the scheduled user's default calendar.
* @param vComponent $resource The VEVENT/VTODO/... resource we are scheduling
* @param boolean $create true if the scheduling requests are being created.
* @return true If there was any scheduling action
*/
function do_scheduling_requests(vCalendar $resource, $create, $old_data = null, $remoteAttendee = false)
{
global $request, $c;
if (!isset($request) || isset($c->enable_auto_schedule) && !$c->enable_auto_schedule) {
return false;
}
if (!is_object($resource)) {
trace_bug('do_scheduling_requests called with non-object parameter (%s)', gettype($resource));
return false;
}
$organizer = $resource->GetOrganizer();
if ($organizer === false || empty($organizer)) {
dbg_error_log('PUT', 'Event has no organizer - no scheduling required.');
return false;
}
$organizer_email = preg_replace('/^mailto:/i', '', $organizer->Value());
if ($request->principal->email() != $organizer_email) {
return do_scheduling_reply($resource, $organizer);
}
$schedule_request = clone $resource;
$schedule_request->AddProperty('METHOD', 'REQUEST');
$old_attendees = array();
if (!empty($old_data)) {
$old_resource = new vCalendar($old_data);
$old_attendees = $old_resource->GetAttendees();
}
$attendees = $resource->GetAttendees();
if (count($attendees) == 0 && count($old_attendees) == 0) {
dbg_error_log('PUT', 'Event has no attendees - no scheduling required.', count($attendees));
return false;
}
$removed_attendees = array();
foreach ($old_attendees as $attendee) {
$email = preg_replace('/^mailto:/i', '', $attendee->Value());
if ($email == $request->principal->email()) {
continue;
}
$removed_attendees[$email] = $attendee;
}
$uids = $resource->GetPropertiesByPath('/VCALENDAR/*/UID');
if (count($uids) == 0) {
dbg_error_log('PUT', 'No UID in VCALENDAR - giving up on REPLY.');
return false;
}
$uid = $uids[0]->Value();
dbg_error_log('PUT', 'Writing scheduling resources for %d attendees', count($attendees));
$scheduling_actions = false;
foreach ($attendees as $attendee) {
$email = preg_replace('/^mailto:/i', '', $attendee->Value());
if ($email == $request->principal->email()) {
dbg_error_log("PUT", "not delivering to owner '%s'", $request->principal->email());
continue;
}
if ($create) {
$attendee_is_new = true;
} else {
$attendee_is_new = !isset($removed_attendees[$email]);
if (!$attendee_is_new) {
unset($removed_attendees[$email]);
}
}
$agent = $attendee->GetParameterValue('SCHEDULE-AGENT');
if ($agent && $agent != 'SERVER') {
dbg_error_log("PUT", "not delivering to %s, schedule agent set to value other than server", $email);
continue;
}
$schedule_target = new Principal('email', $email);
$response = '3.7';
// Attendee was not found on server.
dbg_error_log('PUT', 'Handling scheduling resources for %s on %s which is %s', $email, $create ? 'create' : 'update', $attendee_is_new ? 'new' : 'an update');
if ($schedule_target->Exists()) {
// Instead of always writing to schedule-default-calendar, we first try to
// find a calendar with an existing instance of the event.
$sql = 'SELECT caldav_data.dav_name, caldav_data.caldav_data, caldav_data.collection_id FROM caldav_data JOIN calendar_item USING(dav_id) ';
$sql .= 'WHERE caldav_data.collection_id IN (SELECT collection_id FROM collection WHERE is_calendar AND user_no =?) ';
$sql .= 'AND uid=? LIMIT 1';
$qry = new AwlQuery($sql, $schedule_target->user_no(), $uid);
if (!$qry->Exec('PUT', __LINE__, __FILE__) || $qry->rows() < 1) {
dbg_error_log('PUT', "Could not find event in attendee's calendars");
$attendee_calendar = new WritableCollection(array('path' => $schedule_target->internal_url('schedule-default-calendar')));
} else {
$row = $qry->Fetch();
$r = new DAVResource($row);
$attendee_calendar = new WritableCollection(array('path' => $r->parent_path()));
if ($attendee_calendar->IsCalendar()) {
dbg_error_log('XXX', "found the event in attendee's calendar %s", $attendee_calendar->dav_name());
} else {
dbg_error_log('XXX', 'could not find the event in any calendar, using schedule-default-calendar');
$attendee_calendar = new WritableCollection(array('path' => $schedule_target->internal_url('schedule-default-calendar')));
}
}
if (!$attendee_calendar->Exists()) {
dbg_error_log('ERROR', 'Default calendar at "%s" does not exist for user "%s"', $attendee_calendar->dav_name(), $schedule_target->username());
$response = '5.2';
// No scheduling support for user
} else {
$attendee_inbox = new WritableCollection(array('path' => $schedule_target->internal_url('schedule-inbox')));
if (!$attendee_inbox->HavePrivilegeTo('schedule-deliver-invite')) {
$response = '3.8';
// No authority to deliver invitations to user.
} else {
if ($attendee_inbox->WriteCalendarMember($schedule_request, $attendee_is_new) !== false) {
$response = '1.2';
// Scheduling invitation delivered successfully
if ($attendee_calendar->WriteCalendarMember($resource, $attendee_is_new) === false) {
dbg_error_log('ERROR', 'Could not write %s calendar member to %s', $attendee_is_new ? 'new' : 'updated', $attendee_calendar->dav_name(), $attendee_calendar->dav_name(), $schedule_target->username());
trace_bug('Failed to write scheduling resource.');
}
}
}
}
} else {
if ($remoteAttendee) {
$attendee->is_remote = true;
$remote = new iSchedule();
$answer = $remote->sendRequest($email, 'VEVENT/REQUEST', $schedule_request->Render());
} else {
$remote = new iSchedule();
$answer = $remote->sendRequest($email, 'VEVENT/REQUEST', $schedule_request->Render());
if ($answer === false) {
$response = "3.7;Invalid Calendar User";
} else {
foreach ($answer as $a) {
if ($a === false) {
$response = "3.7;Invalid Calendar User";
} elseif (substr($a, 0, 1) >= 1) {
$response = $a;
} else {
$response = "2.0;Success";
}
}
}
}
}
dbg_error_log('PUT', 'Status for attendee <%s> set to "%s"', $attendee->Value(), $response);
$attendee->SetParameterValue('SCHEDULE-STATUS', $response);
$scheduling_actions = true;
}
if (!$create) {
foreach ($removed_attendees as $attendee) {
$schedule_target = new Principal('email', $email);
if ($schedule_target->Exists()) {
$attendee_calendar = new WritableCollection(array('path' => $schedule_target->internal_url('schedule-default-calendar')));
}
}
}
return $scheduling_actions;
}
function ischedule_cancel($ic, $attendees, $attendees_fail)
{
global $c, $session, $request;
$reply = new XMLDocument(array("DAV:" => "", "urn:ietf:params:xml:ns:caldav" => "C", "urn:ietf:params:xml:ns:ischedule" => "I"));
$responses = array();
$ical = $ic->GetComponents('VEVENT');
$ical = $ical[0];
foreach ($attendees as $k => $attendee) {
$XMLresponse = $reply->NewXMLElement("response", false, false, 'urn:ietf:params:xml:ns:ischedule');
dbg_error_log('ischedule', 'scheduling event for ' . $attendee->email);
$schedule_target = new Principal('email', $attendee->email);
$response = '3.7';
// Attendee was not found on server.
if ($schedule_target->Exists()) {
$attendee_calendar = new WritableCollection(array('path' => $schedule_target->internal_url('schedule-default-calendar')));
if (!$attendee_calendar->Exists()) {
dbg_error_log('ERROR', 'Default calendar at "%s" does not exist for user "%s"', $attendee_calendar->dav_name(), $schedule_target->username());
$response = '5.3;cannot schedule this user, unknown or access denied';
// No scheduling support for user
} else {
$attendee_inbox = new WritableCollection(array('path' => $schedule_target->internal_url('schedule-inbox')));
if (!$attendee_inbox->HavePrivilegeTo('schedule-deliver-invite')) {
$response = '3.8;denied';
// No authority to deliver invitations to user.
} else {
if ($attendee_inbox->WriteCalendarMember($ic, false) !== false) {
$response = '2.0;delivered';
// Scheduling invitation delivered successfully
}
}
}
}
dbg_error_log('PUT', 'Status for attendee <%s> set to "%s"', $attendee->email, $response);
$XMLresponse->NewElement("recipient", $reply->href('mailto:' . $attendee->email), false, 'urn:ietf:params:xml:ns:ischedule');
$XMLresponse->NewElement("request-status", $response, false, 'urn:ietf:params:xml:ns:ischedule');
$responses[] = $XMLresponse;
}
foreach ($attendees_fail as $k => $attendee) {
$XMLresponse = $reply->NewXMLElement("response", false, false, 'urn:ietf:params:xml:ns:ischedule');
$XMLresponse->NewElement("recipient", $reply->href('mailto:' . $attendee->email), false, 'urn:ietf:params:xml:ns:ischedule');
$XMLresponse->NewElement("request-status", '5.3;cannot schedule this user, unknown or access denied', false, 'urn:ietf:params:xml:ns:ischedule');
$responses[] = $XMLresponse;
}
$response = $reply->NewXMLElement("schedule-response", $responses, $reply->GetXmlNsArray(), 'urn:ietf:params:xml:ns:ischedule');
$request->XMLResponse(200, $response);
}
/**
* Create a scheduling request in the schedule inbox for the
* @param iCalComponent $resource The VEVENT/VTODO/... resource we are scheduling
* @param iCalProp $attendee The attendee we are scheduling
* @return float The result of the scheduling request, per caldav-sched #3.5.4
*/
function write_scheduling_request(&$resource, $attendee_value, $create_resource)
{
$email = preg_replace('/^mailto:/', '', $attendee_value);
$schedule_target = getUserByEmail($email);
if (isset($schedule_target) && is_object($schedule_target)) {
$attendee_inbox = new WritableCollection(array('path' => $schedule_target->dav_name . '.in/'));
if (!$attendee_inbox->HavePrivilegeTo('schedule-deliver-invite')) {
$response = '3.8;' . translate('No authority to deliver invitations to user.');
}
if ($attendee_inbox->WriteCalendarMember($resource, $create_resource)) {
$response = '2.0;' . translate('Scheduling invitation delivered successfully');
} else {
$response = '5.3;' . translate('No scheduling support for user');
}
} else {
$response = '5.3;' . translate('No scheduling support for user');
}
return '"' . $response . '"';
}
/**
* Delivers the iTIP CANCEL message to an ATTENDEE's Scheduling Inbox Collection.
*
* This is pretty simple at present, but could be extended in the future to do the sending
* of e-mail to a remote attendee.
*
* @param vCalendar $iTIP
* @param vProperty $attendee
* @param WritableCollection $attendee_inbox
*/
function deliverItipCancel(vCalendar $iTIP, vProperty $attendee, WritableCollection $attendee_inbox)
{
$attendee_inbox->WriteCalendarMember($iTIP, false);
header("Debug: Could maybe do the iMIP message dance canceling for attendee: " . $attendee->Value());
}