www/ecrire/inc/filtres_mini.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2017                                                *
   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,7}:)?//.*?)(/.*)?$;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  * Transforme les URLs relatives en URLs absolues
 149  *
 150  * Ne s'applique qu'aux textes contenant des liens
 151  *
 152  * @filtre
 153  * @uses url_absolue()
 154  * @link http://www.spip.net/4126
 155  *
 156  * @param string $texte Texte
 157  * @param string $base URL de base de destination (par défaut ce sera l'URL de notre site)
 158  * @return string Texte avec des URLs absolues
 159  **/
 160 function liens_absolus($texte, $base = '') {
 161         if (preg_match_all(',(<(a|link|image|img|script)\s[^<>]*(href|src)=[^<>]*>),imsS', $texte, $liens, PREG_SET_ORDER)) {
 162                 if (!function_exists('extraire_attribut')) {
 163                         include_spip('inc/filtres');
 164                 }
 165                 foreach ($liens as $lien) {
 166                         foreach (array('href', 'src') as $attr) {
 167                                 $href = extraire_attribut($lien[0], $attr);
 168                                 if (strlen($href) > 0) {
 169                                         if (!preg_match(';^((?:[a-z]{3,7}:)?//);iS', $href)) {
 170                                                 $abs = url_absolue($href, $base);
 171                                                 if (rtrim($href, '/') !== rtrim($abs, '/') and !preg_match('/^#/', $href)) {
 172                                                         $texte_lien = inserer_attribut($lien[0], $attr, $abs);
 173                                                         $texte = str_replace($lien[0], $texte_lien, $texte);
 174                                                 }
 175                                         }
 176                                 }
 177                         }
 178                 }
 179         }
 180
 181         return $texte;
 182 }
 183
 184
 185 /**
 186  * Transforme une URL ou des liens en URL ou liens absolus
 187  *
 188  * @filtre
 189  * @link http://www.spip.net/4128
 190  * @global mode_abs_url Pour connaître le mode (url ou texte)
 191  *
 192  * @param string $texte Texte ou URL
 193  * @param string $base URL de base de destination (par défaut ce sera l'URL de notre site)
 194  * @return string Texte ou URL (en absolus)
 195  **/
 196 function abs_url($texte, $base = '') {
 197         if ($GLOBALS['mode_abs_url'] == 'url') {
 198                 return url_absolue($texte, $base);
 199         } else {
 200                 return liens_absolus($texte, $base);
 201         }
 202 }
 203
 204 /**
 205  * htmlspecialchars wrapper (PHP >= 5.4 compat issue)
 206  *
 207  * @param string $string
 208  * @param int $flags
 209  * @param string $encoding
 210  * @param bool $double_encode
 211  * @return string
 212  */
 213 function spip_htmlspecialchars($string, $flags = null, $encoding = 'ISO-8859-1', $double_encode = true) {
 214         if (is_null($flags)) {
 215                 $flags = ENT_COMPAT;
 216                 if (defined('ENT_HTML401')) {
 217                         $flags |= ENT_HTML401;
 218                 }
 219         }
 220
 221         return htmlspecialchars($string, $flags, $encoding, $double_encode);
 222 }
 223
 224 /**
 225  * htmlentities wrapper (PHP >= 5.4 compat issue)
 226  *
 227  * @param string $string
 228  * @param int $flags
 229  * @param string $encoding
 230  * @param bool $double_encode
 231  * @return string
 232  */
 233 function spip_htmlentities($string, $flags = null, $encoding = 'ISO-8859-1', $double_encode = true) {
 234         if (is_null($flags)) {
 235                 $flags = ENT_COMPAT;
 236                 if (defined('ENT_HTML401')) {
 237                         $flags |= ENT_HTML401;
 238                 }
 239         }
 240
 241         return htmlentities($string, $flags, $encoding, $double_encode);
 242 }