<?php if (!defined('PmWiki')) exit();

/*  handleical.php
    Autoren:   
    Bernhard Schroetter (schroe@gmx.at), Ansgar Bockstiegel (ansgar@bockstiegel.net), 
    Sebastian Siedentopf (schlaefer@macnews.de)
    
    Dieses Skript vereinfacht die Nutzung von wikibasierten Kalendern, durch die 
    Moeglichkeit, iCal-Dateien (RFC2445) ins wiki einzulesen/zu integrieren, und 
    im wiki vorhandene Termine zu exportieren.
    
    Entwickelt und getestet auf einer PmWiki 2.2.0-beta65 Version.

    Ein Teil des Importcodes stammt von Ansgar Bockstiegel und ein Grossteil des 
    Exportcodes von Sebastian Siedentopfs Rezept ICalExport.
    
    Das Skript ist sicher nicht frei von Fehlern und wurde von mir fuer ein 
    Vereinswiki zusammengefuegt. Bei Verwendung in anderen Umgebungen muessen
    sicher einige Anpassungen (insbesondere die Pfade sind fuer 
    "PerGroupSubDirectories" eingerichtet) erfolgen.
    
    Installation:
    - das Skript in den Cookbook Ordner kopieren
    - durch eintragen von "include_once("$FarmD/cookbook/icalexport.php");"
      in die config.php das Skript aktivieren
    - die folgenden Parameter koennen in der config.php angepasst werden:
      - $ICalCalendarGroup - der Name der Kalendergrupppe - default:"Calendar"
      - $ICalTimeZone - die Zeitzone des Kalenders - default:"Europe/Vienna" 
      - $ICalFileName - der Name der erzeugten Datei(en) - default: "Termine_mmdd.ics"

    Verwendung:
    Das Skript fuegt zwei actions (?action=toics und ?action=fromics) mit 
    jeweils weiteren Parametern (genaueres bei function FromICS und ToICs) 
    hinzu, wobei fromics eine vorher hochgeladene Datei ausliest und die darin 
    vorhandenen Kalenderdaten in wiki-Seiten umwandelt.
    toics liest die auf der Kalenderseite vorhandenen Termine ein und stellt sie
    zum Download bereit.
    Eine funktionierende Loesung ist in Kürze auf 
    http://www.bioparadeis.at/Termine zu sehen.    
    
    ToDo: 
    - Auswahldialog, welche Datei importiert werden soll
    - anschliessendes Loeschen oder umbenenne der ics-Datei
    - Bezeichner für die einzelnen Terminteile (Wo, Von,...) wieder variabel 
      machen
      
    Copyright Notice:
    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.
    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.
    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
    http://www.gnu.org/copyleft/gpl.html
*/

# Basisvariablen initialisieren und mit sinnvollen Werten fuettern
SDV($RecipeInfo['HandleICAL']['Version'], '2009-10-04');

SDV($HandleActions['fromics'], 'FromICS');
SDV($HandleActions['toics'], 'ToICS');
SDV($ICalCalendarGroup, 'Calendar');
SDV($ICalTimeZone, 'Europe/Vienna');
SDV($ICalFileName, 'PmWiki_Cal');


