engelsystem/includes/pages/user_ical.php

<?php

/**
 * Controller for ical output of users own shifts or any user_shifts filter.
 */
function user_ical() {
  global $user;
  
  if (! isset($_REQUEST['key']) || ! preg_match("/^[0-9a-f]{32}$/", $_REQUEST['key'])) {
    engelsystem_error("Missing key.");
  }
  $key = $_REQUEST['key'];
  
  $user = User_by_api_key($key);
  if ($user === false) {
    engelsystem_error("Unable to find user.");
  }
  if ($user == null) {
    engelsystem_error("Key invalid.");
  }
  
  if (! in_array('ical', privileges_for_user($user['UID']))) {
    engelsystem_error("No privilege for ical.");
  }
  
  $ical_shifts = load_ical_shifts();
  
  send_ical_from_shifts($ical_shifts);
}

/**
 * Renders an ical calender from given shifts array.
 *
 * @param array<Shift> $shifts          
 */
function send_ical_from_shifts($shifts) {
  header("Content-Type: text/calendar; charset=utf-8");
  $output = "BEGIN:VCALENDAR\r\nVERSION:2.0\r\nPRODID:-//-//Engelsystem//DE\r\nCALSCALE:GREGORIAN\r\n";
  foreach ($shifts as $shift) {
    $output .= make_ical_entry_from_shift($shift);
  }
  $output .= "END:VCALENDAR\r\n";
  $output = trim($output, "\x0A");
  header("Content-Length: " . strlen($output));
  raw_output($output);
}

/**
 * Renders an ical vevent from given shift.
 *
 * @param Shift $shift          
 */
function make_ical_entry_from_shift($shift) {
  $output = "BEGIN:VEVENT\r\n";
  $output .= "UID:" . md5($shift['start'] . $shift['end'] . $shift['name']) . "\r\n";
  $output .= "SUMMARY:" . str_replace("\n", "\\n", $shift['name']) . " (" . str_replace("\n", "\\n", $shift['title']) . ")\r\n";
  if (isset($shift['Comment'])) {
    $output .= "DESCRIPTION:" . str_replace("\n", "\\n", $shift['Comment']) . "\r\n";
  }
  $output .= "DTSTART;TZID=Europe/Berlin:" . date("Ymd\THis", $shift['start']) . "\r\n";
  $output .= "DTEND;TZID=Europe/Berlin:" . date("Ymd\THis", $shift['end']) . "\r\n";
  $output .= "LOCATION:" . $shift['Name'] . "\r\n";
  $output .= "END:VEVENT\r\n";
  return $output;
}
?>