1<?php 2 3/** 4 * webtrees: online genealogy 5 * Copyright (C) 2019 webtrees development team 6 * This program is free software: you can redistribute it and/or modify 7 * it under the terms of the GNU General Public License as published by 8 * the Free Software Foundation, either version 3 of the License, or 9 * (at your option) any later version. 10 * This program is distributed in the hope that it will be useful, 11 * but WITHOUT ANY WARRANTY; without even the implied warranty of 12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 * GNU General Public License for more details. 14 * You should have received a copy of the GNU General Public License 15 * along with this program. If not, see <http://www.gnu.org/licenses/>. 16 */ 17 18declare(strict_types=1); 19 20namespace Fisharebest\Webtrees\Http\RequestHandlers; 21 22use Fisharebest\Webtrees\FlashMessages; 23use Fisharebest\Webtrees\Html; 24use Fisharebest\Webtrees\Http\ViewResponseTrait; 25use Fisharebest\Webtrees\I18N; 26use Fisharebest\Webtrees\Tree; 27use League\Flysystem\FilesystemInterface; 28use Psr\Http\Message\ResponseInterface; 29use Psr\Http\Message\ServerRequestInterface; 30use Psr\Http\Server\RequestHandlerInterface; 31use Throwable; 32 33use function assert; 34use function fclose; 35use function fopen; 36use function pathinfo; 37use function redirect; 38use function rewind; 39use function route; 40use function strtolower; 41 42use const PATHINFO_EXTENSION; 43 44/** 45 * Save a GEDCOM file on the server. 46 */ 47class ExportGedcomServer implements RequestHandlerInterface 48{ 49 use ViewResponseTrait; 50 51 /** 52 * @param ServerRequestInterface $request 53 * 54 * @return ResponseInterface 55 */ 56 public function handle(ServerRequestInterface $request): ResponseInterface 57 { 58 $tree = $request->getAttribute('tree'); 59 assert($tree instanceof Tree); 60 61 $data_filesystem = $request->getAttribute('filesystem.data'); 62 assert($data_filesystem instanceof FilesystemInterface); 63 64 $filename = $tree->name(); 65 66 // Force a ".ged" suffix 67 if (strtolower(pathinfo($filename, PATHINFO_EXTENSION)) !== 'ged') { 68 $filename .= '.ged'; 69 } 70 71 try { 72 $stream = fopen('php://temp', 'wb+'); 73 $tree->exportGedcom($stream); 74 rewind($stream); 75 $data_filesystem->putStream($filename, $stream); 76 fclose($stream); 77 78 /* I18N: %s is a filename */ 79 FlashMessages::addMessage(I18N::translate('The family tree has been exported to %s.', Html::filename($filename)), 'success'); 80 } catch (Throwable $ex) { 81 FlashMessages::addMessage( 82 I18N::translate('The file %s could not be created.', Html::filename($filename)) . '<hr><samp dir="ltr">' . $ex->getMessage() . '</samp>', 83 'danger' 84 ); 85 } 86 87 $url = route('manage-trees', ['tree' => $tree->name()]); 88 89 return redirect($url); 90 } 91} 92