/**
* parse iCal text/file into VCalendar, components, properties and parameters
*
* @author Kjell-Inge Gustafsson, kigkonsult <*****@*****.**>
* @since 2.16.2 - 2012-12-18
* @param mixed $unparsedtext, optional, strict rfc2445 formatted, single property string or array of property strings
* @return bool FALSE if error occurs during parsing
*
*/
function parse($unparsedtext = FALSE)
{
$nl = $this->getConfig('nl');
if (FALSE === $unparsedtext || empty($unparsedtext)) {
/* directory+filename is set previously via setConfig directory+filename or url */
if (FALSE === ($filename = $this->getConfig('url'))) {
$filename = $this->getConfig('dirfile');
}
/* READ FILE */
if (FALSE === ($rows = file_get_contents($filename))) {
return FALSE;
}
/* err 1 */
} elseif (is_array($unparsedtext)) {
$rows = implode('\\n' . $nl, $unparsedtext);
} else {
$rows =& $unparsedtext;
}
/* fix line folding */
$rows = explode($nl, ICalUtilityFunctions::convEolChar($rows, $nl));
/* skip leading (empty/invalid) lines */
foreach ($rows as $lix => $line) {
if (FALSE !== stripos($line, 'BEGIN:VCALENDAR')) {
break;
}
unset($rows[$lix]);
}
$rcnt = count($rows);
if (3 > $rcnt) {
/* err 10 */
return FALSE;
}
/* skip trailing empty lines and ensure an end row */
$lix = array_keys($rows);
$lix = end($lix);
while (3 < $lix) {
$tst = trim($rows[$lix]);
if ('\\n' == $tst || empty($tst)) {
unset($rows[$lix]);
$lix--;
continue;
}
if (FALSE === stripos($rows[$lix], 'END:VCALENDAR')) {
$rows[] = 'END:VCALENDAR';
}
break;
}
$comp =& $this;
$calsync = $compsync = 0;
/* identify components and update unparsed data within component */
$config = $this->getConfig();
$endtxt = array('END:VE', 'END:VF', 'END:VJ', 'END:VT');
foreach ($rows as $lix => $line) {
if ('BEGIN:VCALENDAR' == strtoupper(substr($line, 0, 15))) {
$calsync++;
continue;
} elseif ('END:VCALENDAR' == strtoupper(substr($line, 0, 13))) {
if (0 < $compsync) {
$this->components[] = $comp->copy();
}
$compsync--;
$calsync--;
break;
} elseif (1 != $calsync) {
return FALSE;
} elseif (in_array(strtoupper(substr($line, 0, 6)), $endtxt)) {
$this->components[] = $comp->copy();
$compsync--;
continue;
}
if ('BEGIN:VEVENT' == strtoupper(substr($line, 0, 12))) {
$comp = new VEvent($config);
$compsync++;
} elseif ('BEGIN:VFREEBUSY' == strtoupper(substr($line, 0, 15))) {
$comp = new VFreeBusy($config);
$compsync++;
} elseif ('BEGIN:VJOURNAL' == strtoupper(substr($line, 0, 14))) {
$comp = new VJournal($config);
$compsync++;
} elseif ('BEGIN:VTODO' == strtoupper(substr($line, 0, 11))) {
$comp = new VTodo($config);
$compsync++;
} elseif ('BEGIN:VTIMEZONE' == strtoupper(substr($line, 0, 15))) {
$comp = new VTimeZone($config);
$compsync++;
} else {
/* update component with unparsed data */
$comp->unparsed[] = $line;
}
}
// end foreach( $rows as $line )
unset($config, $endtxt);
/* parse data for calendar (this) object */
if (isset($this->unparsed) && is_array($this->unparsed) && 0 < count($this->unparsed)) {
/* concatenate property values spread over several lines */
$propnames = array('calscale', 'method', 'prodid', 'version', 'x-');
$proprows = array();
for ($i = 0; $i < count($this->unparsed); $i++) {
// concatenate lines
$line = rtrim($this->unparsed[$i], $nl);
while (isset($this->unparsed[$i + 1]) && !empty($this->unparsed[$i + 1]) && ' ' == $this->unparsed[$i + 1][0]) {
$line .= rtrim(substr($this->unparsed[++$i], 1), $nl);
}
$proprows[] = $line;
}
$paramMStz = array('utc-', 'utc+', 'gmt-', 'gmt+');
$paramProto3 = array('fax:', 'cid:', 'sms:', 'tel:', 'urn:');
$paramProto4 = array('crid:', 'news:', 'pres:');
foreach ($proprows as $line) {
if ('\\n' == substr($line, -2)) {
$line = substr($line, 0, -2);
}
/* get property name */
$propname = '';
$cix = 0;
while (FALSE !== ($char = substr($line, $cix, 1))) {
if (in_array($char, array(':', ';'))) {
break;
} else {
$propname .= $char;
}
$cix++;
}
/* skip non standard property names */
if ('x-' != strtolower(substr($propname, 0, 2)) && !in_array(strtolower($propname), $propnames)) {
continue;
}
/* ignore version/prodid properties */
if (in_array(strtolower($propname), array('version', 'prodid'))) {
continue;
}
/* rest of the line is opt.params and value */
$line = substr($line, $cix);
/* separate attributes from value */
$attr = array();
$attrix = -1;
$strlen = strlen($line);
$WithinQuotes = FALSE;
$cix = 0;
while (FALSE !== substr($line, $cix, 1)) {
if (':' == $line[$cix] && substr($line, $cix, 3) != '://' && !in_array(strtolower(substr($line, $cix - 6, 4)), $paramMStz) && !in_array(strtolower(substr($line, $cix - 3, 4)), $paramProto3) && !in_array(strtolower(substr($line, $cix - 4, 5)), $paramProto4) && strtolower(substr($line, $cix - 6, 7)) != 'mailto:' && !$WithinQuotes) {
$attrEnd = TRUE;
if ($cix < $strlen - 4 && ctype_digit(substr($line, $cix + 1, 4))) {
// an URI with a (4pos) portnr??
for ($c2ix = $cix; 3 < $c2ix; $c2ix--) {
if ('://' == substr($line, $c2ix - 2, 3)) {
$attrEnd = FALSE;
break;
// an URI with a portnr!!
}
}
}
if ($attrEnd) {
$line = substr($line, $cix + 1);
break;
}
}
if ('"' == $line[$cix]) {
$WithinQuotes = FALSE === $WithinQuotes ? TRUE : FALSE;
}
if (';' == $line[$cix]) {
$attr[++$attrix] = null;
} else {
$attr[$attrix] .= $line[$cix];
}
$cix++;
}
/* make attributes in array format */
$propattr = array();
foreach ($attr as $attribute) {
$attrsplit = explode('=', $attribute, 2);
if (1 < count($attrsplit)) {
$propattr[$attrsplit[0]] = $attrsplit[1];
} else {
$propattr[] = $attribute;
}
}
/* update Property */
if (FALSE !== strpos($line, ',')) {
$content = array(0 => '');
$cix = $lix = 0;
while (FALSE !== substr($line, $lix, 1)) {
if (0 < $lix && ',' == $line[$lix] && "\\" != $line[$lix - 1]) {
$cix++;
$content[$cix] = '';
} else {
$content[$cix] .= $line[$lix];
}
$lix++;
}
if (1 < count($content)) {
foreach ($content as $cix => $contentPart) {
$content[$cix] = ICalUtilityFunctions::_strunrep($contentPart);
}
$this->setProperty($propname, $content, $propattr);
continue;
} else {
$line = reset($content);
}
$line = ICalUtilityFunctions::_strunrep($line);
}
$this->setProperty($propname, rtrim($line, ".. "), $propattr);
}
// end - foreach( $this->unparsed.. .
}
// end - if( is_array( $this->unparsed.. .
unset($unparsedtext, $rows, $this->unparsed, $proprows);
/* parse Components */
if (is_array($this->components) && 0 < count($this->components)) {
$ckeys = array_keys($this->components);
foreach ($ckeys as $ckey) {
if (!empty($this->components[$ckey]) && !empty($this->components[$ckey]->unparsed)) {
$this->components[$ckey]->parse();
}
}
} else {
return FALSE;
}
/* err 91 or something.. . */
return TRUE;
}
/**
* parse component unparsed data into properties
*
* @author Kjell-Inge Gustafsson, kigkonsult <*****@*****.**>
* @since 2.16.2 - 2012-12-18
* @param mixed $unparsedtext, optional, strict rfc2445 formatted, single property string or array of strings
* @return bool FALSE if error occurs during parsing
*
*/
function parse($unparsedtext = null)
{
$nl = $this->getConfig('nl');
if (!empty($unparsedtext)) {
if (is_array($unparsedtext)) {
$unparsedtext = implode('\\n' . $nl, $unparsedtext);
}
$unparsedtext = explode($nl, ICalUtilityFunctions::convEolChar($unparsedtext, $nl));
} elseif (!isset($this->unparsed)) {
$unparsedtext = array();
} else {
$unparsedtext = $this->unparsed;
}
/* skip leading (empty/invalid) lines */
foreach ($unparsedtext as $lix => $line) {
$tst = trim($line);
if ('\\n' == $tst || empty($tst)) {
unset($unparsedtext[$lix]);
} else {
break;
}
}
$this->unparsed = array();
$comp =& $this;
$config = $this->getConfig();
$compsync = $subsync = 0;
foreach ($unparsedtext as $lix => $line) {
if ('END:VALARM' == strtoupper(substr($line, 0, 10))) {
if (1 != $subsync) {
return FALSE;
}
$this->components[] = $comp->copy();
$subsync--;
} elseif ('END:DAYLIGHT' == strtoupper(substr($line, 0, 12))) {
if (1 != $subsync) {
return FALSE;
}
$this->components[] = $comp->copy();
$subsync--;
} elseif ('END:STANDARD' == strtoupper(substr($line, 0, 12))) {
if (1 != $subsync) {
return FALSE;
}
array_unshift($this->components, $comp->copy());
$subsync--;
} elseif ('END:' == strtoupper(substr($line, 0, 4))) {
// end:<component>
if (1 != $compsync) {
return FALSE;
}
if (0 < $subsync) {
$this->components[] = $comp->copy();
}
$compsync--;
break;
/* skip trailing empty lines */
} elseif ('BEGIN:VALARM' == strtoupper(substr($line, 0, 12))) {
$comp = new VAlarm($config);
$subsync++;
} elseif ('BEGIN:STANDARD' == strtoupper(substr($line, 0, 14))) {
$comp = new VTimeZone('standard', $config);
$subsync++;
} elseif ('BEGIN:DAYLIGHT' == strtoupper(substr($line, 0, 14))) {
$comp = new VTimeZone('daylight', $config);
$subsync++;
} elseif ('BEGIN:' == strtoupper(substr($line, 0, 6))) {
// begin:<component>
$compsync++;
} else {
$comp->unparsed[] = $line;
}
}
if (0 < $subsync) {
$this->components[] = $comp->copy();
}
unset($config);
/* concatenate property values spread over several lines */
$lastix = -1;
$propnames = array('action', 'attach', 'attendee', 'categories', 'comment', 'completed', 'contact', 'class', 'created', 'description', 'dtend', 'dtstart', 'dtstamp', 'due', 'duration', 'exdate', 'exrule', 'freebusy', 'geo', 'last-modified', 'location', 'organizer', 'percent-complete', 'priority', 'rdate', 'recurrence-id', 'related-to', 'repeat', 'request-status', 'resources', 'rrule', 'sequence', 'status', 'summary', 'transp', 'trigger', 'tzid', 'tzname', 'tzoffsetfrom', 'tzoffsetto', 'tzurl', 'uid', 'url', 'x-');
$proprows = array();
for ($i = 0; $i < count($this->unparsed); $i++) {
// concatenate lines
$line = rtrim($this->unparsed[$i], $nl);
while (isset($this->unparsed[$i + 1]) && !empty($this->unparsed[$i + 1]) && ' ' == $this->unparsed[$i + 1][0]) {
$line .= rtrim(substr($this->unparsed[++$i], 1), $nl);
}
$proprows[] = $line;
}
/* parse each property 'line' */
$paramMStz = array('utc-', 'utc+', 'gmt-', 'gmt+');
$paramProto3 = array('fax:', 'cid:', 'sms:', 'tel:', 'urn:');
$paramProto4 = array('crid:', 'news:', 'pres:');
foreach ($proprows as $line) {
if ('\\n' == substr($line, -2)) {
$line = substr($line, 0, -2);
}
/* get propname */
$propname = null;
$cix = 0;
while (isset($line[$cix])) {
if (in_array($line[$cix], array(':', ';'))) {
break;
} else {
$propname .= $line[$cix];
}
$cix++;
}
if ('x-' == substr($propname, 0, 2) || 'X-' == substr($propname, 0, 2)) {
$propname2 = $propname;
$propname = 'X-';
}
if (!in_array(strtolower($propname), $propnames)) {
// skip non standard property names
continue;
}
/* rest of the line is opt.params and value */
$line = substr($line, $cix);
/* separate attributes from value */
$attr = array();
$attrix = -1;
$clen = strlen($line);
$WithinQuotes = FALSE;
$cix = 0;
while (FALSE !== substr($line, $cix, 1)) {
if (':' == $line[$cix] && substr($line, $cix, 3) != '://' && !in_array(strtolower(substr($line, $cix - 6, 4)), $paramMStz) && !in_array(strtolower(substr($line, $cix - 3, 4)), $paramProto3) && !in_array(strtolower(substr($line, $cix - 4, 5)), $paramProto4) && strtolower(substr($line, $cix - 6, 7)) != 'mailto:' && !$WithinQuotes) {
$attrEnd = TRUE;
if ($cix < $clen - 4 && ctype_digit(substr($line, $cix + 1, 4))) {
// an URI with a (4pos) portnr??
for ($c2ix = $cix; 3 < $c2ix; $c2ix--) {
if ('://' == substr($line, $c2ix - 2, 3)) {
$attrEnd = FALSE;
break;
// an URI with a portnr!!
}
}
}
if ($attrEnd) {
$line = substr($line, $cix + 1);
break;
}
$cix++;
}
if ('"' == $line[$cix]) {
$WithinQuotes = FALSE === $WithinQuotes ? TRUE : FALSE;
}
if (';' == $line[$cix]) {
$attr[++$attrix] = null;
} else {
$attr[$attrix] .= $line[$cix];
}
$cix++;
}
/* make attributes in array format */
$propattr = array();
foreach ($attr as $attribute) {
$attrsplit = explode('=', $attribute, 2);
if (1 < count($attrsplit)) {
$propattr[$attrsplit[0]] = $attrsplit[1];
} else {
$propattr[] = $attribute;
}
}
/* call setProperty( $propname.. . */
switch (strtoupper($propname)) {
case 'ATTENDEE':
foreach ($propattr as $pix => $attr) {
if (!in_array(strtoupper($pix), array('MEMBER', 'DELEGATED-TO', 'DELEGATED-FROM'))) {
continue;
}
$attr2 = explode(',', $attr);
if (1 < count($attr2)) {
$propattr[$pix] = $attr2;
}
}
$this->setProperty($propname, $line, $propattr);
break;
case 'X-':
$propname = isset($propname2) ? $propname2 : $propname;
unset($propname2);
case 'CATEGORIES':
case 'RESOURCES':
if (FALSE !== strpos($line, ',')) {
$content = array(0 => '');
$cix = $lix = 0;
while (FALSE !== substr($line, $lix, 1)) {
if (',' == $line[$lix] && "\\" != $line[$lix - 1]) {
$cix++;
$content[$cix] = '';
} else {
$content[$cix] .= $line[$lix];
}
$lix++;
}
if (1 < count($content)) {
$content = array_values($content);
foreach ($content as $cix => $contentPart) {
$content[$cix] = ICalUtilityFunctions::_strunrep($contentPart);
}
$this->setProperty($propname, $content, $propattr);
break;
} else {
$line = reset($content);
}
}
case 'COMMENT':
case 'CONTACT':
case 'DESCRIPTION':
case 'LOCATION':
case 'SUMMARY':
if (empty($line)) {
$propattr = null;
}
$this->setProperty($propname, ICalUtilityFunctions::_strunrep($line), $propattr);
break;
case 'REQUEST-STATUS':
$values = explode(';', $line, 3);
$values[1] = !isset($values[1]) ? null : ICalUtilityFunctions::_strunrep($values[1]);
$values[2] = !isset($values[2]) ? null : ICalUtilityFunctions::_strunrep($values[2]);
$this->setProperty($propname, $values[0], $values[1], $values[2], $propattr);
break;
case 'FREEBUSY':
$fbtype = isset($propattr['FBTYPE']) ? $propattr['FBTYPE'] : '';
// force setting default, if missing
unset($propattr['FBTYPE']);
$values = explode(',', $line);
foreach ($values as $vix => $value) {
$value2 = explode('/', $value);
if (1 < count($value2)) {
$values[$vix] = $value2;
}
}
$this->setProperty($propname, $fbtype, $values, $propattr);
break;
case 'GEO':
$value = explode(';', $line, 2);
if (2 > count($value)) {
$value[1] = null;
}
$this->setProperty($propname, $value[0], $value[1], $propattr);
break;
case 'EXDATE':
$values = !empty($line) ? explode(',', $line) : null;
$this->setProperty($propname, $values, $propattr);
break;
case 'RDATE':
if (empty($line)) {
$this->setProperty($propname, $line, $propattr);
break;
}
$values = explode(',', $line);
foreach ($values as $vix => $value) {
$value2 = explode('/', $value);
if (1 < count($value2)) {
$values[$vix] = $value2;
}
}
$this->setProperty($propname, $values, $propattr);
break;
case 'EXRULE':
case 'RRULE':
$values = explode(';', $line);
$recur = array();
foreach ($values as $value2) {
if (empty($value2)) {
continue;
}
// ;-char in ending position ???
$value3 = explode('=', $value2, 2);
$rulelabel = strtoupper($value3[0]);
switch ($rulelabel) {
case 'BYDAY':
$value4 = explode(',', $value3[1]);
if (1 < count($value4)) {
foreach ($value4 as $v5ix => $value5) {
$value6 = array();
$dayno = $dayname = null;
$value5 = trim((string) $value5);
if (ctype_alpha(substr($value5, -1)) && ctype_alpha(substr($value5, -2, 1))) {
$dayname = substr($value5, -2, 2);
if (2 < strlen($value5)) {
$dayno = substr($value5, 0, strlen($value5) - 2);
}
}
if ($dayno) {
$value6[] = $dayno;
}
if ($dayname) {
$value6['DAY'] = $dayname;
}
$value4[$v5ix] = $value6;
}
} else {
$value4 = array();
$dayno = $dayname = null;
$value5 = trim((string) $value3[1]);
if (ctype_alpha(substr($value5, -1)) && ctype_alpha(substr($value5, -2, 1))) {
$dayname = substr($value5, -2, 2);
if (2 < strlen($value5)) {
$dayno = substr($value5, 0, strlen($value5) - 2);
}
}
if ($dayno) {
$value4[] = $dayno;
}
if ($dayname) {
$value4['DAY'] = $dayname;
}
}
$recur[$rulelabel] = $value4;
break;
default:
$value4 = explode(',', $value3[1]);
if (1 < count($value4)) {
$value3[1] = $value4;
}
$recur[$rulelabel] = $value3[1];
break;
}
// end - switch $rulelabel
}
// end - foreach( $values.. .
$this->setProperty($propname, $recur, $propattr);
break;
case 'ACTION':
case 'CLASSIFICATION':
case 'STATUS':
case 'TRANSP':
case 'UID':
case 'TZID':
case 'RELATED-TO':
case 'TZNAME':
$line = ICalUtilityFunctions::_strunrep($line);
default:
$this->setProperty($propname, $line, $propattr);
break;
}
// end switch( $propname.. .
}
// end - foreach( $proprows.. .
unset($unparsedtext, $this->unparsed, $proprows);
if (isset($this->components) && is_array($this->components) && 0 < count($this->components)) {
$ckeys = array_keys($this->components);
foreach ($ckeys as $ckey) {
if (!empty($this->components[$ckey]) && !empty($this->components[$ckey]->unparsed)) {
$this->components[$ckey]->parse();
}
}
}
return TRUE;
}
