From e9d50d96b77ccbc281901926cacf859fe01a9d7b Mon Sep 17 00:00:00 2001 From: Leandro Lucarella Date: Thu, 12 Jun 2003 21:28:40 +0000 Subject: [PATCH] =?utf8?q?Se=20borra=20SAMURAI=20lib=20porque=20se=20pas?= =?utf8?q?=C3=B3=20al=20repositorio=20del=20SAMURAI.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- TODO | 1 - samurai_lib/doc/samurai_lib_PHP.rtf | 80 ------- samurai_lib/doc/samurai_lib_Perl.rtf | 70 ------ samurai_lib/perl/Samurai/Perm.epl | 148 ------------ samurai_lib/perl/Samurai/Perm/db_Conf.epl | 24 -- samurai_lib/perl/Samurai/Perm/sql_Conf.epl | 22 -- samurai_lib/perl/Samurai/base.epl | 1 - samurai_lib/php/Samurai/Perm.php | 256 --------------------- samurai_lib/php/Samurai/Perm/db_Conf.php | 17 -- samurai_lib/php/Samurai/Perm/sql_Conf.php | 16 -- samurai_lib/php/prueba.php | 23 -- samurai_lib/php/samurai_lib.php | 160 ------------- samurai_lib/php/samurai_lib_db_conf.inc | 9 - samurai_lib/php/samurai_lib_sql.inc | 12 - samurai_lib/test/base.epl | 1 - samurai_lib/test/prueba.epl | 47 ---- samurai_lib/test/prueba.php | 51 ---- 17 files changed, 938 deletions(-) delete mode 100644 samurai_lib/doc/samurai_lib_PHP.rtf delete mode 100644 samurai_lib/doc/samurai_lib_Perl.rtf delete mode 100644 samurai_lib/perl/Samurai/Perm.epl delete mode 100644 samurai_lib/perl/Samurai/Perm/db_Conf.epl delete mode 100644 samurai_lib/perl/Samurai/Perm/sql_Conf.epl delete mode 100644 samurai_lib/perl/Samurai/base.epl delete mode 100644 samurai_lib/php/Samurai/Perm.php delete mode 100644 samurai_lib/php/Samurai/Perm/db_Conf.php delete mode 100644 samurai_lib/php/Samurai/Perm/sql_Conf.php delete mode 100644 samurai_lib/php/prueba.php delete mode 100644 samurai_lib/php/samurai_lib.php delete mode 100644 samurai_lib/php/samurai_lib_db_conf.inc delete mode 100644 samurai_lib/php/samurai_lib_sql.inc delete mode 100644 samurai_lib/test/base.epl delete mode 100644 samurai_lib/test/prueba.epl delete mode 100644 samurai_lib/test/prueba.php diff --git a/TODO b/TODO index c336d33..8bb0ad2 100644 --- a/TODO +++ b/TODO @@ -1,4 +1,3 @@ $Id$ -- Ver que pasa con SAMURAI. - Ver que archivos componen Tiempo/ y sacar la dependencia de HE_DB. diff --git a/samurai_lib/doc/samurai_lib_PHP.rtf b/samurai_lib/doc/samurai_lib_PHP.rtf deleted file mode 100644 index 5059f5c..0000000 --- a/samurai_lib/doc/samurai_lib_PHP.rtf +++ /dev/null @@ -1,80 +0,0 @@ -{\rtf0\ansi -{\fonttbl -{\f0\fswiss Helvetica;} -{\f1\fmodern Courier;}} -{\info -{\creatim \yr2003\mo3\dy12\hr14\min49\sec5} -{\revtim \yr2003\mo3\dy14\hr10\min47\sec2} -} -\paperw12240\paperh15840\margl1800\margr1800\margt1440\margb1440 -\ftnbj\aenddoc\ftnrstcont\aftnrstcont\ftnnar\aftnnrlc -\sectd -\f1\fs20\b SAMURAI - samurai_lib - PHP\par -para ser usada en sistemas hechos en PHP\par -\par -\ul Funcionamiento\par -Objeto:\b0\ul0 \b SA_Perm\par -\ul Variables de Instancia:\par -\ul0 - login \par -\b0 Contiene el login del usuario que se obtiene de $udat\{user\}. -\par -\b - sistema \par - \b0 Contiene el identificador numerico del sistema.\par -\b - permisos\par - \b0 Array con todos los permisos del usuario en el sistema dado. -\par - Es "invisible" a los demas.\par -\b - DB \par - \b0 Objeto que guarda la conexion con la base de datos. Es -"invisible"\par - a los demas.\par -\b\ul Metodos de Instancia:\par -\ul0 - SA_Perm \par - \b0 Constructor. Recive como parametro el identificador numerico del -\par - sistema y el login del usuario (del tipo @)\par -\b - tiene \par - \b0 Funcion que chequea que el usuario tenga todos los permisos que -se\par - pasaron como parametro. Devuelve true si cumple con la condicion, -\par - false en cualquier otro caso. Es de argumentos variable.\par -\b - tieneO \par - \b0 Funcion que chequea que el usuario tenga alguno de los permisos -que\par - se pasaron como parametro. Devuelve true si cumple con la condicion, -\par - false en cualquier otro caso. Es de argumentos variable.\par -\b - tieneODevol\par - \b0 Funcion que chequea que el usuario tenga alguno de los permisos -que\par - se pasaron como parametro. Devuelve un array con aquellos permisos -\par - que se pasaron por parametro y el usuario tiene. Es de argumentos -\par - variable.\par -\b - tieneUn\par - \b0 Funcion que chequea que el usuario tenga el permiso que se pasa -por \par - por parametro.\par -\b - _obtenerPermisos\par - \b0 Funcion de uso interno que consulta a la base y obtiene todos -los\par - permisos del usuario en el sistema que se paso como parametro.\par -\b - _conectarDB\par - \b0 Funcion que crea la conexion a la base de datos. Es de uso -interno.\par -\par -\par --------------------------------------\par -Autores : Martin Marrese\par --------------------------------------\par -Fecha : 12/03/2003\par -Fecha Ultima Modificacion: 12/03/2003\par -------------------------------------- \par -$Id$\par -$Author$\par -$Date$\par -$Url$\par -$Rev$\par -} diff --git a/samurai_lib/doc/samurai_lib_Perl.rtf b/samurai_lib/doc/samurai_lib_Perl.rtf deleted file mode 100644 index 1a0e123..0000000 --- a/samurai_lib/doc/samurai_lib_Perl.rtf +++ /dev/null @@ -1,70 +0,0 @@ -{\rtf0\ansi -{\fonttbl -{\f0\fswiss Helvetica;} -{\f1\fmodern Courier;}} -{\info -{\creatim \yr2003\mo3\dy14\hr10\min35\sec30} -{\revtim \yr2003\mo3\dy14\hr10\min45\sec52} -} -\paperw12240\paperh15840\margl1800\margr1800\margt1440\margb1440 -\ftnbj\aenddoc\ftnrstcont\aftnrstcont\ftnnar\aftnnrlc -\sectd -\f1\fs20\b SAMURAI - samurai_lib - Perl\par -para ser usada en sistemas hechos en Perl\par -\par -\ul Funcionamiento\par -\b0\ul0 Para que tenga un funcionamiento similar a samurai_lib (PHP) -hay una especie de objeto llamado SA_Perm, y funciones que cuelgan de -el. Este objeto y todos sus metodos se encuentran en $ret->\{SA_Perm\}, -el set de permisos del usuario en el sistema se cargan en un array y se -asignan a $udat\{SA_Permisos\}, esto para que esten disponibles en -cualquier momento.\par -\par -\par -\b\ul Objeto:\b0\ul0 \b SA_Perm\par -\ul Metodos:\par -\ul0 - $ret->\{SA_Perm\}->\{SA_Perm\}\par - \b0 Constructor. Recive como parametro el identificador numerico del -\par - sistema, el login del usuario lo toma de $udat\{user\} (que es del -\par - tipo @)\par -\b - tiene \par - \b0 Funcion que chequea que el usuario tenga todos los permisos que -se\par - pasaron como parametro. Devuelve 1 si cumple con la condicion, \par - 0 en cualquier otro caso. Es de argumentos variable.\par -\b - tieneO \par - \b0 Funcion que chequea que el usuario tenga alguno de los permisos -que\par - se pasaron como parametro. Devuelve 1 si cumple con la condicion, -\par - 0 en cualquier otro caso. Es de argumentos variable.\par -\b - tieneODevol\par - \b0 Funcion que chequea que el usuario tenga alguno de los permisos -que\par - se pasaron como parametro. Devuelve un array con aquellos permisos -\par - que se pasaron por parametro y el usuario tiene. Es de argumentos -\par - variable.\par -\b - tieneUn\par - \b0 Funcion que chequea que el usuario tenga el permiso que se pasa -por \par - por parametro. Devuelve 1 si cumple con la condicion, 0 en cualquier -\par - otro caso.\par -\b \par -\b0 \par --------------------------------------\par -Autores : Martin Marrese\par --------------------------------------\par -Fecha : 14/03/2003\par -Fecha Ultima Modificacion: 14/03/2003\par -------------------------------------- \par -$Id$\par -$Author$\par -$Date$\par -$Url$\par -$Rev$\par -} diff --git a/samurai_lib/perl/Samurai/Perm.epl b/samurai_lib/perl/Samurai/Perm.epl deleted file mode 100644 index 43e19ed..0000000 --- a/samurai_lib/perl/Samurai/Perm.epl +++ /dev/null @@ -1,148 +0,0 @@ -[# - vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4: - +--------------------------------------------------------------------+ - | SAMURAI - Samurai_Lib | - +--------------------------------------------------------------------+ - | Sistema de Administracion y Matenimiento de Usuarios Relativo A | - | Intranet | - | Ministerio de Economía | - +--------------------------------------------------------------------+ - | Creado: $Date$ | - | Autor: Martin Marrese | - +--------------------------------------------------------------------+ - - $Id$ - - $URL$ - $Rev$ - $Date$ - $Author$ -#] -[! - $CLEANUP{'SA_Perm'} = 0; - ###CONSTRUCTOR - ## in: sistema -> identificador numerico del sistema - ## login se obtiene automaticamente en $udat{user} - ## - ## out: bool ok - $SA_Perm->{SA_Perm} = sub - { - - $sql = "SELECT DISTINCT pps.id_permiso AS id_permiso FROM perfil_sist_usuario AS psu , perm_perfil_sist AS pps WHERE psu.id_sistema = ? AND login = ? AND psu.id_perfil = pps.id_perfil"; - - $udat{SA_Perm_Id_Sistema} = @_[0]; - $result = true; #asumo que no va a fallar - - ##Conexion con la base - $dbh = DBI->connect('dbi:mysql:dbname=samurai;host=localhost',"intranet","intranet"); - - ##Obtengo los permisos de la base - $re = $dbh->prepare($sql); - $re->execute($udat{SA_Perm_Id_Sistema}, $udat{user}); - while ($r = $re->fetchrow_hashref()) { - push (@tmp, $r->{id_permiso}); - } - $re->finish(); - - #Desconexion con la base - $dbh->disconnect; - $udat{SA_Permisos} = \@tmp;#Se asignan a $udat para que esten disponibles siempre - - return $result; - }; - - ###TIENE - ## Verifica que el usuario tenga todos los permisos que se pasan como - ## parametro. - ## in: permisos a buscar - ## - ## out: int 1 -> ok, 0 -> nok - $SA_Perm->{tiene} = sub - { - $result = 1; #asumo que no va a fallar - if (!scalar(@_)) { - $result = 0; #Siempre debe haber como minimo un permiso a comparar - } - else { - @rr = $ret->{SA_Perm}->{tieneODevol} (@_); - if (scalar(@_) != scalar(@rr)) { - $result = 0; - } - } - return $result; - }; - - ###TIENEO - ## Verifica que el usuario tenga alguno de los permisos que se pasan como - ## parametro. - ## in: permisos a buscar - ## - ## out: int 1 -> ok, 0 -> nok - $SA_Perm->{tieneO} = sub - { - $result = 1; #asumo que no va a fallar - if (!scalar(@_)) { - $result = 0; #Siempre debe haber como minimo un permiso a comparar - } - else { - @rr = $ret->{SA_Perm}->{tieneODevol} (@_); - if (!scalar(@rr)) { - $result = 0; - } - } - return $result; - }; - - ###TIENEUN - ## Verifica que el usuario tenga un permiso que se pasa como - ## parametro. - ## in: permiso a buscar - ## - ## out: int 1 -> ok, 0 -> nok - $SA_Perm->{tieneUn} = sub - { - $result = 1; #asumo que no va a fallar - if (!scalar(@_)) { - $result = 0; #Siempre debe haber un permiso a comparar - } - else { - @rr = $ret->{SA_Perm}->{tieneODevol} (@_); - if (!scalar(@rr)) { - $result = 0; - } - } - return $result; - }; - - - - ###TIENEODEVOL - ## Compara el contenido de dos arrays y devuelve un array con - ## aquellos datos que se repiten en ambos. - ## in: array permisos a buscar - ## - ## out: array con coincidencias - $SA_Perm->{tieneODevol} = sub - { - @result = (); - if (!scalar(@_)) { - @result[0] = "ERROR"; #Siempre se debe pasar al menos un permiso - } - else { - foreach $arg (@_) { - foreach $perm (@{$udat{SA_Permisos}}) { - if ($arg == $perm) { - push (@result, $arg); - last; - } - } - } - } - return @result; - }; -!] -[- - $ret = shift; - $ret->{SA_Perm} = $SA_Perm; --] - diff --git a/samurai_lib/perl/Samurai/Perm/db_Conf.epl b/samurai_lib/perl/Samurai/Perm/db_Conf.epl deleted file mode 100644 index 610c2de..0000000 --- a/samurai_lib/perl/Samurai/Perm/db_Conf.epl +++ /dev/null @@ -1,24 +0,0 @@ -[# - $Id$ - - $URL$ - $Rev$ - $Date$ - $Author$ -#] - -[! - $CLEANUP{'db_conf'} = 0; - $db_conf = { - 'db_type' => 'mysql' , - 'db_user' => 'intranet' , - 'db_pass' => 'intranet' , - 'db_host' => 'localhost', - 'db_name' => 'samurai' - }; -!] -[- - $ret = shift; - $ret->{SA_Perm}->{db_conf} = $db_conf; --] - diff --git a/samurai_lib/perl/Samurai/Perm/sql_Conf.epl b/samurai_lib/perl/Samurai/Perm/sql_Conf.epl deleted file mode 100644 index 01ec471..0000000 --- a/samurai_lib/perl/Samurai/Perm/sql_Conf.epl +++ /dev/null @@ -1,22 +0,0 @@ -[# - $Id$ - - $URL$ - $Rev$ - $Date$ - $Author$ -#] - -[! - $CLEANUP{'sql_Conf'} = 0; - $sql_Conf = { - 'obtener_p_p_completo' => 'SELECT DISTINCT pps.id_permiso AS id_permiso - FROM perfil_sist_usuario AS psu , perm_perfil_sist AS pps - WHERE psu.id_sistema = ? AND login = ? AND psu.id_perfil = pps.id_perfil' - }; -!] -[- - $ret = shift; - $ret->{SA_Perm}->{sql_Conf} = $sql_Conf; --] - diff --git a/samurai_lib/perl/Samurai/base.epl b/samurai_lib/perl/Samurai/base.epl deleted file mode 100644 index 5225c21..0000000 --- a/samurai_lib/perl/Samurai/base.epl +++ /dev/null @@ -1 +0,0 @@ -[- Execute('*') -] diff --git a/samurai_lib/php/Samurai/Perm.php b/samurai_lib/php/Samurai/Perm.php deleted file mode 100644 index 9800552..0000000 --- a/samurai_lib/php/Samurai/Perm.php +++ /dev/null @@ -1,256 +0,0 @@ - | -// +--------------------------------------------------------------------+ -// -// $Id$ -// -// $URL$ -// $Rev$ -// $Date$ -// $Author$ -// - -require_once 'PEAR.php'; -require_once 'DB.php'; - -/** - * Manejo de permisos. - * - * Libreria para le manejo de los permisos. Basada en la lase HE_Perm de - * Leandro Lucarella - * Las funciones de acceso publico se llaman igual que en HE_Perm - * Archivos Requeridos - * Perm/sql_Conf.php -> Consultas SQL utilizadas por el objeto - * Perm/db_Conf.php -> Datos de la conexion con la base de datos - * - * @package Samurai - * @version $Rev$ - * @author $Author$ - */ - -class SA_Perm extends PEAR { - - /** - * Login del usuario - * - * @var string - */ - var $login; - - /** - * Permisos del usuario en el sistema. - * - * @var array - */ - var $permisos; - - - /** - * Conexion a la Base de Datos . - * - * @var object DB - */ - var $DB; - - /** - * Identificacion del sistema - * - * @var int - */ - var $sistema; - - /** - * Constructor. - * - * El login del usuario lo toma del udat - * - * @param int $sistema Identificacion del sistema (id_sistema) - * @param string $login Identificacion del usuario (udat{user} - * - * @access public - */ - function SA_Perm($sistema, $login) - { - $this->PEAR(); - $this->sistema = $sistema; - $this->login = $login; - $this->DB = $this->_conectarDB(); - $this->permisos = $this->_obtenerPermisos(); - } - - /** - * Verifica los permisos de un usuario - * - * Compara los permisos que tiene un usuario en relacion a los - * pasados como parametro. Devuelve true si cumple con todos los - * permisos, en caso contrario devuelve false. Es de parametros - * variables, y siempre necesita al menos UN parametro - * - * @param array $permisos Permisos que se buscan - * - * @return bool - * - * @access public - */ - function tiene() - { - $args = func_get_args(); //Obtengo los permisos que me pasaron como argumento - $result = true; //Asumo que no va a fallar - if (!count($args)) { - $result = false; //Siempre se debe pasar al menos un permiso a buscar - } - else { - if (count(array_diff($args, $this->permisos))){ - $result = false; - } - } - return $result; - } - - /** - * Verifica los permisos de un usuario - * - * Compara los permisos que tiene un usuario en relacion a los - * pasados como parametro. Devuelve true si cumple con alguno de los - * permisos, en caso contrario devuelve false. Es de parametros - * variables, y siempre necesita al menos UN parametro - * - * @param array $permisos Permisos que se buscan - * - * @return bool - * - * @access public - */ - function tieneO() - { - $args = func_get_args(); //Obtengo los permisos que me pasaron como argumento - $result = true; //Asumo que no va a fallar - if (!count($args)) { //Siempre se debe pasar al menos un permiso a buscar - $result = false; - } - else { - if (count(array_diff($args, $this->permisos)) >= count($args)) { - $result = false; - } - } - return $result; - } - - /** - * Verifica los permisos de un usuario - * - * Compara los permisos que tiene un usuario en relacion a los - * pasados como parametro. Devuelve un array con aquellos permisos que - * el usuario tiene. Funciona similar a tieneO solo que devuelve un array. - * Es de parametros variables, y siempre necesita al menos UN parametro - * - * @param array $permisos Permisos que se buscan - * - * @return array Permisos que tiene el usuario pasados por parametro, o 'ERROR' en caso contrario - * - * @access public - */ - function tieneODevol () - { - $args = func_get_args(); //Obtengo los permisos que me pasaron como argumento - $result = array(); - - if (!count($args)) { - $result['0'] = 'ERROR'; //Siempre se debe pasar al menos un permiso a buscar - } - else { - $result = array_intersect($args, $this->permisos); - } - return $result; - } - - /** - * Verifica los permisos de un usuario - * - * Compara un permiso pasado por parametro con los que tiene el usuario - * en la base. Devuelve true si tiene el permiso, false en otro caso - * - * @param int permiso buscado - * - * @return bool - * - * @access public - */ - function tieneUn($permiso) - { - $result = true; //Asumo que no va a fallar - if (!in_array($permiso, $this->permisos)) { //Si no esta en el array, no tiene el permiso - $result = false; - } - return $result; - } - - /** - * Devuelve los permisos de un usuario - * - * Devuelve un array con los permisos que posee el usuario en el sistema - * que se paso como parametro al constructor. Devuelve un array. - * - * @return array - * - * @access public - */ - function listaPermisos() - { - return $this->permisos; - } - - - -//HASTA ACA FUNCIONES PUBLICAS -//DESDE ACA FUNCIONES PRIVADAS - - /** - * Obtiene los permisos de un usuario de la base - * - * @return array permisos del usuario - * - * @access private - */ - function _obtenerPermisos() - { - $consultas = include 'Perm/sql_Conf.php'; - $sql = $consultas['obtener_p_p_completo']; - $sql_array = array ('0' => $this->sistema, '1' => $this->login); - $result = $this->DB->getCol($sql,0, $sql_array); - if (DB::isError($this->permisos)) { //En caso de error en la consulta, que lo muestre - die ($this->permisos->getMessage()); - } - return $result; - } - - /** - * Conecta el objeto a la base de datos - * - * @return db conexion con la base - * - * @access private - */ - function _conectarDB() - { - $datos = include 'Perm/db_Conf.php'; - $dsn = $datos['db_type']."://".$datos['db_user'].":".$datos['db_pass']."@".$datos['db_host']."/".$datos['db_name']; - $db = DB::connect($dsn, true); //Quiero que la conexion sea persistente - if (DB::isError($db)) { //En caso de error en la conexion que la muestre - die($db->getMessage()); - } - return $db; - } - -} - -?> diff --git a/samurai_lib/php/Samurai/Perm/db_Conf.php b/samurai_lib/php/Samurai/Perm/db_Conf.php deleted file mode 100644 index 10cbf6f..0000000 --- a/samurai_lib/php/Samurai/Perm/db_Conf.php +++ /dev/null @@ -1,17 +0,0 @@ - 'mysql' , - 'db_user' => 'intranet' , - 'db_pass' => 'intranet' , - 'db_host' => 'localhost', - 'db_name' => 'samurai' - ) -?> diff --git a/samurai_lib/php/Samurai/Perm/sql_Conf.php b/samurai_lib/php/Samurai/Perm/sql_Conf.php deleted file mode 100644 index dac5675..0000000 --- a/samurai_lib/php/Samurai/Perm/sql_Conf.php +++ /dev/null @@ -1,16 +0,0 @@ - 'SELECT DISTINCT pps.id_permiso AS id_permiso - FROM perfil_sist_usuario AS psu , perm_perfil_sist AS pps - WHERE psu.id_sistema = ? AND login = ? AND psu.id_perfil = pps.id_perfil' - ); -?> diff --git a/samurai_lib/php/prueba.php b/samurai_lib/php/prueba.php deleted file mode 100644 index 55aa828..0000000 --- a/samurai_lib/php/prueba.php +++ /dev/null @@ -1,23 +0,0 @@ -"; -print "
"; - -$pp = new SA_Perm(28924563); - -var_dump($pp); - -print "
"; -print "
"; - -printf("%s",$pp->nrodoc); - -var_dump($pp->SQL); - -?> diff --git a/samurai_lib/php/samurai_lib.php b/samurai_lib/php/samurai_lib.php deleted file mode 100644 index cde41ed..0000000 --- a/samurai_lib/php/samurai_lib.php +++ /dev/null @@ -1,160 +0,0 @@ - | -// +--------------------------------------------------------------------+ -// -// $Id$ -// -// $URL$ -// $Rev$ -// $Date$ -// $Author$ -// - -require_once 'PEAR.php'; -require_once 'DB.php'; - -/** - * Manejo de permisos. - * - * Libreria para le manejo de los permisos. Basada en la lase HE_Perm de - * Leandro Lucarella - * - * @package SA_Perm - * @version $Rev$ - * @author $Author$ - */ -class SA_Perm extends PEAR { - - /** - * Identificacion del usuario. - * - * @var int(11) nrodoc - */ - var $nrodoc; - - /** - * Login del usuario - * - * @var string login - */ - var $login; - - /** - * Consultas SQL. - * - * @var array SQL - */ - var $SQL; - - - /** - * Conexion a la Base de Datos . - * - * @var $DB - */ - var $DB; - - /** - * Identificacion del sistema - * - * @var $sistema - */ - var $sistema - - /** - * Constructor. - * - * @param int $nrodoc Numero de documento del usuario. - * @param string $login Login del usuario de la forma @ - * @param int $sistema Identificacion del sistema (id_sistema) - * - * @return bool true si esta nrodoc, false en caso contrario - * - * @access public - */ - function SA_Perm($nrodoc = null, $login = null, $sistema = null) - { - $creacion = false; //Asumo que va a fallar - if (isset($nrodoc) && isset($sistema) && isset($login)) { - $this->nrodoc = $nrodoc; - $this->sistema = $sistema; - $this->login = $login; - $this->SQL = include 'samurai_lib_sql.inc'; - $this->DB = $this->_SA_conectarDB(); - $creacion = true; - } - return $creacion; - } - - /** - * Verifica los permisos de un usuario - * - * Compara los permisos que tiene un usuario en relacion a los - * pasados como parametro. Devuelve true si cumple con todos los - * permisos, en caso contrario devuelve false - * - * @param array permisos - * - * @return bool - * - * @access public - */ - function SA_verifPerm () - { - $args = func_get_args(); - $result = true; //Asumo que no va a fallar - - if (!count($args)) { - $result = false; - } - else { - //Obtengo los perfiles de un usuario {{{ - $sql = $this->SQL['obtener_perfil_usuario']; - $re = $this->DB->prepare($sql); - $re = $this->DB->execute($this->login, $this->sistema); - // }}} - - // Por cada perfil, busco sus permisos y los comparo con los pasados - // por el argumento {{{ - while ($res = $re->fetchRow(DB_FETCHMODE_ASSOC)) { - $sql = $this->SQL['obtener_permisos_perfil']; - $re = $this->DB->prepare($sql); - $re = $this->DB->execute($res['id_perfil'], $this->sistema); - //TODO: Verificar que este tomando bien los datos de la base - } - /// }}} - } - return $result; - } - - /** - * Conecta el objeto a la base de datos, segun lo especificado - * en samurai_lib_dc_conf.inc. - * - * @return db conexion hecha - * - * @access private - */ - function _SA_conectarDB () - { - $datos = include 'samurai_lib_db_conf.inc'; - $dsn = $datos['db_type']."://".$datos['db_user'].":".$datos['db_pass']."@".$datos['db_host']."/".$datos['db_name']; - $db = DB::connect($dsn, true); //Quiero que la conexion sea persistente - if (DB::isError($db)) { - die($db->getMessage()); - } - return $db; - } - - //Fin Clase -} -?> diff --git a/samurai_lib/php/samurai_lib_db_conf.inc b/samurai_lib/php/samurai_lib_db_conf.inc deleted file mode 100644 index 010be67..0000000 --- a/samurai_lib/php/samurai_lib_db_conf.inc +++ /dev/null @@ -1,9 +0,0 @@ - 'mysql' , - 'db_user' => 'intranet' , - 'db_pass' => 'intranet' , - 'db_host' => 'localhost', - 'db_name' => 'samurai' - ) -?> diff --git a/samurai_lib/php/samurai_lib_sql.inc b/samurai_lib/php/samurai_lib_sql.inc deleted file mode 100644 index 3057dea..0000000 --- a/samurai_lib/php/samurai_lib_sql.inc +++ /dev/null @@ -1,12 +0,0 @@ - 'SELECT psu.login AS login, psu.id_perfil AS id_perfil, psu.id_sistema AS id_sistema - FROM perfil_sist_usuario AS psu - WHERE login = ? AND id_sistema = ? - ORDER BY id_perfil DESC', - 'obtener_permisos_perfil' => 'SELECT e.desc_permiso AS desc_permiso - FROM perm_perfil_sist AS pps, permiso AS e - WHERE pps.id_perfil = ? AND pps.id_sistema = ? AND pps.id_permiso = e.id_permiso - ORDER BY e.id_permiso DESC' - ); -?> diff --git a/samurai_lib/test/base.epl b/samurai_lib/test/base.epl deleted file mode 100644 index 5225c21..0000000 --- a/samurai_lib/test/base.epl +++ /dev/null @@ -1 +0,0 @@ -[- Execute('*') -] diff --git a/samurai_lib/test/prueba.epl b/samurai_lib/test/prueba.epl deleted file mode 100644 index 506174f..0000000 --- a/samurai_lib/test/prueba.epl +++ /dev/null @@ -1,47 +0,0 @@ -[- - $ret = shift; - - use Data::Dumper; - - Execute('./../perl/Samurai/Perm.epl'); - - $udat{user}='mmarre@mecon'; - - $ok = $ret->{SA_Perm}->{SA_Perm} (1); - - print "Set de Prueba:\n"; - print " Permisos : 1,2,3,9,3\n"; - print " Permiso unico: 4\n"; - print " Usuario : $udat{user}\n"; - - print "tiene\n"; - if ($ret->{SA_Perm}->{tiene} (1,2,3,9,3)) { - print "TIENE TODOS LOS PERMISOS\n"; - } - else { - print "NO TIENE TODOS LOS PERMISOS\n"; - } - - print "tieneO\n"; - if ($ret->{SA_Perm}->{tieneO} (1,2,3,9,3)) { - print "TIENE ALGUNOS DE LOS PERMISOS\n"; - } - else { - print "NO TIENE NINGUNO DE LOS PERMISOS\n"; - } - - print "tieneODevol\n"; - @tieneODevol = $ret->{SA_Perm}->{tieneODevol} (1,2,3,9,3); - print "Tiene los siguientes Permisos: \n"; - foreach $m (@tieneODevol) { - print "$m\n"; - } - - print "tieneUn\n"; - if ($ret->{SA_Perm}->{tieneUn} (4)){ - print "Tiene el permiso\n"; - } - else { - print "No tiene el permiso\n"; - } --] diff --git a/samurai_lib/test/prueba.php b/samurai_lib/test/prueba.php deleted file mode 100644 index 2461ab8..0000000 --- a/samurai_lib/test/prueba.php +++ /dev/null @@ -1,51 +0,0 @@ -"; - -$permiso = new SA_Perm(1,'mmarre@mecon'); - -print "
Probando la funcion tiene -> "; -if ($permiso->tiene(1,2)) { - print "Tiene todos los permisos
"; -} -else { - print "No tiene todos los permisos
"; -} - -print "
Probando la funcion tieneO -> "; -if ($permiso->tieneO(1,2,3,4,5,7,3)) { - print "Tiene alguno de los permisos
"; -} -else { - print "No tiene permiso alguno
"; -} - -print "
Probando la funcion tieneUn -> "; -if ($permiso->tieneO(2)) { - print "Tiene EL permiso
"; -} -else { - print "No tiene EL permiso
"; -} - - -print "
Probando la funcion tieneODevol -> "; -$rr = $permiso->tieneODevol(1,4,3,5,3,6,7,3); - -print "Tiene los siguientes permisos
"; -foreach ($rr as $r) { - print "$r
"; -} - - -print "
Probando la funcion listaPermisos -> "; -$rr = $permiso->listaPermisos(); -print "Tiene los siguientes permisos
"; -foreach ($rr as $r) { - print "$r
"; -} - - -?> -- 2.43.0