# action um Termine im wiki-Kalender aus einer hochgeladenen ICal-Datei zu 
# erzeugen
# Verwendung: ?action=fromics an die URL anhängen um die Datei mit 
#   dem Namen "events.ics" im Kalenderordner des Uploadcerzeichnis zu 
#   importieren
#   ?action=fromics&file=dateiname (ohne Endung) um die Datei namens 
#   'dateiname.ics' zu importieren (Achtung: case-sensitiv)
function FromICS($pagename, $auth='edit') {
# Variablen importieren (koennen in Konfigurationsdateien angepasst werden)
global $ICalCalendarGroup;
global $UploadDir, $WorkDir, $PageStartFmt, $PageEndFmt;

$datei = $_REQUEST['file'];

if ($datei=='') {
  # Name der auszulesenden Datei (+ Name in welche die Datei nach Eintrag 
  # umbenannt wird)
  $filename = $UploadDir."/".$ICalCalendarGroup."/events.ics";
  $filename_new = $UploadDir."/".$ICalCalendarGroup."/imported_".date("YmdHi").".ics";
  # einlesen der Datei und schreiben der wiki-Seiten mit der Funktion icseinlesen
  if (file_exists ($filename)) {
    # einlesen der Datei und schreiben der wiki-Seiten mit der Funktion icseinlesen
    icseinlesen ($pagename, $filename, $filename_new);
    $ergebnis = "!!!Import der Kalenderdaten erfolgreich!\nzurück zur [[Termine.Termine|Terminübersicht]]\n";
    } else { 
    $ergebnis = "!!!Datei events.ics ist nicht vorhanden und kann nicht importiert werden!\nwurde die Datei in der richtigen Gruppe (".$ICalCalendarGroup.") hochgeladen und lautet der Dateiname 'events.ics'?\n";
    }
  }
  else {
  # Name der auszulesenden Datei (+ Name in welche die Datei nach Eintrag 
  # umbenannt wird)
  $escaper = array ('..','\\','/','%5c','%2e%2e','%2f');
  $datei = str_replace ($escaper,"",$datei);  
  $filename = $UploadDir."/".$ICalCalendarGroup."/".$datei.".ics";
  $filename_new = $UploadDir."/".$ICalCalendarGroup."/imported_".date("YmdHi").".ics";
  # prüfen ob Datei vorhanden ist
  if (file_exists ($filename)) {
    # einlesen der Datei und schreiben der wiki-Seiten mit der Funktion icseinlesen
    icseinlesen ($pagename, $filename, $filename_new);
    $ergebnis = "!!!Import der Kalenderdaten erfolgreich!\nDie Termine der Datei '".$datei.".ics' wurden erfolgreich importiert.\n\nzurück zur [[Termine.Termine|Terminübersicht]]\n";
    } else { 
    $ergebnis = "!!!Datei '".$datei.".ics' nicht vorhanden und kann deswegen nicht importiert werden!\nwurde die Datei in der richtigen Gruppe (".$ICalCalendarGroup.") hochgeladen?\nAnsonsten bitte den Dateinamen kontrollieren und auf die Dateiendung achten!\n";
    }
  }
$html = MarkupToHTML($pagename, $ergebnis);
SDV($HandleFromICSFmt,array(&$PageStartFmt,&$html,&$PageEndFmt));
PrintFmt($pagename,$HandleFromICSFmt);
}

# action um eine ICAL-Datei aus dem wiki-Kalender zu erzeugen
# Verwendung: ?action=toics um die gerade aufgerufene Seite zu exportieren
#   ?action=toics&date=all um den gesamten Kalender in eine Datei zu exportieren
#   ?action=toics&date=yyyymmdd um alle Termine des Datums yyyymmdd zu exportieren
function ToICS($pagename, $auth='read') {
# Variablen importieren (koennen in Konfigurationsdateien angepasst werden)
global $ICalCalendarGroup, $ICalFileName, $ICalTimeZone;
global $UploadDir, $WorkDir, $PageStartFmt, $PageEndFmt, $ScriptUrl, $NamePattern;

$datum = $_REQUEST['date'];
if ($datum=='') {
  # statische Anfangszeilen der ics-Datei schreiben
	$file_content[] = "BEGIN:VCALENDAR\n";
	$file_content[] = "VERSION:2.0\n";
	$file_content[] = "X-WR-CALNAME: PMWiki-Kalender\n";
  # Funktion zum hinzufuegen der einzelnen Termine aufrufen 
  icsausgeben ($pagename, &$file_content);
  # Endzeile der ics-Datei anhängen
  $file_content[] = "END:VCALENDAR\n";
  # array, welches die Infos enthaelt, zu einem String implodieren, diesen in 
  # die Datei schreiben  
  $ics_content = implode("", $file_content);
  $icsfile = $UploadDir."/".$ICalCalendarGroup."/".$ICalFileName."_".substr($pagename, 12, 4).".ics";
  $write_handle = fopen($icsfile, "w"); 
  fputs($write_handle, $ics_content);
  fclose($write_handle);
  $ergebnis = "!!!Termine erfolgreich exportiert!\nDie ical-Datei Attach:".$ICalFileName."_".substr($pagename, 12, 4).".ics wurde erstellt und kann heruntergeladen werden!\n"; 
  }  

if ($datum=='all') {
  # alle Seiten der Kalendergruppe des wikis in ein array schreiben
	$pagelist = ListPages("/".$ICalCalendarGroup."/");
	$file_content[] = "BEGIN:VCALENDAR\n";
	$file_content[] = "VERSION:2.0\n";
	$file_content[] = "X-WR-CALNAME: PMWiki-Kalender\n";
	foreach ($pagelist as $pagename) {
		# nur jene Seiten der Datumsgruppe, welche einen Datumsstring im Namen 
		# enthalten verarbeiten
    if (!preg_match("/".$ICalCalendarGroup."\.20\d{6}/", $pagename))
			continue;
    icsausgeben ($pagename, &$file_content);
    }
  $file_content[] = "END:VCALENDAR\n";
  $ics_content = implode("", $file_content);
  $icsfile = $UploadDir."/".$ICalCalendarGroup."/".$ICalFileName."_alle_Termine.ics";
  $write_handle = fopen($icsfile, "w"); 
  fputs($write_handle, $ics_content);
  fclose($write_handle);
  $ergebnis = "!!!Termine erfolgreich exportiert!\nDie ical-Datei Attach:".$ICalFileName."_alle_Termine.ics wurde erstellt und kann heruntergeladen werden!\n";
  }

if (preg_match("/20\d{6}/", $datum)) {
  $file_content[] = "BEGIN:VCALENDAR\n";
	$file_content[] = "VERSION:2.0\n";
	$file_content[] = "X-WR-CALNAME: PMWiki-Kalender\n";
  # aus dem angegebenen Parameter einen Seitennamen zusammenbauen
  $pagename = $ICalCalendarGroup.".".$datum;
  icsausgeben ($pagename, &$file_content);
  $file_content[] = "END:VCALENDAR\n";
  $ics_content = implode("", $file_content);
  $icsfile = $UploadDir."/".$ICalCalendarGroup."/".$ICalFileName."_".substr($pagename, 12, 4).".ics";
  $write_handle = fopen($icsfile, "w"); 
  fputs($write_handle, $ics_content);
  fclose($write_handle);
  $ergebnis = "!!!Termine erfolgreich exportiert!\nDie ical-Datei Attach:".$ICalFileName."_".substr($pagename, 12, 4).".ics wurde erstellt und kann heruntergeladen werden!\n";
  }  
$html = MarkupToHTML($pagename, $ergebnis);
SDV($HandleFromICSFmt,array(&$PageStartFmt,&$html,&$PageEndFmt));
PrintFmt($pagename,$HandleFromICSFmt);

}

