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/acces');
include_spip('inc/affichage');
function exec_import_export(){
global $connect_statut;
global $connect_toutes_rubriques;
global $connect_id_auteur;
global $type;
$list_abo= _request('list_abo');
$etape= _request('etape');
$new= _request('new');
$nomsite=lire_meta("nom_site");
$urlsite=lire_meta("adresse_site");
// generation du fichier export ?
if (isset($_POST['export_txt']) && isset($_POST['export_id']) && $connect_statut == "0minirezo" ) {
$export_id =$_POST['export_id'];
if (intval($export_id)>0) {
$result = spip_query("SELECT a.`email` FROM `spip_auteurs` a, `spip_auteurs_listes` l
WHERE l.id_liste = "._q($export_id)."
AND a.id_auteur=l.id_auteur
AND a.statut!='5poubelle' ");
$nb_inscrits = spip_num_rows($result);
$str_export= "# spip-listes\r\n";
$str_export .= "# "._T('spiplistes:membres_liste')."\r\n";
$str_export .= "# liste id: $export_id\r\n";
$str_export .= "# date: ".date("Y-m-d")."\r\n\r\n";
while($row = spip_fetch_array($result)) {
$str_export .= $row['email']."\r\n";
}
header("Content-type: text/plain");
header("Content-Disposition: attachment; filename=\"export_liste$export_id-".date("Y-m-d").".txt\"");
echo $str_export;
exit;
}
else{
if($export_id == "abo_sans_liste"){
$abonnes = spip_query("select a.id_auteur, count(d.id_liste) from spip_auteurs a left join spip_auteurs_listes d on a.id_auteur = d.id_auteur group by a.id_auteur having count(d.id_liste) = 0;");
$str_export= "# spip-listes\r\n";
$str_export .= "# "._T('spiplistes:membres_liste')."\r\n";
$str_export .= "# liste id: $export_id\r\n";
$str_export .= "# date: ".date("Y-m-d")."\r\n\r\n";
while($row = spip_fetch_array($abonnes)) {
$abonne = $row['id_auteur'];
$abo = spip_fetch_array(spip_query("SELECT `spip_listes_format` FROM `spip_auteurs_elargis` WHERE `id_auteur`=$abonne")) ;
$format_abo = $abo["spip_listes_format"];
if ($format_abo=="html" || $format_abo=="texte") {
$subresult = spip_query("SELECT email FROM spip_auteurs WHERE statut!='5poubelle' AND id_auteur="._q($abonne)." LIMIT 1");
while ($subrow = spip_fetch_array($subresult)) {
$str_export .= $subrow['email']."\r\n";
}
}
}
header("Content-type: text/plain");
header("Content-Disposition: attachment; filename=\"export_liste$export_id-".date("Y-m-d").".txt\"");
echo $str_export;
exit;
}
if($export_id == "desabo"){
$result = spip_query("SELECT a.`email`, f.`spip_listes_format` FROM `spip_auteurs` a, `spip_auteurs_elargis` f
WHERE a.id_auteur=f.id_auteur
AND a.statut!='5poubelle'
AND f.`spip_listes_format`='non' ");
$nb_inscrits = spip_num_rows($result);
$str_export= "# spip-listes\r\n";
$str_export .= "# "._T('spiplistes:membres_liste')."\r\n";
$str_export .= "# liste id: $export_id\r\n";
$str_export .= "# date: ".date("Y-m-d")."\r\n\r\n";
while($row = spip_fetch_array($result)) {
$str_export .= $row['email']."\r\n";
}
header("Content-type: text/plain");
header("Content-Disposition: attachment; filename=\"export_liste$export_id-".date("Y-m-d").".txt\"");
echo $str_export;
exit;
}
}
}
// generation du fichier export fin
// 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");
// import //
function test_login2($mail) {
if (strpos($mail, "@") > 0) $login_base = substr($mail, 0, strpos($mail, "@"));
else $login_base = $mail;
$login_base = strtolower($login_base);
$login_base = ereg_replace("[^a-zA-Z0-9]", "", $login_base);
if (!$login_base) $login_base = "user";
for ($i = 0; ; $i++) {
if ($i) $login = $login_base.$i;
else $login = $login_base;
$result = spip_query("SELECT id_auteur FROM spip_auteurs WHERE login="._q($login));
if (!spip_num_rows($result)) break;
}
return $login;
}
$format = _request('suppl_abo');
// import form
echo debut_cadre_relief("redacteurs-24.gif", false, "", _T('spiplistes:importer'));
switch ($etape) {
case "2" :
{
if (!$insert_file) $insert_file = $_FILES["insert_file"]["tmp_name"] ;
if ($insert_file && $insert_file != "none") {
$import_file = _DIR_TMP."import_email.txt";
$ok = @copy($insert_file,$import_file); // a terme utiliser la fonction de spip: deplacer_fichier_upload (inc/getdocument) ?
if (!$ok) $ok = @move_uploaded_file($insert_file,$import_file);
if($ok) {
// if(ereg("^php[0-9A-Za-z_.-]+$", basename($insert_file)))
if(!empty($insert_file) && $insert_file != "none" && ereg("^php[0-9A-Za-z_.-]+$", basename($insert_file)))
$liste = fread(fopen($import_file, "r"), filesize($import_file)); //pour NS et IE
$liste=ereg_replace("\n|\r|\n\r|\r\n|\n\n","\n",$liste);
$liste = explode( "\n",$liste);
$new_abonne = 0;
for($i=0;$i"._T('spiplistes:desabo')."";
}
}
}
} else {
$tmp_log .= _T('spiplistes:erreur_import').$ligne_nb.": ";
$tmp_log .= "".$liste[$i]." : ";
}//email valide
echo $tmp_log;
}//listei
}// for
unlink($import_file);
echo "
";
$list = spip_query ("SELECT * FROM spip_listes WHERE statut = 'liste' OR statut = 'inact' ");
$nb_listes = spip_num_rows($list);
if($nb_listes == 0){
echo "
";
} // fin du test nb listes
echo " ";
echo "
"._T('spiplistes:importer_fichier')."
";
echo "
";
echo "";
echo "";
echo "" ;
echo "";
echo "" ;
} // switch
/**************/
echo "";
// import form end
// import end //
// export //(added by erational.org)
// formulaire d'export
$list = spip_query ("SELECT * FROM spip_listes WHERE statut = 'liste' OR statut = 'inact' ");
$nb_listes = spip_num_rows($list);
if ($nb_listes > 0) {
echo debut_cadre_relief("redacteurs-24.gif", false, "", _T('spiplistes:exporter'));
echo "\n";
echo fin_cadre_relief();
}
echo fin_cadre_relief();
// export end //
// MODE INOUT 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 emailpour SPIP.*/
/* Copyright (C) 2004 Vincent CARONv.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. */
/******************************************************************************************/
?>