2001-03-17 20:39:56 +01:00
|
|
|
<?php
|
|
|
|
/**************************************************************************\
|
|
|
|
* phpGroupWare - vCalendar *
|
|
|
|
* http://www.phpgroupware.org *
|
|
|
|
* Modified by Mark Peters <skeeter@phpgroupware.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. *
|
|
|
|
\**************************************************************************/
|
|
|
|
|
|
|
|
/* $Id$ */
|
|
|
|
|
2001-05-06 02:11:12 +02:00
|
|
|
define('NONE',0);
|
2001-06-07 05:18:35 +02:00
|
|
|
define('CHAIR',1);
|
2001-05-06 02:11:12 +02:00
|
|
|
define('REQ-PARTICIPANT',2);
|
2001-06-07 05:18:35 +02:00
|
|
|
define('OPT-PARTICIPANT',3);
|
|
|
|
define('NON-PARTICIPANT',4);
|
|
|
|
|
|
|
|
define('INDIVIDUAL',1);
|
|
|
|
define('GROUP',2);
|
|
|
|
define('RESOURCE',4);
|
|
|
|
define('ROOM',8);
|
|
|
|
define('UNKNOWN',16);
|
2001-05-06 02:11:12 +02:00
|
|
|
|
2001-03-17 20:39:56 +01:00
|
|
|
class mailto
|
|
|
|
{
|
|
|
|
var $user;
|
|
|
|
var $host;
|
|
|
|
}
|
|
|
|
|
|
|
|
class attendee
|
|
|
|
{
|
|
|
|
var $cn = 'Unknown';
|
2001-06-07 05:18:35 +02:00
|
|
|
var $cutype = 1;
|
|
|
|
var $role = 2;
|
2001-03-17 20:39:56 +01:00
|
|
|
var $rsvp = False;
|
|
|
|
var $mailto;
|
|
|
|
var $sent_by;
|
2001-06-07 05:18:35 +02:00
|
|
|
var $delegated_from;
|
|
|
|
var $delegated_to;
|
|
|
|
var $member;
|
|
|
|
var $partstat;
|
2001-03-17 20:39:56 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
class organizer
|
|
|
|
{
|
2001-06-07 05:18:35 +02:00
|
|
|
var $cn;
|
|
|
|
var $cutype = 1;
|
|
|
|
var $delegated_from;
|
|
|
|
var $delegated_to;
|
|
|
|
var $member;
|
|
|
|
var $partstat;
|
2001-03-17 20:39:56 +01:00
|
|
|
var $mailto;
|
|
|
|
var $sent_by;
|
|
|
|
}
|
|
|
|
|
|
|
|
class vCalendar_time {
|
|
|
|
var $year;
|
|
|
|
var $month;
|
|
|
|
var $mday;
|
|
|
|
var $hour;
|
|
|
|
var $min;
|
|
|
|
var $sec;
|
|
|
|
var $date;
|
|
|
|
var $allday = False;
|
|
|
|
}
|
|
|
|
|
2001-05-06 02:11:12 +02:00
|
|
|
class vCalendar_event
|
2001-03-17 20:39:56 +01:00
|
|
|
{
|
|
|
|
var $prodid;
|
|
|
|
var $version;
|
|
|
|
var $method;
|
|
|
|
var $type;
|
|
|
|
var $attendee = Array();
|
|
|
|
var $organizer;
|
|
|
|
var $dtstart;
|
|
|
|
var $dtend;
|
|
|
|
var $location;
|
|
|
|
var $transp;
|
|
|
|
var $sequence;
|
|
|
|
var $uid;
|
|
|
|
var $dtstamp;
|
|
|
|
var $description;
|
|
|
|
var $summary;
|
|
|
|
var $priority;
|
|
|
|
var $class;
|
2001-05-06 02:11:12 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
class vCalendar
|
|
|
|
{
|
|
|
|
var $event;
|
|
|
|
|
|
|
|
function splitdate($value)
|
|
|
|
{
|
|
|
|
$dtime = new vCalendar_time;
|
|
|
|
$dtime->year = intval(substr($value,0,4));
|
|
|
|
$dtime->month = intval(substr($value,5,2));
|
|
|
|
$dtime->mday = intval(substr($value,7,2));
|
|
|
|
$dtime->hour = intval(substr($value,10,2));
|
|
|
|
$dtime->min = intval(substr($value,12,2));
|
|
|
|
$dtime->sec = intval(substr($value,14,2));
|
|
|
|
return $dtime;
|
|
|
|
}
|
2001-03-17 20:39:56 +01:00
|
|
|
|
2001-06-07 05:18:35 +02:00
|
|
|
function split_address($address)
|
|
|
|
{
|
|
|
|
$parts = explode('@',$address);
|
|
|
|
if(count($parts) == 2)
|
|
|
|
{
|
|
|
|
$temp_address = new mailto;
|
|
|
|
$temp_address->user = $parts[0];
|
|
|
|
$temp_address->host = $parts[1];
|
|
|
|
return $temp_address;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
return False;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
function set_var_subtype(&$event,$majortype,$subtype,$value)
|
|
|
|
{
|
|
|
|
if($value != False)
|
|
|
|
{
|
|
|
|
$event->${strtolower($majortype)}->${strtolower($subtype)} = $value;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
function unfold(&$vcal_text,$current_line)
|
|
|
|
{
|
|
|
|
$next_line = $current_line;
|
|
|
|
|
|
|
|
while(ereg("^[ \t]",substr($vcal_text[$next_line + 1],0,1)))
|
|
|
|
{
|
|
|
|
$vcal_text[$current_line] = str_replace("\r\n",'',$vcal_text[$current_line]);
|
|
|
|
$vcal_text[$current_line] .= substr($vcal_text[$next_line + 1],1);
|
|
|
|
$next_line++;
|
|
|
|
}
|
|
|
|
if($next_line != $current_line)
|
|
|
|
{
|
|
|
|
for($i=$next_line;$i>$current_line;$i--)
|
|
|
|
{
|
|
|
|
unset($vcal_text[$i]);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
function strip_quotes($str)
|
2001-03-17 20:39:56 +01:00
|
|
|
{
|
2001-06-07 05:18:35 +02:00
|
|
|
if(strpos(' '.$str.' ','"'))
|
|
|
|
{
|
|
|
|
$str = substr($str,1,strlen($str)-2);
|
|
|
|
}
|
|
|
|
return $str;
|
|
|
|
}
|
2001-05-06 02:11:12 +02:00
|
|
|
|
2001-06-07 05:18:35 +02:00
|
|
|
function strip_param($str)
|
|
|
|
{
|
|
|
|
$extra_param = explode(':',$str);
|
|
|
|
if(count($extra_param) == 1)
|
2001-03-17 20:39:56 +01:00
|
|
|
{
|
2001-06-07 05:18:35 +02:00
|
|
|
return $str;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
return $extra_param[1];
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
function read($vcal_text)
|
|
|
|
{
|
|
|
|
for($i=0;$i<count($vcal_text);$i++)
|
|
|
|
{
|
|
|
|
if(strlen($vcal_text[$i]) > 75)
|
|
|
|
{
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
unfold($vcal_text,$i);
|
|
|
|
|
|
|
|
// Example #1
|
|
|
|
//vcal_text[$i] = 'BEGIN:VCALENDAR'
|
|
|
|
|
|
|
|
// Example #2
|
|
|
|
//vcal_text[$i] = 'METHOD:REQUEST'
|
|
|
|
|
|
|
|
// Example #3
|
|
|
|
//vcal_text[$i] = 'ATTENDEE;CN="John Doe";ROLE=REQ-PARTICIPANT;RSVP=TRUE:MAILTO:john.doe@somewhere.com'
|
|
|
|
|
|
|
|
// Example #4
|
|
|
|
//vcal_text[$i] = 'ORGANIZER:MAILTO:jim.smith@elsewhere.com'
|
|
|
|
|
|
|
|
// Example #5
|
|
|
|
//vcal_text[$i] = 'DTSTART:20010302T150000Z'
|
|
|
|
|
|
|
|
// Example #6
|
|
|
|
//vcal_text[$i] = 'UID:040000008200E00074C5B7101A82E0080000000040A12C0042A2C0010000000000000000100'
|
|
|
|
//vcal_text[$i+1] = ' 000009BDFF7C7650ED5118DD700805FA71291'
|
|
|
|
|
|
|
|
// When unfolded becomes,
|
|
|
|
//vcal_text[$i] = 'UID:040000008200E00074C5B7101A82E0080000000040A12C0042A2C0010000000000000000100000009BDFF7C7650ED5118DD700805FA71291'
|
|
|
|
|
|
|
|
$colon = pos($vcal_text[$i],':');
|
|
|
|
if($colon == 0)
|
|
|
|
{
|
|
|
|
$colon = 65535;
|
|
|
|
}
|
|
|
|
|
|
|
|
$semi_colon = pos($vcal_text[$i],';');
|
|
|
|
if($semi_colon == 0)
|
|
|
|
{
|
|
|
|
$semi_colon = 65535;
|
|
|
|
}
|
|
|
|
|
|
|
|
if($colon == 65535 && $semi_colon == 65535)
|
2001-03-17 20:39:56 +01:00
|
|
|
{
|
2001-05-06 02:11:12 +02:00
|
|
|
continue;
|
|
|
|
}
|
2001-06-07 05:18:35 +02:00
|
|
|
else
|
2001-05-06 02:11:12 +02:00
|
|
|
{
|
2001-06-07 05:18:35 +02:00
|
|
|
$min_value = min($colon,$semi_colon);
|
|
|
|
$majortype = substr($vcal_text[$i],0,$min_value - 1);
|
|
|
|
$vcal_text[$i] = substr($vcal_text[$i],$min_value + 1);
|
|
|
|
$value = $vcal_text[$i];
|
|
|
|
}
|
|
|
|
|
|
|
|
switch(strtolower($majortype))
|
|
|
|
{
|
|
|
|
case 'begin':
|
|
|
|
$event = new vCalendar_event;
|
|
|
|
if($value != 'VCALENDAR')
|
2001-03-17 20:39:56 +01:00
|
|
|
{
|
2001-06-07 05:18:35 +02:00
|
|
|
$event->type = $value;
|
2001-03-17 20:39:56 +01:00
|
|
|
}
|
2001-06-07 05:18:35 +02:00
|
|
|
break;
|
|
|
|
/*
|
|
|
|
case 'attendee':
|
|
|
|
$attendee = new attendee;
|
|
|
|
$att_data = explode(';',substr($vcal_text[$i],9,strlen($vcal_text[$i])));
|
|
|
|
$c_att_data = count($att_data);
|
|
|
|
for($k=0;$k<$c_att_data;$k++)
|
2001-03-17 20:39:56 +01:00
|
|
|
{
|
2001-06-07 05:18:35 +02:00
|
|
|
if(strpos($att_data[$k],':'))
|
2001-05-06 02:11:12 +02:00
|
|
|
{
|
|
|
|
}
|
2001-06-07 05:18:35 +02:00
|
|
|
elseif(strpos($att_data[$k],'='))
|
2001-05-06 02:11:12 +02:00
|
|
|
{
|
2001-06-07 05:18:35 +02:00
|
|
|
$att_att = explode('=',$att_data[$k])
|
2001-05-06 02:11:12 +02:00
|
|
|
}
|
2001-06-07 05:18:35 +02:00
|
|
|
}
|
|
|
|
$event->attendee[] = $attendee;
|
|
|
|
unset($attendee);
|
|
|
|
break;
|
2001-05-06 02:11:12 +02:00
|
|
|
*/
|
2001-06-07 05:18:35 +02:00
|
|
|
case 'organizer':
|
|
|
|
$event->${strtolower($majortype)} = new ${strtolower($majortype)};
|
|
|
|
$param = explode(':',$value);
|
|
|
|
for($j=0;$j<count($param);$j++)
|
|
|
|
{
|
|
|
|
if(strpos($param[$j],'='))
|
2001-05-06 02:11:12 +02:00
|
|
|
{
|
2001-06-07 05:18:35 +02:00
|
|
|
$subtype = explode('=',$param[$j]);
|
|
|
|
$this->set_var_subtype($event,$majortype,$subtype[0],$this->strip_quotes($subtype[1]));
|
2001-05-06 02:11:12 +02:00
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2001-06-07 05:18:35 +02:00
|
|
|
if(strpos($param[$j],'@'))
|
|
|
|
{
|
|
|
|
$this->set_var_subtype($event,$majortype,'mailto',$this->split_address($param[$j]));
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
switch(strtolower($param[$j]))
|
|
|
|
{
|
|
|
|
case 'mailto':
|
|
|
|
$email_addy = $param[$j + 1];
|
|
|
|
$this->set_var_subtype($event,$majortype,$param[$j++],$this->split_address($email_addy));
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
$var = $this->strip_param($this->strip_quotes($param[$j + 1]));
|
|
|
|
$this->set_var_subtype($event,$majortype,$param[$j++],$var);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
2001-05-06 02:11:12 +02:00
|
|
|
}
|
2001-06-07 05:18:35 +02:00
|
|
|
}
|
|
|
|
break;
|
|
|
|
case 'end':
|
|
|
|
switch(strtolower($value))
|
|
|
|
{
|
|
|
|
case 'vevent':
|
|
|
|
$this->event[] = $event;
|
|
|
|
unset($event);
|
|
|
|
break;
|
|
|
|
case 'vcalendar':
|
|
|
|
break 2;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
case 'dtstart':
|
|
|
|
case 'dtend':
|
|
|
|
case 'dtstamp':
|
|
|
|
$event->${strtolower($majortype)} = new vCalendar_time;
|
|
|
|
$event->${strtolower($majortype)} = $this->splitdate($value);
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
$event->${strtolower($majortype)} = $value;
|
|
|
|
break;
|
|
|
|
}
|
2001-03-17 20:39:56 +01:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
?>
|