<?php
/*
 +-------------------------------------------------------------------------+
 | Kolab calendar storage class                                            |
 |                                                                         |
 | This program is free software; you can redistribute it and/or modify    |
 | it under the terms of the GNU General Public License version 2          |
 | as published by the Free Software Foundation.                           |
 |                                                                         |
 | PURPOSE:                                                                |
 |   Storage object for a single calendar folder on Kolab                  |
 |                                                                         |
 +-------------------------------------------------------------------------+
 | Author: Thomas Bruederli <roundcube@gmail.com>                          |
 +-------------------------------------------------------------------------+
*/

class kolab_calendar
{
  public $id;
  public $ready = false;
  public $readonly = true;
  
  private $storage;
  private $events;
  private $id2uid;
  private $imap_folder = 'INBOX/Calendar';
  private $sensitivity_map = array('public', 'private', 'confidential');
  private $priority_map = array('low', 'normal', 'high');

  
  private $fieldmap = array(
  // kolab       => roundcube
  	'summary' => 'title',
  	'location'=>'location',
  	'body'=>'description',
  	'categories'=>'categories',
  	'start-date'=>'start',
  	'end-date'=>'end',
  	'sensitivity'=>'sensitivity',
  	'show-time-as' => 'free_busy',
  	'alarm','alarms'
    );
  
  /**
   * Default constructor
   */
  public function __construct($imap_folder = null)
  {
    if (strlen($imap_folder))
      $this->imap_folder = $imap_folder;

    // ID is derrived from folder name
    $this->id = rcube_kolab::folder_id($this->imap_folder);

    // fetch objects from the given IMAP folder
    $this->storage = rcube_kolab::get_storage($this->imap_folder);

    $this->ready = !PEAR::isError($this->storage);
  }


  /**
   * Getter for a nice and human readable name for this calendar
   * See http://wiki.kolab.org/UI-Concepts/Folder-Listing for reference
   *
   * @return string Name of this calendar
   */
  public function get_name()
  {
    // @TODO: get namespace prefixes from IMAP
    $dispname = preg_replace(array('!INBOX/Calendar/!', '!^INBOX/!', '!^shared/!', '!^user/([^/]+)/!'), array('','','','(\\1) '), $this->imap_folder);
    return rcube_charset_convert(strlen($dispname) ? $dispname : $this->imap_folder, "UTF7-IMAP");
  }
  
  /**
   * Getter for the top-end calendar folder name (not the entire path)
   *
   * @return string Name of this calendar
   */
  public function get_foldername()
  {
    $parts = explode('/', $this->imap_folder);
    return end($parts);
  }

  /**
   * Return color to display this calendar
   */
  public function get_color()
  {
    // TODO: read color from backend (not yet supported)
    return '0000dd';
  }
  
  
  /**
   * Getter for a single event object
   */
  public function get_event($id)
  {
    $this->_fetch_events();
    return $this->events[$id];
  }


  /**
   * @param  integer Event's new start (unix timestamp)
   * @param  integer Event's new end (unix timestamp)
   * @param  string  Search query (optional)
   * @return array A list of event records
   */
  public function list_events($start, $end, $search = null)
  {
    // use Horde classes to compute recurring instances
    require_once 'Horde/Date/Recurrence.php';
    
    $this->_fetch_events();
    
    $events = array();
    foreach ($this->events as $id => $event) {
      // TODO: filter events by search query
      if (!empty($search)) {
        
      }
      
      // list events in requested time window
      if ($event['start'] <= $end && $event['end'] >= $start) {
        $events[] = $event;
      }
      
      // resolve recurring events (maybe move to _fetch_events() for general use?)
      if ($event['recurrence']) {
        $recurrence = new Horde_Date_Recurrence($event['start']);
        $recurrence->fromRRule20(calendar::to_rrule($event['recurrence']));
        
        foreach ((array)$event['recurrence']['EXDATE'] as $exdate)
          $recurrence->addException(date('Y', $exdate), date('n', $exdate), date('j', $exdate));
        
        $duration = $event['end'] - $event['start'];
        $next = new Horde_Date($event['start']);
        while ($next = $recurrence->nextActiveRecurrence(array('year' => $next->year, 'month' => $next->month, 'mday' => $next->mday + 1, 'hour' => $next->hour, 'min' => $next->min, 'sec' => $next->sec))) {
          $rec_start = $next->timestamp();
          $rec_end = $rec_start + $duration;
          
          // add to output if in range
          if ($rec_start <= $end && $rec_end >= $start) {
            $rec_event = $event;
            $rec_event['recurrence_id'] = $event['id'];
            $rec_event['start'] = $rec_start;
            $rec_event['end'] = $rec_end;
            $events[] = $rec_event;
          }
          else if ($rec_start > $end)  // stop loop if out of range
            break;
        }
      }
    }
    
    return $events;
  }


