Improve iCal version of xnetevents

[platal.git] / include / ical.inc.php

diff --git a/include/ical.inc.php b/include/ical.inc.php
new file mode 100644 (file)
index 0000000..7ab5896
--- /dev/null
+++ b/include/ical.inc.php
@@ -0,0 +1,42 @@
+<?php
+/***************************************************************************
+ *  Copyright (C) 2003-2006 Polytechnique.org                              *
+ *  http://opensource.polytechnique.org/                                   *
+ *                                                                         *
+ *  This program is free software; you can redistribute it and/or modify   *
+ *  it under the terms of the GNU General Public License as published by   *
+ *  the Free Software Foundation; either version 2 of the License, or      *
+ *  (at your option) any later version.                                    *
+ *                                                                         *
+ *  This program is distributed in the hope that it will be useful,        *
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of         *
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          *
+ *  GNU General Public License for more details.                           *
+ *                                                                         *
+ *  You should have received a copy of the GNU General Public License      *
+ *  along with this program; if not, write to the Free Software            *
+ *  Foundation, Inc.,                                                      *
+ *  59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                *
+ ***************************************************************************/
+
+function display_ical($param) {
+    $txt = '';
+    if (isset($param['name']))
+        $txt .= strtoupper($param['name']);
+    if (isset($param['param']))
+        $txt .= ';'.$param['param'];
+    if (isset($param['value'])) {
+        if ($txt) $txt .= ':';
+        $txt .= utf8_encode(
+                    preg_replace('/[,;:]/', '\\\\$0',
+                    preg_replace("/(\r\n|\r|\n)/", '\n', $param['value'])));
+    }
+    $length = strlen($txt);
+    $endline = "\n";
+    $maxchars = 75;
+    $folded_txt = substr($txt, 0, $maxchars);
+    for ($i = $maxchars; $i < $length; $i += $maxchars - 1)
+        $folded_txt .= $endline.' '.substr($txt, $i, $maxchars - 1);
+    return $folded_txt;
+}
+?>