blob: ba6351d42715f36e66fa7b4b2c08a424b60f3d1d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
<?php
/**
* webtrees: online genealogy
* Copyright (C) 2017 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;
/** @global Tree $WT_TREE */
global $WT_TREE;
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: admin_trees_manage.php');
|
