Use short form array syntax everywhere
[friendica-addons.git] / dav / friendica / layout.fnk.php
1 <?php
2
3 use Friendica\Core\Config;
4 use Friendica\Core\PConfig;
5
6 /**
7  *
8  */
9 function wdcal_addRequiredHeaders()
10 {
11         $a = get_app();
12
13         $a->page['htmlhead'] .= '<link rel="stylesheet"  type="text/css" href="' . $a->get_baseurl() . '/addon/dav/jqueryui/jquery-ui-1.8.21.custom.css' . '" media="all" />' . "\r\n";
14         $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/dav/jqueryui/jquery-ui-1.8.21.custom.min.js"></script>' . "\r\n";
15
16         $a->page['htmlhead'] .= '<link rel="stylesheet"  type="text/css" href="' . $a->get_baseurl() . '/addon/dav/colorpicker/colorPicker.css' . '" media="all" />' . "\r\n";
17         $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/dav/colorpicker/jquery.colorPicker.min.js"></script>' . "\r\n";
18
19         $a->page['htmlhead'] .= '<link rel="stylesheet"  type="text/css" href="' . $a->get_baseurl() . '/addon/dav/timepicker/timePicker.css' . '" media="all" />' . "\r\n";
20         $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/dav/timepicker/jquery.timePicker.min.js"></script>' . "\r\n";
21
22         $a->page['htmlhead'] .= '<link rel="stylesheet"  type="text/css" href="' . $a->get_baseurl() . '/addon/dav/friendica/wdcal.css' . '" media="all" />' . "\r\n";
23         $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/dav/common/wdcal.js"></script>' . "\r\n";
24
25         $a->page['htmlhead'] .= '<link rel="stylesheet"  type="text/css" href="' . $a->get_baseurl() . '/addon/dav/wdcal/css/calendar.css' . '" media="all" />' . "\r\n";
26         $a->page['htmlhead'] .= '<link rel="stylesheet"  type="text/css" href="' . $a->get_baseurl() . '/addon/dav/wdcal/css/main.css' . '" media="all" />' . "\r\n";
27
28         switch (Config::get("system", "language")) {
29                 case "de":
30                         $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/dav/common/wdcal/js/wdCalendar_lang_DE.js"></script>' . "\r\n";
31                         $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/dav/jqueryui/jquery.ui.datepicker-de.js"></script>' . "\r\n";
32                         break;
33                 default:
34                         $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/dav/common/wdcal/js/wdCalendar_lang_EN.js"></script>' . "\r\n";
35         }
36
37         $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/dav/common/wdcal/js/jquery.calendar.js"></script>' . "\r\n";
38         $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/dav/common/wdcal/js/main.js"></script>' . "\r\n";
39 }
40
41
42
43 /**
44  * @param int $calendar_id
45  */
46 function wdcal_print_user_ics($calendar_id)
47 {
48         $calendar_id = IntVal($calendar_id);
49
50         $a = get_app();
51         header("Content-type: text/plain");
52
53         $str  = "BEGIN:VCALENDAR\r\nVERSION:2.0\r\nPRODID:-//Friendica//DAV-Plugin//EN\r\n";
54         $cals = q("SELECT * FROM %s%scalendars WHERE `id` = %d AND `namespace` = %d AND `namespace_id` = %d", CALDAV_SQL_DB, CALDAV_SQL_PREFIX, $calendar_id, CALDAV_NAMESPACE_PRIVATE, $a->user["uid"]);
55         if (count($cals) > 0) {
56                 $objs = q("SELECT * FROM %s%scalendarobjects WHERE `calendar_id` = %d ORDER BY `firstOccurence`", CALDAV_SQL_DB, CALDAV_SQL_PREFIX, $calendar_id);
57
58                 foreach ($objs as $obj) {
59                         preg_match("/BEGIN:VEVENT(.*)END:VEVENT/siu", $obj["calendardata"], $matches);
60                         $str2 = preg_replace("/([^\\r])\\n/siu", "\\1\r\n", $matches[0]);
61                         $str2 = preg_replace("/MAILTO:.*[^:a-z0-9_\+äöüß\\n\\n@-]+.*(:|\\r\\n[^ ])/siU", "\\1", $str2);
62                         $str .= $str2 . "\r\n";
63                 }
64         }
65         $str .= "END:VCALENDAR\r\n";
66
67         echo $str;
68         killme();
69 }
70
71
72 /**
73  * @param int $calendar_id
74  * @return string
75  */
76 function wdcal_import_user_ics($calendar_id) {
77         $a = get_app();
78         $calendar_id = IntVal($calendar_id);
79         $o = "";
80
81         $server = dav_create_server(true, true, false);
82         $calendar = dav_get_current_user_calendar_by_id($server, $calendar_id, DAV_ACL_WRITE);
83         if (!$calendar) goaway('dav/wdcal/');
84
85         if (isset($_REQUEST["save"])) {
86                 check_form_security_token_redirectOnErr('/dav/settings/', 'icsimport');
87
88                 if ($_FILES["ics_file"]["tmp_name"] != "" && is_uploaded_file($_FILES["ics_file"]["tmp_name"])) try {
89                         $text = file_get_contents($_FILES["ics_file"]["tmp_name"]);
90
91                         /** @var Sabre\VObject\Component\VCalendar $vObject  */
92                         $vObject        = Sabre\VObject\Reader::read($text);
93                         $comp = $vObject->getComponents();
94                         $imported = [];
95                         foreach ($comp as $c) try {
96                                 /** @var Sabre\VObject\Component\VEvent $c */
97                                 $uid = $c->__get("UID")->value;
98                                 if (!isset($imported[$uid])) $imported[$uid] = "";
99                                 $imported[$uid] .= $c->serialize();
100                         } catch (Exception $e) {
101                                 notice(t("Something went wrong when trying to import the file. Sorry. Maybe some events were imported anyway."));
102                         }
103
104                         if (isset($_REQUEST["overwrite"])) {
105                                 $children = $calendar->getChildren();
106                                 foreach ($children as $child) {
107                                         /** @var Sabre_CalDAV_CalendarObject $child */
108                                         $child->delete();
109                                 }
110                                 $i = 1;
111                         } else {
112                                 $i = 0;
113                                 $children = $calendar->getChildren();
114                                 foreach ($children as $child) {
115                                         /** @var Sabre_CalDAV_CalendarObject $child */
116                                         $name = $child->getName();
117                                         if (preg_match("/import\-([0-9]+)\.ics/siu", $name, $matches)) {
118                                                 if ($matches[1] > $i) $i = $matches[1];
119                                         };
120                                 }
121                                 $i++;
122                         }
123
124                         foreach ($imported as $object) try {
125
126                                 $str = "BEGIN:VCALENDAR\r\nVERSION:2.0\r\nPRODID:-//Friendica//DAV-Plugin//EN\r\n";
127                                 $str .= trim($object);
128                                 $str .= "\r\nEND:VCALENDAR\r\n";
129
130                                 $calendar->createFile("import-" . $i . ".ics", $str);
131                                 $i++;
132                         } catch (Exception $e) {
133                                 notice(t("Something went wrong when trying to import the file. Sorry."));
134                         }
135
136                         $o = t("The ICS-File has been imported.");
137                 } catch (Exception $e) {
138                         notice(t("Something went wrong when trying to import the file. Sorry. Maybe some events were imported anyway."));
139                 } else {
140                         notice(t("No file was uploaded."));
141                 }
142         }
143
144
145         $o .= "<a href='" . $a->get_baseurl() . "/dav/wdcal/'>" . t("Go back to the calendar") . "</a><br><br>";
146
147         $num = q("SELECT COUNT(*) num FROM %s%scalendarobjects WHERE `calendar_id` = %d", CALDAV_SQL_DB, CALDAV_SQL_PREFIX, $calendar_id);
148
149         $o .= "<h2>" . t("Import a ICS-file") . "</h2>";
150         $o .= '<form method="POST" action="' . $a->get_baseurl() . '/dav/wdcal/' . $calendar_id . '/ics-import/" enctype="multipart/form-data">';
151         $o .= "<input type='hidden' name='form_security_token' value='" . get_form_security_token('icsimport') . "'>\n";
152         $o .= "<label for='ics_file'>" . t("ICS-File") . "</label><input type='file' name='ics_file' id='ics_file'><br>\n";
153         if ($num[0]["num"] > 0) $o .= "<label for='overwrite'>" . str_replace("#num#", $num[0]["num"], t("Overwrite all #num# existing events")) . "</label> <input name='overwrite' id='overwrite' type='checkbox'><br>\n";
154         $o .= "<input type='submit' name='save' value='" . t("Upload") . "'>";
155         $o .= '</form>';
156
157         return $o;
158 }
159
160
161 /**
162  * @param array|Sabre_CalDAV_Calendar[] $calendars
163  * @param array|int[] $calendars_selected
164  * @param string $data_feed_url
165  * @param string $view
166  * @param int $theme
167  * @param int $height_diff
168  * @param bool $readonly
169  * @param string $curr_day
170  * @param array $add_params
171  * @param bool $show_nav
172  * @return string
173  */
174 function wdcal_printCalendar($calendars, $calendars_selected, $data_feed_url, $view = "week", $theme = 0, $height_diff = 175, $readonly = false, $curr_day = "", $add_params = [], $show_nav = true)
175 {
176
177         $a            = get_app();
178         $localization = wdcal_local::getInstanceByUser($a->user["uid"]);
179
180         if (count($calendars_selected) == 0) foreach ($calendars as $c) {
181                 $prop                 = $c->getProperties(["id"]);
182                 $calendars_selected[] = $prop["id"];
183         }
184
185         $opts = [
186                 "view"             => $view,
187                 "theme"            => $theme,
188                 "readonly"         => $readonly,
189                 "height_diff"      => $height_diff,
190                 "weekstartday"     => $localization->getFirstDayOfWeek(),
191                 "data_feed_url"    => $data_feed_url,
192                 "date_format_dm1"  => $localization->dateformat_js_dm1(),
193                 "date_format_dm2"  => $localization->dateformat_js_dm2(),
194                 "date_format_dm3"  => $localization->dateformat_js_dm3(),
195                 "date_format_full" => $localization->dateformat_datepicker_js(),
196                 "baseurl"          => $a->get_baseurl() . "/dav/wdcal/",
197         ];
198
199         $x = '
200 <script>
201         $(function() {
202                 $("#animexxcalendar").animexxCalendar(' . json_encode($opts) . ');
203         });
204 </script>
205
206 <div id="animexxcalendar" class="animexxcalendar">
207         <div class="calselect"><strong>Available Calendars:</strong>';
208
209         foreach ($calendars as $cal) {
210                 $cal_id = $cal->getProperties(["id", DAV_DISPLAYNAME]);
211                 $x .= '<label style="margin-left: 10px; margin-right: 10px;"><input type="checkbox" name="cals[]" value="' . $cal_id["id"] . '"';
212                 $found = false;
213                 foreach ($calendars_selected as $pre) if ($pre["id"] == $cal_id["id"]) $found = true;
214                 if ($found) $x .= ' checked';
215                 $x .= '> ' . escape_tags($cal_id[DAV_DISPLAYNAME]) . '</label> ';
216         }
217
218         $x .= '</div>
219         <div class="calhead" style="padding-left:1px;padding-right:1px;">
220                 <div class="ptogtitle loaderror" style="display: none;">Sorry, could not load your data, please try again later</div>
221         </div>';
222
223         if ($show_nav) {
224
225                 $x .= '<div class="ctoolbar">
226                 <div class="fbutton faddbtn" style="float: right;">
227                         <div><a href="' . $a->get_baseurl() . '/dav/settings/"><span>' . t("Settings") . ' / ' . t("Help") . '</span></a></div>
228                 </div>
229                 <div class="fbutton addcal">
230                         <div><a href="' . $a->get_baseurl() . '/dav/wdcal/new/" class="addcal">' . t("New event") . '</a></div>
231                 </div>
232                 <div class="btnseparator"></div>
233                 <div class="fbutton showtodaybtn">
234                         <div><span class="showtoday">' . t("Today") . '</span></div>
235                 </div>
236                 <div class="btnseparator"></div>
237
238                 <div class="fbutton showdaybtn">
239                         <div><span title="Day" class="showdayview ';
240
241                 if ($view == "day") $x .= 'fcurrent';
242
243                 $x .= '">' . t("Day") . '</span></div>
244                 </div>
245                 <div class="fbutton showweekbtn ';
246
247                 if ($view == "week") $x .= "fcurrent";
248
249                 $x .= '">
250                         <div><span title="Week" class="showweekview">' . t("Week") . '</span></div>
251                 </div>
252                 <div class="showmonthbtn fbutton ';
253
254                 if ($view == "month") $x .= 'fcurrent';
255
256                 $x .= '">
257                         <div><span title="Month" class="showmonthview">' . t("Month") . '</span></div>
258
259                 </div>
260                 <div class="btnseparator"></div>
261                 <div class="fbutton showreflashbtn">
262                         <div><span class="showdayflash">' . t("Reload") . '</span></div>
263                 </div>
264                 <div class="btnseparator"></div>
265                 <div title="' . t("Previous") . '"  class="fbutton sfprevbtn">
266                         <span class="fprev"></span>
267                 </div>
268                 <div title="' . t("Next") . '" class="fbutton sfnextbtn">
269                         <span class="fnext"></span>
270                 </div>
271                 <div class="fshowdatep fbutton" style="white-space: nowrap; position: relative;">
272                         <input name="txtshow" class="hdtxtshow" style="position: absolute; bottom: 0; left: 0; width: 0; height: 0; border: 0; padding: 0; margin: 0;">
273                         <span class="txtdatetimeshow">' . t("Date") . '</span>
274                 </div>
275                 <div style="float: right;">
276                         <div class="clear"></div>
277                 </div>
278         </div>';
279         }
280         $x .= '
281         <div style="padding:1px;">
282                 <div class="calmain printborder">
283                         <div class="gridcontainer" style="overflow-y: visible;"></div>
284                 </div>
285         </div>
286 </div>';
287
288         return $x;
289 }
290
291
292 /**
293  * @param int $calendar_id
294  * @param int $calendarobject_id
295  * @return string
296  */
297 function wdcal_getDetailPage($calendar_id, $calendarobject_id)
298 {
299         $a = get_app();
300
301         try {
302                 $details = null;
303                 $server  = dav_create_server(true, true, false);
304                 $cal     = dav_get_current_user_calendar_by_id($server, $calendar_id, DAV_ACL_READ);
305                 $obj     = Sabre_CalDAV_Backend_Common::loadCalendarobjectById($calendarobject_id);
306                 dav_get_current_user_calendarobject($server, $cal, $obj["uri"], DAV_ACL_READ); // Check permissions
307
308                 $calbackend = wdcal_calendar_factory_by_id($calendar_id);
309                 $redirect   = $calbackend->getItemDetailRedirect($calendar_id, $calendarobject_id);
310
311                 if ($redirect !== null) goaway($redirect);
312
313                 $details = $obj;
314         } catch (Exception $e) {
315                 info(t("Error") . ": " . $e);
316                 goaway('dav/wdcal/');
317         }
318
319         return print_r($details, true);
320 }
321
322
323 /**
324  * @param int $calendar_id
325  * @param int $uri
326  * @return string
327  */
328 function wdcal_getEditPage($calendar_id, $uri)
329 {
330         $a            = get_app();
331         $localization = wdcal_local::getInstanceByUser($a->user["uid"]);
332
333         return wdcal_getEditPage_str($localization, $a->get_baseurl(), $calendar_id, $uri);
334 }
335
336 /**
337  * @return string
338  */
339 function wdcal_getNewPage()
340 {
341         $a            = get_app();
342         $localization = wdcal_local::getInstanceByUser($a->user["uid"]);
343
344         return wdcal_getEditPage_str($localization, $a->get_baseurl(), 0, 0);
345 }
346
347
348 /**
349  * @param App $a
350  * @return string
351  */
352 function wdcal_getSettingsPage(&$a)
353 {
354
355         if (!local_user()) {
356                 notice(t('Permission denied.') . EOL);
357                 return '';
358         }
359
360         if (isset($_REQUEST["save"])) {
361                 check_form_security_token_redirectOnErr('/dav/settings/', 'calprop');
362                 PConfig::set($a->user["uid"], "dav", "dateformat", $_REQUEST["wdcal_date_format"]);
363                 info(t('The new values have been saved.'));
364         }
365
366         if (isset($_REQUEST["save_cals"])) {
367                 check_form_security_token_redirectOnErr('/dav/settings/', 'calprop');
368
369                 $r = q("SELECT * FROM %s%scalendars WHERE `namespace` = " . CALDAV_NAMESPACE_PRIVATE . " AND `namespace_id` = %d", CALDAV_SQL_DB, CALDAV_SQL_PREFIX, IntVal($a->user["uid"]));
370                 foreach ($r as $cal) {
371                         $backend = wdcal_calendar_factory($cal["namespace"], $cal["namespace_id"], $cal["uri"], $cal);
372                         $change_sql = "";
373                         $col = substr($_REQUEST["color"][$cal["id"]], 1);
374                         if (strtolower($col) != strtolower($cal["calendarcolor"])) $change_sql .= ", `calendarcolor` = '" . dbesc($col) . "'";
375                         if (!is_subclass_of($backend, "Sabre_CalDAV_Backend_Virtual")) {
376                                 if ($_REQUEST["uri"][$cal["id"]] != $cal["uri"]) $change_sql .= ", `uri` = '" . dbesc($_REQUEST["uri"][$cal["id"]]) . "'";
377                                 if ($_REQUEST["name"][$cal["id"]] != $cal["displayname"]) $change_sql .= ", `displayname` = '" . dbesc($_REQUEST["name"][$cal["id"]]) . "'";
378                         }
379                         if ($change_sql != "") {
380                                 q("UPDATE %s%scalendars SET `ctag` = `ctag` + 1 $change_sql WHERE `id` = %d AND `namespace_id` = %d AND `namespace_id` = %d",
381                                         CALDAV_SQL_DB, CALDAV_SQL_PREFIX, $cal["id"], CALDAV_NAMESPACE_PRIVATE, IntVal($a->user["uid"]));
382                                 info(t('The calendar has been updated.'));
383                         }
384                 }
385
386                 if (isset($_REQUEST["uri"]["new"]) && $_REQUEST["uri"]["new"] != "" && $_REQUEST["name"]["new"] && $_REQUEST["name"]["new"] != "") {
387                         $order = q("SELECT MAX(`calendarorder`) ord FROM %s%scalendars WHERE `namespace_id` = %d AND `namespace_id` = %d",
388                                 CALDAV_SQL_DB, CALDAV_SQL_PREFIX, CALDAV_NAMESPACE_PRIVATE, IntVal($a->user["uid"]));
389                         $neworder = $order[0]["ord"] + 1;
390                         q("INSERT INTO %s%scalendars (`namespace`, `namespace_id`, `calendarorder`, `calendarcolor`, `displayname`, `timezone`, `uri`, `has_vevent`, `ctag`)
391                                 VALUES (%d, %d, %d, '%s', '%s', '%s', '%s', 1, 1)",
392                                 CALDAV_SQL_DB, CALDAV_SQL_PREFIX, CALDAV_NAMESPACE_PRIVATE, IntVal($a->user["uid"]), $neworder, dbesc(strtolower(substr($_REQUEST["color"]["new"], 1))),
393                                 dbesc($_REQUEST["name"]["new"]), dbesc($a->timezone), dbesc($_REQUEST["uri"]["new"])
394                         );
395                         info(t('The new calendar has been created.'));
396                 }
397         }
398
399         if (isset($_REQUEST["remove_cal"])) {
400                 check_form_security_token_redirectOnErr('/dav/settings/', 'del_cal', 't');
401
402                 $c = q("SELECT * FROM %s%scalendars WHERE `id` = %d AND `namespace_id` = %d AND `namespace_id` = %d",
403                         CALDAV_SQL_DB, CALDAV_SQL_PREFIX, IntVal($_REQUEST["remove_cal"]), CALDAV_NAMESPACE_PRIVATE, IntVal($a->user["uid"]));
404                 if (count($c) != 1) killme();
405
406                 $calobjs = q("SELECT `id` FROM %s%scalendarobjects WHERE `calendar_id` = %d", CALDAV_SQL_DB, CALDAV_SQL_PREFIX, IntVal($_REQUEST["remove_cal"]));
407
408                 $newcal = q("SELECT * FROM %s%scalendars WHERE `id` != %d AND `namespace_id` = %d AND `namespace_id` = %d ORDER BY `calendarcolor` LIMIT 0,1",
409                         CALDAV_SQL_DB, CALDAV_SQL_PREFIX, IntVal($_REQUEST["remove_cal"]), CALDAV_NAMESPACE_PRIVATE, IntVal($a->user["uid"]));
410                 if (count($newcal) != 1) killme();
411
412                 q("UPDATE %s%scalendarobjects SET `calendar_id` = %d WHERE `calendar_id` = %d", CALDAV_SQL_DB, CALDAV_SQL_PREFIX, IntVal($newcal[0]["id"]), IntVal($c[0]["id"]));
413
414                 foreach ($calobjs as $calobj) renderCalDavEntry_calobj_id($calobj["id"]);
415
416                 q("DELETE FROM %s%scalendars WHERE `id` = %s", CALDAV_SQL_DB, CALDAV_SQL_PREFIX, IntVal($_REQUEST["remove_cal"]));
417                 q("UPDATE %s%scalendars SET `ctag` = `ctag` + 1 WHERE `id` = " . CALDAV_SQL_DB, CALDAV_SQL_PREFIX, $newcal[0]["id"]);
418
419                 info(t('The calendar has been deleted.'));
420         }
421
422         $o = "";
423
424         $o .= "<a href='" . $a->get_baseurl() . "/dav/wdcal/'>" . t("Go back to the calendar") . "</a><br><br>";
425
426         $o .= '<h3>' . t('Calendar Settings') . '</h3>';
427
428         $current_format = wdcal_local::getInstanceByUser($a->user["uid"]);
429         $o .= '<form method="POST" action="' . $a->get_baseurl() . '/dav/settings/">';
430         $o .= "<input type='hidden' name='form_security_token' value='" . get_form_security_token('calprop') . "'>\n";
431
432         $o .= '<label for="wdcal_date_format">' . t('Date format') . ':</label><select name="wdcal_date_format" id="wdcal_date_format" size="1">';
433         $classes = wdcal_local::getInstanceClasses();
434         foreach ($classes as $c) {
435                 $o .= '<option value="' . $c::getID() . '" ';
436                 if ($c::getID() == $current_format::getID()) $o .= 'selected';
437                 $o .= '>' . escape_tags($c::getName()) . '</option>';
438         }
439         $o .= '</select><br>';
440
441         $o .= '<label for="wdcal_time_zone">' . t('Time zone') . ':</label><input id="wdcal_time_zone" value="' . $a->timezone . '" disabled><br>';
442
443         $o .= '<input type="submit" name="save" value="' . t('Save') . '">';
444         $o .= '</form>';
445
446
447         $o .= '<br><br><h3>' . t('Calendars') . '</h3>';
448         $o .= '<form method="POST" action="' . $a->get_baseurl() . '/dav/settings/">';
449         $o .= "<input type='hidden' name='form_security_token' value='" . get_form_security_token('calprop') . "'>\n";
450         $o .= "<table><tr><th>Type</th><th>Color</th><th>Name</th><th>URI (for CalDAV)</th><th>ICS</th></tr>";
451
452         $r = q("SELECT * FROM %s%scalendars WHERE `namespace` = " . CALDAV_NAMESPACE_PRIVATE . " AND `namespace_id` = %d", CALDAV_SQL_DB, CALDAV_SQL_PREFIX, IntVal($a->user["uid"]));
453         $private_max = 0;
454         $num_non_virtual = 0;
455         foreach ($r as $x) {
456                 $backend = wdcal_calendar_factory($x["namespace"], $x["namespace_id"], $x["uri"], $x);
457                 if (!is_subclass_of($backend, "Sabre_CalDAV_Backend_Virtual")) $num_non_virtual++;
458         }
459         foreach ($r as $x) {
460                 $p = explode("private-", $x["uri"]);
461                 if (count($p) == 2 && $p[1] > $private_max) $private_max = $p[1];
462
463                 $backend = wdcal_calendar_factory($x["namespace"], $x["namespace_id"], $x["uri"], $x);
464                 $disabled = (is_subclass_of($backend, "Sabre_CalDAV_Backend_Virtual") ? "disabled" : "");
465                 $o .= "<tr>";
466                 $o .= "<td style='padding: 2px;'>" . escape_tags($backend->getBackendTypeName()) . "</td>";
467                 $o .= "<td style='padding: 2px; text-align: center;'><input style='margin-left: 10px; width: 70px;' class='cal_color' name='color[" . $x["id"] . "]' id='cal_color_" . $x["id"] . "' value='#" . (strlen($x["calendarcolor"]) != 6 ? "5858ff" : escape_tags($x["calendarcolor"])) . "'></td>";
468                 $o .= "<td style='padding: 2px;'><input style='margin-left: 10px;' name='name[" . $x["id"] . "]' value='" . escape_tags($x["displayname"]) . "' $disabled></td>";
469                 $o .= "<td style='padding: 2px;'><input style='margin-left: 10px; width: 150px;' name='uri[" . $x["id"] . "]' value='" . escape_tags($x["uri"]) . "' $disabled></td>";
470                 $o .= "<td style='padding: 2px;'><a href='" . $a->get_baseurl() . "/dav/wdcal/" . $x["id"] . "/ics-export/'>Export</a>";
471                 if (!is_subclass_of($backend, "Sabre_CalDAV_Backend_Virtual") && $num_non_virtual > 1) $o .= " / <a href='" . $a->get_baseurl() . "/dav/wdcal/" . $x["id"] . "/ics-import/'>Import</a>";
472                 $o .= "</td>";
473                 $o .= "<td style='padding: 2px; padding-left: 50px;'>";
474                 if (!is_subclass_of($backend, "Sabre_CalDAV_Backend_Virtual") && $num_non_virtual > 1) $o .= "<a href='" . $a->get_baseurl() . "/dav/settings/?remove_cal=" . $x["id"] . "&amp;t=" . get_form_security_token("del_cal") . "' class='delete_cal'>Delete</a>";
475                 $o .= "</td>\n";
476                 $o .= "</tr>\n";
477         }
478
479         $private_max++;
480         $o .= "<tr class='cal_add_row' style='display: none;'>";
481         $o .= "<td style='padding: 2px;'>" . escape_tags(Sabre_CalDAV_Backend_Private::getBackendTypeName()) . "</td>";
482         $o .= "<td style='padding: 2px; text-align: center;'><input style='margin-left: 10px; width: 70px;' class='cal_color' name='color[new]' id='cal_color_new' value='#5858ff'></td>";
483         $o .= "<td style='padding: 2px;'><input style='margin-left: 10px;' name='name[new]' value='Another calendar'></td>";
484         $o .= "<td style='padding: 2px;'><input style='margin-left: 10px; width: 150px;' name='uri[new]' value='private-${private_max}'></td>";
485         $o .= "<td></td><td></td>";
486         $o .= "</tr>\n";
487
488         $o .= "</table>";
489         $o .= "<div style='text-align: center;'>[<a href='#' class='calendar_add_caller'>" . t("Create a new calendar") . "</a>]</div>";
490         $o .= '<input type="submit" name="save_cals" value="' . t('Save') . '">';
491         $o .= '</form>';
492         $baseurl = $a->get_baseurl();
493         $o .= "<script>\$(function() {
494                 wdcal_edit_calendars_start('" . $current_format->dateformat_datepicker_js() . "', '${baseurl}/dav/');
495         });</script>";
496
497
498         $o .= "<br><h3>" . t("Limitations") . "</h3>";
499
500         $o .= "- The native friendica events are embedded as read-only, half-transparent in the calendar.<br>";
501
502         $o .= "<br><h3>" . t("Warning") . "</h3>";
503
504         $o .= "This plugin still is in a very early stage of development. Expect major bugs!<br>";
505
506         $o .= "<br><h3>" . t("Synchronization (iPhone, Thunderbird Lightning, Android, ...)") . "</h3>";
507
508         $o .= 'This plugin enables synchronization of your dates and contacts with CalDAV- and CardDAV-enabled programs or devices.<br>
509                 As an example, the instructions how to set up two-way synchronization with an iPhone/iPodTouch are provided below.<br>
510                 Unfortunately, Android does not have native support for CalDAV or CardDAV, so an app has to be installed.<br>
511                 On desktops, the Lightning-extension to Mozilla Thunderbird should be able to use this plugin as a backend.<br><br>';
512
513         $o .= '<h4>' . t('Synchronizing this calendar with the iPhone') . '</h4>';
514
515         $o .= "<ul>
516         <li>Go to the settings</li>
517         <li>Mail, contacts, settings</li>
518         <li>Add a new account</li>
519         <li>Other...</li>
520         <li>Calendar -> CalDAV-Account</li>
521         <li><b>Server:</b> " . $a->get_baseurl() . "/dav/ / <b>Username/Password:</b> <em>the same as your friendica-login</em></li>
522         </ul>";
523
524         $o .= '<h4>' . t('Synchronizing your Friendica-Contacts with the iPhone') . '</h4>';
525
526         $o .= "<ul>
527         <li>Go to the settings</li>
528         <li>Mail, contacts, settings</li>
529         <li>Add a new account</li>
530         <li>Other...</li>
531         <li>Contacts -> CardDAV-Account</li>
532         <li><b>Server:</b> " . $a->get_baseurl() . "/dav/ / <b>Username/Password:</b> <em>the same as your friendica-login</em></li>
533         </ul>";
534
535         return $o;
536 }
537