source: spip-zone/_plugins_/couteau_suisse/outils/boites_privees.php @ 113665

Last change on this file since 113665 was 113665, checked in by patfr@…, 4 months ago

Boites privées : à l'instar des articles, le texte source au format SPIP des newsletters est dévoilé.

File size: 12.8 KB
Line 
1<?php
2
3// Doc : https://contrib.spip.net/Les-Boites-Privees
4
5if (!defined("_ECRIRE_INC_VERSION")) return;
6include_spip('inc/presentation');
7include_spip('inc/layer');
8
9// compatibilite SQL pour SPIP 1.92
10if(!defined('_SPIP19300')) {
11        include_spip('base/abstract_sql');
12        if(!function_exists('sql_select')) { function sql_select($s=array(),$f=array(),$w=array(),$g=array(),$o=array(),$l='',$h=array(),$sv='') {
13                return spip_abstract_select($s,$f,$w,$g,$o,$l,'',$h,'','',$sv); } }
14        if(!function_exists('sql_fetch')) { function sql_fetch($s) { return spip_fetch_array($s); } }
15        if(!function_exists('sql_update')) { function sql_update($t, $e, $w=array()) {
16                if(!is_array($t))$t=array($t); if(!is_array($e))$e=array($e); if(!is_array($w))$w=array($w);
17                $q=$r =''; foreach($e as $i=>$v) $e[$i] = "$i=$v";
18                return spip_query("UPDATE ".join(',',$t)." SET ".join(',',$e).(empty($w)?'':" WHERE ".join(' AND ',$w)));
19        } }
20}
21
22// cette fonction appelee automatiquement a chaque affichage de la page privee du Couteau Suisse renvoie un tableau
23function boites_privees_installe_dist(){
24        tri_auteurs_verifie_table(); // OPTIM : ne le faire qu'a l'activation de la lame ou de la boite ? upgrade de SPIP ?
25        return false;
26}
27
28function boites_privees_affiche_gauche($flux){
29        $exec = &$flux['args']['exec'];
30        if(defined('boites_privees_TRI_AUTEURS') && ($exec=='article' || $exec=='articles')) {
31                include_spip('outils/boites_privees_action_rapide');
32                $flux['data'] .= action_rapide_tri_auteurs($flux['args']['id_article']);
33        }
34        if(defined('boites_privees_URLS_PROPRES')) {
35                // fonction de SPIP >= 3.0
36                $e = function_exists('trouver_objet_exec')
37                        ?trouver_objet_exec($exec)
38                        :array('type'=>$exec, 'id_table_objet'=>$flux['args']['id_'.$exec]?'id_'.$exec:'');
39                if($e && strlen($e['type']) && strlen($e['id_table_objet']) && isset($flux['args'][$e['id_table_objet']]))
40                        $flux['data'] .= cs_urls_propres($e['type'], $flux['args'][$e['id_table_objet']]);
41                else switch($exec) {
42                        // SPIP>=3.0 : objets au singulier uniquement (autres 'case' pour compatibilite SPIP<3.0)
43                        case 'articles': $flux['data'] .= cs_urls_propres('article', $flux['args']['id_article']); break;
44                        case 'naviguer': $flux['data'] .= cs_urls_propres('rubrique', $flux['args']['id_rubrique']); break;
45                        case 'auteur_infos': case 'auteurs_edit': $flux['data'] .= cs_urls_propres('auteur', $flux['args']['id_auteur']); break;
46                        case 'breves_voir': $flux['data'] .= cs_urls_propres('breve', $flux['args']['id_breve']); break;
47                        case 'mots_edit': $flux['data'] .= cs_urls_propres('mot', $flux['args']['id_mot']); break;
48                        case 'site': case 'sites': $flux['data'] .= cs_urls_propres('syndic', $flux['args']['id_syndic']); break;
49                }
50        }
51        return cs_pipeline_boite_privee($flux, 'gauche');
52}
53
54function boites_privees_affiche_milieu($flux){
55        switch($flux['args']['exec']) {
56                // SPIP >= 3.0 : objets au singulier
57                case 'article': case 'articles': {
58                        // texte original au format spip
59                        if(defined('boites_privees_ARTICLES'))
60                                $flux['data'] .= cs_formatspip($flux['args']['id_article'], 'id_article');
61                        break;
62                }
63                case 'newsletter': case 'newsletters': {
64                        // texte original au format spip
65                        if(defined('boites_privees_ARTICLES'))
66                                $flux['data'] .= cs_formatspip($flux['args']['id_newsletter'], 'id_newsletter');
67                        break;
68                }
69                default:
70                        break;
71        }
72        return cs_pipeline_boite_privee($flux, 'milieu');
73}
74
75function boites_privees_affiche_droite($flux) {
76        switch($flux['args']['exec']) {
77                case 'auteur':case 'auteurs':/* Pour SPIP < v3 : */case 'auteur_infos':case 'auteurs_edit': 
78                        $flux['data'] .= cs_infos_webmasters() . cs_infos_connection(); break;
79                case 'admin_couteau_suisse':
80                        $flux['data'] .= cs_boite_rss(); break;
81                default:
82                        break;
83        }
84        return cs_pipeline_boite_privee($flux, 'droite');
85}
86
87/*
88 fonction appelant une liste de fonctions qui permettent :
89 - d'ajouter facilement des boites privees perso
90 - voire de modifier les boites fournies par le plugin
91 par exemple :
92        $GLOBALS['boites_privees_gauche'][] = 'ma_boite_privee';
93        function ma_boite_privee($flux, $exec) {
94                return $flux . debut_boite_info(true) . 'Youpi !!' . fin_boite_info(true);
95        }
96*/
97function cs_pipeline_boite_privee(&$flux, $endroit) {
98        // liste de filtres
99        $globale = 'boites_privees_'.$endroit;
100        if(!(isset($GLOBALS[$globale]) && is_array($GLOBALS[$globale]))) return $flux;
101        $liste = array_unique($GLOBALS[$globale]);
102        foreach($liste as $f)
103                if (function_exists($f)) $flux['data'] = $f($flux['data'], $flux['args']['exec']);
104        return $flux;
105}
106
107// pipeline utilise sous SPIP>=2.1, histoire de respecter l'ordre de stockage des auteurs d'objets
108function boites_privees_pre_boucle($flux) {
109        if(!defined('boites_privees_TRI_AUTEURS') || $flux->type_requete!='auteurs' 
110                        || !count($L1 = $flux->join) || !count($w = &$flux->where)>1) return $flux;
111        // alias de la jointure
112        $L1 = array_keys($L1);
113        if(defined('_SPIP30000')) { 
114                if($w[0][0]=="'='" && $w[1][0]=="'='")
115                        // SPIP v3 : 2 liens (sur objet et id_objet)
116                        $flux->order[] = 'tri_auteurs_sqlfield('.$w[0][2].','.$w[1][2].','._q($L1[0]).','._q(@$flux->serveur).')';
117        } elseif($w[0][0]=="'='")
118                // SPIP v2.1 : 1 lien (sur id_article)
119                $flux->order[] = 'tri_auteurs_sqlfield('.$w[0][2].',\'article\','._q($L1[0]).','._q(@$flux->serveur).')';
120        return $flux;
121}
122
123// function listant les auteurs d'un objet, tries suivant le champ 'ordre'
124function tri_auteurs_sqlfield($id_objet, $type_objet, $alias, $serveur) {
125        static $res = array();
126        if(!isset($r[$i = "$id_objet,$type_objet,$serveur"])) {
127                $t = defined('_SPIP30000')
128                        ?sql_allfetsel('id_auteur','spip_auteurs_liens', "objet=$type_objet AND id_objet=$id_objet", '','ordre','','',$serveur)
129                        :sql_allfetsel('id_auteur','spip_auteurs_articles', "id_article=$id_objet", '','ordre','','',$serveur);
130                $r[$i] = count($t)>1?'FIELD('.$alias.'.id_auteur,'.join(array_map('reset', $t), ',').')':'';
131        }
132        return $r[$i];
133}
134
135// verifier que le champ 'ordre' est bien present dans la table des liens, sinon on le cree
136// cette fonction ($complet=true) permet egalement une mise a jour en cas de creation du champ 'ordre' sur un site existant
137function tri_auteurs_verifie_table($complet=false) {
138        global $metas_outils; 
139        if(!defined('_SPIP20100') || //!defined('boites_privees_TRI_AUTEURS')) return;
140                !isset($metas_outils['boites_privees']['actif']) || !$metas_outils['boites_privees']['actif']) return;
141
142        include_spip('base/abstract_sql');
143        $table = defined('_SPIP30000')?'spip_auteurs_liens':'spip_auteurs_articles';
144        $x = sql_showtable($table);
145        if($x = !isset($x['field']['ordre']))
146                sql_alter("TABLE $table ADD ordre INT NOT NULL DEFAULT '0'");
147        if($complet || $x) {
148                // mise a jour du champ 'ordre' pour les articles a plusieurs auteurs et n'ayant jamais ete tries grace a ce champ
149                if(defined('_SPIP30000')) {
150                        $q1 = sql_select('id_objet, COUNT(*) as nb', $table, "objet='article' AND ordre=0", 'id_objet', '','', "nb>1");
151                        while($r1 = sql_fetch($q1)) {
152                                $q2 = sql_select('id_auteur', $table, "objet='article' AND ordre=0 AND id_objet=".$r1['id_objet']);
153                                $j = $r1['nb'] + 999; $i = 0;
154                                while($r2 = sql_fetch($q2))
155                                        sql_update($table, array('ordre'=>$i++ - $j), 
156                                                "objet='article' AND ordre=0 AND id_objet=$r1[id_objet] AND id_auteur=".$r2['id_auteur']);
157                        }
158                } else {
159                        $q1 = sql_select('id_article, COUNT(*) as nb', $table, "ordre=0", 'id_article', '','', "nb>1");
160                        while($r1 = sql_fetch($q1)) {
161                                $q2 = sql_select('id_auteur', $table, "ordre=0 AND id_article=".$r1['id_article']);
162                                $j = $r1['nb'] + 999; $i = 0;
163                                while($r2 = sql_fetch($q2))
164                                        sql_update($table, array('ordre'=>$i++ - $j), 
165                                                "ordre=0 AND id_article=$r1[id_article] AND id_auteur=".$r2['id_auteur']);
166                        }
167                }
168        } // $complet
169}
170
171function cs_boite_rss() {
172        include_spip('inc/autoriser');
173        if (!defined('boites_privees_CS') || !autoriser('configurer','csinfosrss')) return '';
174        return debut_boite_info(true)
175                . '<p><b>'.couteauprive_T('rss_titre').'</b></p><div class="cs_boite_rss"><div><p>'.couteauprive_T('rss_attente').'</p><noscript>'.couteauprive_T('outil_inactif').' !</noscript></div></div>'
176                /*.'<div style="text-align: right; font-size: 87%;"><a title="'.couteauprive_T('rss_desactiver').'" href="'
177                .generer_url_ecrire(_request('exec'),'cmd=switch&outil=rss_couteau_suisse').'">'.couteauprive_T('supprimer_cadre').'</a></div>'*/
178                . fin_boite_info(true);
179}
180
181function cs_infos_webmasters() {
182        include_spip('inc/autoriser');
183        if (!defined('boites_privees_WEBMASTERS') || !autoriser('configurer','csinfoswebmasters')) return '';
184        include_spip('cout_define');
185        list($w) = get_liste_administrateurs();
186        return cs_cadre_depliable(_T('couteau:webmestres'), 'bp_infos_webmasters', 
187        "<p>".(strlen($w)?'&bull; '.str_replace(', ','<br/>&bull; ',$w):_T('couteau:variable_vide'))."</p>");
188}
189
190function cs_infos_connection() {
191        include_spip('inc/autoriser');
192        if (!defined('boites_privees_AUTEURS') || !autoriser('configurer','csinfosconnection')) return '';
193        include_spip('public/assembler');
194        return cs_cadre_depliable(_T('couteau:connections'), 'bp_infos_connection',
195                recuperer_fond('fonds/derniers_connectes'));
196}
197
198function cs_formatspip($id_objet, $type_id='id_article'){
199        include_spip('public/assembler');
200        if(!$txt = recuperer_fond('fonds/format_spip', array($type_id=>$id_objet))) return '';
201        $txt = explode('@TITRE@=', $txt, 2);
202        // compatibilite avec SPIP 1.92
203        $compat = function_exists('bouton_block_depliable');
204        $bouton = $compat?bouton_block_depliable(cs_div_configuration().$txt[1], 'invisible', "formatspip")
205                :bouton_block_invisible("formatspip").cs_div_configuration().$txt[1];
206        $bloc = $compat?debut_block_depliable(false, "formatspip")
207                :debut_block_invisible("formatspip");
208        return debut_cadre_enfonce(cs_icone(24,'formatspip','png'), true, '', $bouton)
209                . $bloc . $txt[0] . fin_block()
210                . fin_cadre_enfonce(true);
211}
212
213function cs_urls_propres($type, $id) {
214        global $type_urls;
215        if(!$id) return '';
216        $res = "";
217        // SPIP >= 2.0
218        if(defined('_SPIP19300')) {
219                $url = generer_url_entite_absolue($id, $type, '', '', true);
220                $lien_public = "\n[<span>[". _T('couteau:urls_propres_lien'). "|{$url}->{$url}]</span>]\n\n";
221                $s = sql_select("url, date", "spip_urls", "id_objet=$id AND type='$type'", '', 'date DESC');
222                $now = date('Y-m-d H:i:s');
223                $info = ' ('._T('couteau:url_verrouillee').')';
224                while ($t = sql_fetch($s)) $res .= ($res?'<br />':'').'&bull;&nbsp;<html>'.$t['url'].($t['date']>$now?$info:'')."</html>\n";
225                if(!find_in_path($f = $type."."._EXTENSION_SQUELETTES))
226                        $lien_public .= '{{[!]}} {'._T('info_erreur_squelette2',array('fichier'=>$f))."}\n\n";
227        // SPIP 1.92
228        } else {
229                // impossible de calculer l'url publique d'ici.
230                $table = $type.($type=='syndic'?'':'s');
231                $r = spip_query("SELECT url_propre FROM spip_$table WHERE id_$type=$id");
232                if ($r && $r = spip_fetch_array($r) ) {
233                        if(!strlen($r=$r['url_propre'])) $r = couteauprive_T('variable_vide');
234                        $res .= "&bull;&nbsp;$r\n";
235                }
236                $lien_public = './?exec=action_rapide&arg=type_urls|URL_objet_191&format=iframe&type_objet='.$type.'&id_objet='.$id.'&script=foo';
237                $lien_public = '<iframe src="'.$lien_public.'" width="100%" style="border:none; height:4em;"></iframe>';
238        }
239
240        $format = in_array($type_urls, array('page', 'standard', 'html'))
241                ?_T('couteau:urls_propres_erreur')
242                :_T('couteau:urls_propres_objet');
243        $mem = $GLOBALS['class_spip_plus'];
244        $GLOBALS['class_spip_plus']=' class="spip"';
245        $res = propre(
246                _T('couteau:urls_propres_format', array(
247                        'format'=>$type_urls,
248                        'url'=>generer_url_ecrire('admin_couteau_suisse', 'cmd=descrip&outil=type_urls#cs_infos')
249                )). "\n\n"
250                . $format . "\n\n"
251                . '|{{'. _T('couteau:2pts', array(
252                        'objet'=>strtoupper(filtrer_entites(_T('couteau:objet_'.$type))).' '.$id
253                ))."}}|\n"
254                . "|$res|")
255                // bug SPIP ?
256                . propre($lien_public);
257        $GLOBALS['class_spip_plus'] = $mem;
258        return cs_cadre_depliable(_T('couteau:urls_propres_titre'), 'bp_urls_propres', $res);
259}
260
261function cs_div_configuration() {
262        include_spip('inc/autoriser');
263        if(!autoriser('configurer', 'cs')) return '';
264        $img = defined('_SPIP30000')?chemin_image('secteur-12.png'):_DIR_IMG_PACK.'secteur-12.gif';
265        return '<div style="float:right; top:4px; right:-4px; position:relative;" ><a title="'._T('couteau:configurer').'" href="'.generer_url_ecrire('admin_couteau_suisse','cmd=descrip&outil=boites_privees#cs_infos').'"><img alt="'._T('couteau:configurer').'" src="'.$img.'"/></a></div>';
266}
267
268function cs_cadre_depliable($titre, $id, $texte) {
269        // SPIP 1.92
270        if(!defined('_SPIP19300')) return debut_cadre_relief(cs_icone(24), true)
271                . cs_div_configuration()
272                . "<div class='verdana1' style='text-align: left;'>"
273                . block_parfois_visible($id, "<b>$titre</b>", $texte, 'text-align: center;')
274                . "</div>"
275                . fin_cadre_relief(true);
276        // SPIP >= 2.0
277        return cadre_depliable(cs_icone(24), cs_div_configuration()."<b>$titre</b>", false /*true = deplie*/, $texte, $id);
278}
279
280?>
Note: See TracBrowser for help on using the repository browser.