[90] | 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 | ?> |
---|