File: /home/iestorre/biologia/components/com_jevents/libraries/iCalImport.php
<?php
/**
* JEvents Component for Joomla 1.5.x
*
* @version $Id: iCalImport.php 3467 2012-04-03 09:36:16Z geraintedwards $
* @package JEvents
* @copyright Copyright (C) 2008-2015 GWE Systems Ltd, 2006-2008 JEvents Project Group
* @license GNU/GPLv2, see http://www.gnu.org/licenses/gpl-2.0.html
* @link http://www.jevents.net
*/
// no direct access
defined( '_JEXEC' ) or die( 'Restricted access' );
// This class doesn't yet deal with repeating events
class iCalImport
{
/**
* This array saves the iCalendar parsed data as an array - may make a class later!
*
* @var array
*/
var $cal = array();
var $key;
var $rawData = '';
var $srcURL = '';
var $eventCount = -1;
var $todoCount = -1;
var $vevents = array();
function __construct () {
}
// constructor
function import($filename,$rawtext="")
{
@ini_set("max_execution_time",600);
echo JText::sprintf("Importing events from ical file %s", $filename)."<br/>";
$cfg = JEVConfig::getInstance();
$option = JEV_COM_COMPONENT;
// resultant data goes here
if ($filename!=""){
$file = $filename;
if (!@file_exists($file)) {
$file = JPATH_SITE."/components/$option/".$filename;
}
if (!file_exists($file)) {
echo "I hope this is a URL!!<br/>";
$file = $filename;
}
// get name
$isFile = false;
if (isset($_FILES['upload']) && is_array($_FILES['upload']) ) {
$uploadfile = $_FILES['upload'];
// MSIE sets a mime-type of application/octet-stream
if ($uploadfile['size']!=0 && ($uploadfile['type']=="text/calendar" || $uploadfile['type']=="text/csv" || $uploadfile['type']=="application/octet-stream" || $uploadfile['type']=="text/html")){
$this->srcURL = $uploadfile['name'];
$isFile = true;
}
}
if ($this->srcURL =="") {
$this->srcURL = $file;
}
// $this->rawData = iconv("ISO-8859-1","UTF-8",file_get_contents($file));
if (!$isFile && is_callable("curl_exec")){
$ch = curl_init();
// Set curl option CURLOPT_HTTPAUTH, if the url includes user name and password.
// e.g. http://username:password@www.example.com/cal.ics
$username = parse_url($file, PHP_URL_USER);
$password = parse_url($file, PHP_URL_PASS);
if ($username != "" && $password != "") {
curl_setopt($ch, CURLOPT_HTTPAUTH, CURLAUTH_DIGEST);
}
curl_setopt($ch, CURLOPT_URL, $file);
curl_setopt($ch, CURLOPT_VERBOSE, 1);
curl_setopt($ch, CURLOPT_POST, 0);
curl_setopt($ch, CURLOPT_RETURNTRANSFER,1);
curl_setopt($ch, CURLOPT_FOLLOWLOCATION, 1);
curl_setopt($ch,CURLOPT_ENCODING,'');
$this->rawData = curl_exec($ch);
curl_close ($ch);
// try file_get_contents as a backu
if ($this->rawData === false || $this->rawData == "") {
$this->rawData = @file_get_contents($file);
}
}
else {
$this->rawData = @file_get_contents($file);
}
if ($this->rawData === false) {
// file_get_contents: no or blocked wrapper for $file
JError::raiseNotice(0, 'file_get_contents() failed, try fsockopen');
$parsed_url = parse_url($file);
if ($parsed_url === false) {
JError::raiseWarning(0, 'url not parsed: ' . $file);
} else {
if ($parsed_url['scheme'] == 'http' || $parsed_url['scheme'] == 'https' || $parsed_url['scheme'] == 'webcal') {
// try socked connection
$fsockhost = $parsed_url['host'];
$fsockport = 80;
if ($parsed_url['scheme'] == 'https') {
$fsockhost = 'ssl://' . $fsockhost;
$fsockport = 443;
}
if (array_key_exists('port', $parsed_url)) $fsockport = $parsed_url['port'];
$fh = @fsockopen($fsockhost, $fsockport, $errno, $errstr, 3);
if ($fh === false) {
// fsockopen: no connect
JError::raiseWarning(0, 'fsockopen: no connect for ' . $file.' - '.$errstr );
return false;
} else {
$fsock_path = ((array_key_exists('path', $parsed_url)) ? $parsed_url['path'] : '')
. ((array_key_exists('query', $parsed_url)) ? '?' . $parsed_url['query'] : '')
. ((array_key_exists('fragment', $parsed_url)) ? '#' . $parsed_url['fragment'] : '');
fputs($fh, "GET $fsock_path HTTP/1.0\r\n");
fputs($fh, "Host: ".$parsed_url['host']."\r\n\r\n");
while(!feof($fh)) {
$this->rawData .= fread($fh,4096);
}
fclose($fh);
$this->rawData = JString::substr($this->rawData, JString::strpos($this->rawData, "\r\n\r\n")+4);
}
}
}
}
// Returns true if $string is valid UTF-8 and false otherwise.
/*
$isutf8 = $this->detectUTF8($this->rawData);
if ($isutf8) {
$this->rawData = iconv("ISO-8859-1","UTF-8",$this->rawData);
}
*/
}
else {
$this->srcURL="n/a";
$this->rawData = $rawtext;
}
;
// get rid of spurious carriage returns and spaces
//$this->rawData = preg_replace("/[\r\n]+ ([:;])/","$1",$this->rawData);
// simplify line feed
$this->rawData = str_replace("\r\n","\n",trim($this->rawData));
// remove spurious lines before calendar start
if (!JString::stristr($this->rawData,'BEGIN:VCALENDAR')) {
// check for CSV format
$firstLine = JString::substr($this->rawData,0,JString::strpos($this->rawData,"\n")+1);
if (JString::stristr($firstLine,'SUMMARY') && JString::stristr($firstLine,'DTSTART')
&& JString::stristr($firstLine,'DTEND') && JString::stristr($firstLine,'CATEGORIES')
&& JString::stristr($firstLine,'TIMEZONE')) {
$timezone= date_default_timezone_get();
$csvTrans = new CsvToiCal($file, ",",$this->rawData);
$this->rawData = $csvTrans->getRawData();
date_default_timezone_set($timezone);
} else {
//echo "first line = $firstLine<br/>";
//echo "raw imported data = ".$this->rawData."<br/>";
//exit();
JError::raiseWarning(0, 'Not a valid VCALENDAR data file: ' . $this->srcURL);
//JError::raiseWarning(0, 'Not a valid VCALENDAR or CSV data file: ' . $this->srcURL);
// return false so that we don't remove a valid calendar because of a bad URL load!
return false;
}
}
$begin = JString::strpos($this->rawData,"BEGIN:VCALENDAR",0);
$this->rawData = JString::substr($this->rawData,$begin);
// $this->rawData = preg_replace('/^.*\n(BEGIN:VCALENDAR)/s', '$1', $this->rawData, 1);
// unfold content lines according the unfolding procedure of rfc2445
$this->rawData = str_replace("\n ","",$this->rawData);
$this->rawData = str_replace("\n\t","",$this->rawData);
// TODO make sure I can always ignore the second line
// Some google calendars has spaces and carriage returns in their UIDs
// Convert string into array for easier processing
$this->rawData = explode("\n", $this->rawData);
$skipuntil = null;
foreach ($this->rawData as $vcLine) {
//$vcLine = trim($vcLine); // trim one line
if (empty($vcLine)){
continue;
}
if (!empty($vcLine))
{
// skip unhandled block
if ($skipuntil) {
if (trim($vcLine) == $skipuntil) {
// found end of block to skip
$skipuntil = null;
}
continue;
}
$matches = explode(":",$vcLine,2);
if (count($matches) == 2) {
list($this->key,$value)= $matches;
//$value = str_replace('\n', "\n", $value);
//$value = stripslashes($value);
$append=false;
// Treat Accordingly
switch ($vcLine) {
case "BEGIN:VTODO":
// start of VTODO section
$this->todoCount++;
$parent = "VTODO";
break;
case "BEGIN:VEVENT":
// start of VEVENT section
$this->eventCount++;
$parent = "VEVENT";
break;
case "BEGIN:VCALENDAR":
case "BEGIN:DAYLIGHT":
case "BEGIN:VTIMEZONE":
case "BEGIN:STANDARD":
$parent = $value; // save tu array under value key
break;
case "END:VTODO":
case "END:VEVENT":
case "END:VCALENDAR":
case "END:DAYLIGHT":
case "END:VTIMEZONE":
case "END:STANDARD":
$parent = "VCALENDAR";
break;
default:
// skip unknown BEGIN/END blocks
if ($this->key == 'BEGIN') {
$skipuntil = 'END:' . $value;
break;
}
// Generic processing
$this->add_to_cal($parent, $this->key, $value,$append);
break;
}
} else {
// ignore these lines go
}
}
}
// Sort the events into start date order
// there's little point in doing this id an RRULE is present!
// usort($this->cal['VEVENT'], array("iCalImport","comparedates"));
// Populate vevent class - should do this first trawl through !!
if (array_key_exists("VEVENT",$this->cal)) {
foreach ($this->cal["VEVENT"] as $vevent){
// trap for badly constructed all day events
if (isset($vevent["DTSTARTRAW"]) && isset($vevent["DTENDRAW"]) && $vevent["DTENDRAW"] == $vevent["DTSTARTRAW"]){
//$vevent["DTEND"] += 86400;
$vevent["NOENDTIME"] = 1;
}
// some imports do not have UID set
if (!isset($vevent["UID"])){
$vevent["UID"] = md5(uniqid(rand(), true));
}
$this->vevents[] = iCalEvent::iCalEventFromData($vevent);
}
}
return $this;
}
function add_to_cal($parent, $key, $value, $append)
{
// I'm not interested in when the events were created/modified
if (($key == "DTSTAMP") or ($key == "LAST-MODIFIED") or ($key == "CREATED")) return;
if ($key == "RRULE" && $value!="") {
$value = $this->parseRRULE($value,$parent);
}
$rawkey="";
if (JString::stristr($key,"DTSTART") || JString::stristr($key,"DTEND") || JString::stristr($key,"EXDATE") ) {
list($key,$value,$rawkey,$rawvalue) = $this->handleDate($key,$value);
// if midnight then move back one day (ISO 8601 uses seconds past midnight http://www.iso.org/iso/date_and_time_format)
// because of the odd way we record midnights
if (JString::stristr($key,"DTEND") == "DTEND" && JString::strlen($rawvalue)>=15 && JString::substr($rawvalue,9,6)=="000000") {
$value -= 1; // 1 second
//$value -= 86400; // 1 day
}
if (JString::stristr($key,"DTEND") == "DTEND" && JString::strlen($rawvalue) == 8) {
// all day event detected YYYYMMDD, set DTEND to last second of previous day
/* see section 3.6.1 of RFC https://tools.ietf.org/html/rfc5545
*
The following is an example of the "VEVENT" calendar component
used to represent a multi-day event scheduled from June 28th, 2007
to July 8th, 2007 inclusively. Note that the "DTEND" property is
set to July 9th, 2007, since the "DTEND" property specifies the
non-inclusive end of the event.
BEGIN:VEVENT
UID:20070423T123432Z-541111@example.com
DTSTAMP:20070423T123432Z
DTSTART;VALUE=DATE:20070628
DTEND;VALUE=DATE:20070709
SUMMARY:Festival International de Jazz de Montreal
TRANSP:TRANSPARENT
END:VEVENT
*/
$value -= 1; // 1 second
}
}
if (JString::stristr($key,"DURATION")) {
list($key,$value,$rawkey,$rawvalue) = $this->handleDuration($key,$value);
}
switch ($parent)
{
case "VTODO":
$this->cal[$parent][$this->todoCount][$key] = $value;
break;
case "VEVENT":
// strip off unnecessary quoted printable encoding message
$parts = explode(';',$key);
if (count($parts)>1 ){
$key=$parts[0];
for ($i=1; $i<count($parts);$i++) {
if ($parts[$i]=="ENCODING=QUOTED-PRINTABLE"){
//$value=str_replace("=0D=0A","<br/>",$value);
$value=quoted_printable_decode($value);
}
// drop other ibts like language etc.
}
}
// Special treatment of
if (JString::strpos($key,"EXDATE")===false){
$target =& $this->cal[$parent][$this->eventCount][$key];
$rawtarget =& $this->cal[$parent][$this->eventCount][$rawkey];
}
else {
if (!array_key_exists("EXDATE",$this->cal[$parent][$this->eventCount])){
$this->cal[$parent][$this->eventCount]["EXDATE"]=array();
$this->cal[$parent][$this->eventCount]["RAWEXDATE"]=array();
}
if (is_array($value)){
$this->cal[$parent][$this->eventCount]["EXDATE"] = array_merge($this->cal[$parent][$this->eventCount]["EXDATE"], $value);
$this->cal[$parent][$this->eventCount]["RAWEXDATE"][count($this->cal[$parent][$this->eventCount]["RAWEXDATE"])] = $rawvalue;
break;
}
else {
$target =& $this->cal[$parent][$this->eventCount]["EXDATE"][count($this->cal[$parent][$this->eventCount]["EXDATE"])];
$rawtarget =& $this->cal[$parent][$this->eventCount]["RAWEXDATE"][count($this->cal[$parent][$this->eventCount]["RAWEXDATE"])];
}
}
// Remove escaping of text
$value = str_replace('\,',',',$value);
$value = str_replace('\;',';',$value);
// convert URLs to links but NOT in uid field!!
//$value = ereg_replace("[[:alpha:]]+://[^<>[:space:]]+[[:alnum:]/]","<a href=\"\\0\">\\0</a>", $value);
//$value = preg_replace('@(?<![">])\b(?:(?:https?|ftp)://|www\.|ftp\.)[-A-Z0-9+&@#/%=~_|$?!:,.]*[A-Z0-9+&@#/%=~_|$]@',"<a href=\"\\0\">\\0</a>", $value);
if (is_string($value) && $key!="UID" && $key!="X-EXTRAINFO"){
if (JString::strpos(str_replace(" ","",JString::strtolower($value)),"<ahref=")===false && JString::strpos(str_replace(" ","",JString::strtolower($value)),"<img")===false){
// See http://stackoverflow.com/questions/8414675/preg-replace-for-url-and-download-links and http://regexr.com/3bup3 to test this
$value = preg_replace('@(https?://([\w-.]+)+(:\d+)?(/([\w/_\.%\-+~=]*(\?\S+)?)?)?)@', '<a href="$1">$1</a>', $value);
}
}
// Fix some stupid Microsoft IIS driven calendars which don't encode the data properly!
// see section 2 of http://www.the-art-of-web.com/html/character-codes/
if ($key=="DESCRIPTION" || $key=="SUMMARY"){
$len = JString::strlen($value);
$ulen = JString::strlen($value);
// Can cause problems with multibyte strings so skip this
if ($len == $ulen){
$value =str_replace(array("\205","\221","\222","\223","\224","\225","\226","\227","\240"),array("...","'","'",'"','"',"*","-","--"," "),$value);
}
}
// Strip http:// from UID !!!
if ($key=="UID" && JString::strpos($value,"http://")!==false){
$value = str_replace('http://',"http",$value);
}
if ($key=="RECURRENCE-ID"){
if (count($parts)>1 ){
for ($i=1; $i<count($parts);$i++) {
if (JString::stristr($parts[$i],"TZID")){
$value = $parts[$i].";".$value;
}
}
}
}
// THIS IS NEEDED BECAUSE OF DODGY carriage returns in google calendar UID
// TODO check its enough
if ($append){
$target .= $value;
}
else {
$target = $value;
}
if ($rawkey!=""){
$rawtarget = $rawvalue;
}
break;
default:
$this->cal[$parent][$key] = $value;
break;
}
}
function parseRRULE($value, $parent)
{
$result = array();
$parts = explode(';',$value);
foreach ($parts as $part) {
if (JString::strlen($part)==0) continue;
$portion = explode('=', $part);
if (JString::stristr($portion[0],"UNTIL")){
$untilArray = $this->handleDate($portion[0],$portion[1]);
$result[$untilArray[0]] = $untilArray[1];
$result[$untilArray[2]] = $untilArray[3];
}
else $result[$portion[0]] = $portion[1];
}
return $result;
}
/**
* iCal spec represents date in ISO 8601 format followed by "T" then the time
* a "Z at the end means the time is UTC and not local time zone
*
* TODO make sure if time is UTC we take account of system time offset properly
*
*/
function unixTime($ical_date, $tz=false)
{
jimport("joomla.utilities.date");
static $offset = null;
if (is_null($offset)) {
$config = JFactory::getConfig();
$offset = $config->get('config.offset', 0);
}
if (!is_numeric($ical_date)){
$t = JevDate::strtotime($ical_date);
if (JString::strpos($ical_date,"Z")>0){
if (is_callable("date_default_timezone_set")){
$timezone= date_default_timezone_get();
// See http://www.php.net/manual/en/timezones.php
$params = JComponentHelper::getParams(JEV_COM_COMPONENT);
// server offset tiemzone
if ($params->get("icaltimezone","")!=""){
date_default_timezone_set($params->get("icaltimezone",""));
}
// server offset PARAMS
$serveroffset1 = (JevDate::strtotime(JevDate::strftime('%Y%m%dT%H%M%S',$t))-JevDate::strtotime(JevDate::strftime('%Y%m%dT%H%M%SZ',$t)))/3600;
// server offset SERVER
date_default_timezone_set($timezone);
$serveroffset2 = (JevDate::strtotime(JevDate::strftime('%Y%m%dT%H%M%S',$t))-JevDate::strtotime(JevDate::strftime('%Y%m%dT%H%M%SZ',$t)))/3600;
$t = new JevDate($ical_date,($serveroffset1-$serveroffset2) );
//$t = new JevDate($ical_date );
date_default_timezone_set($timezone);
echo "icaldate = ".$ical_date." imported date=".$t->toMySQL()."<br/>";
}
else {
// Summer Time adjustment
list($y,$m,$d,$h,$min,$s) = explode(":", JevDate::strftime('%Y:%m:%d:%H:%M:%S',$t));
$dst = (JevDate::mktime($h,$min,$s,$m,$d,$y,0)-JevDate::mktime($h,$min,$s,$m,$d,$y,-1))/3600;
// server offset including DST
$serveroffset = (JevDate::strtotime(JevDate::strftime('%Y%m%dT%H%M%S',$t))-JevDate::strtotime(JevDate::strftime('%Y%m%dT%H%M%SZ',$t)))/3600;
$serveroffset += $dst;
$t = new JevDate($ical_date , -($serveroffset+$offset));
}
/*
echo "<h3>SET TIMEZONE</h3>";
$timezone= date_default_timezone_get();
date_default_timezone_set('America/New_York');
$tempIcal = "20091020T163000Z";
echo $tempIcal."<br/>";
$temp = JevDate::strtotime($tempIcal);
list($y,$m,$d,$h,$min,$s) = explode(":", JevDate::strftime('%Y:%m:%d:%H:%M:%S',$temp));
echo "$y,$m,$d,$h,$min,$s<br/>";
$dst = (JevDate::mktime($h,$min,$s,$m,$d,$y,0)-JevDate::mktime($h,$min,$s,$m,$d,$y,-1))/3600;
$so = (JevDate::strtotime(JevDate::strftime('%Y%m%dT%H%M%S',$temp))-JevDate::strtotime(JevDate::strftime('%Y%m%dT%H%M%SZ',$temp)))/3600;
echo " dst=".$dst." serverforoffset=".$so."<br/>";
$so += $dst;
$t = new JevDate($tempIcal);
echo $t->toMySQL()."<br><br/>";
$tempIcal = "20091029T163000Z";
echo $tempIcal."<br/>";
$temp = JevDate::strtotime($tempIcal);
list($y,$m,$d,$h,$min,$s) = explode(":", JevDate::strftime('%Y:%m:%d:%H:%M:%S',$temp));
echo "$y,$m,$d,$h,$min,$s<br/>";
$dst = (JevDate::mktime($h,$min,$s,$m,$d,$y,0)-JevDate::mktime($h,$min,$s,$m,$d,$y,-1))/3600;
$so = (JevDate::strtotime(JevDate::strftime('%Y%m%dT%H%M%S',$temp))-JevDate::strtotime(JevDate::strftime('%Y%m%dT%H%M%SZ',$temp)))/3600;
echo " dst=".$dst." serverforoffset=".$so."<br/>";
$so += $dst;
$t = new JevDate($tempIcal );
echo $t->toMySQL()."<br><br/>";
$tempIcal = "20091103T163000Z";
echo $tempIcal."<br/>";
$temp = JevDate::strtotime($tempIcal);
list($y,$m,$d,$h,$min,$s) = explode(":", JevDate::strftime('%Y:%m:%d:%H:%M:%S',$temp));
echo "$y,$m,$d,$h,$min,$s<br/>";
$dst = (JevDate::mktime($h,$min,$s,$m,$d,$y,0)-JevDate::mktime($h,$min,$s,$m,$d,$y,-1))/3600;
$so = (JevDate::strtotime(JevDate::strftime('%Y%m%dT%H%M%S',$temp))-JevDate::strtotime(JevDate::strftime('%Y%m%dT%H%M%SZ',$temp)))/3600;
echo " dst=".$dst." serverforoffset=".$so."<br/>";
$so += $dst;
$t = new JevDate($tempIcal);
echo $t->toMySQL()."<br>";
*/
}
else if ($tz != false && $tz != ""){
// really should use the timezone of the inputted date
$tz = new DateTimeZone($tz);
$t = new JevDate($ical_date, $tz);
echo "icaldate = ".$ical_date." imported date=".$t->toMySQL()."<br/>";
}
else {
$compparams = JComponentHelper::getParams(JEV_COM_COMPONENT);
$jtz = $compparams->get("icaltimezonelive", "");
if ($jtz){
$t = new JevDate($ical_date,$jtz);
}
else {
$t = new JevDate($ical_date);
}
}
//$result = $t->toMySQL();
$result = $t->toUnix();
return $result;
}
$isUTC = false;
if (JString::strpos($ical_date,"Z")!== false){
$isUTC = true;
}
// strip "T" and "Z" from the string
$ical_date = str_replace('T', '', $ical_date);
$ical_date = str_replace('Z', '', $ical_date);
// split it out intyo YYYY MM DD HH MM SS
preg_match("#([0-9]{4})([0-9]{2})([0-9]{2})([0-9]{0,2})([0-9]{0,2})([0-9]{0,2})#", $ical_date,$date);
list($temp,$y,$m,$d,$h,$min,$s)=$date;
if (!$min) $min=0;
if (!$h) $h=0;
if (!$d) $d=0;
if (!$s) $s=0;
// Trap unix dated beofre 1970
$y = max($y,1970);
if ($isUTC) {
$t = gmJevDate::mktime($h,$min,$s,$m,$d,$y) + 3600 * $offset;
$result = JevDate::strtotime(gmdate('Y-m-d H:i:s', $t));
} else {
$result = JevDate::mktime($h,$min,$s,$m,$d,$y);
}
// double check!!
//list($y1,$m1,$d1,$h1,$min1,$s1)=explode(":",JevDate::strftime('%Y:%m:%d:%H:%M:%S',$result));
return $result;
}
// function to convert windows timezone IDs into Olsen equivalent
public static function convertWindowsTzid($wtzid){
$wtzdata = array();
$wtzdata["Midway Island, Samoa"] = "Pacific/Midway";
$wtzdata["Hawaii-Aleutian"] = "America/Adak";
$wtzdata["Hawaii"] = "Etc/GMT+10";
$wtzdata["Marquesas Islands"] = "Pacific/Marquesas";
$wtzdata["Gambier Islands"] = "Pacific/Gambier";
$wtzdata["Alaska"] = "America/Anchorage";
$wtzdata["Tijuana, Baja California"] = "America/Ensenada";
$wtzdata["Pitcairn Islands"] = "Etc/GMT+8";
$wtzdata["Pacific Time (US & Canada)"] = "America/Los_Angeles";
$wtzdata["Mountain Time (US & Canada)"] = "America/Denver";
$wtzdata["Chihuahua, La Paz, Mazatlan"] = "America/Chihuahua";
$wtzdata["Arizona"] = "America/Dawson_Creek";
$wtzdata["Saskatchewan, Central America"] = "America/Belize";
$wtzdata["Guadalajara, Mexico City, Monterrey"] = "America/Cancun";
$wtzdata["Easter Island"] = "Chile/EasterIsland";
$wtzdata["Central Time (US & Canada)"] = "America/Chicago";
$wtzdata["Eastern Time (US & Canada)"] = "America/New_York";
$wtzdata["Cuba"] = "America/Havana";
$wtzdata["Bogota, Lima, Quito, Rio Branco"] = "America/Bogota";
$wtzdata["Caracas"] = "America/Caracas";
$wtzdata["Santiago"] = "America/Santiago";
$wtzdata["La Paz"] = "America/La_Paz";
$wtzdata["Faukland Islands"] = "Atlantic/Stanley";
$wtzdata["Brazil"] = "America/Campo_Grande";
$wtzdata["Atlantic Time (Goose Bay)"] = "America/Goose_Bay";
$wtzdata["Atlantic Time (Canada)"] = "America/Glace_Bay";
$wtzdata["Newfoundland"] = "America/St_Johns";
$wtzdata["UTC-3"] = "America/Araguaina";
$wtzdata["Montevideo"] = "America/Montevideo";
$wtzdata["Miquelon, St. Pierre"] = "America/Miquelon";
$wtzdata["Greenland"] = "America/Godthab";
$wtzdata["Buenos Aires"] = "America/Argentina/Buenos_Aires";
$wtzdata["Brasilia"] = "America/Sao_Paulo";
$wtzdata["Mid-Atlantic"] = "America/Noronha";
$wtzdata["Cape Verde Is."] = "Atlantic/Cape_Verde";
$wtzdata["Azores"] = "Atlantic/Azores";
$wtzdata["Greenwich Mean Time : Belfast"] = "Europe/Belfast";
$wtzdata["Greenwich Mean Time : Dublin"] = "Europe/Dublin";
$wtzdata["Greenwich Mean Time : Lisbon"] = "Europe/Lisbon";
$wtzdata["Greenwich Mean Time : London"] = "Europe/London";
$wtzdata["Monrovia, Reykjavik"] = "Africa/Abidjan";
$wtzdata["Amsterdam, Berlin, Bern, Rome, Stockholm, Vienna"] = "Europe/Amsterdam";
$wtzdata["Belgrade, Bratislava, Budapest, Ljubljana, Prague"] = "Europe/Belgrade";
$wtzdata["Brussels, Copenhagen, Madrid, Paris"] = "Europe/Brussels";
$wtzdata["West Central Africa"] = "Africa/Algiers";
$wtzdata["Windhoek"] = "Africa/Windhoek";
$wtzdata["Beirut"] = "Asia/Beirut";
$wtzdata["Cairo"] = "Africa/Cairo";
$wtzdata["Gaza"] = "Asia/Gaza";
$wtzdata["Harare, Pretoria"] = "Africa/Blantyre";
$wtzdata["Jerusalem"] = "Asia/Jerusalem";
$wtzdata["Minsk"] = "Europe/Minsk";
$wtzdata["Syria"] = "Asia/Damascus";
$wtzdata["Moscow, St. Petersburg, Volgograd"] = "Europe/Moscow";
$wtzdata["Nairobi"] = "Africa/Addis_Ababa";
$wtzdata["Tehran"] = "Asia/Tehran";
$wtzdata["Abu Dhabi, Muscat"] = "Asia/Dubai";
$wtzdata["Yerevan"] = "Asia/Yerevan";
$wtzdata["Kabul"] = "Asia/Kabul";
$wtzdata["Ekaterinburg"] = "Asia/Yekaterinburg";
$wtzdata["Tashkent"] = "Asia/Tashkent";
$wtzdata["Chennai, Kolkata, Mumbai, New Delhi"] = "Asia/Kolkata";
$wtzdata["Kathmandu"] = "Asia/Katmandu";
$wtzdata["Astana, Dhaka"] = "Asia/Dhaka";
$wtzdata["Novosibirsk"] = "Asia/Novosibirsk";
$wtzdata["Yangon (Rangoon)"] = "Asia/Rangoon";
$wtzdata["Bangkok, Hanoi, Jakarta"] = "Asia/Bangkok";
$wtzdata["Krasnoyarsk"] = "Asia/Krasnoyarsk";
$wtzdata["Beijing, Chongqing, Hong Kong, Urumqi"] = "Asia/Hong_Kong";
$wtzdata["Irkutsk, Ulaan Bataar"] = "Asia/Irkutsk";
$wtzdata["Perth"] = "Australia/Perth";
$wtzdata["Eucla"] = "Australia/Eucla";
$wtzdata["Osaka, Sapporo, Tokyo"] = "Asia/Tokyo";
$wtzdata["Seoul"] = "Asia/Seoul";
$wtzdata["Yakutsk"] = "Asia/Yakutsk";
$wtzdata["Adelaide"] = "Australia/Adelaide";
$wtzdata["Darwin"] = "Australia/Darwin";
$wtzdata["Brisbane"] = "Australia/Brisbane";
$wtzdata["Hobart"] = "Australia/Hobart";
$wtzdata["Vladivostok"] = "Asia/Vladivostok";
$wtzdata["Lord Howe Island"] = "Australia/Lord_Howe";
$wtzdata["Solomon Is., New Caledonia"] = "Etc/GMT-11";
$wtzdata["Magadan"] = "Asia/Magadan";
$wtzdata["Norfolk Island"] = "Pacific/Norfolk";
$wtzdata["Anadyr, Kamchatka"] = "Asia/Anadyr";
$wtzdata["Auckland, Wellington"] = "Pacific/Auckland";
$wtzdata["Fiji, Kamchatka, Marshall Is."] = "Etc/GMT-12";
$wtzdata["Chatham Islands"] = "Pacific/Chatham";
$wtzdata["Nuku'alofa"] = "Pacific/Tongatapu";
$wtzdata["Kiritimati"] = "Pacific/Kiritimati";
$wtzdata["Central Standard Time"] = "America/Chicago";
// manual entries
$wtzdata["GMT -0500 (Standard) / GMT -0400 (Daylight)"] = "America/New_York";
$wtzdata["Eastern Standard Time"] = "America/New_York";
$wtzdata["W. Europe Standard Time"] = "Europe/Paris";
$wtzdata["E. Europe Standard Time"] = "Europe/Helsinki";
$wtzdata["FLE Standard Time"] = "Europe/Helsinki";
$wtzdata["Mountain Standard Time"] = "America/Denver";
$wtzdata["Romance Standard Time"] = "Europe/Brussels";
$wtzdata["GMT Standard Time"] = "UTC";
$wtzdata["Tasmania Standard Time"] = "Australia/Hobart";
$wtzid = str_replace('"','',$wtzid);
return array_key_exists($wtzid,$wtzdata ) ? $wtzdata[$wtzid] : $wtzid;
}
function handleDate($key, $value)
{
$rawvalue = $value;
// we have an array of exdates
if (JString::strpos($key,"EXDATE")===0 && JString::strpos($value,",")>0){
$parts = explode(",",$value);
$value = array();
foreach ($parts as $val){
$value[] = $this->unixTime($val);
}
}
else {
$tz = false;
if (JString::strpos($key,"TZID=")>0){
$parts = explode(";",$key);
if (count($parts)>=2 && JString::strpos($parts[1],"TZID=")!==false){
$tz = str_replace("TZID=", "",$parts[1]);
$tz = iCalImport::convertWindowsTzid($tz);
}
}
$value = $this->unixTime($value, $tz);
}
$parts = explode(";",$key);
if (count($parts)<2 || JString::strlen($parts[1])==0)
{
$rawkey=$key."RAW";
return array($key,$value, $rawkey, $rawvalue);
}
$key = $parts[0];
$rawkey=$key."RAW";
return array($key,$value, $rawkey, $rawvalue);
}
function handleDuration($key,$value)
{
$rawvalue = $value;
// strip "P" from the string
$value = str_replace('P', '', $value);
// split it out intyo W D H M S
preg_match("/([0-9]*W)*([0-9]*D)*T?([0-9]*H)*([0-9]*M)*([0-9]*S)*/",$value,$details);
@list($temp,$w,$d,$h,$min,$s)=$details;
$duration = 0;
$multiplier=1;
$duration += intval(str_replace('S','',$s))*$multiplier;
$multiplier=60;
$duration += intval(str_replace('M','',$min))*$multiplier;
$multiplier=3600;
$duration += intval(str_replace('H','',$h))*$multiplier;
$multiplier=86400;
$duration += intval(str_replace('D','',$d))*$multiplier;
$multiplier=604800;
$duration += intval(str_replace('W','',$w))*$multiplier;
$rawkey=$key."RAW";
return array($key, $duration, $rawkey, $rawvalue);
}
/**
* Compare two unix timestamp
*
* @param array $a
* @param array $b
* @return integer
*/
function comparedates($a, $b)
{
if (!array_key_exists('DTSTART',$a) || !array_key_exists('DTSTART',$b) ){
echo "help<br/>";
}
if ($a['DTSTART'] == $b['DTSTART']) return 0;
return ($a['DTSTART'] > $b['DTSTART'])? +1 : -1;
}
// from http://fr3.php.net/manual/en/function.mb-detect-encoding.php#50087
function is_utf8($string) {
// From http://w3.org/International/questions/qa-forms-utf-8.html
$result = preg_match('%^(?:
[\x09\x0A\x0D\x20-\x7E] # ASCII
| [\xC2-\xDF][\x80-\xBF] # non-overlong 2-byte
| \xE0[\xA0-\xBF][\x80-\xBF] # excluding overlongs
| [\xE1-\xEC\xEE\xEF][\x80-\xBF]{2} # straight 3-byte
| \xED[\x80-\x9F][\x80-\xBF] # excluding surrogates
| \xF0[\x90-\xBF][\x80-\xBF]{2} # planes 1-3
| [\xF1-\xF3][\x80-\xBF]{3} # planes 4-15
| \xF4[\x80-\x8F][\x80-\xBF]{2} # plane 16
)*$%xs', $string);
return $result;
} // function is_utf8
// from http://fr3.php.net/manual/en/function.mb-detect-encoding.php#68607
function detectUTF8($string)
{
return preg_match('%(?:
[\xC2-\xDF][\x80-\xBF] # non-overlong 2-byte
|\xE0[\xA0-\xBF][\x80-\xBF] # excluding overlongs
|[\xE1-\xEC\xEE\xEF][\x80-\xBF]{2} # straight 3-byte
|\xED[\x80-\x9F][\x80-\xBF] # excluding surrogates
|\xF0[\x90-\xBF][\x80-\xBF]{2} # planes 1-3
|[\xF1-\xF3][\x80-\xBF]{3} # planes 4-15
|\xF4[\x80-\x8F][\x80-\xBF]{2} # plane 16
)+%xs', $string);
}
}