<?php
/**
 * ownCloud - Addressbook
 *
 * @author Thomas Tanghus
 * @copyright 2012 Thomas Tanghus <thomas@tanghus.net>
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU AFFERO GENERAL PUBLIC LICENSE
 * License as published by the Free Software Foundation; either
 * version 3 of the License, or any later version.
 *
 * This library 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 AFFERO GENERAL PUBLIC LICENSE for more details.
 *
 * You should have received a copy of the GNU Affero General Public
 * License along with this library.  If not, see <http://www.gnu.org/licenses/>.
 *
 */

namespace OCA\Contacts;
use Sabre\VObject as VObject;

require_once __DIR__.'/../loghandler.php';

function setParameters($property, $parameters, $reset = false) {
	if(!$parameters) {
		return;
	}
	
	if($reset) {
		$property->parameters = array();
	}
	debug('Setting parameters: ' . print_r($parameters, true));
	foreach($parameters as $key => $parameter) {
		debug('Adding parameter: ' . $key);
		if(is_array($parameter)) {
			foreach($parameter as $val) {
				if(is_array($val)) {
					foreach($val as $val2) {
						if(trim($key) && trim($val2)) {
							debug('Adding parameter: '.$key.'=>'.print_r($val2, true));
							$property->add($key, strip_tags($val2));
						}
					}
				} else {
					if(trim($key) && trim($val)) {
						debug('Adding parameter: '.$key.'=>'.print_r($val, true));
						$property->add($key, strip_tags($val));
					}
				}
			}
		}
	}
}

// Check if we are a user
\OCP\JSON::checkLoggedIn();
\OCP\JSON::checkAppEnabled('contacts');
\OCP\JSON::callCheck();
$id = isset($_POST['id'])?$_POST['id']:null;
$name = isset($_POST['name'])?$_POST['name']:null;
$value = isset($_POST['value'])?$_POST['value']:null;
$parameters = isset($_POST['parameters'])?$_POST['parameters']:null;
$checksum = isset($_POST['checksum'])?$_POST['checksum']:null;

debug('value: ' . print_r($value, 1));

$multi_properties = array('EMAIL', 'TEL', 'IMPP', 'ADR', 'URL');

if(!$name) {
	bailOut(App::$l10n->t('element name is not set.'));
}
if(!$id) {
	bailOut(App::$l10n->t('id is not set.'));
}
if(!$checksum && in_array($name, $multi_properties)) {
	bailOut(App::$l10n->t('checksum is not set.'));
}
if(is_array($value)) {
	$value = array_map('strip_tags', $value);
	// NOTE: Important, otherwise the compound value will be
	// set in the order the fields appear in the form!
	ksort($value);
	//if($name == 'CATEGORIES') {
	//	$value = VCard::escapeDelimiters($value, ',');
	//} else {
	//	$value = VCard::escapeDelimiters($value, ';');
	//}
} else {
	$value = trim(strip_tags($value));
}

$vcard = App::getContactVCard($id);
if(!$vcard) {
	bailOut(App::$l10n->t('Couldn\'t find vCard for %d.', array($id)));
}

$property = null;

if(in_array($name, $multi_properties)) {
	if($checksum !== 'new') {
		$line = App::getPropertyLineByChecksum($vcard, $checksum);
		if(is_null($line)) {
			bailOut(App::$l10n->t(
				'Information about vCard is incorrect. Please reload the page: ').$checksum
			);
		}
		$property = $vcard->children[$line];
		$element = $property->name;

		if($element != $name) {
			bailOut(App::$l10n->t(
				'Something went FUBAR. ').$name.' != '.$element
			);
		}
	} else {
		// Add new property
		$element = $name;
		if (!is_scalar($value)) {
			$property = VObject\Property::create($name);
			if(in_array($name, array('ADR',))) {
				$property->setParts($value);
			} else {
				bailOut(App::$l10n->t(
					'Cannot save property of type "%s" as array', array($name,)
				));
			}
		} else {
			$property = VObject\Property::create($name, $value, $parameters);
		}
		setParameters($property, $parameters);
		$vcard->add($property);
		$checksum = substr(md5($property->serialize()), 0, 8);
		try {
			VCard::edit($id, $vcard);
		} catch(Exception $e) {
			bailOut($e->getMessage());
		}
		\OCP\JSON::success(array('data' => array(
			'checksum' => $checksum,
			'oldchecksum' => $_POST['checksum'],
		)));
		exit();
	}
} else {
	$element = $name;
	$property = $vcard->select($name);
	debug('propertylist: ' . get_class($property));
	if(count($property) === 0) {
		$property = VObject\Property::create($name);
		$vcard->add($property);
	} else {
		$property = array_shift($property);
	}
}

/* preprocessing value */
switch($element) {
	case 'BDAY':
		$date = New \DateTime($value);
		$value = $date->format('Y-m-d');
		break;
	case 'FN':
		if(!$value) {
			// create a method thats returns an alternative for FN.
			//$value = getOtherValue();
		}
		break;
	case 'NOTE':
		$value = str_replace('\n', '\\n', $value);
		break;
	case 'EMAIL':
		$value = strtolower($value);
		break;
	case 'IMPP':
		if(is_null($parameters) || !isset($parameters['X-SERVICE-TYPE'])) {
			bailOut(App::$l10n->t('Missing IM parameter.'));
		}
		$impp = App::getIMOptions($parameters['X-SERVICE-TYPE']);
		if(is_null($impp)) {
			bailOut(App::$l10n->t('Unknown IM: '.$parameters['X-SERVICE-TYPE']));
		}
		$value = $impp['protocol'] . ':' . $value;
		break;
}

// If empty remove the property
if(!$value) {
	if(in_array($name, $multi_properties)) {
		unset($vcard->children[$line]);
		$checksum = '';
	} else {
		unset($vcard->{$name});
	}
} else {
	/* setting value */
	switch($element) {
		case 'BDAY':
			$vcard->BDAY = $value;

			if(!isset($vcard->BDAY['VALUE'])) {
				$vcard->BDAY->add('VALUE', 'DATE');
			} else {
				$vcard->BDAY->VALUE = 'DATE';
			}
			break;
		case 'ADR':
		case 'N':
			if(is_array($value)) {
			$property->setParts($value);
			} else {
				debug('Saving N ' . $value);
				$vcard->N = $value;
			}
			break;
		case 'EMAIL':
		case 'TEL':
		case 'IMPP':
		case 'URL':
			debug('Setting element: (EMAIL/TEL/ADR)'.$element);
			$property->setValue($value);
			break;
		default:
			$vcard->{$name} = $value;
			break;
	}
	setParameters($property, $parameters, true);

	// Do checksum and be happy
	if(in_array($name, $multi_properties)) {
		$checksum = substr(md5($property->serialize()), 0, 8);
	}
}
//debug('New checksum: '.$checksum);
//$vcard->children[$line] = $property; ???
try {
	VCard::edit($id, $vcard);
} catch(Exception $e) {
	bailOut($e->getMessage());
}

if(in_array($name, $multi_properties)) {
	\OCP\JSON::success(array('data' => array(
		'line' => $line,
		'checksum' => $checksum,
		'oldchecksum' => $_POST['checksum'],
		'lastmodified' => App::lastModified($vcard)->format('U'),
	)));
} else {
	\OCP\JSON::success(array('data' => array(
		'lastmodified' => App::lastModified($vcard)->format('U'),
	)));
}