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 | |
---|
23 | if (!defined("_ECRIRE_INC_VERSION")) return; |
---|
24 | |
---|
25 | include_spip('inc/presentation'); |
---|
26 | include_spip('inc/barre'); |
---|
27 | include_spip('inc/affichage'); |
---|
28 | include_spip('base/spip-listes'); |
---|
29 | include_spip('public/assembler'); |
---|
30 | |
---|
31 | function exec_courrier_edit(){ |
---|
32 | |
---|
33 | global $connect_statut; |
---|
34 | global $connect_toutes_rubriques; |
---|
35 | global $connect_id_auteur; |
---|
36 | $type = _request('type'); |
---|
37 | $id_message = _request('id_message'); |
---|
38 | |
---|
39 | $nomsite=lire_meta("nom_site"); |
---|
40 | $urlsite=lire_meta("adresse_site"); |
---|
41 | |
---|
42 | if (_request('new') == "oui") { |
---|
43 | $statut = 'redac'; |
---|
44 | $type = 'nl'; |
---|
45 | $result = spip_query("INSERT INTO spip_courriers (titre, date, statut, type, id_auteur) VALUES ("._q(_T('texte_nouveau_message')).", NOW(),"._q($statut).","._q($type).","._q($connect_id_auteur).")"); |
---|
46 | $id_message = spip_insert_id(); |
---|
47 | } |
---|
48 | |
---|
49 | // Admin SPIP-Listes |
---|
50 | echo debut_page(_T('spiplistes:spip_listes'), "redacteurs", "spiplistes"); |
---|
51 | |
---|
52 | if ($connect_statut != "0minirezo" ) { |
---|
53 | echo "<p><b>"._T('spiplistes:acces_a_la_page')."</b></p>"; |
---|
54 | echo fin_page(); |
---|
55 | exit; |
---|
56 | } |
---|
57 | |
---|
58 | if (($connect_statut == "0minirezo") OR ($connect_id_auteur == $id_auteur)) { |
---|
59 | $statut_auteur=$statut; |
---|
60 | spip_listes_onglets("messagerie", _T('spiplistes:spip_listes')); |
---|
61 | } |
---|
62 | |
---|
63 | debut_gauche(); |
---|
64 | spip_listes_raccourcis(); |
---|
65 | creer_colonne_droite(); |
---|
66 | |
---|
67 | debut_droite("messagerie"); |
---|
68 | |
---|
69 | // MODE EDIT: Redaction d'un courrier ------------------------------------------ |
---|
70 | |
---|
71 | $result = spip_query("SELECT * FROM spip_courriers WHERE id_courrier="._q($id_message)); |
---|
72 | if ($row = spip_fetch_array($result)) { |
---|
73 | $id_message = $row['id_courrier']; |
---|
74 | $date_heure = $row["date"]; |
---|
75 | $titre = entites_html($row["titre"]); |
---|
76 | $texte = entites_html($row["texte"]); |
---|
77 | $type = $row["type"]; |
---|
78 | $statut = $row["statut"]; |
---|
79 | $expediteur = $row["id_auteur"]; |
---|
80 | if (!($expediteur == $connect_id_auteur OR ($type == 'nl' AND $connect_statut == '0minirezo'))) |
---|
81 | die(); |
---|
82 | } |
---|
83 | |
---|
84 | if ($type == 'nl') $le_type = _T('spiplistes:email_collec'); |
---|
85 | |
---|
86 | echo "<p><span style='font-family:Verdana,Arial,Sans,sans-serif;color:green;font-size:120%'><b>$le_type</b></span></p>"; |
---|
87 | echo "<p style='margin-bottom:10px;font-family:Verdana,Arial,Sans,sans-serif;color:red;'>"._T('spiplistes:alerte_edit')."</p><br /><br />"; |
---|
88 | |
---|
89 | echo debut_cadre_relief(_DIR_PLUGIN_SPIPLISTES.'img_pack/stock_insert-slide.gif'); |
---|
90 | |
---|
91 | //Charger un patron ? |
---|
92 | |
---|
93 | // inclusion du script de gestion des layers de SPIP |
---|
94 | if($texte ==''){ |
---|
95 | // Titre du bloc |
---|
96 | echo bouton_block_visible(md5(_T('spiplistes:charger_patron'))); |
---|
97 | echo "<a href=\"javascript:swap_couche('$compteur_block', '$spip_lang_rtl');\">"._T('spiplistes:charger_patron')."</a>"; |
---|
98 | // Bloc invisible |
---|
99 | echo debut_block_visible(md5(_T('spiplistes:charger_patron'))); |
---|
100 | } |
---|
101 | else { |
---|
102 | // Titre du bloc |
---|
103 | echo bouton_block_invisible(md5(_T('spiplistes:charger_patron'))); |
---|
104 | echo "<a href=\"javascript:swap_couche('$compteur_block', '$spip_lang_rtl');\">"._T('spiplistes:charger_patron')."</a>"; |
---|
105 | // Bloc invisible |
---|
106 | echo debut_block_invisible(md5(_T('spiplistes:charger_patron'))); |
---|
107 | } |
---|
108 | |
---|
109 | echo "<form action='".generer_url_ecrire("import_patron","id_message=$id_message")."' METHOD='post'>"; |
---|
110 | $liste_patrons = find_all_in_path("patrons/","[.]html$"); |
---|
111 | foreach($liste_patrons as $key => $val) { |
---|
112 | if(ereg("_texte",$val)) unset ($liste_patrons[$key]) ; |
---|
113 | } |
---|
114 | |
---|
115 | echo "<select style='float:left;width:150px' name='patron' size='".(count($liste_patrons)+2)."'>"; |
---|
116 | $i=0; |
---|
117 | foreach($liste_patrons as $titre_option) { |
---|
118 | $titre_option = basename($titre_option,".html"); |
---|
119 | $selected = ""; |
---|
120 | if($i == 0) $selected = "'selected=selected'"; |
---|
121 | echo "<option $selected value='".$titre_option."'>".$titre_option."</option>\n"; |
---|
122 | $i++; |
---|
123 | } |
---|
124 | echo "</select>"; |
---|
125 | |
---|
126 | echo "<link rel='stylesheet' href='".url_absolue(find_in_path('img_pack/date_picker.css'))."' type='text/css' media='all' />"; |
---|
127 | echo '<script src="'.url_absolue(find_in_path('javascript/datepicker.js')).'" type="text/javascript"></script>'; |
---|
128 | echo '<script src="'.url_absolue(find_in_path('javascript/jquery-dom.js')).'" type="text/javascript"></script>'; |
---|
129 | |
---|
130 | echo "\n\n<script type=\"text/javascript\"><!-- \n$(document).ready(function(){ \n $.datePicker.setDateFormat('yyyy-mm-dd');\n" |
---|
131 | . unicode2charset(charset2unicode(recuperer_fond('formulaires/date_picker_init'),'html')) |
---|
132 | . " \n $('input.date-picker').datePicker({startDate:'01/01/1900'});\n }); \n //--></script> "; |
---|
133 | |
---|
134 | echo "<input type='hidden' name='inclure_patron' value=\"oui\" />"; |
---|
135 | echo "<input type='hidden' name='id_message' value=\"$id_message\" />"; |
---|
136 | echo "<input type='hidden' name='nomsite' value=\"$nomsite\" />"; |
---|
137 | |
---|
138 | $auj = date('Y-m-d'); |
---|
139 | echo "<div style='margin-left:200px;height:200px'>"; |
---|
140 | echo "<p>"._T('spiplistes:date_ref')."</p><p><input type=\"text\" class=\"date-picker\" name=\"date\" style=\"text-align:center;width:8em\" value=\"$auj\" /></p>"; |
---|
141 | echo "<br />"; |
---|
142 | echo "<p>"._T('spiplistes:alerte_modif')."</p><p><input type='submit' name='Valider' value='"._T('spiplistes:charger_le_patron')."' class='fondo' /></p>"; |
---|
143 | echo "</div>"; |
---|
144 | echo "</form>"; |
---|
145 | echo "<br style='clear:both' />"; |
---|
146 | |
---|
147 | // Fin du bloc |
---|
148 | echo fin_block(); |
---|
149 | |
---|
150 | echo fin_cadre_relief(); |
---|
151 | |
---|
152 | echo "<br />"; |
---|
153 | |
---|
154 | echo "<form id='choppe_patron-1' action='".generer_url_ecrire("gerer_courrier","id_message=$id_message")."' method='post' name='choppe_patron-1'>"; |
---|
155 | echo "<input type='hidden' name='modifier_message' value=\"oui\" />"; |
---|
156 | echo "<input type='hidden' name='id_message' value=\"$id_message\" />"; |
---|
157 | if(!intval($id_message)) |
---|
158 | echo "<input type='hidden' name='new' value=\"oui\" />"; |
---|
159 | |
---|
160 | echo _T('spiplistes:sujet_courrier'); |
---|
161 | |
---|
162 | echo "<input type='text' class='formo' name='titre' value=\"$titre\" size='40' />"; |
---|
163 | echo "<br />"; |
---|
164 | echo "<br />"; |
---|
165 | echo _T('spiplistes:texte_courrier'); |
---|
166 | echo aide ("raccourcis"); |
---|
167 | echo "<br />"; |
---|
168 | echo afficher_barre('document.formulaire.texte'); |
---|
169 | echo "<textarea id='text_area' name='texte' ".$GLOBALS['browser_caret']." class='formo' rows='20' cols='40' wrap=soft>"; |
---|
170 | echo $texte; |
---|
171 | echo "</textarea>\n"; |
---|
172 | |
---|
173 | echo "<p align='right'><input type='submit' name='Valider' value='"._T('bouton_valider')."' class='fondo' />"; |
---|
174 | echo "</form>"; |
---|
175 | |
---|
176 | // MODE EDIT FIN --------------------------------------------------------------- |
---|
177 | |
---|
178 | echo "<p style='font-family: Arial, Verdana,sans-serif;font-size:10px;font-weight:bold'>".$GLOBALS['spiplistes_version']."</p>" ; |
---|
179 | echo fin_gauche(), fin_page(); |
---|
180 | |
---|
181 | } |
---|
182 | /******************************************************************************************/ |
---|
183 | /* SPIP-listes est un systᅵe de gestion de listes d'abonnᅵ et d'envoi d'information */ |
---|
184 | /* par email pour SPIP. */ |
---|
185 | /* Copyright (C) 2004 Vincent CARON v.caron<at>laposte.net , http://bloog.net */ |
---|
186 | /* */ |
---|
187 | /* Ce programme est libre, vous pouvez le redistribuer et/ou le modifier selon les termes */ |
---|
188 | /* de la Licence Publique Gᅵᅵale GNU publiᅵ par la Free Software Foundation */ |
---|
189 | /* (version 2). */ |
---|
190 | /* */ |
---|
191 | /* Ce programme est distribuï¿œcar potentiellement utile, mais SANS AUCUNE GARANTIE, */ |
---|
192 | /* ni explicite ni implicite, y compris les garanties de commercialisation ou */ |
---|
193 | /* d'adaptation dans un but spᅵifique. Reportez-vous ᅵla Licence Publique Gᅵᅵale GNU */ |
---|
194 | /* pour plus de dï¿œails. */ |
---|
195 | /* */ |
---|
196 | /* Vous devez avoir reᅵ une copie de la Licence Publique Gᅵᅵale GNU */ |
---|
197 | /* en mï¿œe temps que ce programme ; si ce n'est pas le cas, ï¿œrivez ï¿œla */ |
---|
198 | /* Free Software Foundation, */ |
---|
199 | /* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, ï¿œats-Unis. */ |
---|
200 | /******************************************************************************************/ |
---|
201 | ?> |
---|