1<?php 2 3/** 4 * webtrees: online genealogy 5 * Copyright (C) 2023 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 <https://www.gnu.org/licenses/>. 16 */ 17 18declare(strict_types=1); 19 20namespace Fisharebest\Webtrees\Http\RequestHandlers; 21 22use Fig\Http\Message\StatusCodeInterface; 23use Fisharebest\Webtrees\Auth; 24use Fisharebest\Webtrees\Http\Exceptions\HttpGoneException; 25use Fisharebest\Webtrees\Module\ModuleListInterface; 26use Fisharebest\Webtrees\Module\SourceListModule; 27use Fisharebest\Webtrees\Registry; 28use Fisharebest\Webtrees\Services\ModuleService; 29use Fisharebest\Webtrees\Services\TreeService; 30use Fisharebest\Webtrees\Site; 31use Fisharebest\Webtrees\Tree; 32use Fisharebest\Webtrees\Validator; 33use Psr\Http\Message\ResponseInterface; 34use Psr\Http\Message\ServerRequestInterface; 35use Psr\Http\Server\RequestHandlerInterface; 36 37/** 38 * Redirect URLs created by webtrees 1.x (and PhpGedView). 39 */ 40class RedirectSourceListPhp implements RequestHandlerInterface 41{ 42 public function __construct( 43 private readonly ModuleService $module_service, 44 private readonly TreeService $tree_service, 45 ) { 46 } 47 48 public function handle(ServerRequestInterface $request): ResponseInterface 49 { 50 $ged = Validator::queryParams($request)->string('ged', Site::getPreference('DEFAULT_GEDCOM')); 51 $tree = $this->tree_service->all()->get($ged); 52 53 if ($tree instanceof Tree) { 54 $module = $this->module_service 55 ->findByComponent(ModuleListInterface::class, $tree, Auth::user()) 56 ->first(static fn (ModuleListInterface $module): bool => $module instanceof SourceListModule); 57 58 if ($module instanceof SourceListModule) { 59 $url = $module->listUrl($tree); 60 61 return Registry::responseFactory() 62 ->redirectUrl($url, StatusCodeInterface::STATUS_MOVED_PERMANENTLY) 63 ->withHeader('Link', '<' . $url . '>; rel="canonical"'); 64 } 65 } 66 67 throw new HttpGoneException(); 68 } 69} 70