From bf4ceaa6453bf08f5223d2ccfcef1eaa5e8cc07e Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mart=C3=ADn=20Marrese?= Date: Fri, 14 Mar 2003 13:51:37 +0000 Subject: [PATCH] - Arregle los archivos de codigo para que se pudieran entender mejor. - Agregue la documentacion de la libreria para Perl. --- samurai_lib/doc/samurai_lib_PHP.rtf | 13 ++++-- samurai_lib/doc/samurai_lib_Perl.rtf | 70 ++++++++++++++++++++++++++++ samurai_lib/php/Samurai/Perm.php | 12 ++--- 3 files changed, 83 insertions(+), 12 deletions(-) create mode 100644 samurai_lib/doc/samurai_lib_Perl.rtf diff --git a/samurai_lib/doc/samurai_lib_PHP.rtf b/samurai_lib/doc/samurai_lib_PHP.rtf index 5be6fcb..5059f5c 100644 --- a/samurai_lib/doc/samurai_lib_PHP.rtf +++ b/samurai_lib/doc/samurai_lib_PHP.rtf @@ -4,7 +4,7 @@ {\f1\fmodern Courier;}} {\info {\creatim \yr2003\mo3\dy12\hr14\min49\sec5} -{\revtim \yr2003\mo3\dy12\hr15\min12\sec17} +{\revtim \yr2003\mo3\dy14\hr10\min47\sec2} } \paperw12240\paperh15840\margl1800\margr1800\margt1440\margb1440 \ftnbj\aenddoc\ftnrstcont\aftnrstcont\ftnnar\aftnnrlc @@ -16,7 +16,8 @@ para ser usada en sistemas hechos en PHP\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.\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 @@ -37,19 +38,21 @@ Objeto:\b0\ul0 \b SA_Perm\par se\par pasaron como parametro. Devuelve true si cumple con la condicion, \par - false en cualquier otro caso.\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.\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 pararon por parametro y el usuario tiene.\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 diff --git a/samurai_lib/doc/samurai_lib_Perl.rtf b/samurai_lib/doc/samurai_lib_Perl.rtf new file mode 100644 index 0000000..1a0e123 --- /dev/null +++ b/samurai_lib/doc/samurai_lib_Perl.rtf @@ -0,0 +1,70 @@ +{\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/php/Samurai/Perm.php b/samurai_lib/php/Samurai/Perm.php index 0976f12..5580f6e 100644 --- a/samurai_lib/php/Samurai/Perm.php +++ b/samurai_lib/php/Samurai/Perm.php @@ -37,7 +37,6 @@ require_once 'DB.php'; * @author $Author$ */ -// Comienzo Clase {{{ class SA_Perm extends PEAR { /** @@ -105,9 +104,9 @@ class SA_Perm extends PEAR { 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 + $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))){ @@ -135,7 +134,7 @@ class SA_Perm extends PEAR { { $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 + if (!count($args)) { //Siempre se debe pasar al menos un permiso a buscar $result = false; } else { @@ -229,13 +228,12 @@ class SA_Perm extends PEAR { $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)) { + if (DB::isError($db)) { //En caso de error en la conexion que la muestre die($db->getMessage()); } return $db; } } -// }}} Fin Clase ?> -- 2.43.0