Your IP : 216.73.216.245
index.php 0000666 00000000002 15252246620 0006364 0 ustar 00 X
page.php 0000666 00000006600 15252246620 0006203 0 ustar 00 <?php
/***************************************************************************\
* SPIP, Systeme de publication pour l'internet *
* *
* Copyright (c) 2001-2016 *
* Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
* Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
\***************************************************************************/
if (!defined('_ECRIRE_INC_VERSION')) return;
define('URLS_PAGE_EXEMPLE', 'spip.php?article12');
####### modifications possibles dans ecrire/mes_options
# on peut indiquer '.html' pour faire joli
define ('_terminaison_urls_page', '');
# ci-dessous, ce qu'on veut ou presque (de preference pas de '/')
# attention toutefois seuls '' et '=' figurent dans les modes de compatibilite
define ('_separateur_urls_page', '');
# on peut indiquer '' si on a installe le .htaccess
define ('_debut_urls_page', get_spip_script('./').'?');
#######
// http://doc.spip.org/@_generer_url_page
function _generer_url_page($type,$id, $args='', $ancre='') {
if ($generer_url_externe = charger_fonction("generer_url_$type",'urls',true)) {
$url = $generer_url_externe($id, $args, $ancre);
if (NULL != $url) return $url;
}
$url = _debut_urls_page . $type . _separateur_urls_page
. $id . _terminaison_urls_page;
if ($args) $args = strpos($url,'?') ? "&$args" : "?$args";
return _DIR_RACINE . $url . $args . ($ancre ? "#$ancre" : '');
}
// retrouve le fond et les parametres d'une URL abregee
// le contexte deja existant est fourni dans args sous forme de tableau ou query string
// http://doc.spip.org/@urls_page_dist
function urls_page_dist($i, &$entite, $args='', $ancre='')
{
if (is_numeric($i))
return _generer_url_page($entite, $i, $args, $ancre);
// traiter les injections du type domaine.org/spip.php/cestnimportequoi/ou/encore/plus/rubrique23
if ($GLOBALS['profondeur_url']>0 AND $entite=='sommaire'){
return array(array(),'404');
}
// voir s'il faut recuperer le id_* implicite et les &debut_xx;
if (is_array($args))
$contexte = $args;
else
parse_str($args,$contexte);
include_spip('inc/urls');
$r = nettoyer_url_page($i, $contexte);
if ($r) {
array_pop($r); // nettoyer_url_page renvoie un argument de plus inutile ici
return $r;
}
/*
* Le bloc qui suit sert a faciliter les transitions depuis
* le mode 'urls-propres' vers les modes 'urls-standard' et 'url-html'
* Il est inutile de le recopier si vous personnalisez vos URLs
* et votre .htaccess
*/
// Si on est revenu en mode html, mais c'est une ancienne url_propre
// on ne redirige pas, on assume le nouveau contexte (si possible)
$url = $i;
$url_propre = isset($url)
? $url
: (isset($_SERVER['REDIRECT_url_propre'])
? $_SERVER['REDIRECT_url_propre']
: (isset($_ENV['url_propre'])
? $_ENV['url_propre']
: ''
));
if ($url_propre) {
if ($GLOBALS['profondeur_url']<=0)
$urls_anciennes = charger_fonction('propres','urls',true);
else
$urls_anciennes = charger_fonction('arbo','urls',true);
return $urls_anciennes?$urls_anciennes($url_propre, $entite, $contexte):'';
}
/* Fin du bloc compatibilite url-propres */
}
?>
generer_url_ecrire_forum.php 0000666 00000002351 15252247266 0012347 0 ustar 00 <?php
/***************************************************************************\
* SPIP, Systeme de publication pour l'internet *
* *
* Copyright (c) 2001-2016 *
* Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
* Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
\***************************************************************************/
if (!defined("_ECRIRE_INC_VERSION")) return;
// http://code.spip.net/@generer_url_ecrire_forum
function urls_generer_url_ecrire_forum_dist($id, $args='', $ancre='', $public=null, $connect='') {
$a = "id_forum=" . intval($id);
if (is_null($public) AND !$connect)
$public = objet_test_si_publie('forum', $id, $connect);
$h = ($public OR $connect)
? generer_url_entite_absolue($id, 'forum', $args, $ancre, $connect)
: (generer_url_ecrire('controler_forum', "debut_forum=@$id" . ($args ? "&$args" : ''))
. ($ancre ? "#$ancre" : ''));
return $h;
} generer_url_forum.php 0000666 00000002067 15252247266 0011022 0 ustar 00 <?php
/***************************************************************************\
* SPIP, Systeme de publication pour l'internet *
* *
* Copyright (c) 2001-2016 *
* Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
* Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
\***************************************************************************/
if (!defined("_ECRIRE_INC_VERSION")) return;
function urls_generer_url_forum_dist($id_forum, $args='', $ancre='') {
if ($id_forum = intval($id_forum)) {
include_spip('inc/forum');
list($type, $id,) = racine_forum($id_forum);
if ($type) {
if (!$ancre) $ancre = "forum$id_forum";
return generer_url_entite($id, $type, $args, $ancre, true);
}
}
return '';
}
?> generer_url_ecrire_document.php 0000666 00000002274 15252247411 0013031 0 ustar 00 <?php
/***************************************************************************\
* SPIP, Systeme de publication pour l'internet *
* *
* Copyright (c) 2001-2016 *
* Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
* Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
\***************************************************************************/
if (!defined('_ECRIRE_INC_VERSION')) return;
/**
* Generer l'url d'un document dans l'espace prive,
* fonction du statut du document
*
* @param int $id
* @param string $args
* @param string $ancre
* @param string $public
* @param string $connect
* @return string
*
* http://code.spip.net/@generer_url_ecrire_document
*/
function urls_generer_url_ecrire_document_dist($id, $args='', $ancre='', $public=null, $connect='') {
include_spip('inc/documents');
return generer_url_document_dist($id);
} generer_url_document.php 0000666 00000002305 15252247411 0011473 0 ustar 00 <?php
/***************************************************************************\
* SPIP, Systeme de publication pour l'internet *
* *
* Copyright (c) 2001-2016 *
* Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
* Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
\***************************************************************************/
if (!defined('_ECRIRE_INC_VERSION')) return;
/**
* Generer l'url d'un document dans l'espace public,
* fonction du statut du document
*
* @param int $id
* @param string $args
* @param string $ancre
* @param string $public
* @param string $connect
* @return string
*
* http://code.spip.net/@generer_url_ecrire_document
*/
function urls_generer_url_document_dist($id, $args='', $ancre='', $public=null, $connect='') {
include_spip('inc/documents');
return generer_url_document_dist($id, $args, $ancre);
} propres.php 0000666 00000035676 15252255237 0007004 0 ustar 00 <?php
/***************************************************************************\
* SPIP, Systeme de publication pour l'internet *
* *
* Copyright (c) 2001-2016 *
* Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
* Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
\***************************************************************************/
if (!defined("_ECRIRE_INC_VERSION")) return; // securiser
# donner un exemple d'url pour le formulaire de choix
define('URLS_PROPRES_EXEMPLE', 'Titre-de-l-article -Rubrique-');
# specifier le form de config utilise pour ces urls
define('URLS_PROPRES_CONFIG', 'propres');
// TODO: une interface permettant de verifier qu'on veut effectivment modifier
// une adresse existante
defined('CONFIRMER_MODIFIER_URL') || define('CONFIRMER_MODIFIER_URL', false);
/*
- Comment utiliser ce jeu d'URLs ?
Recopiez le fichier "htaccess.txt" du repertoire de base du site SPIP sous
le sous le nom ".htaccess" (attention a ne pas ecraser d'autres reglages
que vous pourriez avoir mis dans ce fichier) ; si votre site est en
"sous-repertoire", vous devrez aussi editer la ligne "RewriteBase" ce fichier.
Les URLs definies seront alors redirigees vers les fichiers de SPIP.
Dans les pages de configuration, choisissez 'propres' comme type d'url
SPIP calculera alors ses liens sous la forme
"Mon-titre-d-article".
La variante 'propres2' ajoutera '.html' aux adresses generees :
"Mon-titre-d-article.html"
Variante 'qs' (experimentale) : ce systeme fonctionne en "Query-String",
c'est-a-dire sans utilisation de .htaccess ; les adresses sont de la forme
"/?Mon-titre-d-article"
*/
if (!defined('_terminaison_urls_propres')) define ('_terminaison_urls_propres', '');
if (!defined('_debut_urls_propres')) define ('_debut_urls_propres', '');
$config_urls_propres = isset($GLOBALS['meta']['urls_propres'])?unserialize($GLOBALS['meta']['urls_propres']):array();
// pour choisir le caractere de separation titre-id en cas de doublon
// (ne pas utiliser '/')
if (!defined('_url_propres_sep_id')) define('_url_propres_sep_id',isset($config_urls_propres['url_propres_sep_id'])?$config_urls_propres['url_propres_sep_id']:'-');
// option pour tout passer en minuscules
if (!defined('_url_minuscules')) define('_url_minuscules',isset($config_urls_propres['url_minuscules'])?$config_urls_propres['url_minuscules']:0);
if (!defined('_URLS_PROPRES_MAX')) define('_URLS_PROPRES_MAX', isset($config_urls_propres['URLS_PROPRES_MAX'])?$config_urls_propres['URLS_PROPRES_MAX']:80);
if (!defined('_URLS_PROPRES_MIN')) define('_URLS_PROPRES_MIN', isset($config_urls_propres['URLS_PROPRES_MIN'])?$config_urls_propres['URLS_PROPRES_MIN']:3);
if (!defined('_url_sep_id')) define('_url_sep_id',_url_propres_sep_id);
// Ces chaines servaient de marqueurs a l'epoque ou les URL propres devaient
// indiquer la table ou les chercher (articles, auteurs etc),
// et elles etaient retirees par les preg_match dans la fonction ci-dessous.
// Elles peuvent a present etre definies a "" pour avoir des URL plus jolies.
// Les preg_match restent necessaires pour gerer les anciens signets.
if (!defined('_MARQUEUR_URL')) define('_MARQUEUR_URL', serialize(array('rubrique1' => '-', 'rubrique2' => '-', 'breve1' => '+', 'breve2' => '+', 'site1' => '@', 'site2' => '@', 'auteur1' => '_', 'auteur2' => '_', 'mot1' => '+-', 'mot2' => '-+')));
// Retire les marqueurs de type dans une URL propre ancienne maniere
// http://code.spip.net/@retirer_marqueurs_url_propre
function retirer_marqueurs_url_propre($url_propre) {
if (preg_match(',^[+][-](.*?)[-][+]$,', $url_propre, $regs)) {
return $regs[1];
}
else if (preg_match(',^([-+_@])(.*?)\1?$,', $url_propre, $regs)) {
return $regs[2];
}
// les articles n'ont pas de marqueur
return $url_propre;
}
// Pipeline pour creation d'une adresse : il recoit l'url propose par le
// precedent, un tableau indiquant le titre de l'objet, son type, son id,
// et doit donner en retour une chaine d'url, sans se soucier de la
// duplication eventuelle, qui sera geree apres
// http://code.spip.net/@creer_chaine_url
function urls_propres_creer_chaine_url($x) {
// NB: ici url_old ne sert pas, mais un plugin qui ajouterait une date
// pourrait l'utiliser pour juste ajouter la
$url_old = $x['data'];
$objet = $x['objet'];
include_spip('inc/filtres');
include_spip('action/editer_url');
if (!$url = url_nettoyer($objet['titre'],_URLS_PROPRES_MAX,_URLS_PROPRES_MIN,'-',_url_minuscules?'strtolower':''))
$url = $objet['type'].$objet['id_objet'];
$x['data'] = $url;
return $x;
}
// Trouver l'URL associee a la n-ieme cle primaire d'une table SQL
// http://code.spip.net/@declarer_url_propre
function declarer_url_propre($type, $id_objet) {
$trouver_table = charger_fonction('trouver_table', 'base');
$desc = $trouver_table(table_objet($type));
$table = $desc['table'];
$champ_titre = $desc['titre'] ? $desc['titre'] : 'titre';
$col_id = @$desc['key']["PRIMARY KEY"];
if (!$col_id) return false; // Quand $type ne reference pas une table
$id_objet = intval($id_objet);
// Recuperer une URL propre correspondant a l'objet.
// mais urls a 1 segment uniquement (pas d'urls /)
// de preference avec id_parent=0, puis perma, puis par date desc
$row = sql_fetsel("U.url, U.date, U.id_parent, U.perma, $champ_titre",
"$table AS O LEFT JOIN spip_urls AS U ON (U.type='$type' AND U.id_objet=O.$col_id)",
"O.$col_id=$id_objet AND (U.segments IS NULL OR U.segments=1)", '', 'U.id_parent=0 DESC, U.perma DESC, U.date DESC', 1);
// en SQLite le left join retourne du vide si il y a une url mais qui ne correspond pas pour la condition sur le segment
// on verifie donc que l'objet existe bien avant de sortir ou de creer une url pour cet objet
if (!$row)
$row = sql_fetsel("'' as url, '' as date, 0 as id_parent, 0 as perma, $champ_titre",
"$table AS O",
"O.$col_id=$id_objet");
if (!$row) return ""; # Quand $id_objet n'est pas un numero connu
$url_propre = $row['url'];
// si url_propre connue mais avec id_parent non nul, essayer de reinserer tel quel avec id_parent=0
if ($url_propre AND $row['id_parent']){
include_spip('action/editer_url');
$set = array('url' => $url_propre, 'type' => $type, 'id_objet' => $id_objet, 'perma' => $row['perma']);
// si on arrive pas a reinserer tel quel, on annule url_propre pour forcer un recalcul d'url
if (!url_insert($set,false,_url_propres_sep_id))
$url_propre = "";
else
$url_propre = $row['url'] = $set['url'];
}
// Se contenter de cette URL si elle existe ;
// sauf si on invoque par "voir en ligne" avec droit de modifier l'url
// l'autorisation est verifiee apres avoir calcule la nouvelle url propre
// car si elle ne change pas, cela ne sert a rien de verifier les autorisations
// qui requetent en base
$modifier_url = (defined('_VAR_URLS') AND _VAR_URLS AND !$row['perma']);
if ($url_propre AND !$modifier_url)
return $url_propre;
// Sinon, creer une URL
$url = pipeline('propres_creer_chaine_url',
array(
'data' => $url_propre, // le vieux url_propre
'objet' => array_merge($row,
array('type' => $type, 'id_objet' => $id_objet)
)
)
);
// Eviter de tamponner les URLs a l'ancienne (cas d'un article
// intitule "auteur2")
include_spip('inc/urls');
$objets = urls_liste_objets();
if (preg_match(',^('.$objets.')[0-9]+$,', $url, $r)
AND $r[1] != $type)
$url = $url._url_propres_sep_id.$id_objet;
// Pas de changement d'url
if ($url == $url_propre)
return $url_propre;
// verifier l'autorisation, maintenant qu'on est sur qu'on va agir
if ($modifier_url) {
include_spip('inc/autoriser');
$modifier_url = autoriser('modifierurl', $type, $id_objet);
}
// Verifier si l'utilisateur veut effectivement changer l'URL
if ($modifier_url
AND CONFIRMER_MODIFIER_URL
AND $url_propre
AND $url != preg_replace('/'.preg_quote(_url_propres_sep_id,'/').'.*/', '', $url_propre))
$confirmer = true;
else
$confirmer = false;
if ($confirmer AND !_request('ok')) {
die ("vous changez d'url ? $url_propre -> $url");
}
$set = array('url' => $url, 'type' => $type, 'id_objet' => $id_objet);
include_spip('action/editer_url');
if (!url_insert($set,$confirmer,_url_propres_sep_id))
return $url_propre; //serveur out ? retourner au mieux
return $set['url'];
}
// http://code.spip.net/@_generer_url_propre
function _generer_url_propre($type, $id, $args='', $ancre='') {
if ($generer_url_externe = charger_fonction("generer_url_$type",'urls',true)) {
$url = $generer_url_externe($id, $args, $ancre);
if (NULL != $url) return $url;
}
// Mode compatibilite pour conserver la distinction -Rubrique-
if (_MARQUEUR_URL) {
$marqueur = unserialize(_MARQUEUR_URL);
$marqueur1 = isset($marqueur[$type.'1']) ? $marqueur[$type.'1'] : '' ; // debut '+-'
$marqueur2 = isset($marqueur[$type.'2']) ? $marqueur[$type.'2'] : '' ; // fin '-+'
} else
$marqueur1 = $marqueur2 = '';
// fin
// Mode propre
$propre = declarer_url_propre($type, $id);
if ($propre === false) return ''; // objet inconnu. raccourci ?
if ($propre) {
$url = _debut_urls_propres
. $marqueur1
. $propre
. $marqueur2
. _terminaison_urls_propres;
if (!defined('_SET_HTML_BASE') OR !_SET_HTML_BASE)
// Repositionne l'URL par rapport a la racine du site (#GLOBALS)
$url = str_repeat('../', $GLOBALS['profondeur_url']).$url;
else
$url = _DIR_RACINE . $url;
} else {
// objet connu mais sans possibilite d'URL lisible, revenir au defaut
include_spip('base/connect_sql');
$id_type = id_table_objet($type);
$url = _DIR_RACINE . get_spip_script('./')."?"._SPIP_PAGE."=$type&$id_type=$id";
}
// Ajouter les args
if ($args)
$url .= ((strpos($url, '?')===false) ? '?' : '&') . $args;
// Ajouter l'ancre
if ($ancre)
$url .= "#$ancre";
return $url;
}
// retrouve le fond et les parametres d'une URL propre
// ou produit une URL propre si on donne un parametre
// @return array([contexte],[type],[url_redirect],[fond]) : url decodee
// http://code.spip.net/@urls_propres_dist
function urls_propres_dist($i, $entite, $args='', $ancre='') {
if (is_numeric($i))
return _generer_url_propre($entite, $i, $args, $ancre);
$url = $i;
$id_objet = $type = 0;
$url_redirect = null;
// recuperer les &debut_xx;
if (is_array($args))
$contexte = $args;
else
parse_str($args,$contexte);
// Migration depuis anciennes URLs ?
// traiter les injections domain.tld/spip.php/n/importe/quoi/rubrique23
if ($GLOBALS['profondeur_url']<=0
AND $_SERVER['REQUEST_METHOD'] != 'POST') {
include_spip('inc/urls');
$r = nettoyer_url_page($i, $contexte);
if ($r) {
list($contexte, $type,,, $suite) = $r;
$_id = id_table_objet($type);
$id_objet = $contexte[$_id];
$url_propre = generer_url_entite($id_objet, $type);
if (strlen($url_propre)
AND !strstr($url,$url_propre)) {
list(,$hash) = explode('#', $url_propre);
$args = array();
foreach(array_filter(explode('&', $suite)) as $fragment) {
if ($fragment != "$_id=$id_objet")
$args[] = $fragment;
}
$url_redirect = generer_url_entite($id_objet, $type, join('&',array_filter($args)), $hash);
return array($contexte, $type, $url_redirect, $type);
}
}
}
/* Fin compatibilite anciennes urls */
// Chercher les valeurs d'environnement qui indiquent l'url-propre
if (isset($_SERVER['REDIRECT_url_propre']))
$url_propre = $_SERVER['REDIRECT_url_propre'];
elseif (isset($_ENV['url_propre']))
$url_propre = $_ENV['url_propre'];
else {
// ne prendre que le segment d'url qui correspond, en fonction de la profondeur calculee
$url = ltrim($url,'/');
$url = explode('/',$url);
while (count($url)>$GLOBALS['profondeur_url']+1)
array_shift($url);
$url = implode('/',$url);
$url_propre = preg_replace(',[?].*,', '', $url);
}
// Mode Query-String ?
$is_qs = false;
if (!$url_propre
AND preg_match(',[?]([^=/?&]+)(&.*)?$,', $url, $r)) {
$url_propre = $r[1];
$is_qs = true;
}
if (!$url_propre
OR $url_propre==_DIR_RESTREINT_ABS
OR $url_propre==_SPIP_SCRIPT) return; // qu'est-ce qu'il veut ???
// gerer le cas de retour depuis des urls arbos
// mais si url arbo ne trouve pas, on veut une 404 par securite
if ($GLOBALS['profondeur_url']>0 AND !defined('_FORCE_URLS_PROPRES')){
$urls_anciennes = charger_fonction('arbo','urls');
return $urls_anciennes($url_propre, $entite, $contexte);
}
include_spip('base/abstract_sql'); // chercher dans la table des URLS
// Compatibilite avec propres2
$url_propre = preg_replace(',\.html$,i', '', $url_propre);
// Revenir en utf-8 si encodage type %D8%A7 (farsi)
$url_propre = rawurldecode($url_propre);
// Compatibilite avec les anciens marqueurs d'URL propres
// Tester l'entree telle quelle (avec 'url_libre' des sites ont pu avoir des entrees avec marqueurs dans la table spip_urls)
if (!$row = sql_fetsel('id_objet, type, date, url', 'spip_urls', 'url='.sql_quote($url_propre, '', 'TEXT'))) {
// Sinon enlever les marqueurs eventuels
$url_propre2 = retirer_marqueurs_url_propre($url_propre);
$row = sql_fetsel('id_objet, type, date, url', 'spip_urls', 'url='.sql_quote($url_propre2, '', 'TEXT'));
}
if ($row) {
$type = $row['type'];
$col_id = id_table_objet($type);
$contexte[$col_id] = $row['id_objet'];
$entite = $row['type'];
// Si l'url est vieux, donner le nouveau
if ($recent = sql_fetsel('url, date', 'spip_urls',
'type='.sql_quote($row['type'], '', 'TEXT').' AND id_objet='.sql_quote($row['id_objet'])
.' AND date>'.sql_quote($row['date'], '', 'TEXT')
.' AND url<>'.sql_quote($row['url'], '', 'TEXT'), '', 'date DESC', 1)) {
// Mode compatibilite pour conserver la distinction -Rubrique-
if (_MARQUEUR_URL) {
$marqueur = unserialize(_MARQUEUR_URL);
$marqueur1 = $marqueur[$type.'1']; // debut '+-'
$marqueur2 = $marqueur[$type.'2']; // fin '-+'
} else
$marqueur1 = $marqueur2 = '';
$url_redirect = $marqueur1 . $recent['url'] . $marqueur2;
}
}
if ($entite=='' OR $entite=='type_urls' /* compat .htaccess 2.0 */) {
if ($type) {
$entite = objet_type($type);
} else {
// Si ca ressemble a une URL d'objet, ce n'est pas la home
// et on provoque un 404
if (preg_match(',^[^\.]+(\.html)?$,', $url)) {
$entite = '404';
$contexte['erreur'] = '';
// l'url n'existe pas...
// on ne sait plus dire de quel type d'objet il s'agit
// sauf si on a le marqueur. et la c'est un peu sale...
if (_MARQUEUR_URL) {
$fmarqueur = @array_flip(unserialize(_MARQUEUR_URL));
preg_match(',^([+][-]|[-+@_]),', $url_propre, $regs);
$objet = $regs ? substr($fmarqueur[$regs[1]],0,n-1) : 'article';
$contexte['erreur'] = _T(
($objet=='rubrique' OR $objet=='breve')
? 'public:aucune_'.$objet
: 'public:aucun_'.$objet
);
}
}
}
}
return array($contexte, $entite, $url_redirect, $is_qs?$entite:null);
}
?>
simple.php 0000666 00000006661 15252255237 0006573 0 ustar 00 <?php
/***************************************************************************\
* SPIP, Systeme de publication pour l'internet *
* *
* Copyright (c) 2001-2016 *
* Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
* Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
\***************************************************************************/
if (!defined('_ECRIRE_INC_VERSION')) return;
# donner un exemple d'url pour le formulaire de choix
define('URLS_SIMPLE_EXEMPLE', 'spip.php?page=article&id_article=12');
####### modifications possibles dans ecrire/mes_options
# on peut indiquer '.html' pour faire joli
define ('_terminaison_urls_simple', '');
define ('_debut_urls_simple', get_spip_script('./').'?'._SPIP_PAGE.'=');
#######
function _generer_url_simple($type,$id, $args='', $ancre='') {
if ($generer_url_externe = charger_fonction("generer_url_$type",'urls',true)) {
$url = $generer_url_externe($id, $args, $ancre);
if (NULL != $url) return $url;
}
$url = _debut_urls_simple . $type
. "&" . id_table_objet($type) . "="
. $id . _terminaison_urls_simple;
if ($args) $args = strpos($url,'?') ? "&$args" : "?$args";
return _DIR_RACINE . $url . $args . ($ancre ? "#$ancre" : '');
}
// retrouve le fond et les parametres d'une URL abregee
// le contexte deja existant est fourni dans args sous forme de tableau ou query string
// http://code.spip.net/@urls_page_dist
function urls_simple_dist($i, &$entite, $args='', $ancre='')
{
if (is_numeric($i)){
include_spip('urls/page');
return _generer_url_simple($entite, $i, $args, $ancre);
}
// traiter les injections du type domaine.org/spip.php/cestnimportequoi/ou/encore/plus/rubrique23
if ($GLOBALS['profondeur_url']>0 AND $entite=='sommaire'){
return array(array(),'404');
}
// voir s'il faut recuperer le id_* implicite et les &debut_xx;
if (is_array($args))
$contexte = $args;
else
parse_str($args,$contexte);
include_spip('inc/urls');
$r = nettoyer_url_page($i, $contexte);
if ($r) {
array_pop($r); // nettoyer_url_page renvoie un argument de plus inutile ici
return $r;
}
if ($type = _request(_SPIP_PAGE)
AND $_id = id_table_objet($type)
AND $id = _request($_id)){
$contexte[$_id] = $id;
return array($contexte, $type, null, $type);
}
/*
* Le bloc qui suit sert a faciliter les transitions depuis
* le mode 'urls-propres' vers les modes 'urls-standard' et 'url-html'
* Il est inutile de le recopier si vous personnalisez vos URLs
* et votre .htaccess
*/
// Si on est revenu en mode html, mais c'est une ancienne url_propre
// on ne redirige pas, on assume le nouveau contexte (si possible)
$url = $i;
$url_propre = isset($url)
? $url
: (isset($_SERVER['REDIRECT_url_propre'])
? $_SERVER['REDIRECT_url_propre']
: (isset($_ENV['url_propre'])
? $_ENV['url_propre']
: ''
));
if ($url_propre) {
if ($GLOBALS['profondeur_url']<=0)
$urls_anciennes = charger_fonction('propres','urls',true);
else
$urls_anciennes = charger_fonction('arbo','urls',true);
return $urls_anciennes?$urls_anciennes($url_propre, $entite, $contexte):'';
}
/* Fin du bloc compatibilite url-propres */
}
?>
standard.php 0000666 00000007751 15252255237 0007103 0 ustar 00 <?php
/***************************************************************************\
* SPIP, Systeme de publication pour l'internet *
* *
* Copyright (c) 2001-2016 *
* Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
* Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
\***************************************************************************/
## type d'URLs obsolete
## depuis la 3.0.17 on ne la propose plus dans le menu de configuration
## fichier sans doute à supprimer en 3.1
if (!defined("_ECRIRE_INC_VERSION")) return; // securiser
# donner un exemple d'url pour le formulaire de choix
define('URLS_STANDARD_EXEMPLE', 'article.php3?id_article=12');
if (!function_exists('generer_url_article')) { // si la place n'est pas prise
// http://code.spip.net/@generer_url_article
function generer_url_article($id_article) {
return _DIR_RACINE . "article.php3?id_article=$id_article";
}
// http://code.spip.net/@generer_url_rubrique
function generer_url_rubrique($id_rubrique) {
return _DIR_RACINE . "rubrique.php3?id_rubrique=$id_rubrique";
}
// http://code.spip.net/@generer_url_breve
function generer_url_breve($id_breve) {
return _DIR_RACINE . "breve.php3?id_breve=$id_breve";
}
// http://code.spip.net/@generer_url_mot
function generer_url_mot($id_mot) {
return _DIR_RACINE . "mot.php3?id_mot=$id_mot";
}
// http://code.spip.net/@generer_url_site
function generer_url_site($id_syndic) {
return _DIR_RACINE . "site.php3?id_syndic=$id_syndic";
}
// http://code.spip.net/@generer_url_auteur
function generer_url_auteur($id_auteur) {
return _DIR_RACINE . "auteur.php3?id_auteur=$id_auteur";
}
// http://code.spip.net/@generer_url_document
function generer_url_document($id_document) {
$generer_url_document = charger_fonction("generer_url_document","urls");
return $generer_url_document($id_document);
}
// http://code.spip.net/@recuperer_parametres_url
function recuperer_parametres_url(&$fond, $url) {
global $contexte;
// traiter les injections du type domaine.org/spip.php/cestnimportequoi/ou/encore/plus/rubrique23
if ($GLOBALS['profondeur_url']>0 AND $fond=='sommaire'){
$fond = '404';
}
/*
* Le bloc qui suit sert a faciliter les transitions depuis
* le mode 'urls-propres' vers les modes 'urls-standard' et 'url-html'
* Il est inutile de le recopier si vous personnalisez vos URLs
* et votre .htaccess
*/
// Si on est revenu en mode html, mais c'est une ancienne url_propre
// on ne redirige pas, on assume le nouveau contexte (si possible)
$url_propre = isset($_SERVER['REDIRECT_url_propre']) ?
$_SERVER['REDIRECT_url_propre'] :
(isset($_ENV['url_propre']) ?
$_ENV['url_propre'] :
'');
include_spip('inc/urls');
$objets = urls_liste_objets();
if ($url_propre
AND preg_match(",^($objets|type_urls|404)$,",$fond)) {
if ($GLOBALS['profondeur_url']<=0)
$urls_anciennes = charger_fonction('propres','urls');
else
$urls_anciennes = charger_fonction('arbo','urls');
$p = $urls_anciennes($url_propre,$fond,$contexte);
$contexte = $p[0];
}
/* Fin du bloc compatibilite url-propres */
/* Compatibilite urls-page */
else if ($GLOBALS['profondeur_url']<=0
AND preg_match(
',[?/&]('.$objets.')[=]?([0-9]+),',
$url, $r)) {
$fond = $r[1];
$contexte[id_table_objet($r[1])] = $r[2];
}
/* Fin compatibilite urls-page */
return;
}
//
// le format de definition obsolete oblige a referencer explicitement les forums
// on prevoit leur inexistence possible par un test sur charger_fonction
// http://code.spip.net/@generer_url_forum
function generer_url_forum($id, $show_thread=false) {
if ($generer_url_externe = charger_fonction("generer_url_forum",'urls',true))
return $generer_url_externe($id, $args, $ancre);
return '';
}
}
?>
arbo.php 0000666 00000055375 15252255237 0006233 0 ustar 00 <?php
/***************************************************************************\
* SPIP, Systeme de publication pour l'internet *
* *
* Copyright (c) 2001-2016 *
* Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
* Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
\***************************************************************************/
if (!defined("_ECRIRE_INC_VERSION")) return; // securiser
# donner un exemple d'url pour le formulaire de choix
define('URLS_ARBO_EXEMPLE', '/article/titre');
# specifier le form de config utilise pour ces urls
define('URLS_ARBO_CONFIG', 'arbo');
// TODO: une interface permettant de verifier qu'on veut effectivment modifier
// une adresse existante
defined('CONFIRMER_MODIFIER_URL') || define('CONFIRMER_MODIFIER_URL', false);
/**
* - Comment utiliser ce jeu d'URLs ?
* Recopiez le fichier "htaccess.txt" du repertoire de base du site SPIP sous
* le sous le nom ".htaccess" (attention a ne pas ecraser d'autres reglages
* que vous pourriez avoir mis dans ce fichier) ; si votre site est en
* "sous-repertoire", vous devrez aussi editer la ligne "RewriteBase" ce fichier.
* Les URLs definies seront alors redirigees vers les fichiers de SPIP.
*
* Choisissez "arbo" dans les pages de configuration d'URL
*
* SPIP calculera alors ses liens sous la forme "Mon-titre-d-article".
* Variantes :
*
* Terminaison :
* les terminaisons ne *sont pas* stockees en base, elles servent juste
* a rendre les url jolies ou conformes a un usage
* pour avoir des url terminant par html
* define ('_terminaison_urls_arbo', '.html');
*
* pour preciser des terminaisons particulieres pour certains types
* $GLOBALS['url_arbo_terminaisons']=array(
* 'rubrique' => '/',
* 'mot' => '',
* 'groupe' => '/',
* 'defaut' => '.html');
*
* pour avoir des url numeriques (id) du type 12/5/4/article/23
* define ('_URLS_ARBO_MIN',255);
*
*
* pour conserver la casse des titres dans les url
* define ('_url_arbo_minuscules',0);
*
* pour choisir le caractere de separation titre-id en cas de doublon
* (ne pas utiliser '/')
* define ('_url_arbo_sep_id','-');
*
* pour modifier la hierarchie apparente dans la constitution des urls
* ex pour que les mots soient classes par groupes
* $GLOBALS['url_arbo_parents']=array(
* 'article'=>array('id_rubrique','rubrique'),
* 'rubrique'=>array('id_parent','rubrique'),
* 'breve'=>array('id_rubrique','rubrique'),
* 'site'=>array('id_rubrique','rubrique'),
* 'mot'=>array('id_groupe','groupes_mot'));
*
* pour personaliser les types
* $GLOBALS['url_arbo_types']=array(
* 'rubrique'=>'', // pas de type pour les rubriques
* 'article'=>'a',
* 'mot'=>'tags'
* );
*
*/
$config_urls_arbo = isset($GLOBALS['meta']['urls_arbo'])?unserialize($GLOBALS['meta']['urls_arbo']):array();
if (!defined('_debut_urls_arbo')) define('_debut_urls_arbo', '');
if (!defined('_terminaison_urls_arbo')) define('_terminaison_urls_arbo', '');
// pour choisir le caractere de separation titre-id en cas de doublon
// (ne pas utiliser '/')
if (!defined('_url_arbo_sep_id')) define('_url_arbo_sep_id',isset($config_urls_arbo['url_arbo_sep_id'])?$config_urls_arbo['url_arbo_sep_id']:'-');
// option pour tout passer en minuscules
if (!defined('_url_arbo_minuscules')) define('_url_arbo_minuscules',isset($config_urls_arbo['url_arbo_minuscules'])?$config_urls_arbo['url_arbo_minuscules']:1);
if (!defined('_URLS_ARBO_MAX')) define('_URLS_ARBO_MAX', isset($config_urls_arbo['URLS_ARBO_MAX'])?$config_urls_arbo['URLS_ARBO_MAX']:80);
if (!defined('_URLS_ARBO_MIN')) define('_URLS_ARBO_MIN', isset($config_urls_arbo['URLS_ARBO_MIN'])?$config_urls_arbo['URLS_ARBO_MIN']:3);
if (!defined('_url_sep_id')) define('_url_sep_id',_url_arbo_sep_id);
// Ces chaines servaient de marqueurs a l'epoque ou les URL propres devaient
// indiquer la table ou les chercher (articles, auteurs etc),
// et elles etaient retirees par les preg_match dans la fonction ci-dessous.
// Elles sont a present definies a "" pour avoir des URL plus jolies
// mais les preg_match restent necessaires pour gerer les anciens signets.
#define('_MARQUEUR_URL', serialize(array('rubrique1' => '-', 'rubrique2' => '-', 'breve1' => '+', 'breve2' => '+', 'site1' => '@', 'site2' => '@', 'auteur1' => '_', 'auteur2' => '_', 'mot1' => '+-', 'mot2' => '-+')));
if (!defined('_MARQUEUR_URL')) define('_MARQUEUR_URL', false);
/**
* Definir les parentees utilisees pour construire des urls arborescentes
*
* @param string $type
* @return string
*/
function url_arbo_parent($type){
static $parents = null;
if (is_null($parents)){
$parents = array(
'article'=>array('id_rubrique','rubrique'),
'rubrique'=>array('id_parent','rubrique'),
'breve'=>array('id_rubrique','rubrique'),
'site'=>array('id_rubrique','rubrique'));
if (isset($GLOBALS['url_arbo_parents']) AND !isset($_REQUEST['url_arbo_parents'])){
$parents = array_merge($parents,$GLOBALS['url_arbo_parents']);
}
}
return (isset($parents[$type])?$parents[$type]:'');
}
/**
* Definir les terminaisons des urls :
* / pour une rubrique
* .html pour une page etc..
*
* @param string $type
* @return string
*/
function url_arbo_terminaison($type){
static $terminaison_types = null;
if ($terminaison_types==null){
$terminaison_types = array('rubrique' => '/','mot' => '','defaut' => defined('_terminaison_urls_arbo')?_terminaison_urls_arbo:'.html');
if (isset($GLOBALS['url_arbo_terminaisons']))
$terminaison_types = array_merge($terminaison_types,$GLOBALS['url_arbo_terminaisons']);
}
// si c'est un appel avec type='' c'est pour avoir la liste des terminaisons
if (!$type)
return array_unique(array_values($terminaison_types));
if (isset($terminaison_types[$type]))
return $terminaison_types[$type];
elseif (isset($terminaison_types['defaut']))
return $terminaison_types['defaut'];
return "";
}
/**
* Definir le prefixe qui designe le type et qu'on utilise pour chaque objet
* ex : "article"/truc
* par defaut les rubriques ne sont pas typees, mais le reste oui
*
* @param string $type
* @return array|string
*/
function url_arbo_type($type){
static $synonymes_types = null;
if (!$synonymes_types){
$synonymes_types = array('rubrique'=>'');
if (isset($GLOBALS['url_arbo_types']) AND is_array($GLOBALS['url_arbo_types']))
$synonymes_types = array_merge($synonymes_types,$GLOBALS['url_arbo_types']);
}
// si c'est un appel avec type='' c'est pour avoir la liste inversee des synonymes
if (!$type)
return array_flip($synonymes_types);
return
($t=(isset($synonymes_types[$type])?$synonymes_types[$type]:$type)) // le type ou son synonyme
. ($t?'/':''); // le / eventuel pour separer, si le synonyme n'est pas vide
}
/**
* Pipeline pour creation d'une adresse : il recoit l'url propose par le
* precedent, un tableau indiquant le titre de l'objet, son type, son id,
* et doit donner en retour une chaine d'url, sans se soucier de la
* duplication eventuelle, qui sera geree apres
* http://code.spip.net/@creer_chaine_url
*
* @param array $x
* @return array
*/
function urls_arbo_creer_chaine_url($x) {
// NB: ici url_old ne sert pas, mais un plugin qui ajouterait une date
// pourrait l'utiliser pour juste ajouter la
$url_old = $x['data'];
$objet = $x['objet'];
include_spip('inc/filtres');
include_spip('action/editer_url');
if (!$url = url_nettoyer($objet['titre'],_URLS_ARBO_MAX,_URLS_ARBO_MIN,'-',_url_arbo_minuscules?'strtolower':''))
$url = $objet['id_objet'];
$x['data'] =
url_arbo_type($objet['type']) // le type ou son synonyme
. $url; // le titre
return $x;
}
/**
* Boucler sur le parent pour construire l'url complete a partir des segments
* http://code.spip.net/@declarer_url_arbo_rec
*
* @param string $url
* @param string $type
* @param string $parent
* @param string $type_parent
* @return string
*/
function declarer_url_arbo_rec($url,$type,$parent,$type_parent){
if (is_null($parent)){
return $url;
}
// Si pas de parent ou si son URL est vide, on ne renvoit que l'URL de l'objet en court
if ($parent==0 or !($url_parent = declarer_url_arbo($type_parent?$type_parent:'rubrique',$parent))){
return rtrim($url,'/');
}
// Sinon on renvoit l'URL de l'objet concaténée avec celle du parent
else {
return rtrim($url_parent,'/') . '/' . rtrim($url,'/');
}
}
/**
* Renseigner les infos les plus recentes de l'url d'un objet
* et de quoi la (re)construire si besoin
* @param string $type
* @param int $id_objet
* @return bool|null|array
*/
function renseigner_url_arbo($type,$id_objet){
$urls = array();
$trouver_table = charger_fonction('trouver_table', 'base');
$desc = $trouver_table(table_objet($type));
$table = $desc['table'];
$col_id = @$desc['key']["PRIMARY KEY"];
if (!$col_id) return false; // Quand $type ne reference pas une table
$id_objet = intval($id_objet);
$champ_titre = $desc['titre'] ? $desc['titre'] : 'titre';
// parent
$champ_parent = url_arbo_parent($type);
$sel_parent = ', 0 as parent';
$order_by_parent = "";
if ($champ_parent){
$sel_parent = ", O.".reset($champ_parent).' as parent';
// trouver l'url qui matche le parent en premier
$order_by_parent = "O.".reset($champ_parent)."=U.id_parent DESC, ";
}
// Recuperer une URL propre correspondant a l'objet.
$row = sql_fetsel("U.url, U.date, U.id_parent, U.perma, $champ_titre $sel_parent",
"$table AS O LEFT JOIN spip_urls AS U ON (U.type='$type' AND U.id_objet=O.$col_id)",
"O.$col_id=$id_objet",
'',
$order_by_parent.'U.perma DESC, U.date DESC', 1);
if ($row){
$urls[$type][$id_objet] = $row;
$urls[$type][$id_objet]['type_parent'] = $champ_parent?end($champ_parent):'';
}
return isset($urls[$type][$id_objet])?$urls[$type][$id_objet]:null;
}
/**
* Retrouver/Calculer l'ensemble des segments d'url d'un objet
*
* http://code.spip.net/@declarer_url_arbo
*
* @param string $type
* @param int $id_objet
* @return string
*/
function declarer_url_arbo($type, $id_objet) {
static $urls=array();
// Se contenter de cette URL si elle existe ;
// sauf si on invoque par "voir en ligne" avec droit de modifier l'url
// l'autorisation est verifiee apres avoir calcule la nouvelle url propre
// car si elle ne change pas, cela ne sert a rien de verifier les autorisations
// qui requetent en base
$modifier_url = (defined('_VAR_URLS') AND _VAR_URLS);
if (!isset($urls[$type][$id_objet]) OR $modifier_url) {
$r = renseigner_url_arbo($type,$id_objet);
// Quand $type ne reference pas une table
if ($r===false)
return false;
if (!is_null($r))
$urls[$type][$id_objet] = $r;
}
if (!isset($urls[$type][$id_objet])) return ""; # objet inexistant
$url_propre = $urls[$type][$id_objet]['url'];
// si on a trouve l'url
// et que le parent est bon
// et (permanente ou pas de demande de modif)
if (!is_null($url_propre)
AND $urls[$type][$id_objet]['id_parent'] == $urls[$type][$id_objet]['parent']
AND ($urls[$type][$id_objet]['perma'] OR !$modifier_url))
return declarer_url_arbo_rec($url_propre,$type,
isset($urls[$type][$id_objet]['parent'])?$urls[$type][$id_objet]['parent']:0,
isset($urls[$type][$id_objet]['type_parent'])?$urls[$type][$id_objet]['type_parent']:null);
// Si URL inconnue ou maj forcee sur une url non permanente, recreer une url
$url = $url_propre;
if (is_null($url_propre) OR ($modifier_url AND !$urls[$type][$id_objet]['perma'])) {
$url = pipeline('arbo_creer_chaine_url',
array(
'data' => $url_propre, // le vieux url_propre
'objet' => array_merge($urls[$type][$id_objet],
array('type' => $type, 'id_objet' => $id_objet)
)
)
);
// Eviter de tamponner les URLs a l'ancienne (cas d'un article
// intitule "auteur2")
include_spip('inc/urls');
$objets = urls_liste_objets();
if (preg_match(',^('.$objets.')[0-9]*$,', $url, $r)
AND $r[1] != $type)
$url = $url._url_arbo_sep_id.$id_objet;
}
// Pas de changement d'url ni de parent
if ($url == $url_propre
AND $urls[$type][$id_objet]['id_parent'] == $urls[$type][$id_objet]['parent'])
return declarer_url_arbo_rec($url_propre,$type,$urls[$type][$id_objet]['parent'],$urls[$type][$id_objet]['type_parent']);
// verifier l'autorisation, maintenant qu'on est sur qu'on va agir
if ($modifier_url) {
include_spip('inc/autoriser');
$modifier_url = autoriser('modifierurl', $type, $id_objet);
}
// Verifier si l'utilisateur veut effectivement changer l'URL
if ($modifier_url
AND CONFIRMER_MODIFIER_URL
AND $url_propre
// on essaye pas de regenerer une url en -xxx (suffixe id anti collision)
AND $url != preg_replace('/'.preg_quote(_url_propres_sep_id,'/').'.*/', '', $url_propre))
$confirmer = true;
else
$confirmer = false;
if ($confirmer AND !_request('ok')) {
die ("vous changez d'url ? $url_propre -> $url");
}
$set = array('url' => $url, 'type' => $type, 'id_objet' => $id_objet, 'id_parent'=>$urls[$type][$id_objet]['parent'],'perma'=>intval($urls[$type][$id_objet]['perma']));
include_spip('action/editer_url');
if (url_insert($set,$confirmer,_url_arbo_sep_id)){
$urls[$type][$id_objet]['url'] = $set['url'];
$urls[$type][$id_objet]['id_parent'] = $set['id_parent'];
}
else {
// l'insertion a echoue,
//serveur out ? retourner au mieux
$urls[$type][$id_objet]['url']=$url_propre;
}
return declarer_url_arbo_rec($urls[$type][$id_objet]['url'],$type,$urls[$type][$id_objet]['parent'],$urls[$type][$id_objet]['type_parent']);
}
/**
* Generer l'url arbo complete constituee des segments + debut + fin
*
* http://code.spip.net/@_generer_url_arbo
*
* @param string $type
* @param int $id
* @param string $args
* @param string $ancre
* @return string
*/
function _generer_url_arbo($type, $id, $args='', $ancre='') {
if ($generer_url_externe = charger_fonction("generer_url_$type",'urls',true)) {
$url = $generer_url_externe($id, $args, $ancre);
if (NULL != $url) return $url;
}
// Mode propre
$propre = declarer_url_arbo($type, $id);
if ($propre === false) return ''; // objet inconnu. raccourci ?
if ($propre) {
$url = _debut_urls_arbo
. rtrim($propre,'/')
. url_arbo_terminaison($type);
} else {
// objet connu mais sans possibilite d'URL lisible, revenir au defaut
include_spip('base/connect_sql');
$id_type = id_table_objet($type);
$url = get_spip_script('./')."?"._SPIP_PAGE."=$type&$id_type=$id";
}
// Ajouter les args
if ($args)
$url .= ((strpos($url, '?')===false) ? '?' : '&') . $args;
// Ajouter l'ancre
if ($ancre)
$url .= "#$ancre";
return _DIR_RACINE . $url;
}
/**
* API : retourner l'url d'un objet si i est numerique
* ou decoder cette url si c'est une chaine
* array([contexte],[type],[url_redirect],[fond]) : url decodee
*
* http://code.spip.net/@urls_arbo_dist
*
* @param string|int $i
* @param string $entite
* @param string|array $args
* @param string $ancre
* @return array|string
*/
function urls_arbo_dist($i, $entite, $args='', $ancre='') {
if (is_numeric($i))
return _generer_url_arbo($entite, $i, $args, $ancre);
// traiter les injections du type domaine.org/spip.php/cestnimportequoi/ou/encore/plus/rubrique23
if ($GLOBALS['profondeur_url']>0 AND $entite=='sommaire'){
$entite = 'type_urls';
}
// recuperer les &debut_xx;
if (is_array($args))
$contexte = $args;
else
parse_str($args,$contexte);
$url = $i;
$id_objet = $type = 0;
$url_redirect = null;
// Migration depuis anciennes URLs ?
// traiter les injections domain.tld/spip.php/n/importe/quoi/rubrique23
if ($GLOBALS['profondeur_url']<=0
AND $_SERVER['REQUEST_METHOD'] != 'POST') {
include_spip('inc/urls');
$r = nettoyer_url_page($i, $contexte);
if ($r) {
list($contexte, $type,,, $suite) = $r;
$_id = id_table_objet($type);
$id_objet = $contexte[$_id];
$url_propre = generer_url_entite($id_objet, $type);
if (strlen($url_propre)
AND !strstr($url,$url_propre)) {
list(,$hash) = explode('#', $url_propre);
$args = array();
foreach(array_filter(explode('&', $suite)) as $fragment) {
if ($fragment != "$_id=$id_objet")
$args[] = $fragment;
}
$url_redirect = generer_url_entite($id_objet, $type, join('&',array_filter($args)), $hash);
return array($contexte, $type, $url_redirect, $type);
}
}
}
/* Fin compatibilite anciennes urls */
// Chercher les valeurs d'environnement qui indiquent l'url-propre
if (isset($_SERVER['REDIRECT_url_propre']))
$url_propre = $_SERVER['REDIRECT_url_propre'];
elseif (isset($_ENV['url_propre']))
$url_propre = $_ENV['url_propre'];
else {
// ne prendre que le segment d'url qui correspond, en fonction de la profondeur calculee
$url = ltrim($url,'/');
$url = explode('/',$url);
while (count($url)>$GLOBALS['profondeur_url']+1)
array_shift($url);
$url = implode('/',$url);
$url_propre = preg_replace(',[?].*,', '', $url);
}
// Mode Query-String ?
if (!$url_propre
AND preg_match(',[?]([^=/?&]+)(&.*)?$,', $url, $r)) {
$url_propre = $r[1];
}
if (!$url_propre
OR $url_propre==_DIR_RESTREINT_ABS
OR $url_propre==_SPIP_SCRIPT) return; // qu'est-ce qu'il veut ???
include_spip('base/abstract_sql'); // chercher dans la table des URLS
// Revenir en utf-8 si encodage type %D8%A7 (farsi)
$url_propre = rawurldecode($url_propre);
// Compatibilite avec .htm/.html et autres terminaisons
$t = array_diff(array_unique(array_merge(array('.html','.htm','/'),url_arbo_terminaison(''))),array(''));
if (count($t))
$url_propre = preg_replace('{('
.implode('|',array_map('preg_quote',$t)).')$}i', '', $url_propre);
if (strlen($url_propre) AND !preg_match(',^[^/]*[.]php,',$url_propre)){
$parents_vus = array();
// recuperer tous les objets de larbo xxx/article/yyy/mot/zzzz
// on parcourt les segments de gauche a droite
// pour pouvoir contextualiser un segment par son parent
$url_arbo = explode('/',$url_propre);
$url_arbo_new = array();
$dernier_parent_vu = false;
$objet_segments = 0;
while (count($url_arbo)>0){
$type=null;
if (count($url_arbo)>1)
$type = array_shift($url_arbo);
$url_segment = array_shift($url_arbo);
// Rechercher le segment de candidat
// si on est dans un contexte de parent, donne par le segment precedent,
// prefixer le segment recherche avec ce contexte
$cp = "0"; // par defaut : parent racine, id=0
if ($dernier_parent_vu)
$cp = $parents_vus[$dernier_parent_vu];
// d'abord recherche avec prefixe parent, en une requete car aucun risque de colision
$row=sql_fetsel('id_objet, type, url',
'spip_urls',
is_null($type)
? "url=".sql_quote($url_segment, '', 'TEXT')
: sql_in('url',array("$type/$url_segment",$type)),
'',
// en priorite celui qui a le bon parent et les deux segments
// puis le bon parent avec 1 segment
// puis un parent indefini (le 0 de preference) et les deux segments
// puis un parent indefini (le 0 de preference) et 1 segment
(intval($cp)?"id_parent=".intval($cp)." DESC, ":"id_parent>=0 DESC, ")."segments DESC, id_parent"
);
if ($row){
if (!is_null($type) AND $row['url']==$type){
array_unshift($url_arbo,$url_segment);
$url_segment = $type;
$type = null;
}
$type = $row['type'];
$col_id = id_table_objet($type);
// le plus a droite l'emporte pour des objets presents plusieurs fois dans l'url (ie rubrique)
$contexte[$col_id] = $row['id_objet'];
$type_parent = '';
if ($p = url_arbo_parent($type))
$type_parent=end($p);
// l'entite la plus a droite l'emporte, si le type de son parent a ete vu
// sinon c'est un segment contextuel supplementaire a ignorer
// ex : rub1/article/art1/mot1 : il faut ignorer le mot1, la vrai url est celle de l'article
if (!$entite
OR $dernier_parent_vu == $type_parent){
if ($objet_segments==0)
$entite = $type;
}
// sinon on change d'objet concerne
else{
$objet_segments++;
}
$url_arbo_new[$objet_segments]['id_objet'] = $row['id_objet'];
$url_arbo_new[$objet_segments]['objet'] = $type;
$url_arbo_new[$objet_segments]['segment'][] = $row['url'];
// on note le dernier parent vu de chaque type
$parents_vus[$dernier_parent_vu = $type] = $row['id_objet'];
}
else {
// un segment est inconnu
if ($entite=='' OR $entite=='type_urls') {
// on genere une 404 comme il faut si on ne sait pas ou aller
return array(array(),'404');
}
// ici on a bien reconnu un segment en amont, mais le segment en cours est inconnu
// on pourrait renvoyer sur le dernier segment identifie
// mais de fait l'url entiere est inconnu : 404 aussi
// mais conserver le contexte qui peut contenir un fond d'ou venait peut etre $entite (reecriture urls)
return array($contexte,'404');
}
}
if (count($url_arbo_new)){
$caller = debug_backtrace();
$caller = $caller[1]['function'];
// si on est appele par un autre module d'url c'est du decodage d'une ancienne URL
// ne pas regenerer des segments arbo, mais rediriger vers la nouvelle URL
// dans la nouvelle forme
if (strncmp($caller,"urls_",5)==0 AND $caller!=="urls_decoder_url"){
// en absolue, car assembler ne gere pas ce cas particulier
include_spip('inc/filtres_mini');
$col_id = id_table_objet($entite);
$url_new = generer_url_entite($contexte[$col_id],$entite);
// securite contre redirection infinie
if ($url_new!==$url_propre
AND rtrim($url_new,"/")!==rtrim($url_propre,"/"))
$url_redirect = url_absolue($url_new);
}
else {
foreach($url_arbo_new as $k=>$o)
if ($s = declarer_url_arbo($o['objet'],$o['id_objet']))
$url_arbo_new[$k] = $s;
else
$url_arbo_new[$k] = implode('/',$o['segment']);
$url_arbo_new = ltrim(implode('/',$url_arbo_new),'/');
if ($url_arbo_new!==$url_propre){
$url_redirect = $url_arbo_new;
// en absolue, car assembler ne gere pas ce cas particulier
include_spip('inc/filtres_mini');
$url_redirect = url_absolue($url_redirect);
}
}
}
// gerer le retour depuis des urls propres
if (($entite=='' OR $entite=='type_urls')
AND $GLOBALS['profondeur_url']<=0){
$urls_anciennes = charger_fonction('propres','urls');
return $urls_anciennes($url_propre, $entite, $contexte);
}
}
if ($entite=='' OR $entite=='type_urls' /* compat .htaccess 2.0 */) {
if ($type)
$entite = objet_type ($type);
else {
// Si ca ressemble a une URL d'objet, ce n'est pas la home
// et on provoque un 404
if (preg_match(',^[^\.]+(\.html)?$,', $url)) {
$entite = '404';
$contexte['erreur'] = ''; // qu'afficher ici ? l'url n'existe pas... on ne sait plus dire de quel type d'objet il s'agit
}
}
}
if (!defined('_SET_HTML_BASE')){
define('_SET_HTML_BASE',1);
}
return array($contexte, $entite, $url_redirect, null);
}
?>
propres2.php 0000666 00000002547 15252255237 0007055 0 ustar 00 <?php
/***************************************************************************\
* SPIP, Systeme de publication pour l'internet *
* *
* Copyright (c) 2001-2016 *
* Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
* Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
\***************************************************************************/
if (!defined("_ECRIRE_INC_VERSION")) return; // securiser
/*
Ce jeu d'URLs est une variation de inc-urls-propres, qui ajoute
le suffixe '.html' aux adresses ;
*/
# donner un exemple d'url pour le formulaire de choix
define('URLS_PROPRES2_EXEMPLE', 'Titre-de-l-article.html -Rubrique-.html');
# specifier le form de config utilise pour ces urls
define('URLS_PROPRES2_CONFIG', 'propres');
if (!defined('_terminaison_urls_propres'))
define ('_terminaison_urls_propres', '.html');
// http://code.spip.net/@urls_propres2_dist
function urls_propres2_dist($i, &$entite, $args='', $ancre='') {
$f = charger_fonction('propres', 'urls');
return $f($i, $entite, $args, $ancre);
}
?>
libres.php 0000666 00000002547 15252255237 0006561 0 ustar 00 <?php
/***************************************************************************\
* SPIP, Systeme de publication pour l'internet *
* *
* Copyright (c) 2001-2016 *
* Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
* Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
\***************************************************************************/
if (!defined("_ECRIRE_INC_VERSION")) return; // securiser
/*
Ce jeu d'URLs est une variation de inc-urls-propres mais les urls
de differents types ne sont PAS distinguees par des marqueurs (_,-,+, etc.) ;
*/
# donner un exemple d'url pour le formulaire de choix
define('URLS_LIBRES_EXEMPLE', 'Titre-de-l-article Rubrique');
# specifier le form de config utilise pour ces urls
define('URLS_LIBRES_CONFIG', 'propres');
if (!defined('_MARQUEUR_URL'))
define('_MARQUEUR_URL', false);
// http://code.spip.net/@urls_libres_dist
function urls_libres_dist($i, &$entite, $args='', $ancre='') {
$f = charger_fonction('propres', 'urls');
return $f($i, $entite, $args, $ancre);
}
?>
propres_qs.php 0000666 00000003307 15252255237 0007471 0 ustar 00 <?php
/***************************************************************************\
* SPIP, Systeme de publication pour l'internet *
* *
* Copyright (c) 2001-2016 *
* Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
* Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
\***************************************************************************/
if (!defined("_ECRIRE_INC_VERSION")) return; // securiser
/*
Ce jeu d'URLs est une variante de inc-urls-propres, qui ajoute
le prefixe './?' aux adresses, ce qui permet de l'utiliser en
mode "Query-String", sans .htaccess ;
<http://mon-site-spip/?-Rubrique->
Attention : le mode 'propres_qs' est moins fonctionnel que le mode 'propres' ou
'propres2'. Si vous pouvez utiliser le .htaccess, ces deux derniers modes sont
preferables au mode 'propres_qs'.
*/
# donner un exemple d'url pour le formulaire de choix
define('URLS_PROPRES_QS_EXEMPLE', '?Titre-de-l-article');
# specifier le form de config utilise pour ces urls
define('URLS_PROPRES_QS_CONFIG', 'propres');
if (!defined('_terminaison_urls_propres'))
define ('_terminaison_urls_propres', '');
defined('_debut_urls_propres') || define ('_debut_urls_propres', './?');
// http://code.spip.net/@urls_propres_qs_dist
function urls_propres_qs_dist($i, &$entite, $args='', $ancre='') {
$f = charger_fonction('propres', 'urls');
return $f($i, $entite, $args, $ancre);
}
?>
html.php 0000666 00000007423 15252255237 0006243 0 ustar 00 <?php
/***************************************************************************\
* SPIP, Systeme de publication pour l'internet *
* *
* Copyright (c) 2001-2016 *
* Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
* Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
\***************************************************************************/
/*
- Comment utiliser ce jeu d'URLs ?
Recopiez le fichier "htaccess.txt" du repertoire de base du site SPIP sous
le sous le nom ".htaccess" (attention a ne pas ecraser d'autres reglages
que vous pourriez avoir mis dans ce fichier) ; si votre site est en
"sous-repertoire", vous devrez aussi editer la ligne "RewriteBase" ce fichier.
Les URLs definies seront alors redirigees vers les fichiers de SPIP.
Dans les pages de configuration, choisissez 'html' comme type d'url
SPIP calculera alors ses liens sous la forme "article123.html".
Note : si le fichier htaccess.txt se revele trop "puissant", car trop
generique, et conduit a des problemes (en lien par exemple avec d'autres
applications installees dans votre repertoire, a cote de SPIP), vous
pouvez l'editer pour ne conserver que la partie concernant les URLS 'html'.
*/
if (!defined("_ECRIRE_INC_VERSION")) return; // securiser
# donner un exemple d'url pour le formulaire de choix
define('URLS_HTML_EXEMPLE', 'article12.html');
// http://code.spip.net/@_generer_url_html
function _generer_url_html($type, $id, $args='', $ancre='') {
if ($generer_url_externe = charger_fonction("generer_url_$type",'urls',true)) {
$url = $generer_url_externe($id, $args, $ancre);
if (NULL != $url) return $url;
}
return _DIR_RACINE . $type . $id . '.html' . ($args ? "?$args" : '') .($ancre ? "#$ancre" : '');
}
// retrouver les parametres d'une URL dite "html"
// http://code.spip.net/@urls_html_dist
function urls_html_dist($i, $entite, $args='', $ancre='') {
if (is_numeric($i))
return _generer_url_html($entite, $i, $args, $ancre);
// recuperer les &debut_xx;
if (is_array($args))
$contexte = $args;
else
parse_str($args,$contexte);
// traiter les injections du type domaine.org/spip.php/cestnimportequoi/ou/encore/plus/rubrique23
if ($GLOBALS['profondeur_url']>0 AND $entite=='sommaire'){
return array(array(),'404');
}
$url = $i;
// voir s'il faut recuperer le id_* implicite et les &debut_xx;
include_spip('inc/urls');
$r = nettoyer_url_page($i, $contexte);
if ($r) {
array_pop($r); // nettoyer_url_page renvoie un argument de plus inutile ici
// il n'est pas necessaire de forcer le fond en 4eme arg car l'url n'est pas query string
// sauf si pas de fond connu
if ($entite)
array_pop($r);
return $r;
}
/*
* Le bloc qui suit sert a faciliter les transitions depuis
* le mode 'urls-propres' vers les modes 'urls-standard' et 'url-html'
* Il est inutile de le recopier si vous personnalisez vos URLs
* et votre .htaccess
*/
// Si on est revenu en mode html, mais c'est une ancienne url_propre
// on ne redirige pas, on assume le nouveau contexte (si possible)
$url_propre = isset($url)
? $url
: (isset($_SERVER['REDIRECT_url_propre'])
? $_SERVER['REDIRECT_url_propre']
: (isset($_ENV['url_propre'])
? $_ENV['url_propre']
: ''
));
if ($url_propre) {
if ($GLOBALS['profondeur_url']<=0)
$urls_anciennes = charger_fonction('propres','urls');
else
$urls_anciennes = charger_fonction('arbo','urls');
return $urls_anciennes($url_propre, $entite, $contexte);
}
/* Fin du bloc compatibilite url-propres */
}
?>