[b0dc2e4] | 1 | <?
|
---|
| 2 | $wer="http://10.1.15.3/WebCon/pagerror.php"; // P�ina de redireccionamiento de errores
|
---|
| 3 | $wac="http://10.1.15.3/WebCon/acceso.php"; // P�ina de login de la aplicaci�
|
---|
| 4 | //========================================================================================================
|
---|
| 5 | // Variables de sessi� de configuraci� de servidor y base de datos( Modificar aqu�para cambio global)
|
---|
| 6 | $cnx="localhost;usuog;passusuog;ogBDAdmin;mysql"; // Cadena de conexi� a la base de datos
|
---|
| 7 | $ips="10.1.15.3"; // IP del servidor hidra
|
---|
| 8 | $prt="2008"; // Puerto de comunicaci� con el servidor
|
---|
| 9 | //========================================================================================================
|
---|
| 10 | $cmd=CreaComando($cnx); // Crea objeto comando
|
---|
| 11 | $resul=false;
|
---|
| 12 | $idc=0;
|
---|
| 13 | $nmc="";
|
---|
| 14 | $idi="";
|
---|
| 15 | if ($cmd){
|
---|
| 16 | $resul=toma_datos($cmd,&$idc,&$nmc,&$idi,$usu,&$tsu,$pss);
|
---|
| 17 | }
|
---|
| 18 | if(!$resul)
|
---|
| 19 | Header("Location: ".$wac."?herror=4"); // Error de conexi� con servidor B.D.
|
---|
| 20 |
|
---|
| 21 | session_start(); // Activa variables de sesi�
|
---|
| 22 | $_SESSION["idcentro"]=$idc;
|
---|
| 23 | $_SESSION["nombrecentro"]=$nmc;
|
---|
| 24 | $_SESSION["usuario"]=$usu;
|
---|
| 25 | $_SESSION["idtipousuario"]=$tsu;
|
---|
| 26 | $_SESSION["idioma"]=$idi;
|
---|
| 27 | $_SESSION["cadenaconexion"]=$cnx;
|
---|
| 28 | $_SESSION["servidorhidra"]=$ips;
|
---|
| 29 | $_SESSION["hidraport"]=$prt;
|
---|
| 30 | $_SESSION["pagerror"]=$wer;
|
---|
| 31 | $_SESSION["urlacceso"]=$wac;
|
---|
| 32 |
|
---|
| 33 | // *************************************************************************************************************************************************
|
---|
| 34 | // Devuelve una objeto comando totalmente operativo (con la conexi� abierta)
|
---|
| 35 | // Parametros:
|
---|
| 36 | // - cadenaconexion: Una cadena con los datos necesarios para la conexi�: nombre del servidor
|
---|
| 37 | // usuario,password,base de datos,etc separados por coma
|
---|
| 38 | //________________________________________________________________________________________________________
|
---|
| 39 | function CreaComando($cadenaconexion){
|
---|
| 40 | $strcn=split(";",$cadenaconexion);
|
---|
| 41 | $cn=new Conexion;
|
---|
| 42 | $cmd=new Comando;
|
---|
| 43 | $cn->CadenaConexion($strcn[0],$strcn[1],$strcn[2],$strcn[3],$strcn[4]);
|
---|
| 44 | if (!$cn->Abrir()) return (false);
|
---|
| 45 | $cmd->Conexion=&$cn;
|
---|
| 46 | return($cmd);
|
---|
| 47 | }
|
---|
| 48 | //________________________________________________________________________________________________________
|
---|
| 49 | // Busca datos del usuario que intenta acceder a la aplicaci�
|
---|
| 50 | // Parametros:
|
---|
| 51 | // - cmd:Una comando ya operativo (con conexi� abierta)
|
---|
| 52 | // - usuario: Nombre del usuario
|
---|
| 53 | // - pasguor: Password del uuario
|
---|
| 54 | //
|
---|
| 55 | // Devuelve el identificador del centro, el nombre y el idioma utilizado por el usuario
|
---|
| 56 | //________________________________________________________________________________________________________
|
---|
| 57 | function toma_datos($cmd,$idcentro,$nombrecentro,$idioma,$usuario,$idtipousuario,$pasguor){
|
---|
| 58 | $rs=new Recordset;
|
---|
| 59 |
|
---|
| 60 | $cmd->texto="SELECT usuarios.idtipousuario,usuarios.idambito,centros.nombrecentro,idiomas.nemonico AS idioma FROM usuarios";
|
---|
| 61 | $cmd->texto.=" LEFT OUTER JOIN centros ON usuarios.idambito=centros.idcentro";
|
---|
| 62 | $cmd->texto.=" INNER JOIN idiomas ON usuarios.ididioma=idiomas.ididioma";
|
---|
| 63 | $cmd->texto.=" WHERE idtipousuario<>3 AND usuarios.usuario='".$usuario."' AND usuarios.pasguor='".$pasguor."'";
|
---|
| 64 |
|
---|
| 65 | $rs->Comando=&$cmd;
|
---|
| 66 | $resul=false;
|
---|
| 67 | if (!$rs->Abrir()) return($resul); // Error al abrir recordset
|
---|
| 68 | $rs->Primero();
|
---|
| 69 | if (!$rs->EOF){
|
---|
| 70 | $idcentro=$rs->campos["idambito"];
|
---|
| 71 | $nombrecentro=$rs->campos["nombrecentro"];
|
---|
| 72 | $idtipousuario=$rs->campos["idtipousuario"];
|
---|
| 73 | $idioma=$rs->campos["idioma"];
|
---|
| 74 | return(true);
|
---|
| 75 | }
|
---|
| 76 | return($resul);
|
---|
| 77 | }
|
---|
| 78 | ?>
|
---|