$gedcom) { if (userGedcomAdmin(WT_USER_ID, $ged_id)) { $gedcoms[$ged_id]=$gedcom; } } // If we don't have permission to administer any gedcoms, redirect to // this page, which will force a login and provide a list. if (empty($gedcoms)) { header('Location: '.WT_SERVER_NAME.WT_SCRIPT_PATH.'admin_trees_manage.php'); } // Which gedcom have we requested to export $export = safe_GET('export', preg_quote_array($gedcoms)); print_simple_header(WT_I18N::translate('Export')); if ($export) { $ged_id = get_id_from_gedcom($export); $filename = get_site_setting('INDEX_DIRECTORY').$export; echo '

', WT_I18N::translate('Export'), '

'; echo '

', htmlspecialchars(filename_decode($export)), ' => ', $filename, '

'; flush(); $gedout = fopen($filename.'.tmp', 'w'); if ($gedout) { $start = microtime(true); $exportOptions = array(); $exportOptions['privatize'] = 'none'; $exportOptions['toANSI'] = 'no'; $exportOptions['noCustomTags'] = 'no'; $exportOptions['path'] = $MEDIA_DIRECTORY; $exportOptions['slashes'] = 'forward'; export_gedcom($export, $gedout, $exportOptions); $end = microtime(true); fclose($gedout); if (file_exists($filename)) { unlink($filename); } if (rename($filename.'.tmp', $filename)) { echo '

', /* I18N: %s is a filename */ WT_I18N::translate('Family tree exported to %s.', $filename), '

'; } else { echo '

', /* I18N: %s is a filename */ WT_I18N::translate('Unable to create %s. Check the permissions.', $filename), '

'; } } else { echo '

', /* I18N: %s is a filename */ WT_I18N::translate('Unable to create %s. Check the permissions.', $filename.'.tmp'), '

'; } } else { echo '

', WT_I18N::translate('Export family tree'), '

'; echo '

', $gedcom, ' => ', htmlspecialchars(filename_decode(realpath(get_gedcom_setting($ged_id, 'path')))), '

'; } echo '

', WT_I18N::translate('Close Window'), '

'; print_simple_footer();