<?
// PFLICHT Daten zu owncloud

$kalender = array(                                       // Hier die einzelnen Kalender eintragen
				'1' => array(
					  'KalenderName'  	=> 'USER1',         // Kalender Name wie er in der Visualisierung angezeigt wird
					  'KalenderURL' 	=> 'https://www.XXX.de/cloud/index.php/apps/calendar/export.php?calid=1',    // vollständige URL zum owncloud export
					  'UserName'      	=> '',         // Benutzername in owncloud
					  'Password'		=> '',  // passendes Password zum Benutzernamen
					  'EMailID'       	=> '',
				),
				'2' => array(
					  'KalenderName'  	=> 'USER2',
					  'KalenderURL' 	=> 'https://www.XXX.de/cloud/index.php/apps/calendar/export.php?calid=1',    // vollständige URL zum owncloud export
					  'UserName'      	=> '',
					  'Password'      	=> '',
					  'EMailID'       	=> '',
				),
				'3' => array(
					  'KalenderName'  	=> 'USER3',
					  'KalenderURL' 	=> 'https://www.XXX.de/cloud/index.php/apps/calendar/export.php?calid=1',    // vollständige URL zum owncloud export
					  'UserName'      	=> '',
					  'Password'      	=> '',
					  'EMailID'       	=> '',
				),
			);


/* * Definiert das Bundesland für die Feiertage
	*  Fuer c_Property_Bundesland bitte folgende Abkuerzungen benutzen:
	*  -- = keine Auswertung
	*  BW = Baden-Württemberg
	*  BY = Bayern
	*  BE = Berlin
	*  BB = Brandenburg
	*  HB = Bremen
	*  HH = Hamburg
	*  HE = Hessen
	*  MV = Mecklenburg-Vorpommern
	*  NI = Niedersachsen
	*  NW = Nordrhein-Westfalen
	*  RP = Rheinland-Pfalz
	*  SL = Saarland
	*  SN = Sachsen
	*  ST = Sachen-Anhalt
	*  SH = Schleswig-Holstein
	*  TH = Thüringen
	*/
$bland				= "SH";


// Allgemeine Daten
$debug            = false;             	// Debug Ausgabe
$filewrite        = false;              // erstellt parallel ein ungefiltertes TextFile in Kernel\media\owncloud_ID.txt
$debugfilewrite   = false;              // Array Ausgabe zum debuggen
$htmlfilewrite    = false;              // erstellt parallel ein html File in Kernel\media\owncloud_ID.html
$maxDays          = 90;               	// Max. anzuzeigende Tage im Kalender und nächsten Termine
$abfrageintervall = 1;                 	// Abfrage Intervall in Minuten bei Email Versand MUß auf 1min stehen
$visualisierung   = 1;                 	// Einzelne Kalender in 0 = einem Ordner, 1 = Kategorien, 2 = in Dummy Instanzen
$visualoldtimes   = true;              	// Sollen abgelaufene Termine von Heute angezeigt werden false = Termine nach Endzeit, werden nicht mehr angezeigt AB V1.07

//Hier den Style wählen
$viewReminder = true; 					// (true/false) Anzeige der Erinnerung Ein/Aus

/******** Farbnamen, RGB-Formatierung, Hex-Zahlen möglich *********/
$StyleText[1] = "lightgray"; 			// Textfarbe Datum
$StyleText[2] = "gray"; 				// Textfarbe Wochentag
$StyleText[3] = "lightblue";  			// Textfarbe Termin sonstige
$StyleText[4] = "red"; 					// Textfarbe Termin Heute
$StyleText[5] = "rgba(31,50,79,0)";     // Texthintergrung Heute default: rgba(31,50,79,0)
$StyleText[6] = "lightgreen";			// Textfarbe Datum wenn Feiertag

$StyleText[7] = "#213245";    			// Verlaufsfarbe rechts
$StyleText[8] = "100%";       			// Übergang rechts
$StyleText[9] = "rgba(31,50,79,0)"; 	// Verlaufsfarbe links
$StyleText[10] = "40%";        			// Übergang links

/*** xx-small, x-small, small, normal, large, x-large, xx-large ***/
/************** oder Angabe in pt - z.B. "12pt" *******************/
$StyleText[11] = "large"; 				// Textgröße Datum
$StyleText[12] = "large"; 				// Textgröße Wochentag
$StyleText[13] = "normal"; 				// Textgröße Eintrag
$StyleText[14] = "x-large"; 			// Textgröße Heutiger Eintrag  AB V1.07

$StyleText[20] = "font-family: Arial;"; // Style der Tabelle änderbar AB V1.08

