$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);
}
rename($filename.'.tmp', $filename);
$stat = stat($filename);
echo sprintf('%d bytes, %0.3f seconds
', $stat['size'], $end-$start);
} else {
echo 'Error: could not open file for writing
';
}
} else {
echo 'Export data from database to gedcom file
';
echo '';
}
echo '', WT_I18N::translate('Close Window'), '
';
print_simple_footer();