<?php
/**
 * $Horde: imp/identities.php,v 2.67 2004/02/23 08:19:36 slusarz Exp $
 *
 * Copyright 2001-2004 Jan Schneider <jan@horde.org>
 *
 * See the enclosed file COPYING for license information (GPL).  If you
 * did not receive this file, see http://www.fsf.org/copyleft/gpl.html.
 */

function _returnToPrefs()
{
    header('Location: ' . Util::addParameter(IMP::prefsURL(true), 'group', 'personal'));
    exit;
}

define('IMP_BASE', dirname(__FILE__));
$authentication = OP_HALFOPEN;
require_once IMP_BASE . '/lib/base.php';
require_once HORDE_LIBS . 'Horde/Identity.php';

$identity = &Identity::singleton(array('imp', 'imp'));
$to_edit = null;

// redirect user if not allowed to change anything
if ($identity->isLocked()) {
    _returnToPrefs();
}

$actionID = Util::getFormData('actionID');

// Handle clients without javascript.
if (empty($actionID)) {
    if (Util::getPost('edit')) {
        $actionID = 'ident_edit';
    } elseif (Util::getPost('save')) {
        $actionID = 'ident_save';
    } elseif (Util::getPost('delete')) {
        $actionID = 'ident_delete';
    } elseif (Util::getPost('back')) {
        _returnToPrefs();
    }
}

if (is_null($actionID) && $prefs->isLocked('default_identity')) {
    $actionID = 'ident_edit';
    $_POST['identity'] = $identity->getDefault();
}

/* Run through the action handlers */
switch ($actionID) {
case 'ident_edit':
    $to_edit = Util::getFormData('identity');
    break;

case 'ident_save':
    require_once HORDE_LIBS . 'Horde/Array.php';

    if (($edit_identity = Util::getFormData('edit_identity')) == null) {
        $edit_identity = $identity->add();
    }
    $old_default = $identity->getDefault();
    $identity->setDefault($edit_identity);

    if (($id = Util::getFormData('id'))) {
        $identity->setValue('id', $id);
    } else {
        $identity->setValue('id', _("Unnamed"));
        $id = _("Unnamed");
    }

    /* RFC 2822 [3.2.5] does not allow the '\' character to be used in
       the personal portion of an e-mail string. */
    $fullname = Util::getFormData('fullname');
    if (strpos($fullname, '\\') === false) {
        $identity->setValue('fullname', $fullname);
    } else {
        $notification->push(_("You can not have the '\\' character in your full name."), 'horde.warning');
        break;
    }

    $identity->setValue('from_addr', Util::getFormData('from_addr'));
    $identity->setValue('replyto_addr', Util::getFormData('replyto_addr'));

    /* Clean up Alias, Tie-to, and BCC addresses. */
    foreach (array('alias_addr', 'tieto_addr', 'bcc_addr') as $val) {
        $data = Util::getFormData($val);
        $data = trim($data);
        $data = (empty($data)) ? array() : Horde_Array::prepareAddressList(preg_split("/[\n\r]+/", $data));
        $identity->setValue($val, $data);
    }

    $identity->setValue('signature', Util::getFormData('signature'));
    $identity->setValue('sig_dashes', Util::getFormData('sig_dashes', 0));
    $identity->setValue('sig_first', Util::getFormData('sig_first', 0));

    $identity->setValue('save_sent_mail', Util::getFormData('save_sent_mail', 0));
    $sent_mail_folder = Util::getFormData('sent_mail');
    $sent_mail_new = String::convertCharset(Util::getFormData('sent_mail_new'), NLS::getCharset(), 'UTF7-IMAP');
    $sent_mail_default = $prefs->getValue('sent_mail_folder');
    if ($conf['user']['allow_folders'] &&
        !$prefs->isLocked('sent_mail_folder')) {
        if (empty($sent_mail_folder) && !empty($sent_mail_new)) {
            $sent_mail_folder = $sent_mail_new;
        } elseif (($sent_mail_folder == '-1') && !empty($sent_mail_default)) {
            $sent_mail_folder = $sent_mail_default;
        }
        $sent_mail_folder = IMP::stripPreambleString($sent_mail_folder);
        if (!empty($sent_mail_folder)) {
            include_once IMP_BASE . '/lib/Folder.php';
            $imp_folder = &IMP_Folder::singleton();
            if (!$imp_folder->exists($imp['stream'], IMP::addPreambleString($sent_mail_folder))) {
                $imp_folder->create($imp['stream'], IMP::addPreambleString($sent_mail_folder), $prefs->getValue('subscribe'));
            }
        }
        $identity->setValue('sent_mail_folder', $sent_mail_folder);
    }

    $identity->setValue('private_key', Util::getFormData('private_key'));
    $identity->setValue('private_key_type', Util::getFormData('private_key_type'));

    $identity->setDefault($old_default);
    $identity->save();

    if ($prefs->isLocked('default_identity')) {
        $to_edit = Util::getFormData('identity');
    }

    $notification->push(sprintf(_("The identity \"%s\" has been saved."), $id), 'horde.success');
    break;

case 'ident_delete':
    $to_delete = Util::getFormData('identity');
    if ($to_delete != -1) {
        $deleted_identity = $identity->delete($to_delete);
        $notification->push(sprintf(_("The identity \"%s\" has been deleted."), $deleted_identity[0]['id']), 'horde.success');
    } else {
        $notification->push(_("You must select an identity to be deleted."), 'horde.warning');
    }
    break;

}

$title = _("Identities");
$identities = $identity->getAll('id');

require IMP_TEMPLATES . '/common-header.inc';
IMP::menu();
IMP::status();
require IMP_TEMPLATES . '/identities/javascript.inc';
require IMP_TEMPLATES . '/identities/manage.inc';
require $registry->getParam('templates', 'horde') . '/common-footer.inc';