/*****************************************************************/
/*******  Für Update ab hier alles ersetzen und 1x ausführen *****/
/*****************************************************************/
/****************** Ab hier bitte nichts mehr ändern *************/
/*****************************************************************/
/*
ToDo:
RRULE Interval auswerten

Historie:
Version 1.01:
 - wenn der Kalender keine Einträge enhielt, kam es zu Fehlermeldungen.

Version 1.03:
 - Einige Bugfixes ( Einträge im falschen Kalender, Fehlermeldung bei Leeren Kalendern )
 - 2 neue Variablen Übermorgen und Überübermorgen.
 - Läuft jetzt auch auf einem Raspberry/BananaPi !

Version 1.04:
 - BugFix Für Wiederholungen ohne Ende Eintrag. (Wurden nicht angezeigt)
 - : im Beschreibung jetzt zulässig (beliebig viele)

Version 1.05:
 - Neu: Bei Terminen mit Erinnerung können jetzt EMails verschickt werden ACHTUNG Konfig 'EmailID' muß angepasst werden.

Version 1.06:
 - Bugfix: Alte Termine wurden nicht immer angezeigt.
 - Bugfix: Farben überarbeitet und funktionstüchtig gemacht
 - Bugfix: Erinnerung wurde bei mehrfachen Erinnerungen nicht sauber ausgewertet. Es wird NUR die erste Erinnerung genutzt. Erinnerung mit festen Termin wird ignoriert.
 - Neu: Feiertage werden ausgewertet und an Tagen MIT Terminen im Titel angezeigt

Version 1.07:
 - Bugfix: Termine mit Wiederholung wurden in 'Heute' nicht angezeigt.
 - Bugfix: Umlaut bei Ganztägig war in IPS4 nicht korrekt
 - Neu: Schriftgröße für 'Heutige' Termine wählbar <$StyleText[14]>
 - Neu: Abgelaufene Termine in der 'Heute' Ansicht können ausgeblendet werden <$visualoldtimes>
 - Neu: Es können jetzt beliebig viele Erinnerungen angelegt werden.
 - Neu: Eine Erinnerung kann dynamisch (z.B.15min vorher oder nachher) oder statisch (absoluter Zeitpunkt) erfolgen
 - Neu: Dynamische Erinnerungen werden in Abhängigkeit der Terminwiederholung mitgeführt.
 - Neu: Alle Erinnerungen werden in Klammern ohne Datum angezeigt.
 - Neu: Bei jeder Erinnerung wird eine Mail verschickt, sofern Mailversand aktiviert wurde.

Version 1.08:
 - Bugfix: Termine ohne Wiederholung wurden die Erinnerungen nicht erzeugt.
 - Neu: Tabellen Kopf kann ergänzt werden $StyleText[20] Muß in Konfig ergänzt werden
 - Neu: Die TerminTitel können über ein Userscript modifiziert werden. Dazu wird ein Userscript erstellt. Da können die Titel manipuliert werden (Ralf sein Wunsch)
 - Neu: Die HTML Ausgabe kann in einer Datei gespeichert werden. $htmlfilewrite Ziel: \media\owncloud_xx.html. Schon seit einigen Versionen drin.

Version 1.09:
 - Neu: Termin Intervall wird jetzt ausgewertet. Alle xx Tage/Wochen/Monate/Jahre ist jetzt möglich

Version 1.10
 - Neu: Debugausgabe der Interpretieren Daten in eine Datei /media/owncloud_xx.dbg
 - Neu: UserEvent Durch einen Termin kann ein beliebieger Befehl in IPS ausgelöst werden.
        Ort muß dabei "UserEvent" heissen und in Betreff muß der entsprechende Befehl sein.
		  z.B. HM_WriteValueBoolean(OBJECTID, "STATE", true);
		  Es geht nur ein Befehl. Alle Befehle aus IPS sind möglich!

Version 1.11
 - Neu: Debugausgaben erweitert
 - Neu: Auswertung Feiertage kann mit -- abgeschaltet werden

Version 1.12
 - Neu: Bei jährlichen Wiederholungen, wird die Anzahl der Wiederholungen hinter dem Termin angezeigt. (s. i. d. R. Geburtstage)
 - Neu: UserEvent in externes Script verlagert
 - Neu: Externes Script für UserEvent und ReminderEvent. FÜR UPDATE ALTES SCRIPT LÖSCHEN! UND EINMAL AUSFÜHREN.ES WIRD EIN NEUES ANGELEGT. ÄNDERUNGEN VORHER SICHERN!
 - Neu: Variable nächste Termine jetzt mit Anzeige Datum und Uhrzeit
 - Fix: Variablen für Termine (ausser Kalender) werden auf ~TextBox gesetzt. Damit funktioniert auch der Zeilenumbruch

Version 1.13
 - Neu: Auch für owncloud 9 nutzbar
 	ACHTUNG owncloud 8 Nutzer müssen Ihre Config anpassen
 - Change: Es muß für jeden Benutzer eine vollständige KalenderURL angegeben werden
 - Change: KalenderID entfernt
 - Change: (debug/HTML) Filewrite geändert von KalenderID zu KalenderName

Version 1.14
 - Änderungen eingepflegt: Quelle https://www.symcon.de/forum/threads/36394-owncloud-%28Script%29-Umstellung-auf-5-0-erfordert-%C3%84nderungen
 - Änderungen eingepflegt: Quelle https://www.symcon.de/forum/newreply.php?do=newreply&p=314503
 
Version 1.15
 - In 1.14 waren die Routinen doppelt
 
Version 1.16
 - Nach update Script einmal ausführen
 - Alle Termine werden in reiner Textform in die Variable KalenderTXT abgespeichert. Daten können so extern besser weiterverarbeitet werden. In KalenderTXT stehen alle Termine.
 - Feiertage überarbeitet. Buß und Bettag nur in SN, Reformationstag in BB, HB, HH, MV, NI, SN, ST, SH, TH
 
Version 1.17
  - Danke Ralf
  - iconv ergänzt

Version 1.18
  - Synology sollte jetzt auch gehen. Wenn aber über Webseite des Synology Calendars ein Termin mit erinnerung eingestellt wird, wird die erinnerung in den Export nicht eingetragen. Somit keine Benachrichtigung etc.

Version 1.18a
  - Bugfix in formatTag. Danke ralf fürs finden.
  - Bugfix Beispiel URL. Danke hardlog fürs finden.
 */ 



	// Wochentage in Deutsch
	$tag[0] = "Sonntag";
	$tag[1] = "Montag";
	$tag[2] = "Dienstag";
	$tag[3] = "Mittwoch";
	$tag[4] = "Donnerstag";
	$tag[5] = "Freitag";
	$tag[6] = "Samstag";


	if($_IPS['SENDER'] == "Execute")
	{
		//Verzeichnisse anlegen
		$adir = CreateCategoryByName(0, 'ACSoft', 'AC-Soft');
		$cdir = CreateCategoryByName($adir, 'Cloud', 'Cloud');
		$sdir = CreateCategoryByName($cdir, 'Scripte', 'Scripte');
		$ddir = CreateCategoryByName($cdir, 'Data', 'Data');
		$kdir = CreateCategoryByName($cdir, 'Konfiguration', 'Konfiguration');
		$vdir = CreateCategoryByName($cdir, 'Visualisierung', 'Visualisierung');

		foreach ($kalender as $Nummer=>$Data) {

			// Update der alten Ident zur neuen
			$mdir = @IPS_GetObjectIDByIdent($Nummer, $ddir);
			if ($mdir !== false) { IPS_SetIdent($mdir, 'Kalender_'.$Nummer); }

			// neue Ident finden
			$mdir = CreateCategoryByName($ddir, 'Kalender_'.$Nummer, 'Kalender_'.$Data['KalenderName']);

			//Variablen anlegen
			$vheute  		= CreateVariableByName($mdir, "Heute"					, "Heute"				, 3, "~TextBox", 10);
			$vmorgen 		= CreateVariableByName($mdir, "Morgen"					, "Morgen"				, 3, "~TextBox", 20);
			$vuemorgen 		= CreateVariableByName($mdir, "UeMorgen"				, "ÜberMorgen"			, 3, "~TextBox", 30);
			$vueuemorgen 	= CreateVariableByName($mdir, "UeueMorgen"				, "ÜberüberMorgen"		, 3, "~TextBox", 40);
			$vheutemorgen 	= CreateVariableByName($mdir, "HeuteMorgen"				, "Heute & Morgen"		, 3, "~TextBox", 50);
			$vnext 			= CreateVariableByName($mdir, "NaechstenTermine"		, "Nächsten Termine"	, 3, "~TextBox", 60);
			$vkalender 		= CreateVariableByName($mdir, "Kalender"				, "Kalender"			, 3, "~HTMLBox", 100);
			$vkalendertxt	= CreateVariableByName($mdir, "KalenderTXT"				, "KalenderTXT"			, 3, "~String", 110);

//			if ($debug == true)
//			{
//				$dbgNativ  		= CreateVariableByName($gdir, "Kalender_".$Nummer."_Nativ", "Kalender_".$Nummer."_Nativ", 3, "~TextBox", 100 + $Nummer);
//				$dbgthisData  	= CreateVariableByName($gdir, "Kalender_".$Nummer."_thisData", "Kalender_".$Nummer."_thisData", 3, "~TextBox", 200 + $Nummer);
//				$dbgcalData  	= CreateVariableByName($gdir, "Kalender_".$Nummer."_calData", "Kalender_".$Nummer."_calData", 3, "~TextBox", 300 + $Nummer);
//				$dbgdbgData  	= CreateVariableByName($gdir, "Kalender_".$Nummer."_debugData", "Kalender_".$Nummer."_debugData", 3, "~TextBox", 400 + $Nummer);
//			}

			if ($visualisierung == 2){ // Dummy
				$wdir = CreateInstanceByName($vdir, 'Kalender', 'Kalender');
				//Links erstellen
//					CreateLinkByName($wdir, 'Heute', $vheute, 10);
//					CreateLinkByName($wdir, 'Morgen', $vmorgen, 20);
//					CreateLinkByName($wdir, 'Heute & Morgen', $vheutemorgen, 30);
//					CreateLinkByName($wdir, 'Nächsten Termine', $vnext, 40);

				// Update der alten Ident zur neuen
				$ldir = @IPS_GetObjectIDByIdent($Nummer, $wdir);
				if ($ldir !== false) { IPS_SetIdent($ldir, 'Kalender_'.$Nummer); }
				CreateLinkByName($wdir, 'Kalender_'.$Nummer, $vkalender, 50);
				CreateLinkByName($wdir, 'KalenderTXT_'.$Nummer, $vkalendertxt, 60);

			}
			else if ($visualisierung == 1){ // Kategory
				$wdir = CreateCategoryByName($vdir, $Data['KalenderName'], $Data['KalenderName']);
				//Links erstellen
//					CreateLinkByName($wdir, 'Heute', $vheute, 10);
//					CreateLinkByName($wdir, 'Morgen', $vmorgen, 20);
//					CreateLinkByName($wdir, 'Heute & Morgen', $vheutemorgen, 30);
//					CreateLinkByName($wdir, 'Nächsten Termine', $vnext, 40);

				// Update der alten Ident zur neuen
				$ldir = @IPS_GetObjectIDByIdent($Nummer, $wdir);
				if ($ldir !== false) { IPS_SetIdent($ldir, 'Kalender_'.$Nummer); }
				CreateLinkByName($wdir, 'Kalender_'.$Nummer, 'Kalender', $vkalender, 50);
				CreateLinkByName($wdir, 'KalenderTXT_'.$Nummer, 'KalenderTXT', $vkalendertxt, 60);
			}
			else {
				$wdir = $vdir;
				//Links erstellen
//					CreateLinkByName($wdir, 'Heute', $vheute, 10);
//					CreateLinkByName($wdir, 'Morgen', $vmorgen, 20);
//					CreateLinkByName($wdir, 'Heute & Morgen', $vheutemorgen, 30);
//					CreateLinkByName($wdir, 'Nächsten Termine', $vnext, 40);

				// Update der alten Ident zur neuen
				$ldir = @IPS_GetObjectIDByIdent($Nummer, $wdir);
				if ($ldir !== false) { IPS_SetIdent($ldir, 'Kalender_'.$Nummer); }
				CreateLinkByName($wdir, 'Kalender_'.$Nummer, "Kalender ".$Data['KalenderName'], $vkalender, 50);
				CreateLinkByName($wdir, 'KalenderTXT_'.$Nummer, "KalenderTXT ".$Data['KalenderName'], $vkalendertxt, 60);
			}
		}

		//  UserScripte erstellen
		$kscript 		= CreateScriptByName($sdir, "UserScripte", "UserScripte",
'<?
/*****************************************************************/
//
// Modifiziert den TerminTitel bei Bedarf
//
/*****************************************************************/
	function ModifyTitle($Titel)
	{
	   // $Titel = str_replace("Geburtstag","Geb",$Titel);
		return $Titel;
	}

/*****************************************************************/
//
// Löst den Befehl aus, der über die Befehl übergeben wurde.
// Auslösung erfolgt zum Zeitpunkt des Termins.
//
/*****************************************************************/
	function UserEvent($Befehl, $Titel)
	{
		IPS_LogMessage("ownCloud-Modul", "UserEvent: ".$Befehl." von ".$Titel);

		ob_start();
		eval($Befehl);
		ob_get_clean();
	}

/*****************************************************************/
//
// Funktion wird zum Zeitpunkt der Erinnerung ausgelöst.
// Email Versand erfolgt unabhängig davon.
//
/*****************************************************************/
	function ReminderEvent($Titel)
	{
		IPS_LogMessage("ownCloud-Modul", "ReminderEvent: ".$Titel);

	}
?>');

		// Script verschieben
		IPS_SetParent($_IPS['SELF'], $sdir);
		IPS_SetName($_IPS['SELF'], 'Cloud Script');

		// Timer erstellen
		CreateTimer_Profile('Cloud Timer','CloudTimer', $_IPS['SELF'], 0, 0, 0, true);
	}




	if(($_IPS['SENDER'] == "TimerEvent") || ($_IPS['SENDER'] == "Execute")){

		// Kategorien finden
		$adir = IPS_GetObjectIDByIdent('ACSoft', 0);
		$cdir = IPS_GetObjectIDByIdent('Cloud', $adir);
		$ddir = IPS_GetObjectIDByIdent('Data', $cdir);
		$sdir = IPS_GetObjectIDByIdent('Scripte', $cdir);

		//  UserScripte includen
		$kscript = IPS_GetObjectIDByIdent("UserScripte",$sdir);
		include "$kscript.ips.php";

		foreach ($kalender as $Nummer=>$Data){
			$date = "";
			$heute = "";
			$morgen = "";
			$uemorgen = "";
			$ueuemorgen = "";
			$heuteumorgen = "";
			$next = "";
			$calDataArray = array();
			$calDataHTML = "";
			$calDataTXT = "";
			$thisData = array();
			$debugData = array();

			if ($debug == true){
				   print "*****************************************************\n\tKalender_$Nummer\n*****************************************************\n";
			}

			ReadCalendar($Data['KalenderURL'], $Data['UserName'], $Data['Password'], $Nummer, $Data['KalenderName']);

			if ($calDataArray != ""){
				usort($calDataArray, 'DateCompare');

				// Starte Tabellenansicht
				$calDataHTML = "<table style='border-spacing:0px; width:100%; ".$StyleText[20]."'>"
								 ."\n\t<tr>"
								 ."\n\t\t<td>"
								 ."\n\t\t</td>"
								 ."\n\t\t<td style='text-align:right; font-size:xx-small;'>owncloud Script V 1.18a"
								 ."\n\t\t</td>"
								 ."\n\t</tr>";
				$check_date = "";
				$debugCount = 0;
				foreach($calDataArray as $thisData){
					// Email Versand bei Erinnerungszeit
					foreach($thisData['ReminderDateTxt'] as $no => $reminderZeit){
						// ReminderEvent auslösen
						if( ($reminderZeit <> "") ){
							if  ($reminderZeit == date("d.m.Y H:i", time())){
								ReminderEvent($thisData['Bezeichnung']);
							}
						}

						// Email Versand bei Erinnerungszeit
						if( ($Data['EMailID'] > 0) &&  ($reminderZeit <> "") ){
							if  ($reminderZeit == date("d.m.Y H:i", time())){
								SMTP_SendMail($Data['EMailID'], "Termin Erinnerung für ".$thisData['Bezeichnung'], "       Datum: ".$thisData['DatumTxt']."\n\r     Uhrzeit: ".$thisData['ZeitTxt']."\n\r Bezeichnung: ".$thisData['Bezeichnung']."\n\rBeschreibung: ".$thisData['Beschreibung']."\n\r");
							}
						}
					}

					// UserEvent ausführen
					if  ( ($thisData['DatumTxt']." ".$thisData['ZeitTxt'] == date("d.m.Y H:i", time())) && ($thisData['UserEvent'] <> "") ){
						UserEvent($thisData['UserEvent'], $thisData['Bezeichnung'] );
					}

					// Variable Heute füllen
					if( ( $thisData['DatumTxt'] == date("d.m.Y", time())  && $visualoldtimes == true ) ||
					(	$thisData['EndDatum'] >= strtotime(date("d.m.Y H:i", time())) && $thisData['EndDatum'] < strtotime(date("d.m.Y 23:59:59", time()))&& $visualoldtimes == false )){
						$jahre = "";
						if ($thisData['Wiederholungen'] > 0) $jahre = " (".$thisData['Wiederholungen']."J)";

						if ($heute == "")
						{	$heute = $thisData['ZeitTxt']." ".$thisData['Bezeichnung'].$jahre;	}
						else
						{	$heute = $heute.chr(13).chr(10).$thisData['ZeitTxt']." ".$thisData['Bezeichnung'].$jahre;	}

						if ($calDataTXT == "" )
						{	$calDataTXT = $thisData['DatumTxt']." ".$thisData['ZeitTxt']." ".$thisData['Bezeichnung'].$jahre;	}
						else
						{	$calDataTXT = $calDataTXT.chr(13).chr(10).$thisData['DatumTxt']." ".$thisData['ZeitTxt']." ".$thisData['Bezeichnung'].$jahre;	}
					}

					// Variable Morgen füllen
					if($thisData['DatumTxt'] == date("d.m.Y", time() + (24 * 60 * 60))){
						$jahre = "";
						if ($thisData['Wiederholungen'] > 0) $jahre = " (".$thisData['Wiederholungen']."J)";

						if ($morgen == "")
						{	$morgen = $thisData['ZeitTxt']." ".$thisData['Bezeichnung'].$jahre;	}
						else
						{	$morgen = $morgen.chr(13).chr(10).$thisData['ZeitTxt']." ".$thisData['Bezeichnung'].$jahre; }
						
						if ($calDataTXT == "" )
						{	$calDataTXT = $thisData['DatumTxt']." ".$thisData['ZeitTxt']." ".$thisData['Bezeichnung'].$jahre;	}
						else
						{	$calDataTXT = $calDataTXT.chr(13).chr(10).$thisData['DatumTxt']." ".$thisData['ZeitTxt']." ".$thisData['Bezeichnung'].$jahre;	}

					}

					// Variable Übermorgen füllen
					if($thisData['DatumTxt'] == date("d.m.Y", time()+(2 * 24 * 60 * 60))){
						$jahre = "";
						if ($thisData['Wiederholungen'] > 0) $jahre = " (".$thisData['Wiederholungen']."J)";

						if ($uemorgen == ""){
							$uemorgen = $thisData['ZeitTxt']." ".$thisData['Bezeichnung'].$jahre;
						}
						else{
							$uemorgen = $uemorgen.chr(13).chr(10).$thisData['ZeitTxt']." ".$thisData['Bezeichnung'].$jahre;
						}
					}

					// Variable Überübermorgen füllen
					if($thisData['DatumTxt'] == date("d.m.Y", time()+(3 * 24 * 60 * 60))){
						$jahre = "";
						if ($thisData['Wiederholungen'] > 0) $jahre = " (".$thisData['Wiederholungen']."J)";

						if ($ueuemorgen == ""){
							$ueuemorgen = $thisData['ZeitTxt']." ".$thisData['Bezeichnung'].$jahre;
						}
						else{
							$ueuemorgen = $ueuemorgen.chr(13).chr(10).$thisData['ZeitTxt']." ".$thisData['Bezeichnung'].$jahre;
						}
					}

					// Variable Next füllen
					if(strtotime($thisData['DatumTxt']) >= strtotime(date("d.m.Y", time() + (2*24 * 60 * 60)))){
						$jahre = "";
						if ($thisData['Wiederholungen'] > 0) $jahre = " (".$thisData['Wiederholungen']."J)";

						if ($next == "")
						{	$next = $thisData['DatumTxt']." ".$thisData['ZeitTxt']." ".$thisData['Bezeichnung'].$jahre;	}
						else
						{	$next = $next.chr(13).chr(10).$thisData['DatumTxt']." ".$thisData['ZeitTxt']." ".$thisData['Bezeichnung'].$jahre;	}

						if ($calDataTXT == "" )
						{	$calDataTXT = $thisData['DatumTxt']." ".$thisData['ZeitTxt']." ".$thisData['Bezeichnung'].$jahre;	}
						else
						{	$calDataTXT = $calDataTXT.chr(13).chr(10).$thisData['DatumTxt']." ".$thisData['ZeitTxt']." ".$thisData['Bezeichnung'].$jahre;	}

					}

					// Variable "Heute & Morgen" füllen
					if ($heute == "") { $heuteumorgen = $morgen; } else { $heuteumorgen = $heute.chr(13).chr(10).$morgen; }

					// Variable Kalender füllen
					if(((strtotime($thisData['EndDatumTxt']) >= strtotime(date("d.m.Y", time()))) && $visualoldtimes == true ) ||
				   ($thisData['EndDatum'] >= strtotime(date("d.m.Y H:i", time())) && $visualoldtimes == false )){
						if($check_date != "" and $thisData['DatumTxt'] != $check_date)$calDataHTML .= "\n\t\t\t</table>\n\t\t</th>\n\t</tr>";
						if($thisData['DatumTxt'] != $check_date){
							if     ($thisData['DatumTxt'] == date("d.m.Y")) $headerTxt = "Heute:";
							elseif ($thisData['DatumTxt'] == date("d.m.Y", strtotime("+1 day"))) $headerTxt = "Morgen:";
							else    $headerTxt = $thisData['DatumTxt']." in ".seDay($thisData['DatumTxt'],date("d.m.Y"),"dmY",".")." Tagen";

							$calDataHTML .= "\n"
										."\n\t<tr>\n\t\t<td style=' padding:4px;"
										."\n\t\t\t\t\tbackground-color:".$StyleText[7].";"
										."\n\t\t\t\t\tbackground: -moz-linear-gradient(left, ".$StyleText[9]." ".$StyleText[10].", ".$StyleText[7]." ".$StyleText[8].");"
										."\n\t\t\t\t\tbackground: -webkit-gradient(linear, left top, right top, color-stop(4%,".$StyleText[9]."), color-stop(".$StyleText[8].",".$StyleText[7]."));"
										."\n\t\t\t\t\tbackground: -webkit-linear-gradient(left, ".$StyleText[9]." ".$StyleText[10].", ".$StyleText[7]." ".$StyleText[8].");"
										."\n\t\t\t\t\tbackground: -o-linear-gradient(left, ".$StyleText[9]." ".$StyleText[10].", ".$StyleText[7]." ".$StyleText[8].");"
										."\n\t\t\t\t\tbackground: -ms-linear-gradient(left, ".$StyleText[9]." ".$StyleText[10].", ".$StyleText[7]." ".$StyleText[8].");"
										."\n\t\t\t\t\tbackground: linear-gradient(to right, ".$StyleText[9]." ".$StyleText[10]."), ".$StyleText[7]." ".$StyleText[8].";'>";

							$feiertag = get_Feiertag(strtotime($thisData['DatumTxt']));
							if ($feiertag <> ""){
								$calDataHTML  .= "\n\t\t\t\t<span style='color:".$StyleText[6].";font-weight:200;font-size:".$StyleText[11]."'>".$headerTxt." ( $feiertag )";
							}
							else{
								$calDataHTML  .= "\n\t\t\t\t<span style='color:".$StyleText[1].";font-weight:200;font-size:".$StyleText[11]."'>".$headerTxt;
							}

							$calDataHTML .= "\n\t\t\t\t</span>\n\t\t</td>"
										."\n\t\t<td style=' text-align:right; width:100px; padding:4px;background-color:".$StyleText[7]."'>"
										."\n\t\t\t\t<span style='color:".$StyleText[2].";font-weight:normal;font-size:".$StyleText[12]."'>".$tag[date("w", strtotime($thisData['DatumTxt']))]
										."\n\t\t\t\t</span>"
										."\n\t\t</td>"
										."\n\t</tr>"
										."\n\t<tr>"
										."\n\t\t<th colspan='2' style='text-align:left; padding-left:20px; padding-right:0px; padding-bottom:10px; padding-top:0px;'>";

							if($thisData['DatumTxt'] == date("d.m.Y")){
								$calDataHTML  .= "\n\t\t\t<table style='border-spacing:0px; width:100%; padding:5px; border:1px solid #1f3247; background-color: ".$StyleText[5]."; '>";
							}
							else{
								$calDataHTML  .= "\n\t\t\t<table style='border-spacing:0px; width:100%; padding:5px; border:1px solid #1f3247; background-color: ".$StyleText[9]."; '>";
							}

							$check_date = $thisData['DatumTxt'];
						}
						$calDataHTML .= SetEintrag($thisData);

						if ($debugfilewrite == true){
							$debugData[$debugCount] = $thisData;
						}

						if ($debug == true){
							print "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\tVariable: thisData #$debugCount\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n";
							print_r($thisData)."\n\n";
						}
					}
					$debugCount++;
				}
				$calDataHTML .= "\n\t\t</table>"
							."\n\t\t</th>"
							."\n\t</tr>"
							."\n</table>"; // Tabelle schließen


	//      			if ($debug) IPS_LogMessage("owncloud", "name: ".$Data['KalenderName'].", mdir:$mdir, kalender:".IPS_GetObjectIDByIdent("Kalender",$mdir)."\r\n");
	//      			if ($debug) print "name: ".$Data['KalenderName'].", mdir:$mdir, kalender:".IPS_GetObjectIDByIdent("Kalender",$mdir)."\r\n";
				$mdir = IPS_GetObjectIDByIdent('Kalender_'.$Nummer, $ddir);

				SetValue(IPS_GetObjectIDByIdent("Heute",$mdir), $heute);
				SetValue(IPS_GetObjectIDByIdent("Morgen",$mdir), $morgen);
				SetValue(IPS_GetObjectIDByIdent("UeMorgen",$mdir), $uemorgen);
				SetValue(IPS_GetObjectIDByIdent("UeueMorgen",$mdir), $ueuemorgen);
				SetValue(IPS_GetObjectIDByIdent("HeuteMorgen",$mdir), $heuteumorgen);
				SetValue(IPS_GetObjectIDByIdent("NaechstenTermine",$mdir), $next);
				SetValue(IPS_GetObjectIDByIdent("Kalender",$mdir), $calDataHTML);
				SetValue(IPS_GetObjectIDByIdent("KalenderTXT",$mdir), $calDataTXT);

				if ($htmlfilewrite == true){
					$file_txt = IPS_GetKernelDir()."media\\owncloud_".$Data['KalenderName'].".html";
					$fp = fopen($file_txt, 'wb');
					fwrite($fp, $calDataHTML);
					fclose($fp);
				}

				if ($debugfilewrite == true){
					$file_txt = IPS_GetKernelDir()."media\\owncloud_".$Data['KalenderName'].".dbg";
					$fp = fopen($file_txt, 'wb');
					fwrite($fp, print_r($debugData, true));
					fclose($fp);
				}

				if ($debug == true){
					print "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\tVariable: calDataTxt\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n";
					print $calDataHTML."\n\n";
					print "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\tVariable: debugData\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n";
					print_r($debugData)."\n\n";
				}
			}
		}
	}


/*****************************************************************/
/*****************************************************************/
/*                                                               */
/*                  F u n k t i o n e  n                         */
/*                                                               */
/*****************************************************************/
/*****************************************************************/

/*****************************************************************/
/*
/* Erstellt Timer Profil, wenn noch keins vorhanden.
/* Andernfalls wird der Timer gestellt.
/* Rückgabe ObjectID des Timers
/*
/*****************************************************************/
	function CreateTimer_Profile ($Name, $Ident, $ParentId, $Stunde=0, $Minute=0, $Position=0, $Status=true) {
		Global  $abfrageintervall, $debug;
		$TimerId = @IPS_GetObjectIDByIdent($Ident, $ParentId);
		if ($TimerId === false){
 			$TimerId = IPS_CreateEvent(1 );
			IPS_SetParent($TimerId, $ParentId);
			IPS_SetName($TimerId, $Name);
			IPS_SetIdent($TimerId, $Ident);
			if ( IPS_GetKernelVersion() >= "3.10"){
				if (!IPS_SetEventCyclic($TimerId, 0 , 0,0,0,2,$abfrageintervall)){
					Error ("IPS_SetEventCyclic failed !!!");
				}
				if (!IPS_SetEventCyclicTimeFrom($TimerId, intval($Stunde), intval($Minute), 0)) {
					Error ("IPS_SetEventCyclicTimeBounds $TimerId with Time $zeit failed !!!");
				}
				if (!IPS_SetEventCyclicDateFrom($TimerId, 0, 0, 0)) {
					Error ("IPS_SetEventCyclicTimeBounds $TimerId with DefaultDate failed !!!");
				}
			}
			else{
				if (!IPS_SetEventCyclicTimeBounds($TimerId, mktime($Stunde, $Minute, 0), 0)) {
					Error ("IPS_SetEventCyclicTimeBounds failed !!!");
				}
			}

			IPS_SetPosition($TimerId, $Position);
			if ($debug) IPS_LogMessage("ownCloud", "Created Wecker Timer ".$Name."=".$TimerId);
		}

		if (!IPS_SetEventCyclic($TimerId, 0 , 0,0,0,2,$abfrageintervall)) {
			Error ("IPS_SetEventCyclic failed !!!");
		}
		IPS_SetEventActive($TimerId, $Status);
		return $TimerId;
	}

/*****************************************************************/
/*
/* Erstellt Script, wenn noch keins vorhanden.
/* Rückgabe ObjectID des Scriptes
/*
/*****************************************************************/
	function CreateScriptByName($id, $ident, $name, $value = "<?\n\n //Fügen Sie hier Ihren Skriptquellcode ein\n\n?>\n"){
		Global $_IPS;
	    $vscr = @IPS_GetObjectIDByIdent($ident, $id);
	    if($vscr === false){
			$vscr = IPS_CreateScript(0);
			IPS_SetParent($vscr, $id);
			IPS_SetName($vscr, $name);
			IPS_SetIdent($vscr, $ident);
			IPS_SetInfo($vscr, "this variable was created by script #".$_IPS['SELF']);
			IPS_SetScriptFile($vscr, $vscr.".ips.php");
			IPS_SetScriptContent($vscr, $value);
		}
	    return $vscr;
	}

/*****************************************************************/
/*
/* Erstellt Link, wenn noch keiner vorhanden ist.
/* Rückgabe ObjectID des Links
/*
/*****************************************************************/
	function CreateLinkByName($id, $ident, $name, $target, $position){
		Global $_IPS;

    	$vlnk = @IPS_GetObjectIDByIdent($ident, $id);
	    if($vlnk === false){
			$vlnk = IPS_CreateLink();
			IPS_SetParent($vlnk, $id);
			IPS_SetName($vlnk, $name);
			IPS_SetIdent($vlnk, $ident);
			IPS_SetInfo($vlnk, "this variable was created by script #".$_IPS['SELF']);
			IPS_SetPosition($vlnk, $position);
			IPS_SetLinkTargetID($vlnk, $target);
		}
	    return $vlnk;
	}

/*****************************************************************/
/*
/* Erstellt DummyInstanze, wenn nicht vorhanden.
/* Rückgabe ObjectID der DummyInstanze
/*
/*****************************************************************/
	function CreateInstanceByName($id, $ident, $name){
		Global $_IPS;
	    $vinst = @IPS_GetObjectIDByIdent($ident, $id);
	    if($vinst === false){
			$vinst = IPS_CreateInstance("{485D0419-BE97-4548-AA9C-C083EB82E61E}");
			IPS_SetParent($vinst, $id);
			IPS_SetName($vinst, $name);
			IPS_SetIdent($vinst, $ident);
			IPS_SetInfo($vinst, "this variable was created by script #".$_IPS['SELF']);
		}
	    return $vinst;
	}

/*****************************************************************/
/*
/* Erstellt Kategory, wenn nicht vorhanden.
/* Rückgabe ObjectID des Kategory
/*
/*****************************************************************/
	function CreateCategoryByName($id, $ident, $name){
		Global $_IPS;

	    $vdir = @IPS_GetObjectIDByIdent($ident, $id);
	    if($vdir === false){
			$vdir = IPS_CreateCategory();
			IPS_SetParent($vdir, $id);
			IPS_SetName($vdir, $name);
			IPS_SetIdent($vdir, $ident);
			IPS_SetInfo($vdir, "this variable was created by script #".$_IPS['SELF']);
		}
	    return $vdir;
	}

/*****************************************************************/
//
// Erstellt Variable, wenn nicht vorhanden.
// Andernfalls, wird diese aktualisiert
// Rückgabe ObjectID des Variable
//
/*****************************************************************/
	function CreateVariableByName($id, $ident, $name, $type, $profile = "", $position = 0){
		Global $_IPS;
	    $vid = @IPS_GetObjectIDByIdent($ident, $id);
	    if($vid === false){
	        $vid = IPS_CreateVariable($type);
	        IPS_SetParent($vid, $id);
	        IPS_SetName($vid, $name);
	 		IPS_SetIdent($vid, $ident);
			IPS_SetPosition($vid, $position);
	        IPS_SetInfo($vid, "this variable was created by script #".$_IPS['SELF']);
	        if($profile !== "") { IPS_SetVariableCustomProfile($vid, $profile); }
	    }
	    return $vid;
	}


/*****************************************************************/
//
// Erstellt Einzelnen Eintrag im Kalender
// Getrennt für Heute und restlichen Termine
//
//
/*****************************************************************/
	function SetEintrag($thisData){
	   global $tag, $deco, $StyleText, $viewReminder;
	   if($thisData['ZeitTxt'] == "00:00"){
	        if($thisData['DatumTxt'] == $thisData['EndDatumTxt']) $thisData['ZeitTxt']="Ganzt&aumlgig";
	        else $thisData['ZeitTxt']="bis ".substr($tag[date("w", strtotime($thisData['EndDatumTxt']))],0,2).", ".$thisData['EndDatumTxt'];
		}

		$remind = "";
		if ($viewReminder){
				foreach($thisData['ReminderTimeTxt'] as $no => $Datum){
						if (($Datum <> "") && ($no == 0)) $remind .= "(".$Datum;
						if (($Datum <> "") && ($no  > 0)) $remind .= ", ".$Datum;
						if (($Datum <> "") && ($no == count($thisData['ReminderTimeTxt'])-1) ) $remind .= ")  ";
				}
		}

		$jahre = "";
		if ($thisData['Wiederholungen'] > 0) $jahre = " (".$thisData['Wiederholungen']."J)";

		if($thisData['DatumTxt'] == date("d.m.Y")){
	        return  "\n\t\t\t\t<tr>"
			        ."\n\t\t\t\t\t<td>"
					."\n\t\t\t\t\t\t<span style='font-weight:normal;font-size:".$StyleText[14]."; color:".$StyleText[4]."'>".$thisData['Bezeichnung'].$jahre
					."\n\t\t\t\t\t\t</span>"
					."\n\t\t\t\t\t</td>"
					."\n\t\t\t\t\t<td style='text-align:right;'>"
					."\n\t\t\t\t\t\t<span style='font-weight:normal;font-size:".$StyleText[14]."; color:".$StyleText[4]."'>".$remind.$thisData['ZeitTxt']
					."\n\t\t\t\t\t\t</span>"
					."\n\t\t\t\t\t</td>"
					."\n\t\t\t\t</tr>";
	    }
	    else{
	        return  "\n\t\t\t\t<tr>"
					."\n\t\t\t\t\t<td>"
					."\n\t\t\t\t\t\t<span style='font-weight:normal;font-size:".$StyleText[13].";color:".$StyleText[3]."'>".$thisData['Bezeichnung'].$jahre
					."\n\t\t\t\t\t\t</span>"
					."\n\t\t\t\t\t</td>"
					."\n\t\t\t\t\t<td style='text-align:right'>"
					."\n\t\t\t\t\t\t<span style='font-weight:normal;font-size:".$StyleText[13].";color:".$StyleText[3]."'>".$remind.$thisData['ZeitTxt']
					."\n\t\t\t\t\t\t</span>"
					."\n\t\t\t\t\t</td>"
					."\n\t\t\t\t</tr>";
	    }
	}

/*****************************************************************/
//
//
//
//
//
/*****************************************************************/
	function seDay($begin,$end,$format,$sep){

		$pos1	= strpos($format, 'd');
		$pos2	= strpos($format, 'm');
		$pos3	= strpos($format, 'Y');

		$begin	= explode($sep,$begin);
		$end		= explode($sep,$end);

		$first 	= GregorianToJD($end[$pos2],$end[$pos1],$end[$pos3]);
		$second	= GregorianToJD($begin[$pos2],$begin[$pos1],$begin[$pos3]);

		if($first > $second)
			return $first - $second;
		else
			return $second - $first;

	}


/*****************************************************************/
//
// Vergleicht Datum
//
// Rückgabe: 0 ist identisch, -1 ist A älter als B, 1 ist A jünger als B
//
/*****************************************************************/
	function DateCompare($a, $b){
	    if ( $a['Datum'] == $b['Datum'] ) return 0;
	    if ( $a['Datum'] < $b['Datum'] )  return -1;
	    return 1;
	}


/*****************************************************************/
//
// Liest den kompletten Kalender
// Sortierung in eine Variable
// Auswertung jeder einzelnen Eintrages
// Erzeugung der Wiederholungen in Unterroutine
//
/*****************************************************************/
	function ReadCalendar($url, $username, $password, $Nummer, $Name){
		global $calDataArray, $debug, $filewrite;
		$ch = curl_init();
		curl_setopt ($ch, CURLOPT_URL, $url);
		curl_setopt ($ch, CURLOPT_SSL_VERIFYHOST, false); 
		curl_setopt ($ch, CURLOPT_SSL_VERIFYPEER, false);
		curl_setopt ($ch, CURLOPT_USERAGENT, "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6");
		curl_setopt ($ch, CURLOPT_CONNECTTIMEOUT,20);
		curl_setopt ($ch, CURLOPT_TIMEOUT, 120);
		curl_setopt ($ch, CURLOPT_FOLLOWLOCATION, 0);
		curl_setopt ($ch, CURLOPT_RETURNTRANSFER, 1);
		curl_setopt ($ch, CURLOPT_USERPWD, $username.':'.$password);
		$result = curl_exec ($ch);
		curl_close($ch);


		if(substr($result,0,15) == "BEGIN:VCALENDAR"){
			if ($filewrite == true){
					$file_txt = IPS_GetKernelDir()."media\\owncloud_".$Name.".txt";
					$fp = fopen($file_txt, 'wb');
					fwrite($fp, $result);
					fclose($fp);
			}

			if ($debug == true) print $result."\n\n";

			$kalender_arr_komplett = explode("BEGIN:VEVENT", $result);

//print $kalender_arr_komplett[3];

			//alle Datensätze durchlaufen
			foreach($kalender_arr_komplett as $key => $value){

				// Nur zwischen Begin:EVENT und END:EVENT filtern
				$nvalue =  substr($value, 0, strpos($value, "END:VEVENT"));

				$reminderCount = 0;
				if (($nvalue <> "") && ($key > 0)){ // Leere Einträge filtern
					$sresult = explode("\r\n", $nvalue);

					$startTime = '';
					$endTime = '';
					$reminderTime = -1;
					$rruleFreq = '';
					$rruleCount = '';
					$rruleEnd = '';
					$rruleEndtxt = '';
					$rruleDays = '';
					$rruleMonth = '';
					$rruleMonthDay = '';
					$rruleIntervall = '';
					$thisData = array();
					$alarmData = false;
					$thisData['Bezeichnung'] = '';
					$thisData['Beschreibung'] = '';
					$thisData['Ort'] = "";
					$thisData['UserEvent'] = "";
					$thisData['Datum'] = '';
					$thisData['ZeitTxt'] = '';
					$thisData['DatumTxt'] = '';
					$thisData['EndDatum'] = '';
					$thisData['EndZeitTxt'] = '';
					$thisData['EndDatumTxt'] = '';
					$thisData['Wiederholungen'] = '';
					$thisData['RRuleFreq'] = '';
					$thisData['RRuleInterval'] = '';
					$thisData['RRuleEnd'] = '';
					$thisData['RRuleEndTxt'] = '';
					$thisData['RRuleCount'] = '';
					$thisData['RRuleDays'] = '';
					$thisData['RRuleMonth'] = '';
					$thisData['RRuleMonthDay'] = '';
					$thisData['ReminderTime'] = array('');
					$thisData['ReminderTimeTxt'] = array('');
					$thisData['ReminderDateTxt'] = array('');
					$thisData['ReminderTrigger'] = array('');

					if ($debug) IPS_LogMessage("ownCloud", "T:$key\n");
					
					foreach($sresult as $svalue){
						if ($svalue <> ""){
							if ($svalue == "BEGIN:VALARM") $alarmData = true;
							if ($svalue == "END:VALARM") $alarmData = false;
							$xvalue = explode(':',$svalue);

							if ($xvalue[0] == "SUMMARY"){
								$title = "";
								for($i = 1; $i < (count($xvalue) ); $i++){
									if ($i > 1) $title .= ":";
									$title.= $xvalue[$i];
								}
								// Danke ralf
								$thisData['Bezeichnung'] = iconv('UTF-8//IGNORE', 'ISO-8859-15//IGNORE', ModifyTitle($title));  
							}

							if ($xvalue[0] == "LOCATION"){
								$thisData['Ort'] = $xvalue[1];
							}

							// Start Datum/Zeit filtern
							if (substr($xvalue[0],0,7) == "DTSTART"){
								if (strlen($xvalue[1]) == 8){
									$startyear = substr($xvalue[1],0,4);
									$startmonth = substr($xvalue[1],4,2);
									$startday = substr($xvalue[1],6,2);
									$startTime = strtotime( "$startday.$startmonth.$startyear 00:00" );
								}
								else{
									$startyear = substr($xvalue[1],0,4);
									$startmonth = substr($xvalue[1],4,2);
									$startday = substr($xvalue[1],6,2);
									$starthour = substr($xvalue[1],9,2);
									$startminute = substr($xvalue[1],11,2);
									$startTime = strtotime( "$startday.$startmonth.$startyear $starthour:$startminute" );
								}
							}

							// Ende Datum/Zeit filtern
							if (substr($xvalue[0],0,5) == "DTEND"){
								if (strlen($xvalue[1]) == 8){
									$endyear = substr($xvalue[1],0,4);
									$endmonth = substr($xvalue[1],4,2);
									$endday = substr($xvalue[1],6,2);
									$endTime = strtotime( "$endday.$endmonth.$endyear 00:00" );
								}
								else{
									$endyear = substr($xvalue[1],0,4);
									$endmonth = substr($xvalue[1],4,2);
									$endday = substr($xvalue[1],6,2);
									$endhour = substr($xvalue[1],9,2);
									$endminute = substr($xvalue[1],11,2);
									$endTime = strtotime( "$endday.$endmonth.$endyear $endhour:$endminute" );
								}
							}

							if (substr($xvalue[0],0,5) == "RRULE"){
								$rrule = explode(';',$xvalue[1]);
								foreach($rrule as $xrule){
									$srule = explode('=',$xrule);
									if ($xrule == "FREQ=DAILY")    $rruleFreq = "täglich";
									if ($xrule == "FREQ=WEEKLY")   $rruleFreq = "wöchentlich";
									if ($xrule == "FREQ=MONTHLY")  $rruleFreq = "monatlich";
									if ($xrule == "FREQ=YEARLY")   $rruleFreq = "jährlich";

									if ($srule[0] == "COUNT")      $rruleCount = $srule[1];
									if ($srule[0] == "BYDAY")      $rruleDays = $srule[1];
									if ($srule[0] == "BYMONTH")    $rruleMonth = $srule[1];
									if ($srule[0] == "BYMONTHDAY") $rruleMonthDay = $srule[1];
									if ($srule[0] == "INTERVAL")   $thisData['RRuleInterval'] = $srule[1];
									if ($srule[0] == "UNTIL"){
										$ryear = substr($xrule,6,4);
										$rmonth = substr($xrule,10,2);
										$rday = substr($xrule,12,2);
										$rhour = substr($xrule,15,2);
										$rminute = substr($xrule,17,2);
										$rruleEnd  = strtotime( "$rday.$rmonth.$ryear" );
										$rruleEndtxt = "$rday.$rmonth.$ryear";
									}
								}
							}

							if ((substr($xvalue[0],0,11) == "DESCRIPTION") && ($alarmData == false)){
								// Danke ralf
								$thisData['Beschreibung'] = iconv('UTF-8//IGNORE','ISO-8859-15//IGNORE',$xvalue[1]);
							}

							if (substr($xvalue[0],0,8) == "LOCATION"){
								// Danke ralf
								$thisData['Ort'] = iconv('UTF-8//IGNORE','ISO-8859-15//IGNORE',$xvalue[1]);
							}

							if (substr($xvalue[0],0,10) == "CATEGORIES"){
								$thisData['Kategorie'] = $xvalue[1];
							}

							if ((substr($xvalue[0],0,7) == "TRIGGER") ){
								$thisData['ReminderTrigger'][$reminderCount] = substr($xvalue[0],14).":".$xvalue[1];
								$reminderCount++;
							}
						}
					}

					$thisData['Datum'] = $startTime;
					$thisData['ZeitTxt'] = date("H:i", $startTime);
					$thisData['DatumTxt'] = date("d.m.Y", $startTime);

					if ($endTime>0)
					{
						  $thisData['EndDatum'] = $endTime;
							$thisData['EndZeitTxt'] = date("H:i", $endTime);
							$thisData['EndDatumTxt'] = date("d.m.Y", $endTime);
							if($thisData['ZeitTxt'] == "00:00" && $thisData['EndZeitTxt'] == "00:00")
							{
								  $thisData['EndDatum'] = $endTime - 86400;
									$thisData['EndDatumTxt'] = date("d.m.Y", strtotime($thisData['EndDatumTxt']."-1 day"));
							}
					}
					else
					{
							$thisData['EndDatum'] = '';
							$thisData['EndZeitTxt'] = '';
							$thisData['EndDatumTxt'] = '';
					}


					$thisData['RRuleFreq'] = $rruleFreq;
					$thisData['RRuleEnd'] = $rruleEnd;
					$thisData['RRuleEndTxt'] = $rruleEndtxt;
					$thisData['RRuleCount'] = $rruleCount;
					$thisData['RRuleDays'] = $rruleDays;
					$thisData['RRuleMonth'] = $rruleMonth;
					$thisData['RRuleMonthDay'] = $rruleMonthDay;

				  if ($thisData['Ort'] == "UserEvent")
				  {
						  $thisData['UserEvent'] = substr($thisData['Beschreibung'],0,strpos($thisData['Beschreibung'],";") + 1);
						  $thisData['UserEvent'] = str_replace("\;",";",$thisData['UserEvent']);
						  $thisData['UserEvent'] = str_replace("\,",",",$thisData['UserEvent']);
					}

					CheckWiederholungen($thisData);
				}
			}
		}
		else{
			IPS_LogMessage("ownCloud", "Keine Sinnvollen Daten von ownCloud erhalten\n\n".$result);
			if ($debug == true){
				print "Keine Sinnvollen Daten von ownCloud erhalten\nResult:\n".$result."\nURL: ".$url."\n";
				print_r($ch);
				print "\n\n";
			}

		}
	}

/*****************************************************************/
// Formartiert die 3 stelligen Wochentage zu 2 stelligen
// Rückgabe 2 stellig
//
/*****************************************************************/
	function formatTag($DateItem) {
		$Translation = array(
		    'Mon'       => 'MO',
		    'Tue'       => 'TU',
		    'Wed'       => 'WE',
		    'Thu'       => 'TH',
		    'Fri'       => 'FR',
		    'Sat'       => 'SA',
		    'Sun'       => 'SU',
		);
		return $Translation[$DateItem];
	}


/*****************************************************************/
//
// Prüft einen einzelnen Termin auf Wiederholungen
// Wiederholt den Termin sooft bis der
// Terminstart ins jetzige Zeitfenster passt
//
// Erinnerungszeitpunkte werden entsprechend mit geführt
//
/*****************************************************************/
   function CheckWiederholungen($Data){
		global $calDataArray, $maxDays;

		if ($Data['Bezeichnung'] == "DebugTermin") print_r($Data);

        // Termin mit Enddatum begrenzte Wiederholungen
		if ($Data['RRuleFreq'] <> '' && $Data['RRuleEnd'] <> '' && $Data['RRuleCount'] == ''){
			$jahre = 0;
			$day = strtotime($Data['DatumTxt']);
			if($Data['RRuleInterval'] == "") $Data['RRuleInterval'] = 1;
			$interval = $Data['RRuleInterval'];
			$rend = $Data['RRuleEnd'];
			while ($rend >= $day){
				if (($Data['RRuleDays'] == '') || (strpos($Data['RRuleDays'],formatTag(date("D", $day))) !== false )){
					$Data['DatumTxt'] = date("d.m.Y", $day);
					$Data['Datum'] = strtotime($Data['DatumTxt']." ".$Data['ZeitTxt']);
					$Data['EndDatum'] = strtotime(date("d.m.Y", $day)." ".$Data['EndZeitTxt']);
					$Data['EndDatumTxt'] = date("d.m.Y", $day);
					if (( $day >= strtotime(date("d.m.Y",time()))) && ( $Data['Datum'] <= strtotime("+$maxDays day") )){
						$remindercount = 0;
						foreach($Data['ReminderTrigger'] as $no => $trigger){
							$reminder = get_Reminder( $Data['Datum'] , $trigger );
							if($reminder > 0){
								$Data['ReminderTime'][$remindercount] = $reminder;
								$Data['ReminderTimeTxt'][$remindercount] = date("H:i", $reminder);
								$Data['ReminderDateTxt'][$remindercount] = date("d.m.Y H:i", $reminder);
								$remindercount++;
							}
						}
						$calDataArray[] = $Data;
					}
				}
				if ($Data['RRuleFreq'] == 'täglich') $day = strtotime("+".$interval." day",$day);
				if ($Data['RRuleFreq'] == 'wöchentlich') $day = strtotime("+".($interval * 7)." day",$day);
				if ($Data['RRuleFreq'] == 'monatlich') $day = strtotime("+".$interval." month",$day);
				if ($Data['RRuleFreq'] == 'jährlich') { $day = strtotime("+".$interval." year",$day); $jahre = $jahre + $interval; $Data['Wiederholungen'] = $jahre;}
			}
		}

		// Termin mit Anzahl begrenzte Wiederholungen
		elseif ($Data['RRuleFreq'] <> '' && $Data['RRuleEnd'] == '' && $Data['RRuleCount'] <> ''){
			$jahre = 0;
			$day = strtotime($Data['DatumTxt']);
			if($Data['RRuleInterval'] == "") $Data['RRuleInterval'] = 1;
			$interval = $Data['RRuleInterval'];
			$count = 0;
			while ($count < $Data['RRuleCount']){
				if (($Data['RRuleDays'] == '') || (strpos($Data['RRuleDays'],formatTag(date("D", $day))) !== false )){
					$Data['DatumTxt'] = date("d.m.Y", $day);
					$Data['Datum'] = strtotime($Data['DatumTxt']." ".$Data['ZeitTxt']);
					$Data['EndDatum'] = strtotime(date("d.m.Y", $day)." ".$Data['EndZeitTxt']);
					$Data['EndDatumTxt'] = date("d.m.Y", $day);
					if (( $day >= strtotime(date("d.m.Y",time()))) && ( $Data['Datum'] <= strtotime("+$maxDays day"))){
						$remindercount = 0;
						foreach($Data['ReminderTrigger'] as $no => $trigger){
							$reminder = get_Reminder( $Data['Datum'] , $trigger );
							if($reminder > 0){
								$Data['ReminderTime'][$remindercount] = $reminder;
								$Data['ReminderTimeTxt'][$remindercount] = date("H:i", $reminder);
								$Data['ReminderDateTxt'][$remindercount] = date("d.m.Y H:i", $reminder);
								$remindercount++;
							}
						}
						$calDataArray[] = $Data;
					}
				}
				if ($Data['RRuleFreq'] == 'täglich') $day = strtotime("+".$interval." day",$day);
				if ($Data['RRuleFreq'] == 'wöchentlich') $day = strtotime("+".($interval * 7)." day",$day);
				if ($Data['RRuleFreq'] == 'monatlich') $day = strtotime("+".$interval." month",$day);
				if ($Data['RRuleFreq'] == 'jährlich') { $day = strtotime("+".$interval." year",$day); $jahre = $jahre + $interval; $Data['Wiederholungen'] = $jahre;}
				$count++;
			}
		}

		// Termin mit zeitlich unbegrenzte Wiederholungen
		elseif  ($Data['RRuleFreq'] <> '' && $Data['RRuleEnd'] == '' && $Data['RRuleCount'] == ''){
			$jahre = 0;
			$day = strtotime($Data['DatumTxt']);
			if($Data['RRuleInterval'] == "") $Data['RRuleInterval'] = 1;
			$interval = $Data['RRuleInterval'];
			do{
				if (($Data['RRuleDays'] == '') || (strpos($Data['RRuleDays'],formatTag(date("D", $day))) !== false )){
					$Data['DatumTxt'] = date("d.m.Y", $day);
					$Data['Datum'] = strtotime($Data['DatumTxt']." ".$Data['ZeitTxt']);
					$Data['EndDatum'] = strtotime(date("d.m.Y", $day)." ".$Data['EndZeitTxt']);
					$Data['EndDatumTxt'] = date("d.m.Y", $day);

					//$Data['ReminderTime'][0] = strtotime($Data['DatumTxt']." ".$Data['ReminderTimeTxt'][0]);
					if (( $day >= strtotime(date("d.m.Y",time()))) && ( $day <= strtotime("+$maxDays day") )){
						// Termin Array erzeugen
						$remindercount = 0;
						foreach($Data['ReminderTrigger'] as $no => $trigger){
							$reminder = get_Reminder( $Data['Datum'] , $trigger );
							if($reminder > 0){
								$Data['ReminderTime'][$remindercount] = $reminder;
								$Data['ReminderTimeTxt'][$remindercount] = date("H:i", $reminder);
								$Data['ReminderDateTxt'][$remindercount] = date("d.m.Y H:i", $reminder);
								$remindercount++;
							}
						}
						$calDataArray[] = $Data;
					}
				}
				if ($Data['RRuleFreq'] == 'täglich') $day = strtotime("+".$interval." day",$day);
				if ($Data['RRuleFreq'] == 'wöchentlich') $day = strtotime("+".($interval * 7)." day",$day);
				if ($Data['RRuleFreq'] == 'monatlich') $day = strtotime("+".$interval." month",$day);
				if ($Data['RRuleFreq'] == 'jährlich') { $day = strtotime("+".$interval." year",$day); $jahre = $jahre + $interval; $Data['Wiederholungen'] = $jahre;}
			} while ( ( $day <= strtotime(date("d.m.Y",time()))) || ( $day <= strtotime("+$maxDays day")) );
		}

		// Termin ohne Wiederholungen
		else{
			if (( $Data['Datum'] >= strtotime(date("d.m.Y"))) && ( $Data['Datum'] <= strtotime("+$maxDays day"))){
				// Termin Array erzeugen
				$remindercount = 0;
				foreach($Data['ReminderTrigger'] as $no => $trigger){
					$reminder = get_Reminder( $Data['Datum'] , $trigger );
					if($reminder > 0){
						$Data['ReminderTime'][$remindercount] = $reminder;
						$Data['ReminderTimeTxt'][$remindercount] = date("H:i", $reminder);
						$Data['ReminderDateTxt'][$remindercount] = date("d.m.Y H:i", $reminder);
						$remindercount++;
					}
				}
				$calDataArray[] = $Data;
			}
		}

		if($Data['Bezeichnung'] == "DebugTermin"){
			IPS_LogMessage("ownCloud-Modul", print_r($Data,true));
		}

	}

/*****************************************************************/
// Erinnerungszeitpunkt erzeugen
// Abhängig ob festes Datum oder variables Datum
// Rückgabe genauer Zeitpunkt der Erinnerung in Unix Timecoder
//
/*****************************************************************/
	function get_Reminder($startTime, $trigger){
		$reminder = 0;
		$xvalue = explode(":", $trigger);

		if ( (substr($xvalue[0],0) == "DURATION") || (count($xvalue) >= 2) ){ // Variables Erinnerungsprofil   Bei einigen Server fehlt das Duration!!
			// Zeitintervall zerlegen
			$str = substr($xvalue[1],strpos($xvalue[1], 'P') + 1);
			$stunden = substr(strstr($str, 'T'),1);
			$tage = strstr($str, 'D',true);
			$reminderTime = 0;

			// Sekunden, Minuten, Stunden weise Erinnerung
			if (substr($stunden,strlen($stunden)-1,strlen($stunden)) == "S"){
				$reminderTime = substr($stunden,0,strlen($stunden)-1);
			}
			else if (substr($stunden,strlen($stunden)-1,strlen($stunden)) == "M"){
				$reminderTime = substr($stunden,0,strlen($stunden)-1) * 60;
			}
			else if (substr($stunden,strlen($stunden)-1,strlen($stunden)) == "H"){
				$reminderTime = substr($stunden,0,strlen($stunden)-1) * 60 * 60;
			}

			// Tage weise Erinnerung
			if ($tage <> ""){
				$reminderTime = $reminderTime + ( $tage * 86400 );
			}

			// Neue exakte Erinnerungzeitpunkt erzeugen
			if(substr($xvalue[1],0,1) == "-"){
				$reminder = $startTime - $reminderTime;
			}
			else{
			$reminder = $startTime + $reminderTime;
			}

		}
		else if (substr($xvalue[0],0) == "DATE-TIME"){  // fester Erinnerungszeitpunkt
			$reminder = strtotime(substr($xvalue[1],6,2).".".substr($xvalue[1],4,2).".".substr($xvalue[1],0,4)." ".substr($xvalue[1],9,2).":".substr($xvalue[1],11,2));
		}
		return $reminder;
	}

/*****************************************************************/
//
// Prüfen ob der gewählte Tage ein Feiertag ist
// Übergabe: zu prüfenden Tag
// Rückgabe: true = Feiertage; false = kein Feiertag
//
// Routine nicht von mir aber angepasst
//
/*****************************************************************/
	function get_Feiertag( $date ){
		if ($date == "") $date = mktime(0,0,0,date("m"),date("d"),date("y"));
		$Fdays = getHolidays(Date('Y', $date));
		$return = "";
		if ( $Fdays == "") return;

        foreach($Fdays as $key => $value)
        {
			list($key, $value) = myEach($Fdays);

            //echo "$key - $value \n";
            if ($date == $value) $return = $key;
        }

		return $return;
	}

/*****************************************************************/
// Routine
/*****************************************************************/
	function myEach(&$arr) {
		$key = key($arr);
		$result = ($key === null) ? false : [$key, current($arr), 'key' => $key, 'value' => current($arr)];
		next($arr);
		return $result;
	}

	
/*****************************************************************/
//
// Routine nicht von mir
//
/*****************************************************************/
  	function getEasterSundayTime($year)	{
   		$p = floor($year/100);
   		$r = floor($year/400);
   		$o = floor(($p*8+13)/25)-2;
   		$w = (19*($year%19)+(13+$p-$r-$o)%30)%30;
   		$e = ($w==29?28:$w);
   		if ($w==28&&($year%19)>10) $e=27;
   		$day = (2*($year%4)+4*($year%7)+6*$e+(4+$p-$r)%7)%7+22+$e;
   		$month = ($day>31?4:3);
   		if ($day>31) $day-=31;
   		return mktime(0, 0, 0, $month, $day, $year);
  	}

/*****************************************************************/
//
// Routine nicht von mir
//
/*****************************************************************/
	function getHolidays($year) {
		Global $bland;
/* * Definiert das Bundesland für die Feiertage
	*  Fuer c_Property_Bundesland bitte folgende Abkuerzungen benutzen:
	*  -- = keine Auswertung
	*  BW = Baden-Württemberg
	*  BY = Bayern
	*  BE = Berlin
	*  BB = Brandenburg
	*  HB = Bremen
	*  HH = Hamburg
	*  HE = Hessen
	*  MV = Mecklenburg-Vorpommern
	*  NI = Niedersachsen
	*  NW = Nordrhein-Westfalen
	*  RP = Rheinland-Pfalz
	*  SL = Saarland
	*  SN = Sachsen
	*  ST = Sachen-Anhalt
	*  SH = Schleswig-Holstein
	*  TH = Thüringen
*/
		if ( $bland == "--") return "";
		$time = getEasterSundayTime($year);
		$days[""] 							= 0;
		$days["Neujahr"] 					= mktime(0, 0, 0, 1, 1, $year);
		$days["Karfreitag"] 				= $time-(86400*2);
		$days["Ostersonntag"] 				= $time;
		$days["Ostermontag"] 				= $time+(86400);
		$days["Tag der Arbeit"]        		= mktime(0, 0, 0, 5, 1, $year);
		$days["Christi Himmelfahrt"] 		= $time+(86400*39);
		$days["Pfingstsonntag"] 			= $time+(86400*49);
		$days["Pfingstmontag"] 				= $time+(86400*50);
		$days["Tag der deutschen Einheit"] 	= mktime(0, 0, 0, 10, 3, $year);
		$days["1. Weihnachtsfeiertag"] 		= mktime(0, 0, 0, 12, 25, $year);
		$days["2. Weihnachtsfeiertag"] 		= mktime(0, 0, 0, 12, 26, $year);

		//*******************************
		// Fester $Feiertag in SN
		//*******************************
		if (($bland == "SN")) {
				$days["Buß- und Bettag"] 			= mktime(0, 0, 0, 11, 26+(7-date('w', mktime(0, 0, 0, 11, 26, $year)))-11, $year); //!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
		}

		//*******************************
		// Fester $Feiertag in BW, BY, ST
		//*******************************
		if (($bland == "BW") or ($bland == "BY") or ($bland == "ST")) {
				$days["Heilige 3 Könige"] 			= mktime(0, 0, 0, 1, 6, $year); //!!!!!!!!!!!!!!!!!!!!!!!
		}

		//***************************************
		// Fester $Feiertag in BB, HB, HH, MV, NI, SN, ST, SH, TH
		//***************************************
		if (($bland == "BB") or ($bland == "HB") or ($bland == "HH") or ($bland == "MV") or ($bland == "NI") or ($bland == "SN") or ($bland == "ST") or ($bland == "SH") or ($bland == "TH")) {
				$days["Reformationstag"] 			   = mktime(0, 0, 0, 10, 31, $year); //!!!!!!!!!!!!!!!!!!!!!
		}

		//***************************************
		// Fester $Feiertag in BW, BY, NW, RP, SL
		//***************************************
		if (($bland == "BW") or ($bland == "BY") or ($bland == "NW") or ($bland == "RP") or ($bland == "SL")) {
				$days["Allerheiligen"] 					= mktime(0, 0, 0, 11, 1, $year);
		}

		//*******************************************
		// Fester $Feiertag in BY (nicht überall), SL
		//*******************************************
		if (($bland == "BY") or ($bland == "SL")) {
				$days["Maria Himmelfahrt"] 			= mktime(0, 0, 0, 8, 15, $year); //!!!!!!!!!!!!!!!!!!!!!
		}

		//**********************************************************************
		// Bewegliche Feiertage BW, BY, HE, NW, RP, SL, (SN, TH nicht überall)
		//**********************************************************************
		if (($bland == "BW") or ($bland == "BY") or ($bland == "HE") or ($bland == "NW") or ($bland == "RP") or ($bland == "SL") or ($bland == "SN") or ($bland == "TH")) {
					$days["Fronleichnam"] 				= $time+(86400*60); //!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
		}
		return $days;
	}
?>