<?php
/*
variables
email_es
email_en
email_fr
email_po
enviar
*/
$conn=pg_pconnect("dbname=emec2 user=postgres"); 


if ($enviar) {

$email_es=trim($email_es);
$email_en=trim($email_en);
$email_fr=trim($email_fr);
$email_po=trim($email_po);

$long_es=strlen($email_es);
$long_en=strlen($email_en);
$long_fr=strlen($email_fr);
$long_po=strlen($email_po);

if ($long_es !=0) {
$la_es=0;
$queryreg=pg_exec($conn, "select id_miembro, e_mail_miembro, e_mail_otros from communidad");
for ($g=0; $g<pg_numrows($queryreg); $g++) {
$getg=pg_fetch_row($queryreg, $g);
if ($getg[1]==$email_es) {
$lenumero=$getg[0];
$la_es=1;
}
else {
$xd=strstr($getg[2], $email_es);
if ($xd) {
$lenumero=$getg[0];
$la_es=1;
}
}
}
if ($la_es) {

$querysus=pg_exec($conn, "select id_suscripcion, codigo_idioma, fecha_suscripcion, fecha_unsuscripcion from suscripcion where codigo_idioma='es'and id_miembro='$lenumero' and fecha_unsuscripcion isnull");
$xrce=pg_numrows($querysus);
if ($xrce !=0) {
for($r=0; $r<$xrce; $r++) {
$getr=pg_fetch_row($querysus, $r);
$unsus=pg_exec($conn, "update suscripcion set fecha_unsuscripcion='today' where id_suscripcion='$getr[0]'");
}
}
else {
$mvs_es=1;
}
}
//$desins=mail("listserv@funredes.org", "", "UNSUSBCRIBE mistica-es", "From: $email_es");
$desins=mail("listserv@mumu", "UNSUSBCRIBE test", "approved:test", "From: $email_es");
if ($mvs_es==1) {
$filename="/home/mike/www/htdocs/mistica/bdd/cv/mistica-es";
$fd = fopen( $filename, "r" );
$cont = fread( $fd, filesize( $filename ) );
$sihay=strstr($cont, $email_es);
if (!$sihay) {
echo "Usted no esta suscrito con esta dirrección a la lista Mistica Español<Br>";
$mvs_es=2;
}
}
}
//idem gb, fr, po
if ($long_en !=0) {
$la_en=0;
$queryregn=pg_exec($conn, "select id_miembro, e_mail_miembro, e_mail_otros from communidad");
for ($gn=0; $gn<pg_numrows($queryregn); $gn++) {
$getgn=pg_fetch_row($queryregn, $gn);
if ($getgn[1]==$email_en) {
$lenumeron=$getgn[0];
$la_en=1;
}
else {
$xdn=strstr($getgn[2], $email_en);
if ($xdn) {
$lenumeron=$getgn[0];
$la_en=1;
}
}
}
if ($la_en) {

$querysusn=pg_exec($conn, "select id_suscripcion, codigo_idioma, fecha_suscripcion, fecha_unsuscripcion from suscripcion where codigo_idioma='en'and id_miembro='$lenumeron' and fecha_unsuscripcion isnull");
$xrcen=pg_numrows($querysusn);
if ($xrcen !=0) {
for($rn=0; $rn<$xrcen; $rn++) {
$getrn=pg_fetch_row($querysusn, $rn);
$unsusn=pg_exec($conn, "update suscripcion set fecha_unsuscripcion='today' where id_suscripcion='$getrn[0]'");
}
}
else {
$mvs_en=1;
}
}
//$desins=mail("listserv@funredes.org", "", "UNSUBSCRIBE mistica-en", "From: $email_en");
$desins=mail("listserv@test", "UNSUBSCRIBE test", "approved:test", "From: $email_en");
if ($mvs_en==1) {
$filename="/home/mike/www/htdocs/mistica/bdd/cv/mistica-en";
$fd = fopen( $filename, "r" );
$cont = fread( $fd, filesize( $filename ) );
$sihay=strstr($cont, $email_en);
if (!$sihay) {
echo "Usted no esta suscrito con esta dirrección a la lista Mistica Inglès<Br>";
$mvs_en=2;
}
}
}

if ($long_fr !=0) {
$la_fr=0;
$queryregf=pg_exec($conn, "select id_miembro, e_mail_miembro, e_mail_otros from communidad");
for ($gf=0; $gf<pg_numrows($queryregf); $gf++) {
$getgf=pg_fetch_row($queryregf, $gf);
if ($getgf[1]==$email_fr) {
$lenumerof=$getgf[0];
$la_fr=1;
}
else {
$xdf=strstr($getgf[2], $email_fr);
if ($xdf) {
$lenumerof=$getgf[0];
$la_fr=1;
}
}
}
if ($la_fr) {

$querysusf=pg_exec($conn, "select id_suscripcion, codigo_idioma, fecha_suscripcion, fecha_unsuscripcion from suscripcion where codigo_idioma='fr'and id_miembro='$lenumerof' and fecha_unsuscripcion isnull");
$xrcef=pg_numrows($querysusf);
if ($xrcef !=0) {
for($rf=0; $rf<$xrcef; $rf++) {
$getrf=pg_fetch_row($querysusf, $rf);
$unsusf=pg_exec($conn, "update suscripcion set fecha_unsuscripcion='today' where id_suscripcion='$getrf[0]'");
}
}
else {
$mvs_fr=1;
}
}
//$desins=mail("listserv@funredes.org", "", "UNSUBSCRIBE mistica-fr", "From: $email_fr");
$desins=mail("listserv@funredes.org", "", "UNSUBSCRIBE test", "From: $email_fr");
if ($mvs_fr==1) {
$filename="/home/mike/www/htdocs/mistica/bdd/cv/mistica-fr";
$fd = fopen( $filename, "r" );
$cont = fread( $fd, filesize( $filename ) );
$sihay=strstr($cont, $email_fr);
if (!$sihay) {
echo "Usted no esta suscrito con esta dirrección a la lista Mistica Francès<Br>";
$mvs_fr=2;
}
}
}

if ($long_po !=0) {
$la_po=0;
$queryregp=pg_exec($conn, "select id_miembro, e_mail_miembro, e_mail_otros from communidad");
for ($gp=0; $gp<pg_numrows($queryregp); $gp++) {
$getgp=pg_fetch_row($queryregp, $gp);
if ($getgp[1]==$email_po) {
$lenumerop=$getgp[0];
$la_po=1;
}
else {
$xdp=strstr($getgp[2], $email_po);
if ($xdp) {
$lenumerop=$getgp[0];
$la_po=1;
}
}
}
if ($la_po) {

$querysusp=pg_exec($conn, "select id_suscripcion, codigo_idioma, fecha_suscripcion, fecha_unsuscripcion from suscripcion where codigo_idioma='po'and id_miembro='$lenumero' and fecha_unsuscripcion isnull");
$xrcep=pg_numrows($querysusp);
if ($xrcep !=0) {
for($rp=0; $rp<$xrcep; $rp++) {
$getrp=pg_fetch_row($querysusp, $rp);
$unsusp=pg_exec($conn, "update suscripcion set fecha_unsuscripcion='today' where id_suscripcion='$getrp[0]'");
}
}
else {
$mvs_po=1;
}
}
//$desins=mail("listserv@funredes.org", "", "UNSUBSCRIBE mistica-po", "From: $email_po");
$desins=mail("listserv@funredes.org", "", "UNSUBSCRIBE test", "From: $email_po");
if ($mvs_po==1) {
$filename="/home/mike/www/htdocs/mistica/bdd/cv/mistica-po";
$fd = fopen( $filename, "r" );
$cont = fread( $fd, filesize( $filename ) );
$sihay=strstr($cont, $email_po);
if (!$sihay) {
echo "Usted no esta suscrito con esta dirrección a la lista Mistica Portuguès<Br>";
$mvs_po=2;
}
}
}

if (($mvs_es !=2)&&($mvs_en !=2)&&($mvs_fr!=2)&&($mvs_po!=2)) {
include "logunsus.php3";
} 


}
//

//retrouver le membre
//si pas le membre
//si le membre
