.
*/
namespace Fisharebest\Webtrees;
/**
* Defined in session.php
*
* @global Tree $WT_TREE
*/
global $WT_TREE;
define('WT_SCRIPT_NAME', 'admin_trees_export.php');
require './includes/session.php';
if (Auth::isManager($WT_TREE) && Filter::checkCsrf()) {
$filename = WT_DATA_DIR . $WT_TREE->getName();
// Force a ".ged" suffix
if (strtolower(substr($filename, -4)) != '.ged') {
$filename .= '.ged';
}
try {
// To avoid partial trees on timeout/diskspace/etc, write to a temporary file first
$stream = fopen($filename . '.tmp', 'w');
$WT_TREE->exportGedcom($stream);
fclose($stream);
rename($filename . '.tmp', $filename);
FlashMessages::addMessage(/* I18N: %s is a filename */ I18N::translate('The family tree has been exported to %s.', Html::filename($filename)), 'success');
} catch (\ErrorException $ex) {
FlashMessages::addMessage(
I18N::translate('The file %s could not be created.', Html::filename($filename)) . '
' . $ex->getMessage() . '',
'danger'
);
}
}
header('Location: ' . WT_BASE_URL . 'admin_trees_manage.php');