4 * Le plugin qui lave plus SPIP que SPIP
5 * (c) 2008 Mathieu Marcillaud, Cedric Morin, Romy Tetue
10 if (!defined("_ECRIRE_INC_VERSION")) return;
12 include_spip('inc/core21_filtres');
15 * une fonction pour generer des menus avec liens
16 * ou un span lorsque l'item est selectionne
19 * @param string $libelle
21 * @param string $class
22 * @param string $title
25 function aoustrong($url,$libelle,$on=false,$class="",$title="",$rel=""){
26 return lien_ou_expose($url,$libelle,$on,$class,$title,$rel);
31 * une fonction pour generer une balise img a partir d'un nom de fichier
35 * @param string $class
38 function tag_img($img,$alt="",$class=""){
39 $balise_img = chercher_filtre('balise_img');
40 return $balise_img($img,$alt,$class);
44 * Afficher un message "un truc"/"N trucs"
49 function affiche_un_ou_plusieurs($nb,$chaine_un,$chaine_plusieurs,$var='nb'){
50 return singulier_ou_pluriel($nb,$chaine_un,$chaine_plusieurs,$var);
54 * Ajouter un timestamp a une url de fichier
56 * @param unknown_type $fichier
59 function timestamp($fichier){
60 if (!$fichier) return $fichier;
61 $m = filemtime($fichier);
66 * Transformer un tableau d'entrees array("rubrique|9","article|8",...)
67 * en un tableau contenant uniquement les identifiants d'un type donne.
68 * Accepte aussi que les valeurs d'entrees soient une chaine brute
69 * "rubrique|9,article|8,..."
71 * @param array/string $selected liste des entrees : tableau ou chaine separee par des virgules
72 * @param string $type type de valeur a recuperer ('rubrique', 'article')
74 * @return array liste des identifiants trouves.
76 function picker_selected($selected, $type){
78 $type = preg_replace(',\W,','',$type);
80 if ($selected and !is_array($selected))
81 $selected = explode(',', $selected);
83 if (is_array($selected))
84 foreach($selected as $value)
85 if (preg_match(",".$type."[|]([0-9]+),",$value,$match)
86 AND strlen($v=intval($match[1])))
91 function picker_identifie_id_rapide($ref,$rubriques=0,$articles=0){
92 include_spip("inc/json");
93 include_spip("inc/lien");
94 if (!($match = typer_raccourci($ref)))
95 return json_export(false);
96 @list
($type,,$id,,,,) = $match;
97 if (!in_array($type,array($rubriques?
'rubrique':'x',$articles?
'article':'x')))
98 return json_export(false);
99 $table_sql = table_objet_sql($type);
100 $id_table_objet = id_table_objet($type);
101 if (!$titre = sql_getfetsel('titre',$table_sql,"$id_table_objet=".intval($id)))
102 return json_export(false);
103 $titre = attribut_html(extraire_multi($titre));
104 return json_export(array('type'=>$type,'id'=>"$type|$id",'titre'=>$titre));
108 * Donner n'importe quelle information sur un objet de maniere generique.
110 * La fonction va gerer en interne deux cas particuliers les plus utilises :
111 * l'URL et le titre (qui n'est pas forcemment la champ SQL "titre").
113 * On peut ensuite personnaliser les autres infos en creant une fonction
114 * generer_<nom_info>_entite($id_objet, $type_objet, $ligne).
115 * $ligne correspond a la ligne SQL de tous les champs de l'objet, les fonctions
116 * de personnalisation n'ont donc pas a refaire de requete.
118 * @param int $id_objet
119 * @param string $type_objet
120 * @param string $info
123 function generer_info_entite($id_objet, $type_objet, $info, $etoile=''){
124 // On verifie qu'on a tout ce qu'il faut
125 $id_objet = intval($id_objet);
126 if (!($id_objet and $type_objet and $info))
129 // Si on demande l'url, on retourne direct la fonction
131 return generer_url_entite($id_objet, $type_objet);
133 // Si on demande le titre, on le gere en interne
134 if ($demande_titre = ($info == 'titre')){
136 $champ_titre = $table_titre[table_objet($type_objet)];
137 if (!$champ_titre) $champ_titre = 'titre';
138 $champ_titre = ", $champ_titre";
141 // Sinon on va tout chercher dans la table et on garde en memoire
144 // On ne fait la requete que si on a pas deja l'objet ou si on demande le titre mais qu'on ne l'a pas encore
145 if (!$objets[$type_objet][$id_objet] or ($demande_titre and !$objets[$type_objet][$id_objet]['titre'])){
146 include_spip('base/abstract_sql');
147 include_spip('base/connect_sql');
148 $objets[$type_objet][$id_objet] = sql_fetsel(
150 table_objet_sql($type_objet),
151 id_table_objet($type_objet).' = '.intval($id_objet)
154 $ligne = $objets[$type_objet][$id_objet];
157 $info_generee = $objets[$type_objet][$id_objet]['titre'];
158 // Si la fonction generer_TRUC_entite existe, on l'utilise
159 else if ($generer = charger_fonction("generer_${info}_entite", '', true))
160 $info_generee = $generer($id_objet, $type_objet, $ligne);
161 // Sinon on prend le champ SQL
163 $info_generee = $ligne[$info];
165 // On va ensuite chercher les traitements automatiques a faire
166 global $table_des_traitements;
167 $maj = strtoupper($info);
168 $traitement = $table_des_traitements[$maj];
169 $table_objet = table_objet($type_objet);
171 if (!$etoile and is_array($traitement)){
172 $traitement = $traitement[isset($traitement[$table_objet]) ?
$table_objet : 0];
173 $traitement = str_replace('%s', '"'.str_replace('"', '\\"', $info_generee).'"', $traitement);
174 eval("\$info_generee = $traitement;");
177 return $info_generee;
181 * Proteger les champs passes dans l'url et utiliser dans {tri ...}
182 * preserver l'espace pour interpreter ensuite num xxx et multi xxx
186 function tri_protege_champ($t){
187 return preg_replace(',[^\s\w.+],','',$t);
191 * Interpreter les multi xxx et num xxx utilise comme tri
192 * pour la clause order
193 * 'multi xxx' devient simplement 'multi' qui est calcule dans le select
194 * 'hasard' est calculé dans le select
198 function tri_champ_order($t,$table=NULL,$field=NULL){
199 if (strncmp($t,'num ',4)==0){
201 $t = preg_replace(',\s,','',$t);
202 // Lever une ambiguit� possible si le champs fait partie de la table (pour compatibilit� de la balise tri avec compteur, somme, etc.)
203 if (!is_null($table) && !is_null($field) && in_array($t,unserialize($field)))
209 elseif(strncmp($t,'multi ',6)==0){
213 $t = preg_replace(',\s,','',$t);
214 // Lever une ambiguit� possible si le champs fait partie de la table (pour compatibilit� de la balise tri avec compteur, somme, etc.)
215 if (!is_null($table) && !is_null($field) && in_array($t,unserialize($field)))
216 return $table.'.'.$t;
223 * Interpreter les multi xxx et num xxx utilise comme tri
224 * pour la clause select
225 * 'multi xxx' devient select "...." as multi
226 * les autres cas ne produisent qu'une chaine vide '' en select
227 * 'hasard' devient 'rand() AS hasard' dans le select
232 function tri_champ_select($t){
233 if(strncmp($t,'multi ',6)==0){
235 $t = preg_replace(',\s,','',$t);
236 $t = sql_multi($t,$GLOBALS['spip_lang']);
239 if(trim($t)=='hasard'){
240 return 'rand() AS hasard';
246 * Rediriger une page suivant une autorisation,
247 * et ce, n'importe o� dans un squelette, m�me dans les inclusions.
249 * @param bool $ok Indique si l'on doit rediriger ou pas
250 * @param string $url Adresse vers laquelle rediriger
251 * @param int $statut Statut HTML avec lequel on redirigera
254 function filtre_sinon_interdire_acces_dist($ok=false, $url='', $statut=0){
257 // vider tous les tampons
258 while (ob_get_level())
261 include_spip('inc/headers');
262 $statut = intval($statut);
264 // Si aucun argument on essaye de deviner quoi faire
265 if (!$url and !$statut){
266 // Si on est dans l'espace priv�, on g�n�re du 403 Forbidden
267 if (test_espace_prive()){
269 $echec = charger_fonction('403','exec');
272 // Sinon on redirige vers une 404
278 // Sinon on suit les directives indiqu�es dans les deux arguments
280 // S'il y a un statut
282 // Dans tous les cas on modifie l'ent�te avec ce qui est demand�
283 http_status($statut);
284 // Si le statut est une erreur 4xx on va chercher le squelette
286 echo recuperer_fond("$statut");
289 // S'il y a une URL, on redirige (si pas de statut, la fonction mettra 302)
290 if ($url) redirige_par_entete($url, '', $statut);