www/ecrire/action/editer_url.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2011                                                *
   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 if (!defined('_ECRIRE_INC_VERSION')) return;
  14
  15 function action_editer_url_dist() {
  16
  17         // Rien a faire ici pour le moment
  18         #$securiser_action = charger_fonction('securiser_action', 'inc');
  19         #$arg = $securiser_action();
  20
  21 }
  22
  23
  24 function url_nettoyer($titre,$longueur_maxi,$longueur_min=0,$separateur='-',$filtre=''){
  25         if (!defined('_TRANSLITTERER_URL')) define('_TRANSLITTERER_URL', true);
  26
  27         $titre = supprimer_tags(supprimer_numero(extraire_multi($titre)));
  28         $url = corriger_caracteres($titre);
  29
  30
  31         if (_TRANSLITTERER_URL) $url = translitteration($url);
  32
  33         if ($filtre)
  34                 $url = $filtre($url);
  35
  36         // on va convertir tous les caracteres de ponctuation et espaces
  37         // a l'exception de l'underscore (_), car on veut le conserver dans l'url
  38         $url = str_replace('_', chr(7), $url);
  39         $url = @preg_replace(',[[:punct:][:space:]]+,u', ' ', $url);
  40         $url = str_replace(chr(7), '_', $url);
  41
  42         // S'il reste trop de caracteres non latins, les gerer comme wikipedia
  43         // avec rawurlencode :
  44         if (_TRANSLITTERER_URL && preg_match_all(",[^a-zA-Z0-9 _]+,", $url, $r, PREG_SET_ORDER)) {
  45                 foreach ($r as $regs) {
  46                         $url = substr_replace($url, rawurlencode($regs[0]),
  47                                 strpos($url, $regs[0]), strlen($regs[0]));
  48                 }
  49         }
  50
  51         // S'il reste trop peu, renvoyer vide
  52         if (strlen($url) < $longueur_min)
  53                 return '';
  54
  55         // Sinon couper les mots et les relier par des $separateur
  56         if (_TRANSLITTERER_URL) $mots = preg_split(",[^a-zA-Z0-9_%]+,", $url);
  57         else $mots = preg_split(",[\s]+,", $url);
  58         $url = '';
  59         foreach ($mots as $mot) {
  60                 if (!strlen($mot)) continue;
  61                 $url2 = $url.$separateur.$mot;
  62
  63                 // Si on depasse $longueur_maxi caracteres, s'arreter
  64                 // ne pas compter 3 caracteres pour %E9 mais un seul
  65                 $long = preg_replace(',%.,', '', $url2);
  66                 if (strlen($long) > $longueur_maxi) {
  67                         break;
  68                 }
  69
  70                 $url = $url2;
  71         }
  72         $url = substr($url, 1);
  73
  74         // On enregistre en utf-8 dans la base
  75         $url = rawurldecode($url);
  76
  77         if (strlen($url) < $longueur_min)
  78                 return '';
  79         return $url;
  80 }
  81
  82 function url_insert(&$set,$confirmer,$separateur){
  83         // Si l'insertion echoue, c'est une violation d'unicite.
  84         if (@sql_insertq('spip_urls', $set) <= 0) {
  85                 // On veut chiper une ancienne adresse ?
  86                 if (
  87                 // un vieux url
  88                 $vieux = sql_fetsel('*', 'spip_urls', 'url='.sql_quote($set['url']))
  89                 // l'objet a une url plus recente
  90                 AND $courant = sql_fetsel('*', 'spip_urls',
  91                         'type='.sql_quote($vieux['type']).' AND id_objet='.sql_quote($vieux['id_objet'])
  92                         .' AND date>'.sql_quote($vieux['date']), '', 'date DESC', 1
  93                 )) {
  94                         if ($confirmer AND !_request('ok2')) {
  95                                 die ("Vous voulez chiper l'URL de l'objet ".$courant['type']." "
  96                                         . $courant['id_objet']." qui a maintenant l'url "
  97                                         . $courant['url']);
  98                         }
  99
 100                         // si oui on le chipe
 101                         sql_updateq('spip_urls', $set, 'url='.sql_quote($set['url']));
 102                         sql_updateq('spip_urls', array('date' => date('Y-m-d H:i:s')), 'url='.sql_quote($set['url']));
 103                 }
 104
 105                 // Sinon
 106                 else
 107
 108                 // Soit c'est un Come Back d'une ancienne url propre de l'objet
 109                 // Soit c'est un vrai conflit. Rajouter l'ID jusqu'a ce que ca passe,
 110                 // mais se casser avant que ca ne casse.
 111
 112                 // il peut etre du a un changement de casse de l'url simplement
 113                 // pour ce cas, on reecrit systematiquement l'url en plus d'actualiser la date
 114                 do {
 115                         $where = "type=".sql_quote($set['type'])." AND id_objet=".intval($set['id_objet'])." AND url=";
 116                         if (sql_countsel('spip_urls', $where  .sql_quote($set['url']))) {
 117                                 sql_updateq('spip_urls', array('url'=>$set['url'], 'date' => date('Y-m-d H:i:s')), $where  .sql_quote($set['url']));
 118                                 spip_log("reordonne ".$set['type']." ".$set['id_objet']);
 119                                 return true;
 120                         }
 121                         else {
 122                                 $set['url'] .= $separateur.$set['id_objet'];
 123                                 if (strlen($set['url']) > 200)
 124                                         //serveur out ? retourner au mieux
 125                                         return false;
 126                                 elseif (sql_countsel('spip_urls', $where . sql_quote($set['url']))) {
 127                                         sql_updateq('spip_urls', array('url'=>$set['url'], 'date' => date('Y-m-d H:i:s')), 'url='.sql_quote($set['url']));
 128                                         return true;
 129                                 }
 130                         }
 131                 } while (@sql_insertq('spip_urls', $set) <= 0);
 132         }
 133
 134         sql_updateq('spip_urls', array('date' => date('Y-m-d H:i:s')), 'url='.sql_quote($set['url']));
 135         spip_log("Creation de l'url propre '" . $set['url'] . "' pour ".$set['type']." ".$set['id_objet']);
 136         return true;
 137 }
 138
 139 function url_verrouiller($objet,$id_objet,$url){
 140         $where = "id_objet=".intval($id_objet)." AND type=".sql_quote($objet);
 141         $where .= " AND url=".sql_quote($url);
 142
 143         // pour verrouiller une url, on fixe sa date dans le futur, dans 10 ans
 144         sql_updateq('spip_urls', array('date' => date('Y-m-d H:i:s',time()+10*365.25*24*3600)), $where);
 145 }
 146
 147 function url_delete($objet,$id_objet,$url=""){
 148         $where = "id_objet=".intval($id_objet)." AND type=".sql_quote($objet);
 149         if (strlen($url))
 150                 $where .= " AND url=".sql_quote($url);
 151
 152         sql_delete("spip_urls",$where);
 153 }
 154 ?>