155134edcSGreg Roach<?php 255134edcSGreg Roach 355134edcSGreg Roach/** 455134edcSGreg Roach * webtrees: online genealogy 5d11be702SGreg Roach * Copyright (C) 2023 webtrees development team 655134edcSGreg Roach * This program is free software: you can redistribute it and/or modify 755134edcSGreg Roach * it under the terms of the GNU General Public License as published by 855134edcSGreg Roach * the Free Software Foundation, either version 3 of the License, or 955134edcSGreg Roach * (at your option) any later version. 1055134edcSGreg Roach * This program is distributed in the hope that it will be useful, 1155134edcSGreg Roach * but WITHOUT ANY WARRANTY; without even the implied warranty of 1255134edcSGreg Roach * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 1355134edcSGreg Roach * GNU General Public License for more details. 1455134edcSGreg Roach * You should have received a copy of the GNU General Public License 1589f7189bSGreg Roach * along with this program. If not, see <https://www.gnu.org/licenses/>. 1655134edcSGreg Roach */ 1755134edcSGreg Roach 1855134edcSGreg Roachdeclare(strict_types=1); 1955134edcSGreg Roach 2055134edcSGreg Roachnamespace Fisharebest\Webtrees\Http\RequestHandlers; 2155134edcSGreg Roach 2255134edcSGreg Roachuse Fig\Http\Message\StatusCodeInterface; 2355134edcSGreg Roachuse Fisharebest\Webtrees\Auth; 2415c4f62cSGreg Roachuse Fisharebest\Webtrees\Http\Exceptions\HttpGoneException; 25*00ef1d3aSGreg Roachuse Fisharebest\Webtrees\Module\ModuleChartInterface; 2655134edcSGreg Roachuse Fisharebest\Webtrees\Module\RelationshipsChartModule; 276b9cb339SGreg Roachuse Fisharebest\Webtrees\Registry; 283340ecd2SGreg Roachuse Fisharebest\Webtrees\Services\ModuleService; 2955134edcSGreg Roachuse Fisharebest\Webtrees\Services\TreeService; 3055134edcSGreg Roachuse Fisharebest\Webtrees\Site; 3155134edcSGreg Roachuse Fisharebest\Webtrees\Tree; 32266e9c61SGreg Roachuse Fisharebest\Webtrees\Validator; 3355134edcSGreg Roachuse Psr\Http\Message\ResponseInterface; 3455134edcSGreg Roachuse Psr\Http\Message\ServerRequestInterface; 3555134edcSGreg Roachuse Psr\Http\Server\RequestHandlerInterface; 3655134edcSGreg Roach 3755134edcSGreg Roach/** 3855134edcSGreg Roach * Redirect URLs created by webtrees 1.x (and PhpGedView). 3955134edcSGreg Roach */ 4055134edcSGreg Roachclass RedirectRelationshipPhp implements RequestHandlerInterface 4155134edcSGreg Roach{ 4215c4f62cSGreg Roach public function __construct( 4315c4f62cSGreg Roach private readonly ModuleService $module_service, 4415c4f62cSGreg Roach private readonly TreeService $tree_service, 4515c4f62cSGreg Roach ) { 4655134edcSGreg Roach } 4755134edcSGreg Roach 4855134edcSGreg Roach public function handle(ServerRequestInterface $request): ResponseInterface 4955134edcSGreg Roach { 50266e9c61SGreg Roach $ged = Validator::queryParams($request)->string('ged', Site::getPreference('DEFAULT_GEDCOM')); 5155134edcSGreg Roach $tree = $this->tree_service->all()->get($ged); 5255134edcSGreg Roach 53*00ef1d3aSGreg Roach if ($tree instanceof Tree) { 54*00ef1d3aSGreg Roach $module = $this->module_service 55*00ef1d3aSGreg Roach ->findByComponent(ModuleChartInterface::class, $tree, Auth::user()) 56*00ef1d3aSGreg Roach ->first(static fn (ModuleChartInterface $module): bool => $module instanceof RelationshipsChartModule); 57*00ef1d3aSGreg Roach 58*00ef1d3aSGreg Roach if ($module instanceof RelationshipsChartModule) { 59*00ef1d3aSGreg Roach $pid1 = Validator::queryParams($request)->string('pid1', ''); 60*00ef1d3aSGreg Roach $user = Auth::user(); 61*00ef1d3aSGreg Roach $individual = Registry::individualFactory()->make($pid1, $tree) ?? $tree->significantIndividual($user); 6255134edcSGreg Roach 633340ecd2SGreg Roach $url = $module->chartUrl($individual, [ 64*00ef1d3aSGreg Roach 'ancestors' => Validator::queryParams($request)->string('ancestors', '0'), 65*00ef1d3aSGreg Roach 'recursion' => Validator::queryParams($request)->string('recursion', '0'), 66*00ef1d3aSGreg Roach 'xref1' => $pid1, 67*00ef1d3aSGreg Roach 'xref2' => Validator::queryParams($request)->string('pid2', ''), 6855134edcSGreg Roach ]); 6955134edcSGreg Roach 7015c4f62cSGreg Roach return Registry::responseFactory() 7115c4f62cSGreg Roach ->redirectUrl($url, StatusCodeInterface::STATUS_MOVED_PERMANENTLY) 7215c4f62cSGreg Roach ->withHeader('Link', '<' . $url . '>; rel="canonical"'); 7355134edcSGreg Roach } 74*00ef1d3aSGreg Roach } 7555134edcSGreg Roach 7615c4f62cSGreg Roach throw new HttpGoneException(); 7755134edcSGreg Roach } 7855134edcSGreg Roach} 79