function icsausgeben ($date, &$file_content) {
# Variablen importieren (koennen in Konfigurationsdateien angepasst werden)
global $ICalCalendarGroup, $ICalFileName, $ICalTimeZone;
global $UploadDir, $WorkDir, $PageStartFmt, $PageEndFmt, $ScriptUrl;

# Seite mittels pmwiki auslesen (und bei mehreren Terminen an einem Tag durch 
# den horizontalen Trenner aufteilen
$rcpage = ReadPage($date);
$calenderEvents = explode("----", utf8_decode($rcpage['text']));
foreach ($calenderEvents as $eventNumber => $event) {
	if (preg_match("/^(?:!!!)(?!!)\s?(.*)/m", $event, $eventTitle)) {
  		preg_match("/^(?:Von:)\s*([0-9]{2}:[0-9]{2}).*$/m", $event, $eventBegin);
			preg_match("/^(?:Bis:)\s*([0-9]{2}:[0-9]{2}).*$/m", $event, $eventEnd);
			preg_match("/^(?:Wo:)\s*(.*)$/m", $event, $eventLocation);
			preg_match("/^(?:Beschreibung:)\s*(.*)$/ms", $event, $eventDescription);

			$eventTitle = $eventTitle[1];
			$eventBegin = $eventBegin[1];
			$eventEnd = $eventEnd[1];
			$eventLocation = str_replace("\\", "", $eventLocation[1]);
			$eventDescription = str_replace("\\", "", $eventDescription[1]);

			$temp = explode(".", $date);
			$file_content[] = "BEGIN:VEVENT\n";

			if ($eventBegin && $eventEnd) {
				$beginn = str_replace(":", "", $eventBegin);
				$ende = str_replace(":", "", $eventEnd);
				$file_content[] = "DTSTART;TZID=".$ICalTimeZone.":".$temp[1]."T".$beginn."00\n";
				$file_content[] = "DTEND;TZID=".$ICalTimeZone.":".$temp[1]."T".$ende."00\n";
			} else {
				$nextDay = $temp[1] + 1;
				$file_content[] = "DTSTART;VALUE=DATE:".$temp[1]."\n";
				$file_content[] = "DTEND;VALUE=DATE:".$nextDay."\n";
			}

			if ($eventLocation)
				$file_content[] = "LOCATION:".$eventLocation."\n";

			$title = MarkupToHTML($date, $eventTitle);
			$title = chop(preg_replace("/<.*?>/s", "", $title));
			$file_content[] = "SUMMARY:".$title."\n";
			# Jeder Termin braucht ein eindeutige ID -> diese generieren
			$file_content[] = "UID:".$date."-".$eventNumber."-@".$_SERVER['HTTP_HOST']."\n";

			if ($eventDescription) {
				$infos = MarkupToHTML($date, $eventDescription);
				$infos = preg_replace("/<.*?>/s", "", $infos);
				$infos = chop($infos);
				$infos = preg_replace("/\n/s", "\\n", $infos);
				# die folgende URL mit 2 Zeilen abtrennen
				$infos = $infos."\\n\\n";
			} else
				$infos = "";
			$file_content[] = "DESCRIPTION:".$infos.$ScriptUrl."/".$date."\n";
			$file_content[] = "END:VEVENT\n";
		}
	}
}

