

<?php
/*
variables

nonombres
nom
noapellidos
ape
noapodos
apo
noinstitucion
inst
nopais
pais
nocampo
cpo
noedad
edad
nosexo
sex
notel
tel
nofax
fax
nomail
email
nourlpersonal
dirurlpers
nourlprofesional
dirurlinst
es
en
fr
po
envia
*/

if ($envia) {
$c=0;
$apellido_miembro=trim($ape);
$longapell=strlen($apellido_miembro);
if ($longapell==0) {
echo "Tiene que escribir su apellido";
include ("incorp.php3");
}
elseif ((!$es)&&(!$en)&&(!$fr)&&(!$po)) {
echo "Tiene que elegir por lo menos un idioma de suscripcion";
include ("incorp.php3");
}
else {
$apellido_miembro=addslashes($apellido_miembro);
$apellido_miembro=strtolower($apellido_miembro);
$conn=pg_pconnect("dbname=emec2 user=postgres");
$comentarios="";
$c =1;
}
if (($envia) &&($c==1)) {


//taille des variables
$nombre_miembro=trim($nom);
$longnom=strlen($nombre_miembro);
$edad=trim($edad);
$longed=strlen($edad);
$sexo=trim($sex);
$longsex=strlen($sexo);
$url_pagina_institucion=trim($dirurlinst);
$longurl=strlen($url_pagina_institucion);
$url_pagina_personal_otra= trim($dirurlpers);
$longotra=strlen($url_pagina_personal_otra);
$institucion=trim($inst);
$longins=strlen($institucion);
$e_mail=trim($email);
$longe=strlen($e_mail);
$campo=trim($cpo);
$longcampo=strlen($campo);
$pais=trim($pais);
$longpais=strlen($pais);
$tel=trim($tel);
$longtel=strlen($tel);
$fax=trim($fax);
$longfax=strlen($fax);

$cvcv=0;

//definition de l'id
$maxid = pg_exec($conn, "SELECT max(id_miembro) FROM communidad"); 
$maxget = pg_fetch_row($maxid, 0); 
$memid= $maxget[0]; 
$memid++;
//saisie apellido + id 
$q1 = pg_exec($conn, "insert into communidad (id_miembro, apellido_miembro) values ('$memid', '$apellido_miembro')");
if (!$noapellidos) {
$cvcv=1;
$q1 = pg_exec($conn, "insert into cv (id_miembro, apellido_miembro) values ('$memid', '$apellido_miembro')");
}

//sexo
if ($longsex !=0) {
if (($sexo=="F")||($sexo=="f")|| ($sexo=="feminino")||($sexo=="féminin")||($sexo=="feminin")||($sexo=="female")||($sexo=="femenino")||($sexo=="Feminino")||($sexo=="Féminin")||($sexo=="Feminin")||($sexo=="Female")||($sexo=="Femenino")) {
$q1bis=pg_exec($conn, "update communidad set sexo='F' where id_miembro='$memid'");
if ((!$nosexo)&&($cvcv==1)) {
$q2bis=pg_exec($conn, "update cv set sexo='F' where id_miembro='$memid'");
}
}
elseif (($sexo=="M")||($sexo=="m")|| ($sexo=="masculino")||($sexo=="masculin")||($sexo=="male")||($sexo=="Masculino")||($sexo=="Masculin")||($sexo=="Male")) {
$q1bis=pg_exec($conn, "update communidad set sexo='M' where id_miembro='$memid'");
if ((!$nosexo)&&($cvcv==1)) {
$q2bis=pg_exec($conn, "update cv set sexo='M' where id_miembro='$memid'");
}
}
else {
$comentarios="$comentarios\nSEXO : $sexo";
}
}

//nombre
if($longnom !=0) {
$nombre_miembro=addslashes($nombre_miembro);
$nombre_miembro=strtolower($nombre_miembro);
$q2 = pg_exec($conn, "update communidad set nombre_miembro ='$nombre_miembro' where id_miembro = '$memid'");
if ((!$nonombres)&&($cvcv==1)) { 
$q2bi = pg_exec($conn, "update cv set nombre_miembro ='$nombre_miembro' where id_miembro = '$memid'");
}
}

// saisie edad
if ($longed !=0) {
$edad=(int)$edad;
$q3 = pg_exec($conn, "update communidad set edad ='$edad' where id_miembro = '$memid'");
if ((!$noedad) &&($cvcv==1)) {
$q3bis = pg_exec($conn, "update cv set edad ='$edad' where id_miembro = '$memid'");
}
}

//saisie e-mail
if ($longe !=0) {
$maily=explode(";", $e_mail);
if (count($maily>1)) {
for ($gr=0; $gr<count($maily);$gr++)  {
if ($gr==0) {
$q4 = pg_exec($conn, "update communidad set e_mail_miembro ='$maily[$gr]' where id_miembro = '$memid'");
if ((!$nomail)&&($cvcv==1)) {
$q4bis = pg_exec($conn, "update cv set e_mail_miembro ='$maily[$gr]' where id_miembro = '$memid'");
}
}
else {
$e_mail_otros="$e_mail_otros; $maily[$gr]";
$q4o = pg_exec($conn, "update communidad set e_mail_otros ='$e_mail_otros' where id_miembro = '$memid'");
}
}
}
else {
$q4fr = pg_exec($conn, "update communidad set e_mail_miembro ='$e_mail' where id_miembro = '$memid'");
if ((!$nomail)&&($cvcv==1)) {
$q4bis = pg_exec($conn, "update cv set e_mail_miembro ='$e_mail' where id_miembro = '$memid'");
}
}
}

//saisie institucion
if ($longins !=0) {
$institucion=addslashes($institucion);
$institucion=htmlentities($institucion);
$q5 = pg_exec($conn, "update communidad set institucion ='$institucion' where id_miembro = '$memid'");
if ((!$noinstitucion)&&($cvcv==1)) {
$q5bis = pg_exec($conn, "update cv set institucion ='$institucion' where id_miembro = '$memid'");
}
}

//saisie url pagina institucion
if ($longurl !=0) {
$url_pagina_institucion=addslashes($url_pagina_institucion);
$url_pagina_institucion=htmlentities($url_pagina_institucion);
$q6 = pg_exec($conn, "update communidad set url_pagina_institucion ='$url_pagina_institucion' where id_miembro = '$memid'");
if ((!$nourlprofesional)&&($cvcv==1)) {
$q6bis = pg_exec($conn, "update cv set url_pagina_institucion ='$url_pagina_institucion' where id_miembro = '$memid'");
}
}

//saisie url pagina personal exterieure a Funredes
if ($longotra !=0) {
$url_pagina_personal_otra=addslashes($url_pagina_personal_otra);
$url_pagina_personal_otra=htmlentities($url_pagina_personal_otra);
$q61 = pg_exec($conn, "update communidad set url_pagina_otra ='$url_pagina_personal_otra' where id_miembro = '$memid'");
if ((!$nourlpersonal) &&($cvcv==1)) {
$q61bis = pg_exec($conn, "update cv set url_pagina_otra ='$url_pagina_personal_otra' where id_miembro = '$memid'");
}
}

//saisie campo
if ($longcampo !=0) {
$campo=addslashes($campo);
$campo=htmlentities($campo);
$comentarios="$comentarios\nCAMPO DE ACTIVIDAD : $campo";
if ((!$nocampo)&&($cvcv==1)) {
$q58bis = pg_exec($conn, "update cv set campo ='$campo' where id_miembro = '$memid'");
}
}

//saisie pais

if ($longpais !=0) {
$pais=addslashes($pais);
$pais=htmlentities($pais);
$comentarios="$comentarios\nPAIS : $pais";
if ((!$nopais)&&($cvcv==1)) {
$q59bis = pg_exec($conn, "update cv set pais ='$pais' where id_miembro = '$memid'");
}
}

//telephone
if ($longtel !=0) {
$tel=addslashes($tel);
$tel=htmlentities($tel);
$q60 = pg_exec($conn, "update communidad set tel ='$tel' where id_miembro = '$memid'");
if ((!$notel)&&($cvcv==1)) {
$q60bis = pg_exec($conn, "update cv set tel ='$tel' where id_miembro = '$memid'");
}
}


//fax
if ($longfax !=0) {
$fax=addslashes($fax);
$fax=htmlentities($fax);
$q68 = pg_exec($conn, "update communidad set fax ='$fax' where id_miembro = '$memid'");
if ((!$nofax)&&($cvcv==1)) {
$q68bis = pg_exec($conn, "update cv set fax ='$fax' where id_miembro = '$memid'");
}
}


//page personnelle de FUNREDES
if ($cvcv==1) {
//constitution de la pp a faire
$page_perso="http://funredes.org/mistica/bdd/cv/pagina.php3/$memid";
$q69= pg_exec($conn, "update communidad set url_pagina_personal ='$page_perso' where id_miembro = '$memid'");
}

//id de suscripcion
$mxid = pg_exec($conn, "select max(id_suscripcion) from suscripcion"); 
$mxget = pg_fetch_row($mxid, 0); 
$susid= $mxget[0];
$susid++;
if ($es) {

$susid++;
$queridiom1=pg_exec($conn, "insert into suscripcion (id_suscripcion, id_miembro, codigo_idioma, fecha_suscripcion) values ('$susid', '$memid', 'es', 'today')");
//$okes=mail("listserv@funredes.org", "", "SUBSCRIBE mistica-es", "From: $e_mail");
}
if ($en) {

$susid++;
$queridiom2=pg_exec($conn, "insert into suscripcion (id_suscripcion, id_miembro, codigo_idioma, fecha_suscripcion) values ('$susid', '$memid', 'en', 'today')");
//$oken=mail("listserv@funredes.org", "", "SUBSCRIBE mistica-en", "From: $e_mail");
}
if ($fr) {

$susid++;
$queridiom3=pg_exec($conn, "insert into suscripcion (id_suscripcion, id_miembro, codigo_idioma, fecha_suscripcion) values ('$susid', '$memid', 'fr', 'today')");
//$okfr=mail("listserv@funredes.org", "", "SUBSCRIBE mistica-fr", "From: $e_mail");
}
if ($po) {

$susid++;
$queridiom4=pg_exec($conn, "insert into suscripcion (id_suscripcion, id_miembro, codigo_idioma, fecha_suscripcion) values ('$susid', '$memid', 'po', 'today')");
//$okpo=mail("listserv@funredes.org", "", "SUBSCRIBE mistica-po", "From: $e_mail");
}
}
//integration des commentaires
$comentarios=trim($comentarios);
$longcomment=strlen($comentarios);
if ($longcomment !=0) {
$comentarios=addslashes($comentarios);
$quercomment=pg_exec($conn, "update communidad set comentarios='$comentarios' where id_miembro='$memid'");
}
//envoi  mail a C1
$hui=time();
$hui=date("d/m/Y", $hui);
$melc1="SUSCRIPCION DEL MIEMBRO NUMERO $memid\nFECHA: $hui\n APELLIDOS: $ape";
if ($noapellidos) {
$melc1="$melc1 (secreto)";
}
$melc1="melc1\n NOMBRES: $nom";
if ($nonombres) {
$melc1="$melc1 (secreto)";
}
$melc1="melc1\n APODO: $apo";
if ($noapodos) {
$melc1="$melc1 (secreto)";
}
$melc1="melc1\n INSTITUCION: $inst";
if ($noinstitucion) {
$melc1="$melc1 (secreto)";
}
$melc1="melc1\n PAIS: $pais";
if ($nopais) {
$melc1="$melc1 (secreto)";
}
$melc1="melc1\n CAMPO DE ACTIVIDAD: $cpo";
if ($nocampo) {
$melc1="$melc1 (secreto)";
}
$melc1="melc1\n ANO DE NACIMIENTO: $edad";
if ($noedad) {
$melc1="$melc1 (secreto)";
}
$melc1="melc1\n SEXO: $sex";
if ($nosexo) {
$melc1="$melc1 (secreto)";
}
$melc1="melc1\n TELEFONO: $tel";
if ($notel) {
$melc1="$melc1 (secreto)";
}
$melc1="melc1\n FAX: $fax";
if ($nofax) {
$melc1="$melc1 (secreto)";
}
$melc1="melc1\n E-MAIL: $email";
if ($nomail) {
$melc1="$melc1 (secreto)";
}
$melc1="melc1\n URL DE LA PAGINA PERSONAL: $dirurlpers";
if ($nourlpersonal) {
$melc1="$melc1 (secreto)";
}
$melc1="melc1\n URL DE LA PAGINA DE LA INSTITUCION: $dirurlinst";
if ($nourlprofesional) {
$melc1="$melc1 (secreto)";
}
if ($cvcv==1) {
$melc1="melc1\n URL DE LA PAGINA PERSONAL EN MISTICA: $page_perso";
}
if ($es) {
$melc1="melc1\n IDIOMA DE SUSCRIPCION español";
}
if ($en) {
$melc1="melc1\n IDIOMA DE SUSCRIPCION inglés";
}
if ($fr) {
$melc1="melc1\n IDIOMA DE SUSCRIPCION francés";
}
if ($po) {
$melc1="melc1\n IDIOMA DE SUSCRIPCION portugués";
}

$melc1="melc1\n\n Usted puede consultar la ficha del miembro: http://funredes.org/mistica/bdadmin/consmiem.php3"; 

$envoimel=mail("c1@funredes.org", "suscripcion miembro numero $memid", $melc1);

include "personal.php3";
}

/* 
$id_miembro=$memid;
include "consmiem.php3";
*/
?>