mirror of
https://github.com/YunoHost-Apps/webtrees_ynh.git
synced 2024-09-03 18:26:37 +02:00
51 lines
1.8 KiB
PHP
51 lines
1.8 KiB
PHP
|
<?php
|
||
|
|
/**
|
||
|
|
* webtrees: online genealogy
|
||
|
|
* Copyright (C) 2016 webtrees development team
|
||
|
|
* This program is free software: you can redistribute it and/or modify
|
||
|
|
* it under the terms of the GNU General Public License as published by
|
||
|
|
* the Free Software Foundation, either version 3 of the License, or
|
||
|
|
* (at your option) any later version.
|
||
|
|
* This program is distributed in the hope that it will be useful,
|
||
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
|
|
* GNU General Public License for more details.
|
||
|
|
* You should have received a copy of the GNU General Public License
|
||
|
|
* along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||
|
|
*/
|
||
|
|
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)) . '<hr><samp dir="ltr">' . $ex->getMessage() . '</samp>',
|
||
|
|
'danger'
|
||
|
|
);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
header('Location: ' . WT_BASE_URL . 'admin_trees_manage.php');
|