source: trunk/spip/esqueleto-redcta/plugins/spip-listes_1_9_2/exec/spip_listes.php @ 358

Last change on this file since 358 was 90, checked in by guille, 15 years ago

importacion de spip-listes-1_9_2
File size: 8.1 KB
Line 
1<?php
2
3/******************************************************************************************/
4/* SPIP-listes est un systï¿œe de gestion de listes d'information par email pour SPIP      */
5/* Copyright (C) 2004 Vincent CARON  v.caron<at>laposte.net , http://bloog.net            */
6/*                                                                                        */
7/* Ce programme est libre, vous pouvez le redistribuer et/ou le modifier selon les termes */
8/* de la Licence Publique Gￜￜale GNU publiï¿œ par la Free Software Foundation            */
9/* (version 2).                                                                           */
10/*                                                                                        */
11/* Ce programme est distribuï¿œcar potentiellement utile, mais SANS AUCUNE GARANTIE,       */
12/* ni explicite ni implicite, y compris les garanties de commercialisation ou             */
13/* d'adaptation dans un but spï¿œifique. Reportez-vous ï¿œla Licence Publique Gￜￜale GNU  */
14/* pour plus de dï¿œails.                                                                  */
15/*                                                                                        */
16/* Vous devez avoir reï¿œ une copie de la Licence Publique Gￜￜale GNU                    */
17/* en mï¿œe temps que ce programme ; si ce n'est pas le cas, ï¿œrivez ï¿œla                  */
18/* Free Software Foundation,                                                              */
19/* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, ï¿œats-Unis.                   */
20/******************************************************************************************/
21
22
23if (!defined("_ECRIRE_INC_VERSION")) return;
24
25include_spip('inc/presentation');
26include_spip('inc/affichage');
27include_spip ('base/spip-listes');
28include_spip('inc/plugin');
29
30function spiplistes_afficher_pile_messages(){
31       
32        if ($GLOBALS['spip_version_code']<1.9204){
33                include_spip('base/spiplistes_upgrade');
34                if (!spiplistes_install('test'))
35                        spiplistes_install('install');
36        }
37        $out = "";
38        $list = spip_query ("SELECT * FROM spip_listes WHERE message_auto='oui' ");
39        $message_pile = spip_num_rows($list);
40        if ($message_pile == 0) return $out; 
41        $out .= debut_cadre_enfonce(_DIR_PLUGIN_SPIPLISTES.'img_pack/stock_timer.gif',true);
42        $out .= "<div  class='chapo' style='border-top:1px #cccccc;width:100%;font-weight:bold;font-size:14px'>"._T('spiplistes:Messages_automatiques')."</div>";
43        $out .= "<style>
44        table.tab td {
45        text-align:center;
46        padding:3px;
47        width:33%;
48        background-color:#cccccc;
49        }
50        table.tab {
51        margin-top:5px;
52        }
53        tr.row_even {
54        background-color:#cccccc;
55        }
56        </style>";
57        $out .= "<table class='tab'>" ; 
58        $out .= "<tr style='padding:5px'>";
59        $out .= "<td style='font-weight:bold;background-color:#eeeecc'>"._T('spiplistes:envoi_patron')."</td>";
60        $out .= "<td style='font-weight:bold;background-color:#eeeecc'>"._T('spiplistes:sur_liste')."</td>";
61        $out .= "<td style='font-weight:bold;background-color:#eeeecc'>"._T('spiplistes:prochain_envoi_prevu')."</td>";
62        $out .= "</tr>";
63
64        while($row = spip_fetch_array($list)) {
65                $id_article = $row['id_liste'] ;
66                $titre = $row['titre'] ;
67                $sablier = time() - strtotime($row['maj']) ;
68                $proch = round( ( (24*3600*$row['periode']) - $sablier) / (3600*24) ) ;
69       
70                if($i == 0){
71                        $out .= "<tr style='padding:5px'>" ;
72                        $i = 1 ;
73                }else {
74                        $out .= "<tr style='padding:5px' class='row_even'>" ;
75                        $i = 0 ;
76                }
77       
78        $date_dernier = strtotime($row['maj']) ;
79    $date_dernier = date(_T('spiplistes:format_date'),$date_dernier) ;
80
81                $out .= "<td><a href='".generer_url_public('patron_switch',"patron=".$row['patron']."&date=".$date_dernier)."'> ".$row['patron']."</a><br />"._T('spiplistes:Tous_les')." ".$row['periode']." "._T('spiplistes:jours')."</td><td><a href='?exec=listes&id_liste=$id_article'>$titre</a><br />" ;
82                $out .= "</td>" ;
83                $out .= "<td>";
84                if($proch != 0)
85                        $out .= _T('spiplistes:dans_jours')." <b>$proch</b> "._T('spiplistes:jours')."</td>";
86                else 
87                        $out .= "<b>"._T('date_aujourdhui')."</b></td>";
88                $out .= "</tr>" ;
89        }
90        $out .= "</table>" ;
91        $out .= fin_cadre_enfonce(true);
92        return $out;
93}
94
95function exec_spip_listes() {
96       
97        include_spip ('inc/acces');
98        include_spip ('inc/filtres');
99        include_spip ('inc/config');
100        include_spip ('inc/barre');
101       
102        include_spip ('inc/mots');
103        include_spip ('inc/documents');
104       
105       
106        global $connect_statut;
107        global $connect_toutes_rubriques;
108        global $connect_id_auteur;
109        global $supp_dest;
110       
111        $nomsite=lire_meta("nom_site"); 
112        $urlsite=lire_meta("adresse_site"); 
113       
114        // Admin SPIP-Listes
115        echo debut_page(_T('spiplistes:spip_listes'), "redacteurs", "spiplistes");
116       
117        if ($connect_statut != "0minirezo" ) {
118                echo "<p><b>"._T('spiplistes:acces_a_la_page')."</b></p>";
119                echo fin_page();
120                exit;
121        }
122       
123        if (($connect_statut == "0minirezo") OR ($connect_id_auteur == $id_auteur)) {
124                $statut_auteur=$statut;
125                spip_listes_onglets("messagerie", _T('spiplistes:spip_listes'));
126        }
127       
128        debut_gauche();
129        spip_listes_raccourcis();
130        creer_colonne_droite();
131
132        debut_droite("messagerie");
133       
134        // MODE HISTORIQUE: Historique des envois --------------------------------------
135       
136        if ($detruire_message = _request('detruire_message')) {
137                spip_query("DELETE FROM spip_courriers WHERE id_courrier="._q($detruire_message));
138                spip_query("DELETE FROM spip_auteurs_messages WHERE id_message="._q($detruire_message));
139                spip_query("DELETE FROM spip_forum WHERE id_message="._q($detruire_message));
140        }
141       
142        /// afficher un tableau de messages
143       
144        ///
145       
146        $messages_vus = '';
147       
148        echo spiplistes_afficher_en_liste(_T('spiplistes:aff_encours'), _DIR_PLUGIN_SPIPLISTES.'img_pack/24_send-receive.gif', 'messages', 'encour', '', 'position') ;
149        echo spiplistes_afficher_en_liste(_T('spiplistes:aff_redac'), _DIR_PLUGIN_SPIPLISTES.'img_pack/stock_mail.gif', 'messages', 'redac', '', 'position') ;
150       
151       
152        // afficher les messages auto
153        echo spiplistes_afficher_pile_messages();
154       
155        echo "<br /><br />";
156
157        echo spiplistes_afficher_en_liste(_T('spiplistes:messages_auto_envoye'),_DIR_PLUGIN_SPIPLISTES.'img_pack/stock_mail.gif', 'messages', 'auto', '', 'position') ;
158        echo spiplistes_afficher_en_liste(_T('spiplistes:aff_envoye'), _DIR_PLUGIN_SPIPLISTES.'img_pack/stock_mail.gif', 'messages', 'publie', '', 'position') ;
159       
160       
161        // MODE HISTORIQUE FIN ---------------------------------------------------------
162       
163        echo "<p style='font-family: Arial, Verdana,sans-serif;font-size:10px;font-weight:bold'>".$GLOBALS['spiplistes_version']."</p>" ;
164        echo fin_gauche(), fin_page();
165}
166
167/******************************************************************************************/
168/* SPIP-listes est un systï¿œe de gestion de listes d'abonnï¿œ et d'envoi d'information     */
169/* par email  pour SPIP.                                                                  */
170/* Copyright (C) 2004 Vincent CARON  v.caron<at>laposte.net , http://bloog.net            */
171/*                                                                                        */
172/* Ce programme est libre, vous pouvez le redistribuer et/ou le modifier selon les termes */
173/* de la Licence Publique Gￜￜale GNU publiï¿œ par la Free Software Foundation            */
174/* (version 2).                                                                           */
175/*                                                                                        */
176/* Ce programme est distribuï¿œcar potentiellement utile, mais SANS AUCUNE GARANTIE,       */
177/* ni explicite ni implicite, y compris les garanties de commercialisation ou             */
178/* d'adaptation dans un but spï¿œifique. Reportez-vous ï¿œla Licence Publique Gￜￜale GNU  */
179/* pour plus de dï¿œails.                                                                  */
180/*                                                                                        */
181/* Vous devez avoir reï¿œ une copie de la Licence Publique Gￜￜale GNU                    */
182/* en mï¿œe temps que ce programme ; si ce n'est pas le cas, ï¿œrivez ï¿œla                  */
183/* Free Software Foundation,                                                              */
184/* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, ï¿œats-Unis.                   */
185/******************************************************************************************/
186?>
Note: See TracBrowser for help on using the repository browser.