="5.2.0")
$isemail = ia_emailValidRegExp($email); // filter_var($email, FILTER_VALIDATE_EMAIL) ? true : false;
else
$isemail=false;
if($isemail) {
$usr_lib=ia_singleton("SELECT usr_lib_id,pwd,region FROM usr_lib WHERE email=".strit($email));
if(empty($usr_lib))
$usr_lib=ia_singleton("SELECT usr_lib_id,pwd,region FROM usr_lib WHERE pseudonimo=".strit($email));
} else {
$usr_lib=ia_singleton("SELECT usr_lib_id,pwd,region FROM usr_lib WHERE pseudonimo=".strit($email));
if(empty($usr_lib))
$usr_lib=ia_singleton("SELECT usr_lib_id,pwd,region FROM usr_lib WHERE email=".strit($email));
}
if(empty($usr_lib)) {
// busca en tab_usr
if($isemail) {
$usr_tab=ia_singleton("SELECT ID as tab_usr, nombre,apellido,email,email_list as enviar_emails,pseudonimo,decode(pwd,'$PWDENCODE') as pwd FROM tab_usr WHERE email=".strit($email_tab));
if(empty($usr_tab))
$usr_tab=ia_singleton("SELECT ID as tab_usr, nombre,apellido,email,email_list as enviar_emails,pseudonimo,decode(pwd,'$PWDENCODE') as pwd FROM tab_usr WHERE pseudonimo=".strit($email_tab));
} else {
$usr_tab=ia_singleton("SELECT ID as tab_usr, nombre,apellido,email,email_list as enviar_emails,pseudonimo,decode(pwd,'$PWDENCODE') as pwd FROM tab_usr WHERE pseudonimo=".strit($email_tab));
if(empty($usr_tab))
$usr_tab=ia_singleton("SELECT ID as tab_usr, nombre,apellido,email,email_list as enviar_emails,pseudonimo,decode(pwd,'$PWDENCODE') as pwd FROM tab_usr WHERE email=".strit($email_tab));
}
if(!empty($usr_tab)) {
foreach($usr_tab as $k=>$v)
$usr_tab[$k]=utf8_encode($v);
}
if(empty($usr_tab)) {
// no esta en tab_usr
if($isemail)
$ingresa_msg="e-mail no registrado";
else
$ingresa_msg="Pseudónimo no registrado";
} else {
// checa mismo email, usa ese
$usr_lib=ia_singleton("SELECT usr_lib_id,pwd,region FROM usr_lib WHERE email=".strit($usr_tab['email']));
if(empty($usr_lib)) {
if($pwd==$usr_tab['pwd']) {
// no esta en libreria dalo de alta
$usr_lib_id=ia_insertIded( ia_insert("usr_lib",$usr_tab));
$usr_lib=ia_singleton("SELECT usr_lib_id,pwd,region FROM usr_lib WHERE email=".strit($usr_tab['email']));
} else
$ingresa_msg="La contraseña no corresponde al ".($isemail ? 'email' : 'pseudónimo');
}
}
}
// valida o haz login
if(empty($usr_lib)) {
if($isemail)
$ingresa_msg="e-mail no registrado";
else
$ingresa_msg="Pseudónimo no registrado";
} else {
// checa el password
if($pwd==$usr_lib['pwd']) {
// haz el login
lib_login($usr_lib);
}
$ingresa_msg="La contraseña no corresponde al ".($isemail ? 'email' : 'pseudónimo');
}
}
} elseif(param('registrar')) {
$region=param($region,'MEX');
$pwd2=param('pwd2');
if(empty($email) && empty($pwd))
$registra_msg="e-mail y contraseña son datos requeridos";
elseif(empty($email))
$registra_msg="e-mail es requerido";
elseif(empty($pwd))
$registra_msg="Contraseña es requerido";
elseif($pwd!=$pwd2)
$registra_msg="Contraseñas deben coincidir";
elseif(empty($pseudonimo))
$registra_msg="Pseudonimo es requerido";
elseif(empty($region))
$registra_msg="Zona de envío es requerido";
else {
// email unico
$unico=ia_singleton("SELECT usr_lib_id,pwd,region FROM usr_lib WHERE email=".strit($email)." LIMIT 1");
$pslib=ia_singleton("SELECT usr_lib_id,pwd,region FROM usr_lib WHERE pseudonimo=".strit($pseudonimo)." LIMIT 1");
$pstab=ia_singleton("SELECT ID as tab_usr, nombre,apellido,email,email_list as enviar_emails,pseudonimo,decode(pwd,'$PWDENCODE') as pwd FROM tab_usr WHERE pseudonimo=".strit($pseudonimo_tab));
if(!empty($pstab)) {
foreach($pstab as $k=>$v)
$pstab[$k]=utf8_encode($v);
}
if(!empty($unico)) {
if($unico['pwd']==$pwd) {
lib_login($unico);
} else {
$registra_msg="Ya existe una cuenta con el email $email_html";
}
}
elseif(!empty($pslib)) {
if($pslib['pwd']==$pwd) {
lib_login($pslib);
} else {
$registra_msg="Ya existe una cuenta con el email $email_html";
}
}
elseif( empty($pstab) ) {
// pseudonimo unico tabusr
// alta tab_usr
$tab=array('user_data'=>'', 'status'=>'', 'tipo'=>'', 'especial'=>'', 'email'=>$email_tab,'pwd'=>"ENCODE(".strit($pwd_tab).",'$PWDENCODE')",'pseudonimo'=>$pseudonimo_tab,'Fecha_Alta'=>'NOW()','Ultimo_Cambio'=>'NOW()');
$tab_id=ia_insertIded( ia_insert('tab_usr',$tab,array('pwd')) );
if($tab_id==FALSE || $tab_id<=0)
$tab_id=0;
// alta lib
$region='MEX';
$usr_lib=array('email'=>$email,'pwd'=>$pwd,'tab_usr'=>$tab_id,'pseudonimo'=>$pseudonimo
,'alta_db'=>'NOW()','alta_por'=>'Usuario','ultimo_cambio'=>'NOW()','region'=>$region);
$usr_lib_id=ia_insertIded( ia_insert('usr_lib',$usr_lib) );
$usr_lib=ia_singleton("SELECT * FROM usr_lib WHERE email=".strit($email)." LIMIT 1");
if(empty($usr_lib))
$registra_msg="Problemas en el registro, intente mas tarde";
else
lib_login($usr_lib);
} else
$registra_msg="Ya existe una cuenta con el pseudónimo $pseudonimo_html";
}
}
?>
Registro de lectores literatos
$gMsgLogin";
echo <<< PRINTFORMA