<?php
/**
 * ownCloud - Addressbook
 *
 * @author Jakob Sack
 * @copyright 2011 Jakob Sack mail@jakobsack.de
 *
 * 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/>.
 *
 */

// Check if we are a user
OCP\JSON::checkLoggedIn();
OCP\JSON::checkAppEnabled('contacts');
OCP\JSON::callCheck();

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

$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']:array();

$vcard = OCA\Contacts\App::getContactVCard($id);
$l10n = OCA\Contacts\App::$l10n;

if(!$name) {
	bailOut($l10n->t('element name is not set.'));
}
if(!$id) {
	bailOut($l10n->t('id is not set.'));
}

if(!$vcard) {
	bailOut($l10n->t('Could not parse contact: ').$id);
}

if(!is_array($value)) {
	$value = trim($value);
	if(!$value
		&& in_array(
		$name,
		array('TEL', 'EMAIL', 'ORG', 'BDAY', 'URL', 'NICKNAME', 'NOTE'))
	) {
		bailOut($l10n->t('Cannot add empty property.'));
	}
} elseif($name === 'ADR') { // only add if non-empty elements.
	$empty = true;
	foreach($value as $part) {
		if(trim($part) != '') {
			$empty = false;
			break;
		}
	}
	if($empty) {
		bailOut($l10n->t('At least one of the address fields has to be filled out.'));
	}
}

// Prevent setting a duplicate entry
$current = $vcard->select($name);
foreach($current as $item) {
	$tmpvalue = (is_array($value)?implode(';', $value):$value);
	if($tmpvalue == $item->value) {
		bailOut($l10n->t('Trying to add duplicate property: '.$name.': '.$tmpvalue));
	}
}

if(is_array($value)) {
	// NOTE: Important, otherwise the compound value will
	// be set in the order the fields appear in the form!
	ksort($value);
	$value = array_map('strip_tags', $value);
} else {
	$value = strip_tags($value);
}

/* preprocessing value */
switch($name) {
	case 'BDAY':
		$date = New DateTime($value);
		$value = $date->format(DateTime::ATOM);
	case 'FN':
		if(!$value) {
			// create a method thats returns an alternative for FN.
			//$value = getOtherValue();
		}
	case 'N':
	case 'ORG':
	case 'NOTE':
		$value = str_replace('\n', ' \\n', $value);
		break;
	case 'NICKNAME':
		// TODO: Escape commas and semicolons.
		break;
	case 'EMAIL':
		$value = strtolower($value);
		break;
	case 'TEL':
	case 'ADR':
		break;
	case 'IMPP':
		if(is_null($parameters) || !isset($parameters['X-SERVICE-TYPE'])) {
			bailOut(OCA\Contacts\App::$l10n->t('Missing IM parameter.'));
		}
		$impp = OCA\Contacts\App::getIMOptions($parameters['X-SERVICE-TYPE']);
		if(is_null($impp)) {
			bailOut(OCA\Contacts\App::$l10n->t('Unknown IM: '.$parameters['X-SERVICE-TYPE']));
		}
		$value = $impp['protocol'] . ':' . $value;
		break;
}

switch($name) {
	case 'NOTE':
		$vcard->setString('NOTE', $value);
		break;
	default:
		$property = $vcard->addProperty($name, $value); //, $parameters);
		break;
}

$line = count($vcard->children) - 1;

// Apparently Sabre\VObject\Parameter doesn't do well with
// multiple values or I don't know how to do it. Tanghus.
foreach ($parameters as $key=>$element) {
	if(is_array($element) /*&& strtoupper($key) == 'TYPE'*/) {
		// NOTE: Maybe this doesn't only apply for TYPE?
		// And it probably shouldn't be done here anyways :-/
		foreach($element as $e) {
			if($e != '' && !is_null($e)) {
				if(trim($e)) {
					$vcard->children[$line]->parameters[] = new Sabre\VObject\Parameter($key, $e);
				}
			}
		}
	} else {
		if(trim($element)) {
			$vcard->children[$line]->parameters[] = new Sabre\VObject\Parameter($key, $element);
		}
	}
}
$checksum = substr(md5($vcard->children[$line]->serialize()), 0, 8);

try {
	OCA\Contacts\VCard::edit($id, $vcard);
} catch(Exception $e) {
	bailOut($e->getMessage());
}

OCP\JSON::success(array(
	'data' => array(
		'checksum' => $checksum,
		'lastmodified' => OCA\Contacts\App::lastModified($vcard)->format('U'))
	)
);