function icseinlesen ($pagename, $ics_name, $ics_rename) {
global $ICalCalendarGroup;
global $UploadDir, $WorkDir, $PageStartFmt, $PageEndFmt;
# Initialisierung einiger Variablen
$events = array();
$eventcounter = -1;

# Oeffnen der auszulesenden Datei 
$file_handle = fopen ($ics_name, "r") ;
# Zeilenweises Auslesen
while($line=fgets($file_handle)){
  # Entfernen unnoetiger Zeilenumbrueche
  $line = trim($line);
  # Trennen der einzelnen Termine voneinander
  if ($line == "BEGIN:VEVENT"){
    $eventcounter++;
  }
  # Erkennen des in der Zeile behandelten Parameters
  # zur Benennung der entsprechenden Array-Eintraege
  preg_match ("/[A-Z]*/", $line, &$parameter);
  # Auslesen des Wertes
  $content = substr ($line, stripos($line, ":")+1);
  # Speicherung des Wertes beim jeweiligen Parameter
  $events[$eventcounter][$parameter[0]] = $content;
}
fclose ($file_handle);

# Verwerfen der Praeambel der iCal-Datei
unset ($events[-1]);

# Erzeugen jeweils einer Seite pro Termin
foreach($events as $event){
  # Generierung des Seitennnamens aus dem in DTSTART angegebenen Datum
 	$calpage = $WorkDir."/".$ICalCalendarGroup."/".$ICalCalendarGroup.".".substr($event["DTSTART"], 0, 8);
  if (!file_exists ($calpage)) {
    # Datei existiert noch nicht, also ganz am Anfang der Datei schreiben
    # Einfuegen der pmwiki-Standard-Header
    $file_content [] = "version=pmwiki-2.2.0-beta65 ordered=1 urlencoded=1\n";
    $file_content [] = "charset=UTF-8\n";
    $file_content [] = "ctime=".time()."\n";
    $file_content [] = "name=".$ICalCalendarGroup.".".$calpage."\n";
    $file_line = '4';
    $file_content [$file_line] = "text=";
    }
  else {
    # Datei existiert schon, also Dateiinhalt einlesen und richtige Zeile suchen
    $read_handle = fopen($calpage, "r");
    $n = '1';
    # vorhandene Wikiseite zeilenweise einlesen, Zeile mit text suchen und 
    # Zeilennummer speichern
      while (!feof($read_handle)) {
        $buffer = fgets($read_handle);
        $file_content [$n] = $buffer;
        if (!(strpos($file_content [$n], 'text=') === false)) {
          $file_line = $n; 
          }
          $n++;
        }
    fclose ($read_handle); 
    # Zeilenumbrueche (und Steuerzeichen) dieser Zeile entfernen und 
    # Abstandhalter einfuegen
    $file_content [$file_line] = rtrim ($file_content [$file_line], "\x00..\x1F");
   	$file_content [$file_line].= "----%0a%0a";
    }
  # Seite mit Inhalt aus der ics-Datei fuellen (Zeilenumbruch (\n) in der letzten 
  # Zeile nicht vergessen) ...
  $file_content [$file_line].= "!!! ".$event["SUMMARY"]."%0a%0a";
  $file_content [$file_line].= "Wo: ".$event["LOCATION"]."%0a%0a";
  $file_content [$file_line].= "Von: ".substr($event["DTSTART"], 9, 2).":".substr($event["DTSTART"], 11, 2)." Uhr%0a%0a";
  $file_content [$file_line].= "Bis: ".substr($event["DTEND"], 9, 2).":".substr($event["DTEND"], 11, 2)." Uhr%0a%0a";
  $file_content [$file_line].= "Beschreibung: ".$event["DESCRIPTION"]."%0a%0a\n";
  $wiki_content = implode('', $file_content);
  # ... und in Datei (WikiSeite) schreiben
  $write_handle = fopen($calpage, "w"); 
  fputs($write_handle, $wiki_content);
  fclose($write_handle);
  # Datei veraenderbar machen
  # chmod($ics_name, 0777);
}
}