$Id$
-- Ver que pasa con SAMURAI.
- Ver que archivos componen Tiempo/ y sacar la dependencia de HE_DB.
+++ /dev/null
-{\rtf0\ansi\r
-{\fonttbl\r
-{\f0\fswiss Helvetica;}\r
-{\f1\fmodern Courier;}}\r
-{\info\r
-{\creatim \yr2003\mo3\dy12\hr14\min49\sec5}\r
-{\revtim \yr2003\mo3\dy14\hr10\min47\sec2}\r
-}\r
-\paperw12240\paperh15840\margl1800\margr1800\margt1440\margb1440\r
-\ftnbj\aenddoc\ftnrstcont\aftnrstcont\ftnnar\aftnnrlc\r
-\sectd\r
-\f1\fs20\b SAMURAI - samurai_lib - PHP\par\r
-para ser usada en sistemas hechos en PHP\par\r
-\par\r
-\ul Funcionamiento\par\r
-Objeto:\b0\ul0 \b SA_Perm\par\r
-\ul Variables de Instancia:\par\r
-\ul0 - login \par\r
-\b0 Contiene el login del usuario que se obtiene de $udat\{user\}.\r
-\par\r
-\b - sistema \par\r
- \b0 Contiene el identificador numerico del sistema.\par\r
-\b - permisos\par\r
- \b0 Array con todos los permisos del usuario en el sistema dado. \r
-\par\r
- Es "invisible" a los demas.\par\r
-\b - DB \par\r
- \b0 Objeto que guarda la conexion con la base de datos. Es \r
-"invisible"\par\r
- a los demas.\par\r
-\b\ul Metodos de Instancia:\par\r
-\ul0 - SA_Perm \par\r
- \b0 Constructor. Recive como parametro el identificador numerico del\r
-\par\r
- sistema y el login del usuario (del tipo <usuario>@<organismo>)\par\r
-\b - tiene \par\r
- \b0 Funcion que chequea que el usuario tenga todos los permisos que \r
-se\par\r
- pasaron como parametro. Devuelve true si cumple con la condicion, \r
-\par\r
- false en cualquier otro caso. Es de argumentos variable.\par\r
-\b - tieneO \par\r
- \b0 Funcion que chequea que el usuario tenga alguno de los permisos \r
-que\par\r
- se pasaron como parametro. Devuelve true si cumple con la condicion,\r
-\par\r
- false en cualquier otro caso. Es de argumentos variable.\par\r
-\b - tieneODevol\par\r
- \b0 Funcion que chequea que el usuario tenga alguno de los permisos \r
-que\par\r
- se pasaron como parametro. Devuelve un array con aquellos permisos\r
-\par\r
- que se pasaron por parametro y el usuario tiene. Es de argumentos\r
-\par\r
- variable.\par\r
-\b - tieneUn\par\r
- \b0 Funcion que chequea que el usuario tenga el permiso que se pasa \r
-por \par\r
- por parametro.\par\r
-\b - _obtenerPermisos\par\r
- \b0 Funcion de uso interno que consulta a la base y obtiene todos \r
-los\par\r
- permisos del usuario en el sistema que se paso como parametro.\par\r
-\b - _conectarDB\par\r
- \b0 Funcion que crea la conexion a la base de datos. Es de uso \r
-interno.\par\r
-\par\r
-\par\r
--------------------------------------\par\r
-Autores : Martin Marrese\par\r
--------------------------------------\par\r
-Fecha : 12/03/2003\par\r
-Fecha Ultima Modificacion: 12/03/2003\par\r
-------------------------------------- \par\r
-$Id$\par\r
-$Author$\par\r
-$Date$\par\r
-$Url$\par\r
-$Rev$\par\r
-}\r
+++ /dev/null
-{\rtf0\ansi\r
-{\fonttbl\r
-{\f0\fswiss Helvetica;}\r
-{\f1\fmodern Courier;}}\r
-{\info\r
-{\creatim \yr2003\mo3\dy14\hr10\min35\sec30}\r
-{\revtim \yr2003\mo3\dy14\hr10\min45\sec52}\r
-}\r
-\paperw12240\paperh15840\margl1800\margr1800\margt1440\margb1440\r
-\ftnbj\aenddoc\ftnrstcont\aftnrstcont\ftnnar\aftnnrlc\r
-\sectd\r
-\f1\fs20\b SAMURAI - samurai_lib - Perl\par\r
-para ser usada en sistemas hechos en Perl\par\r
-\par\r
-\ul Funcionamiento\par\r
-\b0\ul0 Para que tenga un funcionamiento similar a samurai_lib (PHP) \r
-hay una especie de objeto llamado SA_Perm, y funciones que cuelgan de \r
-el. Este objeto y todos sus metodos se encuentran en $ret->\{SA_Perm\}, \r
-el set de permisos del usuario en el sistema se cargan en un array y se \r
-asignan a $udat\{SA_Permisos\}, esto para que esten disponibles en \r
-cualquier momento.\par\r
-\par\r
-\par\r
-\b\ul Objeto:\b0\ul0 \b SA_Perm\par\r
-\ul Metodos:\par\r
-\ul0 - $ret->\{SA_Perm\}->\{SA_Perm\}\par\r
- \b0 Constructor. Recive como parametro el identificador numerico del\r
-\par\r
- sistema, el login del usuario lo toma de $udat\{user\} (que es del\r
-\par\r
- tipo <usuario>@<organismo>)\par\r
-\b - tiene \par\r
- \b0 Funcion que chequea que el usuario tenga todos los permisos que \r
-se\par\r
- pasaron como parametro. Devuelve 1 si cumple con la condicion, \par\r
- 0 en cualquier otro caso. Es de argumentos variable.\par\r
-\b - tieneO \par\r
- \b0 Funcion que chequea que el usuario tenga alguno de los permisos \r
-que\par\r
- se pasaron como parametro. Devuelve 1 si cumple con la condicion,\r
-\par\r
- 0 en cualquier otro caso. Es de argumentos variable.\par\r
-\b - tieneODevol\par\r
- \b0 Funcion que chequea que el usuario tenga alguno de los permisos \r
-que\par\r
- se pasaron como parametro. Devuelve un array con aquellos permisos\r
-\par\r
- que se pasaron por parametro y el usuario tiene. Es de argumentos\r
-\par\r
- variable.\par\r
-\b - tieneUn\par\r
- \b0 Funcion que chequea que el usuario tenga el permiso que se pasa \r
-por \par\r
- por parametro. Devuelve 1 si cumple con la condicion, 0 en cualquier\r
-\par\r
- otro caso.\par\r
-\b \par\r
-\b0 \par\r
--------------------------------------\par\r
-Autores : Martin Marrese\par\r
--------------------------------------\par\r
-Fecha : 14/03/2003\par\r
-Fecha Ultima Modificacion: 14/03/2003\par\r
-------------------------------------- \par\r
-$Id$\par\r
-$Author$\par\r
-$Date$\par\r
-$Url$\par\r
-$Rev$\par\r
-}\r
+++ /dev/null
-[#
- 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 <mmarre@mecon.gov.ar> |
- +--------------------------------------------------------------------+
-
- $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;
--]
-
+++ /dev/null
-[#
- $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;
--]
-
+++ /dev/null
-[#
- $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;
--]
-
+++ /dev/null
-[- Execute('*') -]
+++ /dev/null
-<?php
-// 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: lun mar 10 ART 2003 |
-// | Autor: Martin Marrese <mmarre@mecon.gov.ar> |
-// +--------------------------------------------------------------------+
-//
-// $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 <llucar@mecon.gov.ar>
- * 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;
- }
-
-}
-
-?>
+++ /dev/null
-<?php
-
- // $Id$
- //
- // $URL$
- // $Rev$
- // $Date$
- // $Author$
-
- return array (
- 'db_type' => 'mysql' ,
- 'db_user' => 'intranet' ,
- 'db_pass' => 'intranet' ,
- 'db_host' => 'localhost',
- 'db_name' => 'samurai'
- )
-?>
+++ /dev/null
-<?php
-
- // $Id$
- //
- // $URL$
- // $Rev$
- // $Date$
- // $Author$
-
-
- return array(
- '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'
- );
-?>
+++ /dev/null
-<?php
-
-include 'samurai_lib.php';
-
-$p = new SA_Perm();
-
-var_dump ($p);
-
-print "<br>";
-print "<BR>";
-
-$pp = new SA_Perm(28924563);
-
-var_dump($pp);
-
-print "<BR>";
-print "<BR>";
-
-printf("%s",$pp->nrodoc);
-
-var_dump($pp->SQL);
-
-?>
+++ /dev/null
-<?php
-// 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: lun mar 10 ART 2003 |
-// | Autor: Martin Marrese <mmarre@mecon.gov.ar> |
-// +--------------------------------------------------------------------+
-//
-// $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 <llucar@mecon.gov.ar>
- *
- * @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 <usuario>@<organismo>
- * @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
-}
-?>
+++ /dev/null
-<?php
- return array (
- 'db_type' => 'mysql' ,
- 'db_user' => 'intranet' ,
- 'db_pass' => 'intranet' ,
- 'db_host' => 'localhost',
- 'db_name' => 'samurai'
- )
-?>
+++ /dev/null
-<?php
- return array(
- 'obtener_perfil_usuario' => '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'
- );
-?>
+++ /dev/null
-[- Execute('*') -]
+++ /dev/null
-[-
- $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";
- }
--]
+++ /dev/null
-<?php
-
-require_once '../php/Samurai/Perm.php';
-
-print "Prueba Objeto SA_Perm de samurai_lib<BR>";
-
-$permiso = new SA_Perm(1,'mmarre@mecon');
-
-print "<BR>Probando la funcion tiene -> ";
-if ($permiso->tiene(1,2)) {
- print "Tiene todos los permisos<BR>";
-}
-else {
- print "No tiene todos los permisos<BR>";
-}
-
-print "<BR>Probando la funcion tieneO -> ";
-if ($permiso->tieneO(1,2,3,4,5,7,3)) {
- print "Tiene alguno de los permisos<BR>";
-}
-else {
- print "No tiene permiso alguno<BR>";
-}
-
-print "<BR>Probando la funcion tieneUn -> ";
-if ($permiso->tieneO(2)) {
- print "Tiene EL permiso<BR>";
-}
-else {
- print "No tiene EL permiso<BR>";
-}
-
-
-print "<BR>Probando la funcion tieneODevol -> ";
-$rr = $permiso->tieneODevol(1,4,3,5,3,6,7,3);
-
-print "Tiene los siguientes permisos<BR>";
-foreach ($rr as $r) {
- print "$r<BR>";
-}
-
-
-print "<BR>Probando la funcion listaPermisos -> ";
-$rr = $permiso->listaPermisos();
-print "Tiene los siguientes permisos<BR>";
-foreach ($rr as $r) {
- print "$r<BR>";
-}
-
-
-?>
projects / mecon / meconlib.git / commitdiff