Files

606 lines
22 KiB
PHP

<?php
declare(strict_types=1);
/*
* This file is part of the TYPO3 CMS project.
*
* It is free software; you can redistribute it and/or modify it under
* the terms of the GNU General Public License, either version 2
* of the License, or any later version.
*
* For the full copyright and license information, please read the
* LICENSE.txt file that was distributed with this source code.
*
* The TYPO3 project - inspiring people to share!
*/
namespace TYPO3\CMS\Core\DataHandling;
use TYPO3\CMS\Backend\Domain\Repository\Localization\LocalizationRepository;
use TYPO3\CMS\Backend\Utility\BackendUtility;
use TYPO3\CMS\Core\Cache\CacheManager;
use TYPO3\CMS\Core\Database\Connection;
use TYPO3\CMS\Core\Database\ConnectionPool;
use TYPO3\CMS\Core\Database\Query\QueryBuilder;
use TYPO3\CMS\Core\Database\Query\Restriction\DeletedRestriction;
use TYPO3\CMS\Core\Database\Query\Restriction\WorkspaceRestriction;
use TYPO3\CMS\Core\DataHandling\Model\RecordState;
use TYPO3\CMS\Core\DataHandling\Model\RecordStateFactory;
use TYPO3\CMS\Core\Domain\Repository\PageRepository;
use TYPO3\CMS\Core\Exception\SiteNotFoundException;
use TYPO3\CMS\Core\Schema\Capability\TcaSchemaCapability;
use TYPO3\CMS\Core\Schema\TcaSchemaFactory;
use TYPO3\CMS\Core\Site\SiteFinder;
use TYPO3\CMS\Core\Slug\SlugNormalizer;
use TYPO3\CMS\Core\Utility\GeneralUtility;
use TYPO3\CMS\Core\Utility\MathUtility;
use TYPO3\CMS\Core\Utility\RootlineUtility;
use TYPO3\CMS\Core\Utility\StringUtility;
use TYPO3\CMS\Core\Versioning\VersionState;
/**
* Generates, sanitizes and validates slugs for a TCA field
*/
class SlugHelper
{
/**
* @var string
*/
protected $tableName;
/**
* @var string
*/
protected $fieldName;
/**
* @var int
*/
protected $workspaceId;
/**
* @var array
*/
protected $configuration = [];
/**
* @var bool
*/
protected $workspaceEnabled;
/**
* Defines whether the slug field should start with "/".
* For pages (due to rootline functionality), this is a must have, otherwise the root level page
* would have an empty value.
*
* @var bool
*/
protected $prependSlashInSlug;
protected SlugNormalizer $slugNormalizer;
/**
* Slug constructor.
*
* @param string $tableName TCA table
* @param string $fieldName TCA field
* @param array $configuration TCA configuration of the field
* @param int $workspaceId the workspace ID to be working on.
*/
public function __construct(string $tableName, string $fieldName, array $configuration, int $workspaceId = 0)
{
$this->tableName = $tableName;
$this->fieldName = $fieldName;
$this->configuration = $configuration;
$this->workspaceId = $workspaceId;
if ($this->tableName === 'pages' && $this->fieldName === 'slug') {
$this->prependSlashInSlug = true;
} else {
$this->prependSlashInSlug = $this->configuration['prependSlash'] ?? false;
}
$schemaFactory = GeneralUtility::makeInstance(TcaSchemaFactory::class);
$this->workspaceEnabled = $schemaFactory->has($tableName) && $schemaFactory->get($tableName)->hasCapability(TcaSchemaCapability::Workspace);
$this->slugNormalizer = GeneralUtility::makeInstance(SlugNormalizer::class);
}
/**
* Cleans a slug value so it is used directly in the path segment of a URL.
*/
public function sanitize(string $slug): string
{
$value = $this->slugNormalizer->normalize($slug, $this->configuration['fallbackCharacter'] ?? '-');
if (($value[0] ?? '') !== '/' && $this->prependSlashInSlug) {
$value = '/' . $value;
}
return $value;
}
/**
* Extracts payload of slug and removes wrapping delimiters,
* e.g. `/hello/world/` will become `hello/world`.
*/
public function extract(string $slug): string
{
// Convert some special tokens (space, "_" and "-") to the space character
$fallbackCharacter = $this->configuration['fallbackCharacter'] ?? '-';
return trim($slug, $fallbackCharacter . '/');
}
/**
* Used when no slug exists for a record
*
* @param int $pid The uid of the page to generate the slug for
*/
public function generate(array $recordData, int $pid): string
{
if ($this->tableName === 'pages' && ($pid === 0 || !empty($recordData['is_siteroot']))) {
return '/';
}
$prefix = '';
if ($this->tableName === 'pages' && ($this->configuration['generatorOptions']['prefixParentPageSlug'] ?? false)) {
$schema = GeneralUtility::makeInstance(TcaSchemaFactory::class)->get($this->tableName);
$languageFieldName = null;
if ($schema->isLanguageAware()) {
$languageFieldName = $schema->getCapability(TcaSchemaCapability::Language)->getLanguageField()->getName();
}
$languageId = (int)($recordData[$languageFieldName ?? ''] ?? 0);
$parentPageRecord = $this->resolveParentPageRecord($pid, $languageId);
if (is_array($parentPageRecord)) {
// If the parent page has a slug, use that instead of "re-generating" the slug from the parents' page title
if (!empty($parentPageRecord['slug'])) {
$rootLineItemSlug = $parentPageRecord['slug'];
} else {
$rootLineItemSlug = $this->generate($parentPageRecord, (int)$parentPageRecord['pid']);
}
$rootLineItemSlug = trim($rootLineItemSlug, '/');
if (!empty($rootLineItemSlug)) {
$prefix = $rootLineItemSlug;
}
}
}
$fieldSeparator = $this->configuration['generatorOptions']['fieldSeparator'] ?? '/';
$slugParts = [];
$replaceConfiguration = $this->configuration['generatorOptions']['replacements'] ?? [];
$regexReplaceConfiguration = $this->configuration['generatorOptions']['regexReplacements'] ?? [];
foreach ($this->configuration['generatorOptions']['fields'] ?? [] as $fieldNameParts) {
if (is_string($fieldNameParts)) {
$fieldNameParts = GeneralUtility::trimExplode(',', $fieldNameParts);
}
foreach ($fieldNameParts as $fieldName) {
if (!empty($recordData[$fieldName])) {
$pieceOfSlug = (string)$recordData[$fieldName];
foreach ($regexReplaceConfiguration as $pattern => $replacement) {
$replacedPieceOfSlug = @preg_replace(
$pattern,
$replacement,
$pieceOfSlug
);
if (is_string($replacedPieceOfSlug)) {
$pieceOfSlug = $replacedPieceOfSlug;
}
}
$pieceOfSlug = str_replace(
array_keys($replaceConfiguration),
array_values($replaceConfiguration),
$pieceOfSlug
);
$slugParts[] = $pieceOfSlug;
break;
}
}
}
$slug = implode($fieldSeparator, $slugParts);
$slug = $this->sanitize($slug);
// No valid data found
if ($slug === '' || $slug === '/') {
$slug = 'default-' . md5((string)json_encode($recordData));
}
if ($this->prependSlashInSlug && ($slug[0] ?? '') !== '/') {
$slug = '/' . $slug;
}
if (!empty($prefix)) {
$slug = $prefix . $slug;
}
// Hook for alternative ways of filling/modifying the slug data
foreach ($this->configuration['generatorOptions']['postModifiers'] ?? [] as $funcName) {
$hookParameters = [
'slug' => $slug,
'workspaceId' => $this->workspaceId,
'configuration' => $this->configuration,
'record' => $recordData,
'pid' => $pid,
'prefix' => $prefix,
'tableName' => $this->tableName,
'fieldName' => $this->fieldName,
];
$slug = GeneralUtility::callUserFunction($funcName, $hookParameters, $this);
}
return $this->sanitize($slug);
}
/**
* Checks if there are other records with the same slug that are located on the same PID.
*/
public function isUniqueInPid(string $slug, RecordState $state): bool
{
$pageId = (int)$state->resolveNodeIdentifier();
$recordId = $state->getSubject()->getIdentifier();
$languageId = $state->getContext()->getLanguageId();
$queryBuilder = $this->createPreparedQueryBuilder();
$this->applySlugConstraint($queryBuilder, $slug);
$this->applyPageIdConstraint($queryBuilder, $pageId);
$this->applyRecordConstraint($queryBuilder, $recordId);
$this->applyLanguageConstraint($queryBuilder, $languageId);
$this->applyWorkspaceConstraint($queryBuilder, $state);
$statement = $queryBuilder->executeQuery();
$records = $this->resolveVersionOverlays(
$statement->fetchAllAssociative()
);
return count($records) === 0;
}
/**
* Check if there are other records with the same slug that are located on the same site.
*
* @throws \TYPO3\CMS\Core\Exception\SiteNotFoundException
*/
public function isUniqueInSite(string $slug, RecordState $state): bool
{
$pageId = $state->resolveNodeAggregateIdentifier();
$recordId = $state->getSubject()->getIdentifier();
$languageId = $state->getContext()->getLanguageId();
if (!MathUtility::canBeInterpretedAsInteger($pageId)) {
// If this is a new page, we use the parent page to resolve the site
$pageId = $state->getNode()->getIdentifier();
}
$pageId = (int)$pageId;
$queryBuilder = $this->createPreparedQueryBuilder();
$this->applySlugConstraint($queryBuilder, $slug);
$this->applyRecordConstraint($queryBuilder, $recordId);
$this->applyLanguageConstraint($queryBuilder, $languageId);
$this->applyWorkspaceConstraint($queryBuilder, $state);
$statement = $queryBuilder->executeQuery();
$records = $this->resolveVersionOverlays(
$statement->fetchAllAssociative()
);
if (count($records) === 0) {
return true;
}
// The installation contains at least ONE other record with the same slug
// Now find out if it is the same root page ID
$this->flushRootLineCaches();
$siteFinder = GeneralUtility::makeInstance(SiteFinder::class);
try {
$siteOfCurrentRecord = $siteFinder->getSiteByPageId($pageId);
} catch (SiteNotFoundException $e) {
// Not within a site, so nothing to do
// @todo: Rather than silently ignoring this misconfiguration,
// a warning should be thrown here, or maybe even let the
// exception bubble up and catch it in places that uses this API
return true;
}
foreach ($records as $record) {
try {
$recordState = RecordStateFactory::forName($this->tableName)->fromArray($record);
$siteOfExistingRecord = $siteFinder->getSiteByPageId(
(int)$recordState->resolveNodeAggregateIdentifier()
);
} catch (SiteNotFoundException $exception) {
// In case not site is found, the record is not
// organized in any site
continue;
}
if ($siteOfExistingRecord->getRootPageId() === $siteOfCurrentRecord->getRootPageId()) {
return false;
}
}
// Otherwise, everything is still fine
return true;
}
/**
* Check if there are other records with the same slug.
*
* @throws \TYPO3\CMS\Core\Exception\SiteNotFoundException
*/
public function isUniqueInTable(string $slug, RecordState $state): bool
{
$recordId = $state->getSubject()->getIdentifier();
$languageId = $state->getContext()->getLanguageId();
$queryBuilder = $this->createPreparedQueryBuilder();
$this->applySlugConstraint($queryBuilder, $slug);
$this->applyRecordConstraint($queryBuilder, $recordId);
$this->applyLanguageConstraint($queryBuilder, $languageId);
$this->applyWorkspaceConstraint($queryBuilder, $state);
$statement = $queryBuilder->executeQuery();
$records = $this->resolveVersionOverlays(
$statement->fetchAllAssociative()
);
return count($records) === 0;
}
/**
* Ensure root line caches are flushed to avoid any issue regarding moving of pages or dynamically creating
* sites while managing slugs at the same request
*/
protected function flushRootLineCaches(): void
{
$cacheManager = GeneralUtility::makeInstance(CacheManager::class);
$cacheManager->getCache('runtime')->flushByTag(RootlineUtility::RUNTIME_CACHE_TAG);
$cacheManager->getCache('rootline')->flush();
}
/**
* Generate a slug with a suffix "/mytitle-1" if that is in use already.
*
* @param string $slug proposed slug
* @param callable $isUnique Callback to check for uniqueness
* @throws SiteNotFoundException
*/
protected function buildSlug(string $slug, RecordState $state, callable $isUnique): string
{
$slug = $this->sanitize($slug);
$rawValue = $this->extract($slug);
$newValue = $slug;
$counter = 0;
while (
!$isUnique($newValue, $state)
&& ++$counter <= 100
) {
$newValue = $this->sanitize($rawValue . '-' . $counter);
}
if ($counter === 100) {
$uniqueId = StringUtility::getUniqueId();
$newValue = $this->sanitize($rawValue . '-' . md5($uniqueId));
}
return $newValue;
}
/**
* Generate a slug with a suffix "/mytitle-1" if that is in use already.
*
* @param string $slug proposed slug
* @throws SiteNotFoundException
*/
public function buildSlugForUniqueInSite(string $slug, RecordState $state): string
{
return $this->buildSlug($slug, $state, [$this, 'isUniqueInSite']);
}
/**
* Generate a slug with a suffix "/mytitle-1" if the suggested slug is in use already.
*
* @param string $slug proposed slug
*/
public function buildSlugForUniqueInPid(string $slug, RecordState $state): string
{
return $this->buildSlug($slug, $state, [$this, 'isUniqueInPid']);
}
/**
* Generate a slug with a suffix "/mytitle-1" if that is in use already.
*
* @param string $slug proposed slug
* @throws SiteNotFoundException
*/
public function buildSlugForUniqueInTable(string $slug, RecordState $state): string
{
return $this->buildSlug($slug, $state, [$this, 'isUniqueInTable']);
}
protected function createPreparedQueryBuilder(): QueryBuilder
{
$fieldNames = ['uid', 'pid', $this->fieldName];
if ($this->workspaceEnabled) {
$fieldNames[] = 't3ver_state';
$fieldNames[] = 't3ver_oid';
}
$schema = GeneralUtility::makeInstance(TcaSchemaFactory::class)->get($this->tableName);
if ($schema->isLanguageAware()) {
$fieldNames[] = $schema->getCapability(TcaSchemaCapability::Language)->getLanguageField()->getName();
$fieldNames[] = $schema->getCapability(TcaSchemaCapability::Language)->getTranslationOriginPointerField()->getName();
}
$queryBuilder = GeneralUtility::makeInstance(ConnectionPool::class)->getQueryBuilderForTable($this->tableName);
$queryBuilder->getRestrictions()
->removeAll()
->add(GeneralUtility::makeInstance(DeletedRestriction::class));
$queryBuilder
->select(...$fieldNames)
->from($this->tableName);
return $queryBuilder;
}
protected function applyWorkspaceConstraint(QueryBuilder $queryBuilder, RecordState $state)
{
if (!$this->workspaceEnabled) {
return;
}
$queryBuilder->getRestrictions()->add(
GeneralUtility::makeInstance(WorkspaceRestriction::class, $this->workspaceId)
);
// Exclude the online record of a versioned record
if ($state->getVersionLink()) {
$queryBuilder->andWhere(
$queryBuilder->expr()->neq('uid', $state->getVersionLink()->getSubject()->getIdentifier())
);
}
}
/**
* Apply constraint to fetch records with same language (Slug / language should be unique).
* If language is -1 (all languages), there should not be any other records with the
* same slug of any language (or -1).
*/
protected function applyLanguageConstraint(QueryBuilder $queryBuilder, int $languageId)
{
$schema = GeneralUtility::makeInstance(TcaSchemaFactory::class)->get($this->tableName);
if (!$schema->isLanguageAware()) {
return;
}
if ($languageId === -1) {
// if language is -1 "all languages" we need to check against all languages, thus not adding
// any kind of language constraints.
return;
}
$languageFieldName = $schema->getCapability(TcaSchemaCapability::Language)->getLanguageField()->getName();
// Only check records of the given language or -1 (all languages)
$queryBuilder->andWhere(
$queryBuilder->expr()->or(
$queryBuilder->expr()->eq(
$languageFieldName,
$queryBuilder->createNamedParameter($languageId, Connection::PARAM_INT)
),
$queryBuilder->expr()->eq(
$languageFieldName,
$queryBuilder->createNamedParameter(-1, Connection::PARAM_INT)
)
)
);
}
protected function applySlugConstraint(QueryBuilder $queryBuilder, string $slug)
{
$queryBuilder->where(
$queryBuilder->expr()->eq(
$this->fieldName,
$queryBuilder->createNamedParameter($slug)
)
);
}
protected function applyPageIdConstraint(QueryBuilder $queryBuilder, int $pageId)
{
if ($pageId < 0) {
throw new \RuntimeException(
sprintf(
'Page id must be positive "%d"',
$pageId
),
1534962573
);
}
$queryBuilder->andWhere(
$queryBuilder->expr()->eq(
'pid',
$queryBuilder->createNamedParameter($pageId, Connection::PARAM_INT)
)
);
}
/**
* @param string|int $recordId
*/
protected function applyRecordConstraint(QueryBuilder $queryBuilder, $recordId)
{
// Exclude the current record if it is an existing record
if (!MathUtility::canBeInterpretedAsInteger($recordId)) {
return;
}
$queryBuilder->andWhere(
$queryBuilder->expr()->neq('uid', $queryBuilder->createNamedParameter($recordId, Connection::PARAM_INT))
);
if ($this->workspaceId > 0 && $this->workspaceEnabled) {
$liveId = BackendUtility::getLiveVersionIdOfRecord($this->tableName, (int)$recordId) ?? $recordId;
$queryBuilder->andWhere(
$queryBuilder->expr()->neq('uid', $queryBuilder->createNamedParameter($liveId, Connection::PARAM_INT))
);
}
}
protected function resolveVersionOverlays(array $records): array
{
if (!$this->workspaceEnabled) {
return $records;
}
// filters out non-records (`null` or empty array `[]`)
return array_filter(
// performs workspace overlay and sanitization on each record
array_map(
function (array $record): ?array {
BackendUtility::workspaceOL(
$this->tableName,
$record,
$this->workspaceId,
true
);
if (!is_array($record)) {
return null;
}
if (VersionState::tryFrom($record['t3ver_state'] ?? 0)
=== VersionState::DELETE_PLACEHOLDER) {
return null;
}
return $record;
},
$records
)
);
}
/**
* Fetch a parent page, but exclude spacers and sys-folders
*/
protected function resolveParentPageRecord(int $pid, int $languageId): ?array
{
$rootLine = BackendUtility::BEgetRootLine($pid, '', true, ['nav_title']);
$excludeDokTypes = [
PageRepository::DOKTYPE_SPACER,
PageRepository::DOKTYPE_SYSFOLDER,
];
do {
$parentPageRecord = array_shift($rootLine);
// exclude spacers, recyclers and folders
} while (!empty($rootLine) && in_array((int)$parentPageRecord['doktype'], $excludeDokTypes, true));
if ($languageId > 0) {
$languageIds = [$languageId];
$siteFinder = GeneralUtility::makeInstance(SiteFinder::class);
try {
$site = $siteFinder->getSiteByPageId($pid);
$siteLanguage = $site->getLanguageById($languageId);
$languageIds = array_merge($languageIds, $siteLanguage->getFallbackLanguageIds());
} catch (SiteNotFoundException|\InvalidArgumentException $e) {
// no site or requested language available - move on
}
/** @var LocalizationRepository $localizationRepository */
$localizationRepository = GeneralUtility::makeInstance(LocalizationRepository::class);
foreach ($languageIds as $languageId) {
$localizedParentPageRecord = $localizationRepository->getPageTranslations(
$parentPageRecord['uid'],
[$languageId],
$this->workspaceId
);
if ($localizedParentPageRecord !== []) {
$parentPageRecord = reset($localizedParentPageRecord)->toArray();
break;
}
}
}
return $parentPageRecord;
}
}