  /**
   * Create a new event record
   *
   * @see Driver:new_event()
   * @return mixed The created record ID on success, False on error
   */
  public function insert_event($event)
  {
  	if (!is_array($event))
            return false;
			
		
	//generate new event from RC input
	$object = $this->_from_rcube_event($event);
	
	//generate new UID
	$object['uid'] = $this->storage->generateUID();
		
	
	$saved = $this->storage->save($object);
			
    return $saved;
  }

  /**
   * Update a specific event record
   *
   * @see Driver:new_event()
   * @return boolean True on success, False on error
   */

  public function update_event($event)
  {
     $updated = false;
	 $old = $this->storage->getObject($event['id']);
	 $object = array_merge($old, $this->_from_rcube_event($event));
	 $saved = $this->storage->save($object, $event['id']);
            if (PEAR::isError($saved)) {
                raise_error(array(
                  'code' => 600, 'type' => 'php',
                  'file' => __FILE__, 'line' => __LINE__,
                  'message' => "Error saving contact object to Kolab server:" . $saved->getMessage()),
                true, false);
            }
            else {
               $updated = true;
            }
	 
    return $updated;
  }

	/**
	   * Delete an event record
	   *
	   * @see Driver:remove_event()
	   * @return boolean True on success, False on error
	   */

  public function delete_event($event)
  {
			
	 $deleted = false;
	 $deleteme = $this->storage->delete($event['id']);
            if (PEAR::isError($deleteme)) {
                raise_error(array(
                  'code' => 600, 'type' => 'php',
                  'file' => __FILE__, 'line' => __LINE__,
                  'message' => "Error saving contact object to Kolab server:" . $deleteme->getMessage()),
                true, false);
            }
            else {
               $deleted = true;
            }
	 
    return $deleted;
  }


  /**
   * Simply fetch all records and store them in private member vars
   * We thereby rely on cahcing done by the Horde classes
   */
  private function _fetch_events()
  {
    if (!isset($this->events)) {
      $this->events = array();
      foreach ((array)$this->storage->getObjects() as $record) {
        $event = $this->_to_rcube_event($record);
        $this->events[$event['id']] = $event;
      }
    }
  }

