LOS MENSAJES NUEVOS:
";
//OK date=$datemessage OK $codigo_idioma_mensaje_original OK $titulo sauf que pas enleve le theme
$conn=pg_pconnect("dbname=emecmistica user=postgres");
$server = "{localhost:143}";
$mailbox = "INBOX";
/* Establece una conexion con el mailbox */
$mbox = imap_open("$server$mailbox","emecdb","987emecdb1");
if (!$mbox) {
echo "Fallo la conexion\n";
}
else {
//nb de messages
$w=imap_headers($mbox);
$nbmess=count($w);
echo "NUMERO DE MENSAJES: $nbmess
";
if ($nbmess !=0) {
//determination de l'id
$maxid = pg_exec($conn, "SELECT max(id_mensaje) FROM mensajes");
$maxget = pg_fetch_row($maxid,0);
$id_mensaje= $maxget[0];
$id_mensaje;
for ($r=0; $r<$nbmess; $r++) {
//for ($r=0; $r<2; $r++) {
$rr=$r+1;
$id_mensaje++;
echo "
$id_mensaje
";
$hm=imap_header($mbox,$rr);
//la date
$datemessage=$hm->udate;
//l' auteur
$aute=$hm->from[0];
$from=$aute->mailbox . "@". $aute->host;
echo "FROM: $from
";
$auteur=0;
$qverauteur=pg_exec($conn, "select id_miembro from communidad where e_mail_miembro='$from' and id_miembro IN (select distinct communidad.id_miembro from communidad, suscripcion where suscripcion.id_miembro=communidad.id_miembro and fecha_unsuscripcion ISNULL)");
if (pg_numrows($qverauteur) ==0) {
$quverauteur=pg_exec($conn, "select e_mail_otros, id_miembro from communidad");
for ($e=0; $e";
//a qui
$nbrecip=count($hm->to);
for ($xs=0; $xs<$nbrecip; $xs++) {
$auteuratester=$hm->to[$xs];
$mailto=$auteuratester->mailbox ;
if (($mailto=="mistica-es")||($mailto=="mistica-en") || ($mailto=="mistica-fr") || ($mailto=="mistica-po") || ($mailto=="mistica")) {
$to=$auteuratester->mailbox . "@". $auteuratester->host;
echo "TO: $to
";
}
}
if($to=="mistica-es@funredes.org"){
$codigo_idioma_mensaje_original="es";
}
elseif($to=="mistica-en@funredes.org"){
$codigo_idioma_mensaje_original="en";
}
elseif($to=="mistica-fr@funredes.org"){
$codigo_idioma_mensaje_original="fr";
}
elseif ($to=="mistica-po@funredes.org"){
$codigo_idioma_mensaje_original="po";
}
elseif($to=="mistica@funredes.org"){
$codigo_idioma_mensaje_original="es";
}
echo "
LANGUE: $codigo_idioma_mensaje_original
";
//le titre
$suj=$hm->subject;
echo "SUJET: $suj
";
//le titre
//echo "le sujet: $sujet";
$testre=substr("$suj", 0,3);
if ($testre=="Re:") {
$testrebis=strstr($suj, ":");
$testrebis=substr("$testrebis", 1);
$testreter=strstr($testrebis, ":");
$titulo=$testreter;
$titulo=substr("$titulo", 1);
}
else {
//$titulo=strstr($suj, ":");
$titulo=$suj;
}
$titulo=addslashes($titulo);
echo "
TITULO: $titulo";
$fbody=imap_fetchbody($mbox, $rr, 1);
$longbody=strlen($fbody);
echo "
BODY: $fbody
";
//insertion des donnees
if ($codigo_idioma_mensaje_original=="es") {
$query=pg_exec($conn, "insert into mensajes (id_mensaje, codigo_idioma_mensaje_original, id_creador, titulo_es, web, special, fecha, mail) values ('$id_mensaje', '$codigo_idioma_mensaje_original', '$auteur', '$titulo','0', '0', '$datemessage', '0')");
}
elseif ($codigo_idioma_mensaje_original=="en") {
$query=pg_exec($conn, "insert into mensajes (id_mensaje, codigo_idioma_mensaje_original, id_creador, titulo_en, web, special, fecha, mail) values ('$id_mensaje', '$codigo_idioma_mensaje_original', '$auteur', '$titulo','0', '0', '$datemessage', '0')");
}
elseif ($codigo_idioma_mensaje_original=="fr") {
$query=pg_exec($conn, "insert into mensajes (id_mensaje, codigo_idioma_mensaje_original, id_creador, titulo_fr, web, special, fecha, mail) values ('$id_mensaje', '$codigo_idioma_mensaje_original', '$auteur', '$titulo','0', '0', '$datemessage', '0')");
}
elseif ($codigo_idioma_mensaje_original=="po") {
$query=pg_exec($conn, "insert into mensajes (id_mensaje, codigo_idioma_mensaje_original, id_creador, titulo_po, web, special, fecha, mail) values ('$id_mensaje', '$codigo_idioma_mensaje_original', '$auteur', '$titulo','0', '0', '$datemessage', '0')");
}
if ($auteur==0) {
$querynotas=pg_exec($conn, "update mensajes set notas='El auteur es UNKNOWN. Su dirreccion electronica es: $from. Si el pertenece a la CV, pueden cambiar el autor.\n' where id_mensaje='$id_mensaje'");
}
$queryno=pg_exec($conn, "select notas from mensajes where id_mensaje='$id_mensaje'");
$getno=pg_fetch_row($queryno, 0);
$notas="$getno[0]";
$querynotas2=pg_exec($conn, "update mensajes set notas='$notas EL TITULO ORIGINAL ES $suj \n ' where id_mensaje='$id_mensaje'");
if ($longbody !=0) {
$maxid = pg_exec($conn, "SELECT max(id_chunk_mensaje_original) FROM mensaje_original");
$maxget = pg_fetch_row($maxid, 0);
$chunkid= $maxget[0];
$contenido=$fbody;
include ("transfo.php3");
$n=0;
do {
$chunkid++;
$insertchunk=pg_exec($conn, "insert into mensaje_original
(id_chunk_mensaje_original, codigo_idioma, id_mensaje, contenido) values
('$chunkid', '$codigo_idioma_mensaje_original', '$id_mensaje', '$chunk[$n]')");
$n++;
} while ($n < ($chunkcount - 1));
}
$move=imap_mail_move($mbox, $rr, "~/mail/HECHO");
}
}
imap_expunge($mbox);
imap_close;
}
?>