Server : Apache System : Linux webd348.cluster026.gra.hosting.ovh.net 5.15.148-ovh-vps-grsec-zfs-classid #1 SMP Thu Feb 8 09:41:04 UTC 2024 x86_64 User : hednacluml ( 122243) PHP Version : 8.3.9 Disable Function : _dyuweyrj4,_dyuweyrj4r,dl Directory : /home/hednacluml/enfants/ecrire/inc/ |
<?php
/***************************************************************************\
* SPIP, Système de publication pour l'internet *
* *
* Copyright © avec tendresse depuis 2001 *
* Arnaud Martin, Antoine Pitrou, Philippe Rivière, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribué sous licence GNU/GPL. *
\***************************************************************************/
/**
* Filtres d'URL et de liens
*
* @package SPIP\Core\Filtres\Liens
**/
if (!defined('_ECRIRE_INC_VERSION')) {
return;
}
/**
* Nettoyer une URL contenant des `../`
*
* Inspiré (de loin) par PEAR:NetURL:resolvePath
*
* @example
* ```
* resolve_path('/.././/truc/chose/machin/./.././.././hopla/..');
* ```
*
* @param string $url URL
* @return string URL nettoyée
**/
function resolve_path($url) {
[$url, $query] = array_pad(explode('?', $url, 2), 2, null);
while (
preg_match(',/\.?/,', $url, $regs) # supprime // et /./
or preg_match(',/[^/]*/\.\./,S', $url, $regs) # supprime /toto/../
or preg_match(',^/\.\./,S', $url, $regs) # supprime les /../ du haut
) {
$url = str_replace($regs[0], '/', $url);
}
if ($query) {
$url .= '?' . $query;
}
return '/' . preg_replace(',^/,S', '', $url);
}
/**
* Suivre un lien depuis une URL donnée vers une nouvelle URL
*
* @uses resolve_path()
* @example
* ```
* suivre_lien(
* 'https://rezo.net/sous/dir/../ect/ory/fi.html..s#toto',
* 'a/../../titi.coco.html/tata#titi');
* ```
*
* @param string $url URL de base
* @param string $lien Lien ajouté à l'URL
* @return string URL complète.
**/
function suivre_lien($url, $lien) {
$mot = null;
$get = null;
$hash = null;
if (preg_match(',^(mailto|javascript|data|tel|callto|file|ftp):,iS', $lien)) {
return $lien;
}
if (preg_match(';^((?:[a-z]{3,33}:)?//.*?)(/.*)?$;iS', $lien, $r)) {
$r = array_pad($r, 3, '');
return $r[1] . resolve_path($r[2]);
}
# L'url site spip est un lien absolu aussi
if (isset($GLOBALS['meta']['adresse_site']) and $lien == $GLOBALS['meta']['adresse_site']) {
return $lien;
}
# lien relatif, il faut verifier l'url de base
# commencer par virer la chaine de get de l'url de base
$dir = '/';
$debut = '';
if (preg_match(';^((?:[a-z]{3,7}:)?//[^/]+)(/.*?/?)?([^/#?]*)([?][^#]*)?(#.*)?$;S', $url, $regs)) {
$debut = $regs[1];
$dir = !strlen($regs[2]) ? '/' : $regs[2];
$mot = $regs[3];
$get = $regs[4] ?? '';
$hash = $regs[5] ?? '';
}
switch (substr($lien, 0, 1)) {
case '/':
return $debut . resolve_path($lien);
case '#':
return $debut . resolve_path($dir . $mot . $get . $lien);
case '':
return $debut . resolve_path($dir . $mot . $get . $hash);
default:
return $debut . resolve_path($dir . $lien);
}
}
/**
* Transforme une URL relative en URL absolue
*
* S'applique sur une balise SPIP d'URL.
*
* @filtre
* @link https://www.spip.net/4127
* @uses suivre_lien()
* @example
* ```
* [(#URL_ARTICLE|url_absolue)]
* [(#CHEMIN{css/theme.css}|url_absolue)]
* ```
*
* @param string $url URL
* @param string $base URL de base de destination (par défaut ce sera l'URL de notre site)
* @return string texte ou URL (en absolus)
**/
function url_absolue($url, $base = '') {
$url = trim((string) $url);
if (strlen($url = trim($url)) == 0) {
return '';
}
if (!$base) {
$base = url_de_base() . (_DIR_RACINE ? _DIR_RESTREINT_ABS : '');
}
return suivre_lien($base, $url);
}
/**
* Supprimer le protocole d'une url absolue
* pour le rendre implicite (URL commencant par "//")
*
* @param string $url_absolue
* @return string
*/
function protocole_implicite($url_absolue) {
return preg_replace(';^[a-z]{3,7}://;i', '//', $url_absolue);
}
/**
* Verifier qu'une url est absolue et que son protocole est bien parmi une liste autorisee
* @param string $url_absolue
* @param array $protocoles_autorises
* @return bool
*/
function protocole_verifier($url_absolue, $protocoles_autorises = ['http','https']) {
if (preg_match(';^([a-z]{3,7})://;i', $url_absolue, $m)) {
$protocole = $m[1];
if (
in_array($protocole, $protocoles_autorises)
or in_array(strtolower($protocole), array_map('strtolower', $protocoles_autorises))
) {
return true;
}
}
return false;
}
/**
* Transforme les URLs relatives en URLs absolues
*
* Ne s'applique qu'aux textes contenant des liens
*
* @filtre
* @uses url_absolue()
* @link https://www.spip.net/4126
*
* @param string|null $texte texte
* @param string $base URL de base de destination (par défaut ce sera l'URL de notre site)
* @return string texte avec des URLs absolues
**/
function liens_absolus($texte, $base = '') {
if ($texte === null || $texte === '') {
return '';
}
if (preg_match_all(',(<(a|link|image|img|script)\s[^<>]*(href|src)=[^<>]*>),imsS', $texte, $liens, PREG_SET_ORDER)) {
if (!function_exists('extraire_attribut')) {
include_spip('inc/filtres');
}
foreach ($liens as $lien) {
foreach (['href', 'src'] as $attr) {
$href = extraire_attribut($lien[0], $attr) ?? '';
if (strlen($href) > 0) {
if (!preg_match(';^((?:[a-z]{3,7}:)?//);iS', $href)) {
$abs = url_absolue($href, $base);
if (rtrim($href, '/') !== rtrim($abs, '/') and !preg_match('/^#/', $href)) {
$texte_lien = inserer_attribut($lien[0], $attr, $abs);
$texte = str_replace($lien[0], $texte_lien, $texte);
}
}
}
}
}
}
return $texte;
}
/**
* Transforme une URL ou des liens en URL ou liens absolus
*
* @filtre
* @link https://www.spip.net/4128
* @global string $mode_abs_url Pour connaître le mode (url ou texte)
*
* @param string $texte texte ou URL
* @param string $base URL de base de destination (par défaut ce sera l'URL de notre site)
* @return string texte ou URL (en absolus)
**/
function abs_url($texte, $base = '') {
if ($GLOBALS['mode_abs_url'] == 'url') {
return url_absolue($texte, $base);
} else {
return liens_absolus($texte, $base);
}
}
/**
* htmlspecialchars wrapper (PHP >= 5.4 compat issue)
*
* @param string $string
* @param int $flags
* @param string $encoding
* @param bool $double_encode
* @return string
*/
function spip_htmlspecialchars($string, $flags = null, $encoding = 'UTF-8', $double_encode = true) {
if (is_null($flags)) {
$flags = ENT_COMPAT | ENT_HTML401;
}
return htmlspecialchars($string, $flags, $encoding, $double_encode);
}
/**
* htmlentities wrapper (PHP >= 5.4 compat issue)
*
* @param string $string
* @param int $flags
* @param string $encoding
* @param bool $double_encode
* @return string
*/
function spip_htmlentities($string, $flags = null, $encoding = 'UTF-8', $double_encode = true) {
if (is_null($flags)) {
$flags = ENT_COMPAT | ENT_HTML401;
}
return htmlentities($string, $flags, $encoding, $double_encode);
}