  /**
   * Convert from Kolab_Format to internal representation
   */
  private function _to_rcube_event($rec)
  {
    $start_time = date('H:i:s', $rec['start-date']);
    $allday = $start_time == '00:00:00' && $start_time == date('H:i:s', $rec['end-date']);
    if ($allday)  // in Roundcube all-day events only go until 23:59:59 of the last day
      $rec['end-date']--;
      
    // convert alarm time into internal format
    if ($rec['alarm']) {
      $alarm_value = $rec['alarm'];
      $alarm_unit = 'M';
      if ($rec['alarm'] % 1440 == 0) {
        $alarm_value /= 1440;
        $alarm_unit = 'D';
      }
      else if ($rec['alarm'] % 60 == 0) {
        $alarm_value /= 60;
        $alarm_unit = 'H';
      }
      $alarm_value *= -1;
    }
    
    // convert recurrence rules into internal pseudo-vcalendar format
    if ($recurrence = $rec['recurrence']) {
      $rrule = array(
        'FREQ' => strtoupper($recurrence['cycle']),
        'INTERVAL' => intval($recurrence['interval']),
      );
      
      if ($recurrence['range-type'] == 'number')
        $rrule['COUNT'] = intval($recurrence['range']);
      else if ($recurrence['range-type'] == 'date')
        $rrule['UNTIL'] = $recurrence['range'];
      
      if ($recurrence['day']) {
        $byday = array();
        $prefix = ($rrule['FREQ'] == 'MONTHLY' || $rrule['FREQ'] == 'YEARLY') ? intval($recurrence['daynumber'] ? $recurrence['daynumber'] : 1) : '';
        foreach ($recurrence['day'] as $day)
          $byday[] = $prefix . substr(strtoupper($day), 0, 2);
        $rrule['BYDAY'] = join(',', $byday);
      }
      if ($recurrence['daynumber']) {
        if ($recurrence['type'] == 'monthday')
          $rrule['BYMONTHDAY'] = $recurrence['daynumber'];
        else if ($recurrence['type'] == 'yearday')
          $rrule['BYYEARDAY'] = $recurrence['daynumber'];
      }
      if ($rec['month']) {
        $monthmap = array('january' => 1, 'february' => 2, 'march' => 3, 'april' => 4, 'may' => 5, 'june' => 6, 'july' => 7, 'august' => 8, 'september' => 9, 'october' => 10, 'november' => 11, 'december' => 12);
        $rrule['BYMONTH'] = strtolower($monthmap[$recurrence['month']]);
      }
      
      if ($recurrence['exclusion']) {
        foreach ((array)$recurrence['exclusion'] as $excl)
          $rrule['EXDATE'][] = strtotime($excl);
      }
    }
    
    $sensitivity_map = array_flip($this->sensitivity_map);
    $priority_map = array_flip($this->priority_map);
    
    return array(
      'id' => $rec['uid'],
      'uid' => $rec['uid'],
      'title' => $rec['summary'],
      'location' => $rec['location'],
      'description' => $rec['body'],
      'start' => $rec['start-date'],
      'end' => $rec['end-date'],
      'all_day' => $allday,
      'recurrence' => $rrule,
      'alarms' => $alarm_value . $alarm_unit,
      'categories' => $rec['categories'],
      'free_busy' => $rec['show-time-as'],
      'priority' => isset($priority_map[$rec['priority']]) ? $priority_map[$rec['priority']] : 1,
      'sensitivity' => $sensitivity_map[$rec['sensitivity']],
      'calendar' => $this->id,
    );
  }

   /**
   * Convert the given event record into a data structure that can be passed to Kolab_Storage backend for saving
   * (opposite of self::_to_rcube_event())
   */
  private function _from_rcube_event($event)
  {
    $priority_map = $this->priority_map;
    
	$object = array
	(
		// kolab       => roundcube
	  	'summary' => $event['title'],
	  	'location'=> $event['location'],
	  	'body'=> $event['description'],
	  	'categories'=> $event['categories'],
	  	'start-date'=>$event['start'],
	  	'end-date'=>$event['end'],
	  	'sensitivity'=>$this->sensitivity_map[$event['sensitivity']],
	  	'show-time-as' => $event['free_busy'],
	  	'priority' => isset($priority_map[$event['priority']]) ? $priority_map[$event['priority']] : 1
  	  	 
	);
	
	//handle alarms
	if ($event['alarms']) 	{

		//get the value
     	$alarmbase = explode(":",$event['alarms']);
		
		//get number only
		$avalue = preg_replace('/[^0-9]/', '', $alarmbase[0]); 
	
		  if(preg_match("/H/",$alarmbase[0]))
		  {
		  	$object['alarm'] = $avalue*60;
			
		  }else if (preg_match("/D/",$alarmbase[0]))
		  	{
		  		$object['alarm'] = $avalue*24*60;
				
		  	}else
				{
					//minutes
					$object['alarm'] = $avalue;
				}
	    }
	
	//recurr object/array
	$ra = $event['recurrence'];
	
	//Frequency abd interval
	$object['recurrence']['cycle'] = strtolower($ra['FREQ']);
	$object['recurrence']['interval'] = intval($ra['INTERVAL']);
	
	//Range Type
	if($ra['UNTIL']){
	  $object['recurrence']['range-type']='date';
	  $object['recurrence']['range']=$ra['UNTIL'];
	}
	if($ra['COUNT']){
	  $object['recurrence']['range-type']='number';
	  $object['recurrence']['range']=$ra['COUNT'];
	}
	//weekly 
	
	if ($ra['FREQ']=='WEEKLY'){
		$daymap = array('MO'=>'monday','TU'=>'tuesday','WE'=>'wednesday','TH'=>'thursday','FR'=>'friday','SA'=>'saturday','SU'=>'sunday');
		$weekdays = split(",",$ra['BYDAY']);
		foreach ($weekdays as $days){
		 $weekly[]=$daymap[$days]; 	
		}
		
		$object['recurrence']['day']=$weekly;
		}
	
	
	return $object;
  }

 
}