friendica-addons/cal/cal.php

201 lines
7.0 KiB
PHP
Raw Normal View History

2013-06-15 08:51:27 +00:00
<?php
/********************************************************************
* Name: Calendar Export
* Description: This addon exports the public events of your users as calendar files
* Version: 0.1
* Author: Tobias Diekershoff <https://f.diekershoff.de/profile/tobias>
* License: MIT
* Status: Unsupported
2013-06-15 08:51:27 +00:00
* ******************************************************************/
function cal_install()
{
2013-06-15 09:51:19 +00:00
register_hook('plugin_settings', 'addon/cal/cal.php', 'cal_addon_settings');
register_hook('plugin_settings_post', 'addon/cal/cal.php', 'cal_addon_settings_post');
2013-06-15 08:51:27 +00:00
}
function cal_uninstall()
{
2013-06-15 09:51:19 +00:00
unregister_hook('plugin_settings', 'addon/cal/cal.php', 'cal_addon_settings');
unregister_hook('plugin_settings_post', 'addon/cal/cal.php', 'cal_addon_settings_post');
2013-06-15 08:51:27 +00:00
}
function cal_module()
{
}
/* pathes
2013-06-16 13:24:32 +00:00
* /cal/$user/export/$format
* currently supported formats are ical (iCalendar) and CSV
2013-06-15 08:51:27 +00:00
*/
function cal_content()
{
$a = get_app();
$o = "";
if ($a->argc == 1) {
2013-06-15 19:34:56 +00:00
$o .= "<h3>".t('Event Export')."</h3><p>".t('You can download public events from: ').$a->get_baseurl()."/cal/username/export/ical</p>";
2013-06-15 08:51:27 +00:00
} elseif ($a->argc==4) {
2013-06-15 19:34:56 +00:00
// get the parameters from the request we just received
2013-06-15 08:51:27 +00:00
$username = $a->argv[1];
$do = $a->argv[2];
$format = $a->argv[3];
2013-06-15 19:34:56 +00:00
// check that there is a user matching the requested profile
$r = q("SELECT uid FROM user WHERE nickname='".$username."' LIMIT 1;");
if (count($r))
{
$uid = $r[0]['uid'];
} else {
killme();
}
// if we shall do anything other then export, end here
if (! $do == 'export' )
killme();
// check if the user allows us to share the profile
$enable = get_pconfig( $uid, 'cal', 'enable');
if (! $enable == 1) {
info(t('The user does not export the calendar.'));
return;
}
// we are allowed to show events
// get the timezone the user is in
$r = q("SELECT timezone FROM user WHERE uid=".$uid." LIMIT 1;");
if (count($r))
$timezone = $r[0]['timezone'];
// does the user who requests happen to be the owner of the events
// requested? then show all of your events, otherwise only those that
// don't have limitations set in allow_cid and allow_gid
if (local_user() == $uid) {
$r = q("SELECT `start`, `finish`, `adjust`, `summary`, `desc`, `location` FROM `event` WHERE `uid`=".$uid." and `cid`=0;");
2013-06-15 19:34:56 +00:00
} else {
$r = q("SELECT `start`, `finish`, `adjust`, `summary`, `desc`, `location` FROM `event` WHERE `allow_cid`='' and `allow_gid`='' and `uid`='".$uid."' and `cid`='0';");
2013-06-15 19:34:56 +00:00
}
// we have the events that are available for the requestor
// now format the output according to the requested format
$res = cal_format_output($r, $format, $timezone);
if (! $res=='')
info($res);
2013-06-15 08:51:27 +00:00
} else {
2013-06-15 19:34:56 +00:00
// wrong number of parameters
killme();
2013-06-15 08:51:27 +00:00
}
return $o;
}
2013-06-15 19:34:56 +00:00
function cal_format_output ($r, $f, $tz)
{
2013-06-16 13:24:32 +00:00
$res = t('This calendar format is not supported');
2013-06-15 19:34:56 +00:00
switch ($f)
{
2013-06-16 06:45:55 +00:00
// format the exported data as a CSV file
case "csv":
header("Content-type: text/csv");
$o = '"Subject", "Start Date", "Start Time", "Description", "End Date", "End Time", "Location"' . PHP_EOL;
foreach ($r as $rr) {
2013-06-16 10:15:38 +00:00
// TODO the time / date entries don't include any information about the
// timezone the event is scheduled in :-/
2013-06-16 06:45:55 +00:00
$tmp1 = strtotime($rr['start']);
$tmp2 = strtotime($rr['finish']);
$time_format = "%H:%M:%S";
2013-06-16 20:03:41 +00:00
$date_format = "%Y-%m-%d";
2013-06-16 06:45:55 +00:00
$o .= '"'.$rr['summary'].'", "'.strftime($date_format, $tmp1) .
'", "'.strftime($time_format, $tmp1).'", "'.$rr['desc'] .
'", "'.strftime($date_format, $tmp2) .
'", "'.strftime($time_format, $tmp2) .
'", "'.$rr['location'].'"' . PHP_EOL;
}
echo $o;
killme();
2013-06-15 19:34:56 +00:00
case "ical":
2013-06-16 06:45:55 +00:00
header("Content-type: text/ics");
2013-06-15 19:34:56 +00:00
$o = 'BEGIN:VCALENDAR'. PHP_EOL
. 'VERSION:2.0' . PHP_EOL
. 'PRODID:-//friendica calendar export//0.1//EN' . PHP_EOL;
2013-06-15 19:34:56 +00:00
// TODO include timezone informations in cases were the time is not in UTC
2013-06-16 13:24:32 +00:00
// see http://tools.ietf.org/html/rfc2445#section-4.8.3
2013-06-15 19:34:56 +00:00
// . 'BEGIN:VTIMEZONE' . PHP_EOL
// . 'TZID:' . $tz . PHP_EOL
// . 'END:VTIMEZONE' . PHP_EOL;
// TODO instead of PHP_EOL CRLF should be used for long entries
// but test your solution against http://icalvalid.cloudapp.net/
// also long lines SHOULD be split at 75 characters length
2013-06-15 19:34:56 +00:00
foreach ($r as $rr) {
if ($rr['adjust'] == 1) {
$UTC = 'Z';
} else {
$UTC = '';
}
$o .= 'BEGIN:VEVENT' . PHP_EOL;
if ($rr[start]) {
$tmp = strtotime($rr['start']);
$dtformat = "%Y%m%dT%H%M%S".$UTC;
$o .= 'DTSTART:'.strftime($dtformat, $tmp).PHP_EOL;
}
if ($rr['finish']) {
$tmp = strtotime($rr['finish']);
$dtformat = "%Y%m%dT%H%M%S".$UTC;
$o .= 'DTEND:'.strftime($dtformat, $tmp).PHP_EOL;
}
if ($rr['summary'])
$tmp = $rr['summary'];
$tmp = str_replace(PHP_EOL, PHP_EOL.' ',$tmp);
$tmp = addcslashes($tmp, ',;');
2013-06-15 19:34:56 +00:00
$o .= 'SUMMARY:' . $tmp . PHP_EOL;
if ($rr['desc'])
$tmp = $rr['desc'];
$tmp = str_replace(PHP_EOL, PHP_EOL.' ',$tmp);
$tmp = addcslashes($tmp, ',;');
2013-06-15 19:34:56 +00:00
$o .= 'DESCRIPTION:' . $tmp . PHP_EOL;
if ($rr['location']) {
$tmp = $rr['location'];
$tmp = str_replace(PHP_EOL, PHP_EOL.' ',$tmp);
$tmp = addcslashes($tmp, ',;');
2013-06-15 19:34:56 +00:00
$o .= 'LOCATION:' . $tmp . PHP_EOL;
}
$o .= 'END:VEVENT' . PHP_EOL;
}
$o .= 'END:VCALENDAR' . PHP_EOL;
echo $o;
killme();
}
return $res;
}
2013-06-15 09:51:19 +00:00
function cal_addon_settings_post ( &$a, &$b )
{
if (! local_user())
return;
2013-06-15 10:14:33 +00:00
if (!x($_POST,'cal-submit'))
return;
set_pconfig(local_user(),'cal','enable',intval($_POST['cal-enable']));
2013-06-15 09:51:19 +00:00
}
function cal_addon_settings ( &$a, &$s )
{
if (! local_user())
return;
2013-06-15 10:14:33 +00:00
$enabled = get_pconfig(local_user(), 'cal', 'enable');
$checked = (($enabled) ? ' checked="checked" ' : '');
$url = $a->get_baseurl().'/cal/'.$a->user['nickname'].'/export/<em>format</em>';
2013-06-15 10:14:33 +00:00
2013-12-01 10:48:16 +00:00
$s .= '<span id="settings_cal_inflated" class="settings-block fakelink" style="display: block;" onclick="openClose(\'settings_cal_expanded\'); openClose(\'settings_cal_inflated\');">';
2013-06-15 10:14:33 +00:00
$s .= '<h3>'.t('Export Events').'</h3>';
2013-12-01 10:48:16 +00:00
$s .= '</span>';
$s .= '<div id="settings_cal_expanded" class="settings-block" style="display: none;">';
$s .= '<span class="fakelink" onclick="openClose(\'settings_cal_expanded\'); openClose(\'settings_cal_inflated\');">';
$s .= '<h3>'.t('Export Events').'</h3>';
$s .= '</span>';
$s .= '<div id="cal-wrapper">';
2013-06-19 11:19:46 +00:00
$s .= '<p>'.t('If this is enabled, your public events will be available at').' <strong>'.$url.'</strong></p>';
$s .= '<p>'.t('Currently supported formats are ical and csv.').'</p>';
2013-06-15 10:14:33 +00:00
$s .= '<label id="cal-enable-label" for="cal-checkbox">'. t('Enable calendar export') .'</label>';
$s .= '<input id="cal-checkbox" type="checkbox" name="cal-enable" value="1" ' . $checked . '/>';
2013-11-19 12:43:58 +00:00
$s .= '<div class="settings-submit-wrapper" ><input type="submit" name="cal-submit" class="settings-submit" value="' . t('Save Settings') . '" /></div>';
2013-11-19 11:39:26 +00:00
$s .= '<div class="clear"></div>';
2013-12-01 10:48:16 +00:00
$s .= '</div>';
$s .= '</div>';
2013-06-15 09:51:19 +00:00
}
2013-06-15 08:51:27 +00:00
?>