* * See the enclosed file LICENSE for license information (ASL). If you * did not receive this file, see http://www.horde.org/licenses/asl.php. */ @define('TURBA_BASE', dirname(__FILE__)); require_once TURBA_BASE . '/lib/base.php'; require_once TURBA_BASE . '/lib/Renderer.php'; require_once 'Horde/Form.php'; require_once 'Horde/Data.php'; require_once 'Horde/Variables.php'; $vars = &Variables::getDefaultVariables(); $source = $vars->get('source'); if (!isset($cfgSources[$source])) { $notification->push(_("The contact you requested does not exist."), 'horde.error'); header('Location: ' . Horde::applicationUrl($prefs->getValue('initial_page'), true)); exit; } $driver = &Turba_Driver::singleton($source); /* Set the contact from the key requested. */ $key = $vars->get('key'); $object = $driver->getObject($key); if (is_a($object, 'PEAR_Error')) { $notification->push($object->getMessage(), 'horde.error'); header('Location: ' . Horde::applicationUrl($prefs->getValue('initial_page'), true)); exit; } /* Check permissions on this contact. */ if (!$object->hasPermission(PERMS_READ)) { $notification->push(_("You do not have permission to view this object."), 'horde.error'); header('Location: ' . Horde::applicationUrl($prefs->getValue('initial_page'), true)); exit; } $vcard = &Horde_Data::singleton('vcard'); $vcard->exportFile(_("contact.vcf"), array($driver->tovCard($object)), NLS::getCharset());