3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2011 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
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 \***************************************************************************/
13 if (!defined('_ECRIRE_INC_VERSION')) return;
15 // Les balises URL_$type sont generiques, sauf qq cas particuliers.
16 // Si ces balises sont utilisees pour la base locale,
17 // production des appels a generer_url_entite(id-courant, entite)
18 // Si la base est externe et non geree par SPIP
19 // on retourne NULL pour provoquer leur interpretation comme champ SQL normal.
20 // Si la base est externe et sous SPIP,
21 // on produit l'URL de l'objet si c'est une piece jointe
22 // ou sinon l'URL du site local applique sur l'objet externe
23 // ce qui permet de le voir a travers les squelettes du site local
24 // On communique le type-url distant a generer_url_entite mais il ne sert pas
25 // car rien ne garantit que le .htaccess soit identique. A approfondir
27 // http://doc.spip.org/@generer_generer_url
28 function generer_generer_url($type, $p)
30 $_id = interprete_argument_balise(1,$p);
32 if (!$_id) $_id = champ_sql('id_' . $type, $p);
34 return generer_generer_url_arg($type, $p, $_id);
37 function generer_generer_url_arg($type, $p, $_id)
41 if ($s !== '' AND $s = $p->boucles
[$s]->sql_serveur
) {
43 // si une fonction de generation des url a ete definie pour ce connect l'utiliser
44 if (function_exists($f = 'generer_generer_url_'.$s)){
45 return $f($type, $_id, $s);
47 if (!$GLOBALS['connexions'][strtolower($s)]['spip_connect_version']) {
51 if ($type == 'document') {
53 "quete_meta('adresse_site', $s) . '/' .\n\t" .
54 "quete_meta('dir_img', $s) . \n\t" .
55 "quete_fichier($_id,$s)";
57 $s = ", '', '', $s, quete_meta('type_urls', $s)";
60 $s = ", '', '', true";
61 return "urlencode_1738(generer_url_entite($_id, '$type'$s))";
65 // http://doc.spip.org/@balise_URL__dist
66 function balise_URL__dist($p) {
69 if ($nom === 'URL_') {
70 $msg = array('zbug_balise_sans_argument', array('balise' => ' URL_'));
71 erreur_squelette($msg, $p);
72 $p->interdire_scripts
= false;
74 } elseif ($f = charger_fonction($nom, 'balise', true)) {
77 $code = champ_sql($nom, $p);
78 if (strpos($code, '@$Pile[0]') !== false) {
79 $nom = strtolower(substr($nom,4));
80 $code = generer_generer_url($nom, $p);
81 if ($code === NULL) return NULL;
84 $p->code
= "vider_url($code)";
85 $p->interdire_scripts
= false;
90 // http://doc.spip.org/@balise_URL_ARTICLE_dist
91 function balise_URL_ARTICLE_dist($p) {
93 // Cas particulier des boucles (SYNDIC_ARTICLES)
94 if ($p->type_requete
== 'syndic_articles') {
95 $code = champ_sql('url', $p);
96 } else $code = generer_generer_url('article', $p);
98 $p->code
= "vider_url($code)";
99 $p->interdire_scripts
= false;
103 // http://doc.spip.org/@balise_URL_SITE_dist
104 function balise_URL_SITE_dist($p)
106 $code = champ_sql('url_site', $p);
107 if (strpos($code, '@$Pile[0]') !== false) {
108 $code = generer_generer_url('site', $p);
109 if ($code === NULL) return NULL;
112 $code = "calculer_url($code,'','url', \$connect)";
115 $p->interdire_scripts
= false;
119 // Autres balises URL_*, qui ne concernent pas une table
122 // http://doc.spip.org/@balise_URL_SITE_SPIP_dist
123 function balise_URL_SITE_SPIP_dist($p) {
124 $p->code
= "sinon(\$GLOBALS['meta']['adresse_site'],'.')";
125 $p->code
= "htmlspecialchars(".$p->code
.")";
126 $p->interdire_scripts
= false;
131 // #URL_PAGE{backend} -> backend.php3 ou ?page=backend selon les cas
132 // Pour les pages qui commencent par "spip_", il faut eventuellement
133 // aller chercher spip_action.php?action=xxxx
134 // Sans argument, #URL_PAGE retourne l'URL courante.
135 // #URL_PAGE* retourne l'URL sans convertir les & en &
136 // http://doc.spip.org/@balise_URL_PAGE_dist
137 function balise_URL_PAGE_dist($p) {
139 $code = interprete_argument_balise(1,$p);
140 $args = interprete_argument_balise(2,$p);
142 $s = !$p->id_boucle ?
'' : $p->boucles
[$p->id_boucle
]->sql_serveur
;
145 if (!$GLOBALS['connexions'][strtolower($s)]['spip_connect_version']) {
148 // si une fonction de generation des url a ete definie pour ce connect l'utiliser
149 // elle devra aussi traiter le cas derogatoire type=page
150 if (function_exists($f = 'generer_generer_url_'.$s)){
151 if ($args) $code .= ", $args";
152 $code = $f('page', $code, $s);
155 $s = 'connect=' . addslashes($s);
156 $args = $args ?
"$args . '&$s'" : "'$s'";
160 $noentities = $p->etoile ?
"'&'" : '';
161 $code = "url_de_base() . preg_replace(',^./,', '', self($noentities))";
163 if (!$args) $args = "''";
164 $noentities = $p->etoile ?
", true" : '';
165 $code = "generer_url_public($code, $args$noentities)";
168 #$p->interdire_scripts = true;
173 // #URL_ECRIRE{naviguer} -> ecrire/?exec=naviguer
175 // http://doc.spip.org/@balise_URL_ECRIRE_dist
176 function balise_URL_ECRIRE_dist($p) {
178 $code = interprete_argument_balise(1,$p);
182 if (preg_match("/^'[^']*'$/", $code))
184 else {$code = "(\$f = $code)"; $fonc = '$f';}
185 $args = interprete_argument_balise(2,$p);
186 if ($args != "''" && $args!==NULL)
187 $fonc .= ',' . $args;
189 $p->code
= 'generer_url_ecrire(' . $fonc .')';
191 $p->code
= "(tester_url_ecrire($code) ?" . $p->code
.' : "")';
192 #$p->interdire_scripts = true;
197 // #URL_ACTION_AUTEUR{converser,arg,redirect} -> ecrire/?action=converser&arg=arg&hash=xxx&redirect=redirect
199 // http://doc.spip.org/@balise_URL_ACTION_AUTEUR_dist
200 function balise_URL_ACTION_AUTEUR_dist($p) {
201 $p->descr
['session'] = true;
203 if ($p->boucles
[$p->id_boucle
]->sql_serveur
) {
204 $p->code
= 'generer_url_public("404")';
208 $p->code
= interprete_argument_balise(1,$p);
209 $args = interprete_argument_balise(2,$p);
210 if ($args != "''" && $args!==NULL)
211 $p->code
.= ",".$args;
212 $redirect = interprete_argument_balise(3,$p);
213 if ($redirect != "''" && $redirect!==NULL)
214 $p->code
.= ",".$redirect;
216 $p->code
= "generer_action_auteur(" . $p->code
. ")";
217 $p->interdire_scripts
= false;