$get_unapproved = false;
$datem = date('m');
$dateY = date('Y');
// Start date is beginning of this month.
$startdate = mktime(0, 0, 0, $datem, 0, $dateY);
// End date is one year from now.
// Seems kind of arbitrary, eh?
$enddate = mktime(0, 0, 0, $datem, 1, $dateY + 1);
/* Pre-Load the repeated events for quicker access. */
$repeated_events = read_repeated_events($user, $startdate, $enddate, '');
/* Pre-load the non-repeating events for quicker access. */
$events = read_events($user, $startdate, $enddate);
// Loop from start date until we reach end date...
$event_text = '';
for ($d = $startdate; $d <= $enddate; $d += 86400) {
$dYmd = date('Ymd', $d);
$ev = get_entries($dYmd, $get_unapproved);
$evcnt = count($ev);
for ($i = 0; $i < $evcnt; $i++) {
$event_text .= fb_export_time($dYmd, $ev[$i]->getDuration(), $ev[$i]->getTime(), 'ical');
}
$revents = get_repeating_entries($user, $dYmd, $get_unapproved);
$recnt = count($revents);
for ($i = 0; $i < $recnt; $i++) {
$event_text .= fb_export_time($dYmd, $revents[$i]->getDuration(), $revents[$i]->getTime(), 'ical');
}
}
header('Content-Type: text/calendar');
header('Content-Disposition: attachment; filename="' . $login . '.ifb"');
echo 'BEGIN:VCALENDAR' . "\r\n" . 'X-WR-CALNAME;VALUE=TEXT:' . str_replace(',', '\\,', empty($publish_fullname) ? $user : translate($publish_fullname)) . "\r\n" . generate_prodid() . 'VERSION:2.0' . "\r\n" . 'METHOD:PUBLISH' . "\r\n" . 'BEGIN:VFREEBUSY' . "\r\n" . 'DTSTART:' . export_get_utc_date(date('Ymd', $startdate), 0) . "\r\n" . 'DTEND:' . export_get_utc_date(date('Ymd', $enddate), '235959') . "\r\n" . $event_text . 'URL:' . $GLOBALS['SERVER_URL'] . 'freebusy.php/' . $user . '.ifb' . "\r\n" . 'END:VFREEBUSY' . "\r\n" . 'END:VCALENDAR' . "\r\n";
exit;
function export_ical($id = 'all', $attachment = false)
{
global $publish_fullname, $login, $cal_type, $cat_filter, $vtimezone_data, $use_vtimezone;
$exportId = -1;
$ret = $Vret = $vtimezone_data = $use_vtimezone = '';
$res = export_get_event_entry($id, $attachment);
$entry_array = array();
$count = 0;
while ($entry = dbi_fetch_row($res)) {
$entry_array[$count++] = $entry;
}
dbi_free_result($res);
//abort if no records to output
if ($count == 0) {
return;
}
// Always output something, even if no records come back
// This prevents errors on the iCal client
$ret = "BEGIN:VCALENDAR\r\n";
$title = utf8_encode('X-WR-CALNAME;VALUE=TEXT:' . (empty($publish_fullname) ? $login : translate($publish_fullname)));
$title = str_replace(',', "\\,", $title);
$ret .= "{$title}\r\n";
$ret .= generate_prodid('ics');
$ret .= "VERSION:2.0\r\n";
$ret .= "METHOD:PUBLISH\r\n";
while (list($key, $row) = each($entry_array)) {
$id = $row[0];
$event_uid = generate_uid($id);
$name = $row[1];
$priority = $row[2];
$date = $row[3];
$time = sprintf("%06d", $row[4]);
$status = $row[5];
$create_by = $row[6];
$access = $row[7];
$duration = $row[8];
$description = $row[9];
// New columns to support tasks
$percent = empty($row[10]) ? 0 : $row[10];
$completed = empty($row[11]) ? '' : substr($row[11], 0, 8) . 'T' . sprintf("%06d", substr($row[11], 9, 6));
$due_date = $row[12];
$due_time = $row[13];
$location = $row[14];
$url = $row[15];
$cal_type = $row[16];
$moddate = $row[17];
$modtime = $row[18];
// Figure out Categories
$categories = get_categories_by_id($id, $login);
// Add entry in webcal_import_data if it does not exist.
// Even thought we're exporting, this data needs to be valid
// for proper parsing of response from iCal client.
// If this is the first event that has never been published,
// then create a new import instance to associate with what we are doing.
$sql = 'SELECT wid.cal_external_id
FROM webcal_import_data wid, webcal_entry_user weu
WHERE wid.cal_id = weu.cal_id AND wid.cal_id = ? AND
weu.cal_login = ?';
$res = dbi_execute($sql, array($id, $login));
if ($res) {
if ($row = dbi_fetch_row($res)) {
// event has been published (or imported) before
$event_uid = $row[0];
} else {
if ($exportId < 0) {
// This is first event that has not been published before.
// Create an entry in webcal_import.
// It would be nice if we could put a name in here of who
// or where the remote cal subscription is coming from in case
// they update some of our events. But, I cannot see a way to
// do that.
$exportId = create_import_instance();
}
if ($attachment == false) {
save_uid_for_event($exportId, $id, $event_uid);
}
}
dbi_free_result($res);
}
// get recurrance info
$recurrance = export_recurrence_ical($id);
if (!empty($recurrance)) {
$use_vtimezone = true;
}
/* snippet from RFC2445
The "VTIMEZONE" calendar component MUST be present if the iCalendar
object contains an RRULE that generates dates on both sides of a time
zone shift (e.g. both in Standard Time and Daylight Saving Time)
unless the iCalendar object intends to convey a floating time (See
the section "4.1.10.11 Time" for proper interpretation of floating
time). It can be present if the iCalendar object does not contain
such a RRULE. In addition, if a RRULE is present, there MUST be valid
time zone information for all recurrence instances.
However, this is not possible to implement at this time
*/
// if Categories were selected as an export filter, then abort this
// event if it does not contain that category
if (!empty($cat_filter)) {
if (count($categories) == 0 || !array_key_exists($cat_filter, $categories)) {
continue;
}
}
if ($cal_type == 'E' || $cal_type == 'M') {
$exporting_event = true;
/* Start of event */
$Vret .= "BEGIN:VEVENT\r\n";
} else {
if ($cal_type == 'T' || $cal_type == 'N') {
$exporting_event = false;
/* Start of VTODO */
$Vret .= "BEGIN:VTODO\r\n";
} else {
if ($cal_type == 'J' || $cal_type == 'O') {
$exporting_event = false;
/* Start of VJOURNAL */
$Vret .= "BEGIN:VJOURNAL\r\n";
}
}
}
/* UID of the event (folded to 76 char) */
$array = export_fold_lines("UID:{$event_uid}");
while (list($key, $value) = each($array)) {
$Vret .= "{$value}\r\n";
}
$Vret .= 'LAST-MODIFIED:' . export_get_utc_date($moddate, $modtime) . "\r\n";
$name = preg_replace("/\r/", ' ', $name);
// escape,; \ in octal ascii
$name = addcslashes($name, ",;\\");
$description = preg_replace("/\r/", ' ', $description);
$description = addcslashes($description, ",;\\");
$description = str_replace(chr(10), chr(92) . chr(110), $description);
/* SUMMARY of the event (folded to 76 char) */
$name = 'SUMMARY:' . $name;
$array = export_fold_lines($name, 'utf8');
while (list($key, $value) = each($array)) {
$Vret .= "{$value}\r\n";
}
/* DESCRIPTION if any (folded to 76 char) */
if ($description != '') {
$description = 'DESCRIPTION:' . $description;
$array = export_fold_lines($description, 'utf8');
while (list($key, $value) = each($array)) {
$Vret .= "{$value}\r\n";
}
}
/* LOCATION if any (folded to 76 char) */
if ($location != '') {
$location = 'LOCATION:' . $location;
$array = export_fold_lines($location, 'utf8');
while (list($key, $value) = each($array)) {
$Vret .= "{$value}\r\n";
}
}
/* URL if any (folded to 76 char) */
if ($url != '') {
$url = 'URL:' . $url;
$array = export_fold_lines($url, 'utf8');
while (list($key, $value) = each($array)) {
$Vret .= "{$value}\r\n";
}
}
/* CATEGORIES if any (folded to 76 char) */
if (isset($categories) && count($categories)) {
$categories = 'CATEGORIES:' . implode(',', $categories);
$array = export_fold_lines($categories, 'utf8');
while (list($key, $value) = each($array)) {
$Vret .= "{$value}\r\n";
}
}
/* CLASS either "PRIVATE", "CONFIDENTIAL", or "PUBLIC" (the default) */
if ($access == 'R') {
$Vret .= "CLASS:PRIVATE\r\n";
} else {
if ($access == 'C') {
$Vret .= "CLASS:CONFIDENTIAL\r\n";
} else {
$Vret .= "CLASS:PUBLIC\r\n";
}
}
/* STATUS */
if ($cal_type == 'E' || $cal_type == 'M') {
if ($status == 'A') {
$Vret .= "STATUS:CONFIRMED\r\n";
} else {
if ($status == 'W') {
$Vret .= "STATUS:TENTATIVE\r\n";
} else {
if ($status == 'D') {
$Vret .= "STATUS:CANCELLED\r\n";
}
}
}
} else {
if ($cal_type == 'T' || $cal_type == 'N') {
if ($status == 'A' && empty($completed)) {
$Vret .= "STATUS:IN-PROCESS\r\n";
} else {
if ($status == 'A') {
$Vret .= "STATUS:COMPLETED\r\n";
} else {
if ($status == 'W') {
$Vret .= "STATUS:NEEDS-ACTION\r\n";
} else {
if ($status == 'D') {
$Vret .= "STATUS:CANCELLED\r\n";
}
}
}
}
}
}
// ATTENDEE of the event
$attendee = export_get_attendee($id, 'ical');
$attendcnt = count($attendee);
for ($i = 0; $i < $attendcnt; $i++) {
$attendee[$i] = export_fold_lines($attendee[$i], 'utf8');
while (list($key, $value) = each($attendee[$i])) {
$Vret .= "{$value}\r\n";
}
}
/* Time - all times are utc */
$Vret .= export_time($date, $duration, $time, 'ical', $cal_type);
// VTODO specific items
$task_complete = false;
if ($cal_type == 'T' || $cal_type == 'N') {
$Vret .= 'DUE:' . $due_date . 'T' . sprintf("%06d", $due_time) . "Z\r\n";
if (!empty($completed)) {
$Vret .= 'COMPLETED:' . $completed . "\r\n";
$task_complete = true;
}
$Vret .= 'PERCENT-COMPLETE:' . $percent . "\r\n";
}
/* Recurrence */
$Vret .= $recurrance;
/* handle alarms */
$Vret .= export_alarm_ical($id, $date, $description, $task_complete);
if ($cal_type == 'E' || $cal_type == 'M') {
/* End of event */
$Vret .= "END:VEVENT\r\n";
} else {
if ($cal_type == 'T' || $cal_type == 'N') {
/* Start of VTODO */
$Vret .= "END:VTODO\r\n";
} else {
if ($cal_type == 'J' || $cal_type == 'O') {
/* Start of VJOURNAL */
$Vret .= "END:VJOURNAL\r\n";
}
}
}
}
/* VTIMEZONE Set in export_time () if needed */
$ret .= $vtimezone_data . $Vret;
$ret .= "END:VCALENDAR\r\n";
// attachment will be true if called during email creation
if (!$attachment) {
echo $ret;
} else {
return $ret;
}
}
