laposte.net , http://bloog.net */
/* */
/* Ce programme est libre, vous pouvez le redistribuer et/ou le modifier selon les termes */
/* de la Licence Publique G��ale GNU publi� par la Free Software Foundation */
/* (version 2). */
/* */
/* Ce programme est distribu�car potentiellement utile, mais SANS AUCUNE GARANTIE, */
/* ni explicite ni implicite, y compris les garanties de commercialisation ou */
/* d'adaptation dans un but sp�ifique. Reportez-vous �la Licence Publique G��ale GNU */
/* pour plus de d�ails. */
/* */
/* Vous devez avoir re� une copie de la Licence Publique G��ale GNU */
/* en m�e temps que ce programme ; si ce n'est pas le cas, �rivez �la */
/* Free Software Foundation, */
/* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, �ats-Unis. */
/******************************************************************************************/
if (!defined("_ECRIRE_INC_VERSION")) return;
include_spip('inc/presentation');
include_spip('inc/affichage');
include_spip ('base/spip-listes');
include_spip('inc/plugin');
function spiplistes_afficher_pile_messages(){
if ($GLOBALS['spip_version_code']<1.9204){
include_spip('base/spiplistes_upgrade');
if (!spiplistes_install('test'))
spiplistes_install('install');
}
$out = "";
$list = spip_query ("SELECT * FROM spip_listes WHERE message_auto='oui' ");
$message_pile = spip_num_rows($list);
if ($message_pile == 0) return $out;
$out .= debut_cadre_enfonce(_DIR_PLUGIN_SPIPLISTES.'img_pack/stock_timer.gif',true);
$out .= ""._T('spiplistes:Messages_automatiques')."
";
$out .= "";
$out .= "" ;
$out .= "";
$out .= "| "._T('spiplistes:envoi_patron')." | ";
$out .= ""._T('spiplistes:sur_liste')." | ";
$out .= ""._T('spiplistes:prochain_envoi_prevu')." | ";
$out .= "
";
while($row = spip_fetch_array($list)) {
$id_article = $row['id_liste'] ;
$titre = $row['titre'] ;
$sablier = time() - strtotime($row['maj']) ;
$proch = round( ( (24*3600*$row['periode']) - $sablier) / (3600*24) ) ;
if($i == 0){
$out .= "" ;
$i = 1 ;
}else {
$out .= "
" ;
$i = 0 ;
}
$date_dernier = strtotime($row['maj']) ;
$date_dernier = date(_T('spiplistes:format_date'),$date_dernier) ;
$out .= " ".$row['patron']."
"._T('spiplistes:Tous_les')." ".$row['periode']." "._T('spiplistes:jours')." | $titre
" ;
$out .= " | " ;
$out .= "";
if($proch != 0)
$out .= _T('spiplistes:dans_jours')." $proch "._T('spiplistes:jours')." | ";
else
$out .= ""._T('date_aujourdhui')."";
$out .= "
" ;
}
$out .= "
" ;
$out .= fin_cadre_enfonce(true);
return $out;
}
function exec_spip_listes() {
include_spip ('inc/acces');
include_spip ('inc/filtres');
include_spip ('inc/config');
include_spip ('inc/barre');
include_spip ('inc/mots');
include_spip ('inc/documents');
global $connect_statut;
global $connect_toutes_rubriques;
global $connect_id_auteur;
global $supp_dest;
$nomsite=lire_meta("nom_site");
$urlsite=lire_meta("adresse_site");
// Admin SPIP-Listes
echo debut_page(_T('spiplistes:spip_listes'), "redacteurs", "spiplistes");
if ($connect_statut != "0minirezo" ) {
echo ""._T('spiplistes:acces_a_la_page')."
";
echo fin_page();
exit;
}
if (($connect_statut == "0minirezo") OR ($connect_id_auteur == $id_auteur)) {
$statut_auteur=$statut;
spip_listes_onglets("messagerie", _T('spiplistes:spip_listes'));
}
debut_gauche();
spip_listes_raccourcis();
creer_colonne_droite();
debut_droite("messagerie");
// MODE HISTORIQUE: Historique des envois --------------------------------------
if ($detruire_message = _request('detruire_message')) {
spip_query("DELETE FROM spip_courriers WHERE id_courrier="._q($detruire_message));
spip_query("DELETE FROM spip_auteurs_messages WHERE id_message="._q($detruire_message));
spip_query("DELETE FROM spip_forum WHERE id_message="._q($detruire_message));
}
/// afficher un tableau de messages
///
$messages_vus = '';
echo spiplistes_afficher_en_liste(_T('spiplistes:aff_encours'), _DIR_PLUGIN_SPIPLISTES.'img_pack/24_send-receive.gif', 'messages', 'encour', '', 'position') ;
echo spiplistes_afficher_en_liste(_T('spiplistes:aff_redac'), _DIR_PLUGIN_SPIPLISTES.'img_pack/stock_mail.gif', 'messages', 'redac', '', 'position') ;
// afficher les messages auto
echo spiplistes_afficher_pile_messages();
echo "
";
echo spiplistes_afficher_en_liste(_T('spiplistes:messages_auto_envoye'),_DIR_PLUGIN_SPIPLISTES.'img_pack/stock_mail.gif', 'messages', 'auto', '', 'position') ;
echo spiplistes_afficher_en_liste(_T('spiplistes:aff_envoye'), _DIR_PLUGIN_SPIPLISTES.'img_pack/stock_mail.gif', 'messages', 'publie', '', 'position') ;
// MODE HISTORIQUE FIN ---------------------------------------------------------
echo "".$GLOBALS['spiplistes_version']."
" ;
echo fin_gauche(), fin_page();
}
/******************************************************************************************/
/* SPIP-listes est un syst�e de gestion de listes d'abonn� et d'envoi d'information */
/* par email pour SPIP. */
/* Copyright (C) 2004 Vincent CARON v.caronlaposte.net , http://bloog.net */
/* */
/* Ce programme est libre, vous pouvez le redistribuer et/ou le modifier selon les termes */
/* de la Licence Publique G��ale GNU publi� par la Free Software Foundation */
/* (version 2). */
/* */
/* Ce programme est distribu�car potentiellement utile, mais SANS AUCUNE GARANTIE, */
/* ni explicite ni implicite, y compris les garanties de commercialisation ou */
/* d'adaptation dans un but sp�ifique. Reportez-vous �la Licence Publique G��ale GNU */
/* pour plus de d�ails. */
/* */
/* Vous devez avoir re� une copie de la Licence Publique G��ale GNU */
/* en m�e temps que ce programme ; si ce n'est pas le cas, �rivez �la */
/* Free Software Foundation, */
/* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, �ats-Unis. */
/******************************************************************************************/
?>