www/ecrire/inc/filtres_mini.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2019                                                *
   7  *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
   8  *                                                                         *
   9  *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
  10  *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
  11 \***************************************************************************/
  12
  13 /**
  14  * Filtres d'URL et de liens
  15  *
  16  * @package SPIP\Core\Filtres\Liens
  17  **/
  18
  19 if (!defined('_ECRIRE_INC_VERSION')) {
  20         return;
  21 }
  22
  23
  24 /**
  25  * Nettoyer une URL contenant des `../`
  26  *
  27  * Inspiré (de loin) par PEAR:NetURL:resolvePath
  28  *
  29  * @example
  30  *     ```
  31  *     resolve_path('/.././/truc/chose/machin/./.././.././hopla/..');
  32  *     ```
  33  *
  34  * @param string $url URL
  35  * @return string URL nettoyée
  36  **/
  37 function resolve_path($url) {
  38         list($url, $query) = array_pad(explode('?', $url, 2), 2, null);
  39         while (preg_match(',/\.?/,', $url, $regs)    # supprime // et /./
  40                 or preg_match(',/[^/]*/\.\./,S', $url, $regs)  # supprime /toto/../
  41                 or preg_match(',^/\.\./,S', $url, $regs) # supprime les /../ du haut
  42         ) {
  43                 $url = str_replace($regs[0], '/', $url);
  44         }
  45
  46         if ($query) {
  47                 $url .= '?' . $query;
  48         }
  49
  50         return '/' . preg_replace(',^/,S', '', $url);
  51 }
  52
  53
  54 /**
  55  * Suivre un lien depuis une URL donnée vers une nouvelle URL
  56  *
  57  * @uses resolve_path()
  58  * @example
  59  *     ```
  60  *     suivre_lien(
  61  *         'http://rezo.net/sous/dir/../ect/ory/fi.html..s#toto',
  62  *         'a/../../titi.coco.html/tata#titi');
  63  *     ```
  64  *
  65  * @param string $url URL de base
  66  * @param string $lien Lien ajouté à l'URL
  67  * @return string URL complète.
  68  **/
  69 function suivre_lien($url, $lien) {
  70
  71         if (preg_match(',^(mailto|javascript|data|tel|callto|file|ftp):,iS', $lien)) {
  72                 return $lien;
  73         }
  74         if (preg_match(';^((?:[a-z]{3,33}:)?//.*?)(/.*)?$;iS', $lien, $r)) {
  75                 $r = array_pad($r, 3, null);
  76
  77                 return $r[1] . resolve_path($r[2]);
  78         }
  79
  80         # L'url site spip est un lien absolu aussi
  81         if (isset($GLOBALS['meta']['adresse_site']) and $lien == $GLOBALS['meta']['adresse_site']) {
  82                 return $lien;
  83         }
  84
  85         # lien relatif, il faut verifier l'url de base
  86         # commencer par virer la chaine de get de l'url de base
  87         if (preg_match(';^((?:[a-z]{3,7}:)?//[^/]+)(/.*?/?)?([^/#?]*)([?][^#]*)?(#.*)?$;S', $url, $regs)) {
  88                 $debut = $regs[1];
  89                 $dir = !strlen($regs[2]) ? '/' : $regs[2];
  90                 $mot = $regs[3];
  91                 $get = isset($regs[4]) ? $regs[4] : '';
  92                 $hash = isset($regs[5]) ? $regs[5] : '';
  93         }
  94         switch (substr($lien, 0, 1)) {
  95                 case '/':
  96                         return $debut . resolve_path($lien);
  97                 case '#':
  98                         return $debut . resolve_path($dir . $mot . $get . $lien);
  99                 case '':
 100                         return $debut . resolve_path($dir . $mot . $get . $hash);
 101                 default:
 102                         return $debut . resolve_path($dir . $lien);
 103         }
 104 }
 105
 106
 107 /**
 108  * Transforme une URL relative en URL absolue
 109  *
 110  * S'applique sur une balise SPIP d'URL.
 111  *
 112  * @filtre
 113  * @link http://www.spip.net/4127
 114  * @uses suivre_lien()
 115  * @example
 116  *     ```
 117  *     [(#URL_ARTICLE|url_absolue)]
 118  *     [(#CHEMIN{css/theme.css}|url_absolue)]
 119  *     ```
 120  *
 121  * @param string $url URL
 122  * @param string $base URL de base de destination (par défaut ce sera l'URL de notre site)
 123  * @return string Texte ou URL (en absolus)
 124  **/
 125 function url_absolue($url, $base = '') {
 126         if (strlen($url = trim($url)) == 0) {
 127                 return '';
 128         }
 129         if (!$base) {
 130                 $base = url_de_base() . (_DIR_RACINE ? _DIR_RESTREINT_ABS : '');
 131         }
 132
 133         return suivre_lien($base, $url);
 134 }
 135
 136 /**
 137  * Supprimer le protocole d'une url absolue
 138  * pour le rendre implicite (URL commencant par "//")
 139  *
 140  * @param string $url_absolue
 141  * @return string
 142  */
 143 function protocole_implicite($url_absolue) {
 144         return preg_replace(';^[a-z]{3,7}://;i', '//', $url_absolue);
 145 }
 146
 147 /**
 148  * Verifier qu'une url est absolue et que son protocole est bien parmi une liste autorisee
 149  * @param string $url_absolue
 150  * @param array $protocoles_autorises
 151  * @return bool
 152  */
 153 function protocole_verifier($url_absolue, $protocoles_autorises = array('http','https')) {
 154
 155         if (preg_match(';^([a-z]{3,7})://;i', $url_absolue, $m)) {
 156                 $protocole = $m[1];
 157                 if (in_array($protocole, $protocoles_autorises)
 158                   or in_array(strtolower($protocole), array_map('strtolower', $protocoles_autorises))) {
 159                         return true;
 160                 }
 161         }
 162         return false;
 163 }
 164
 165 /**
 166  * Transforme les URLs relatives en URLs absolues
 167  *
 168  * Ne s'applique qu'aux textes contenant des liens
 169  *
 170  * @filtre
 171  * @uses url_absolue()
 172  * @link http://www.spip.net/4126
 173  *
 174  * @param string $texte Texte
 175  * @param string $base URL de base de destination (par défaut ce sera l'URL de notre site)
 176  * @return string Texte avec des URLs absolues
 177  **/
 178 function liens_absolus($texte, $base = '') {
 179         if (preg_match_all(',(<(a|link|image|img|script)\s[^<>]*(href|src)=[^<>]*>),imsS', $texte, $liens, PREG_SET_ORDER)) {
 180                 if (!function_exists('extraire_attribut')) {
 181                         include_spip('inc/filtres');
 182                 }
 183                 foreach ($liens as $lien) {
 184                         foreach (array('href', 'src') as $attr) {
 185                                 $href = extraire_attribut($lien[0], $attr);
 186                                 if (strlen($href) > 0) {
 187                                         if (!preg_match(';^((?:[a-z]{3,7}:)?//);iS', $href)) {
 188                                                 $abs = url_absolue($href, $base);
 189                                                 if (rtrim($href, '/') !== rtrim($abs, '/') and !preg_match('/^#/', $href)) {
 190                                                         $texte_lien = inserer_attribut($lien[0], $attr, $abs);
 191                                                         $texte = str_replace($lien[0], $texte_lien, $texte);
 192                                                 }
 193                                         }
 194                                 }
 195                         }
 196                 }
 197         }
 198
 199         return $texte;
 200 }
 201
 202
 203 /**
 204  * Transforme une URL ou des liens en URL ou liens absolus
 205  *
 206  * @filtre
 207  * @link http://www.spip.net/4128
 208  * @global mode_abs_url Pour connaître le mode (url ou texte)
 209  *
 210  * @param string $texte Texte ou URL
 211  * @param string $base URL de base de destination (par défaut ce sera l'URL de notre site)
 212  * @return string Texte ou URL (en absolus)
 213  **/
 214 function abs_url($texte, $base = '') {
 215         if ($GLOBALS['mode_abs_url'] == 'url') {
 216                 return url_absolue($texte, $base);
 217         } else {
 218                 return liens_absolus($texte, $base);
 219         }
 220 }
 221
 222 /**
 223  * htmlspecialchars wrapper (PHP >= 5.4 compat issue)
 224  *
 225  * @param string $string
 226  * @param int $flags
 227  * @param string $encoding
 228  * @param bool $double_encode
 229  * @return string
 230  */
 231 function spip_htmlspecialchars($string, $flags = null, $encoding = 'ISO-8859-1', $double_encode = true) {
 232         if (is_null($flags)) {
 233                 $flags = ENT_COMPAT;
 234                 if (defined('ENT_HTML401')) {
 235                         $flags |= ENT_HTML401;
 236                 }
 237         }
 238
 239         return htmlspecialchars($string, $flags, $encoding, $double_encode);
 240 }
 241
 242 /**
 243  * htmlentities wrapper (PHP >= 5.4 compat issue)
 244  *
 245  * @param string $string
 246  * @param int $flags
 247  * @param string $encoding
 248  * @param bool $double_encode
 249  * @return string
 250  */
 251 function spip_htmlentities($string, $flags = null, $encoding = 'ISO-8859-1', $double_encode = true) {
 252         if (is_null($flags)) {
 253                 $flags = ENT_COMPAT;
 254                 if (defined('ENT_HTML401')) {
 255                         $flags |= ENT_HTML401;
 256                 }
 257         }
 258
 259         return htmlentities($string, $flags, $encoding, $double_encode);
 260 }