include/ical.inc.php

   1 <?php
   2 /***************************************************************************
   3  *  Copyright (C) 2003-2014 Polytechnique.org                              *
   4  *  http://opensource.polytechnique.org/                                   *
   5  *                                                                         *
   6  *  This program is free software; you can redistribute it and/or modify   *
   7  *  it under the terms of the GNU General Public License as published by   *
   8  *  the Free Software Foundation; either version 2 of the License, or      *
   9  *  (at your option) any later version.                                    *
  10  *                                                                         *
  11  *  This program is distributed in the hope that it will be useful,        *
  12  *  but WITHOUT ANY WARRANTY; without even the implied warranty of         *
  13  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          *
  14  *  GNU General Public License for more details.                           *
  15  *                                                                         *
  16  *  You should have received a copy of the GNU General Public License      *
  17  *  along with this program; if not, write to the Free Software            *
  18  *  Foundation, Inc.,                                                      *
  19  *  59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                *
  20  ***************************************************************************/
  21
  22 function display_ical($param) {
  23     $txt = '';
  24     if (isset($param['name']))
  25         $txt .= strtoupper($param['name']);
  26     if (isset($param['param']))
  27         $txt .= ';'.$param['param'];
  28     if (isset($param['value'])) {
  29         if ($txt) $txt .= ':';
  30         $txt .= preg_replace('/[,;:]/', '\\\\$0', preg_replace("/(\r\n|\r|\n)/", '\n', $param['value']));
  31     }
  32     $length = strlen($txt);
  33     $endline = "\n";
  34     $maxchars = 75;
  35     $folded_txt = substr($txt, 0, $maxchars);
  36     for ($i = $maxchars; $i < $length; $i += $maxchars - 1)
  37         $folded_txt .= $endline.' '.substr($txt, $i, $maxchars - 1);
  38     return $folded_txt;
  39 }
  40 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker fenc=utf-8:
  41 ?>