public static function _durationStr2arr($duration)
{
$duration = (string) trim($duration);
while ('P' != strtoupper(substr($duration, 0, 1))) {
if (0 < strlen($duration)) {
$duration = substr($duration, 1);
} else {
return false;
}
// no leading P !?!?
}
$duration = substr($duration, 1);
// skip P
$duration = str_replace('t', 'T', $duration);
$duration = str_replace('T', '', $duration);
$output = array();
$val = null;
for ($ix = 0; $ix < strlen($duration); $ix++) {
switch (strtoupper(substr($duration, $ix, 1))) {
case 'W':
$output['week'] = $val;
$val = null;
break;
case 'D':
$output['day'] = $val;
$val = null;
break;
case 'H':
$output['hour'] = $val;
$val = null;
break;
case 'M':
$output['min'] = $val;
$val = null;
break;
case 'S':
$output['sec'] = $val;
$val = null;
break;
default:
if (!ctype_digit(substr($duration, $ix, 1))) {
return false;
} else {
$val .= substr($duration, $ix, 1);
}
}
}
return ICalUtilityFunctions::_duration2arr($output);
}
/**
* set calendar component property rdate
*
* @author Kjell-Inge Gustafsson, kigkonsult <*****@*****.**>
* @since 2.14.1 - 2012-10-04
* @param array $rdates
* @param array $params, optional
* @param integer $index, optional
* @return bool
*/
function setRdate($rdates, $params = FALSE, $index = FALSE)
{
if (empty($rdates)) {
if ($this->getConfig('allowEmpty')) {
ICalUtilityFunctions::_setMval($this->rdate, null, $params, FALSE, $index);
return TRUE;
} else {
return FALSE;
}
}
$input = array('params' => ICalUtilityFunctions::_setParams($params, array('VALUE' => 'DATE-TIME')));
if (in_array($this->objName, array('VTimeZone', 'standard', 'daylight'))) {
unset($input['params']['TZID']);
$input['params']['VALUE'] = 'DATE-TIME';
}
$zArr = array('GMT', 'UTC', 'Z');
$toZ = isset($params['TZID']) && in_array(strtoupper($params['TZID']), $zArr) ? TRUE : FALSE;
/* check if PERIOD, if not set */
if ((!isset($input['params']['VALUE']) || !in_array($input['params']['VALUE'], array('DATE', 'PERIOD'))) && isset($rdates[0]) && is_array($rdates[0]) && 2 == count($rdates[0]) && isset($rdates[0][0]) && isset($rdates[0][1]) && !isset($rdates[0]['timestamp']) && (is_array($rdates[0][0]) && (isset($rdates[0][0]['timestamp']) || ICalUtilityFunctions::_isArrayDate($rdates[0][0])) || is_string($rdates[0][0]) && 8 <= strlen(trim($rdates[0][0]))) && (is_array($rdates[0][1]) || is_string($rdates[0][1]) && 3 <= strlen(trim($rdates[0][1])))) {
$input['params']['VALUE'] = 'PERIOD';
}
/* check 1:st date, upd. $parno (opt) and save ev. timezone * */
$date = reset($rdates);
if (isset($input['params']['VALUE']) && 'PERIOD' == $input['params']['VALUE']) {
// PERIOD
$date = reset($date);
}
ICalUtilityFunctions::_chkdatecfg($date, $parno, $input['params']);
ICalUtilityFunctions::_existRem($input['params'], 'VALUE', 'DATE-TIME');
// remove default
foreach ($rdates as $rpix => $theRdate) {
$inputa = null;
ICalUtilityFunctions::_strDate2arr($theRdate);
if (is_array($theRdate)) {
if (isset($input['params']['VALUE']) && 'PERIOD' == $input['params']['VALUE']) {
// PERIOD
foreach ($theRdate as $rix => $rPeriod) {
ICalUtilityFunctions::_strDate2arr($theRdate);
if (is_array($rPeriod)) {
if (ICalUtilityFunctions::_isArrayTimestampDate($rPeriod)) {
// timestamp
if (isset($rPeriod['tz']) && !ICalUtilityFunctions::_isOffset($rPeriod['tz'])) {
if (isset($input['params']['TZID'])) {
$rPeriod['tz'] = $input['params']['TZID'];
} else {
$input['params']['TZID'] = $rPeriod['tz'];
}
}
$inputab = ICalUtilityFunctions::_timestamp2date($rPeriod, $parno);
} elseif (ICalUtilityFunctions::_isArrayDate($rPeriod)) {
$d = 3 < count($rPeriod) ? ICalUtilityFunctions::_chkDateArr($rPeriod, $parno) : ICalUtilityFunctions::_chkDateArr($rPeriod, 6);
if (isset($d['tz']) && 'Z' != $d['tz'] && ICalUtilityFunctions::_isOffset($d['tz'])) {
$strdate = sprintf('%04d-%02d-%02d %02d:%02d:%02d %s', $d['year'], $d['month'], $d['day'], $d['hour'], $d['min'], $d['sec'], $d['tz']);
$inputab = ICalUtilityFunctions::_strdate2date($strdate, 7);
unset($inputab['unparsedtext']);
} else {
$inputab = $d;
}
} elseif (1 == count($rPeriod) && 8 <= strlen(reset($rPeriod))) {
// text-date
$inputab = ICalUtilityFunctions::_strdate2date(reset($rPeriod), $parno);
unset($inputab['unparsedtext']);
} else {
// array format duration
$inputab = ICalUtilityFunctions::_duration2arr($rPeriod);
}
} elseif (3 <= strlen(trim($rPeriod)) && in_array($rPeriod[0], array('P', '+', '-'))) {
if ('P' != $rPeriod[0]) {
$rPeriod = substr($rPeriod, 1);
}
$inputab = ICalUtilityFunctions::_durationStr2arr($rPeriod);
} elseif (8 <= strlen(trim($rPeriod))) {
// text date ex. 2006-08-03 10:12:18
$inputab = ICalUtilityFunctions::_strdate2date($rPeriod, $parno);
unset($inputab['unparsedtext']);
}
if (0 == $rpix && 0 == $rix) {
if (isset($inputab['tz']) && in_array(strtoupper($inputab['tz']), $zArr)) {
$inputab['tz'] = 'Z';
$toZ = TRUE;
}
} else {
if (isset($inputa[0]['tz']) && 'Z' == $inputa[0]['tz'] && isset($inputab['year'])) {
$inputab['tz'] = 'Z';
} else {
unset($inputab['tz']);
}
}
if ($toZ && isset($inputab['year'])) {
$inputab['tz'] = 'Z';
}
$inputa[] = $inputab;
}
} elseif (ICalUtilityFunctions::_isArrayTimestampDate($theRdate)) {
// timestamp
if (isset($theRdate['tz']) && !ICalUtilityFunctions::_isOffset($theRdate['tz'])) {
if (isset($input['params']['TZID'])) {
$theRdate['tz'] = $input['params']['TZID'];
} else {
$input['params']['TZID'] = $theRdate['tz'];
}
}
$inputa = ICalUtilityFunctions::_timestamp2date($theRdate, $parno);
} else {
// date[-time]
$inputa = ICalUtilityFunctions::_chkDateArr($theRdate, $parno);
if (isset($inputa['tz']) && 'Z' != $inputa['tz'] && ICalUtilityFunctions::_isOffset($inputa['tz'])) {
$strdate = sprintf('%04d-%02d-%02d %02d:%02d:%02d %s', $inputa['year'], $inputa['month'], $inputa['day'], $inputa['hour'], $inputa['min'], $inputa['sec'], $inputa['tz']);
$inputa = ICalUtilityFunctions::_strdate2date($strdate, 7);
unset($inputa['unparsedtext']);
}
}
} elseif (8 <= strlen(trim($theRdate))) {
// text date ex. 2006-08-03 10:12:18
$inputa = ICalUtilityFunctions::_strdate2date($theRdate, $parno);
unset($inputa['unparsedtext']);
if ($toZ) {
$inputa['tz'] = 'Z';
}
}
if (!isset($input['params']['VALUE']) || 'PERIOD' != $input['params']['VALUE']) {
// no PERIOD
if (0 == $rpix && !$toZ) {
$toZ = isset($inputa['tz']) && in_array(strtoupper($inputa['tz']), $zArr) ? TRUE : FALSE;
}
if ($toZ) {
$inputa['tz'] = 'Z';
}
if (3 == $parno) {
unset($inputa['hour'], $inputa['min'], $inputa['sec'], $inputa['tz']);
} elseif (isset($inputa['tz'])) {
$inputa['tz'] = (string) $inputa['tz'];
}
if (isset($input['params']['TZID']) || isset($input['value'][0]) && !isset($input['value'][0]['tz'])) {
if (!$toZ) {
unset($inputa['tz']);
}
}
}
$input['value'][] = $inputa;
}
if (3 == $parno) {
$input['params']['VALUE'] = 'DATE';
unset($input['params']['TZID']);
}
if ($toZ) {
unset($input['params']['TZID']);
}
ICalUtilityFunctions::_setMval($this->rdate, $input['value'], $input['params'], FALSE, $index);
return TRUE;
}
