Documentacion para el Doxygen de la libreria de perl.

diff --git a/doc/Samurai.xmi b/doc/Samurai.xmi
index 6ad652c3ff97e79e78beb9e44f55407812fc9825..4f5c737b406ad102c99cffe7063672b061cd258b 100644 (file)
--- a/doc/Samurai.xmi
+++ b/doc/Samurai.xmi
@@ -250,7 +250,9 @@ x2c:include: DB.php" name="DB" static="0" scope="200" />
    <UML:Class stereotype="" package="" xmi.id="265" abstract="0" documentation="Manejo interno de las bases de datos." name="SAMURAI_DB" static="0" scope="200" >
     <UML:Operation stereotype="" package="" xmi.id="269" type="DB" abstract="0" documentation="Realiza la conexion con la base de datos." name="connect" static="0" scope="200" />
    </UML:Class>
-   <UML:Class stereotype="" package="SAMURAI" xmi.id="377" abstract="0" documentation="Chequeador de permisos." name="SAMURAI_Perm" static="0" scope="200" >
+   <UML:Class stereotype="" package="SAMURAI" xmi.id="377" abstract="0" documentation="Chequeador de permisos.
+Para la libreria de perl: 
+@see perm.epl" name="SAMURAI_Perm" static="0" scope="200" >
     <UML:Operation stereotype="" package="" xmi.id="380" type="void" abstract="0" documentation="Constructor." name="SAMURAI_Perm" static="0" scope="200" >
      <UML:Parameter stereotype="" package="" xmi.id="1" value="" type="int" abstract="0" documentation="Login del usuario para el cual obtener los permisos." name="login" static="0" scope="200" />
      <UML:Parameter stereotype="" package="" xmi.id="2" value="" type="int" abstract="0" documentation="Sistema con el cual se va a trabajar." name="sistema" static="0" scope="200" />
@@ -282,7 +284,7 @@ x2c:set" name="sistema" static="0" scope="202" />
    <UML:Association nameb="" stereotype="" visibilitya="200" visibilityb="200" assoctype="500" rolea="265" roleb="264" multia="" doca="" multib="" docb="" package="" xmi.id="-1" abstract="0" documentation="" name="" static="0" scope="200" changeabilitya="900" changeabilityb="900" namea="" />
   </umlobjects>
   <diagrams>
-   <diagram snapgrid="1" showattsig="1" fillcolor="#ffffc0" zoom="100" showgrid="1" showopsig="1" usefillcolor="1" snapx="10" canvaswidth="911" snapy="10" showatts="1" xmi.id="206" documentation="" type="402" showops="1" showpackage="0" name="Clases y Relaciones" localid="30000" showstereotype="0" showscope="1" snapcsgrid="0" font="helvetica,4,-1,0,50,0,0,0,0,0" linecolor="#ff0000" canvasheight="658" >
+   <diagram snapgrid="1" showattsig="1" fillcolor="#ffffc0" zoom="100" showgrid="1" showopsig="1" usefillcolor="1" snapx="10" canvaswidth="911" snapy="10" showatts="1" xmi.id="206" documentation="" type="402" showops="1" showpackage="0" name="Clases y Relaciones" localid="30000" showstereotype="0" showscope="1" snapcsgrid="0" font="helvetica,4,-1,0,50,0,0,0,0,0" linecolor="#ff0000" canvasheight="672" >
     <widgets>
      <UML:ClassWidget usesdiagramfillcolour="0" width="157" showattsigs="601" usesdiagramusefillcolour="0" x="750" linecolour="#ff0000" y="290" showopsigs="600" instancename="" usesdiagramlinecolour="0" fillcolour="#ffffc0" height="280" usefillcolor="1" showattributes="1" isinstance="0" xmi.id="207" showoperations="1" showpackage="0" showscope="1" showstereotype="0" font="helvetica,8,-1,0,50,0,0,0,0,0" />
      <UML:ClassWidget usesdiagramfillcolour="0" width="110" showattsigs="601" usesdiagramusefillcolour="0" x="640" linecolour="#ff0000" y="10" showopsigs="600" instancename="" usesdiagramlinecolour="0" fillcolour="#ffffc0" height="294" usefillcolor="1" showattributes="1" isinstance="0" xmi.id="208" showoperations="1" showpackage="0" showscope="1" showstereotype="0" font="helvetica,8,-1,0,50,0,0,0,0,0" />

diff --git a/lib/SAMURAI/Perm.php b/lib/SAMURAI/Perm.php
index ad31b05b02ce7caf54ca431b6667e2553ac0b4a9..67f38c8a4b9c0a80ed027aa0850cc03087cc9248 100644 (file)
--- a/lib/SAMURAI/Perm.php
+++ b/lib/SAMURAI/Perm.php
@@ -30,6 +30,8 @@
 // +X2C Class 377 :SAMURAI_Perm
 /**
  * Chequeador de permisos.
+Para la libreria de perl: 
+@see perm.epl
  *
  * @package SAMURAI
  * @access public

diff --git a/lib/SAMURAI/Sistema.php b/lib/SAMURAI/Sistema.php
index fe7eb7549fb2d352e230a528af9ea69f64545ee6..61ad5d97d2f45186962a5d5151b60e4d77f510c3 100644 (file)
--- a/lib/SAMURAI/Sistema.php
+++ b/lib/SAMURAI/Sistema.php
@@ -1051,4 +1051,4 @@ class SAMURAI_Sistema {
 
 } // -X2C Class :SAMURAI_Sistema
 
-?>
+?>
\ No newline at end of file

diff --git a/lib/SAMURAI/perl.php b/lib/SAMURAI/perl.php
new file mode 100644 (file)
index 0000000..2e2580b
--- /dev/null
+++ b/lib/SAMURAI/perl.php
@@ -0,0 +1,56 @@
+<?php
+
+/**
+\page perm.epl
+
+\section desc Descripcion
+Libreria en Perl para el manejo de permisos. Mantiene la misma interfaz que
+SAMURAI_Perm, adaptandose al lenguaje.
+
+\section func Funcionamiento
+El funcionamiento es similar al del objeto de PHP. Primero debe 'crearse' el
+objeto llamando a la funcion new con los parametros correspondientes, esto
+cargara en una variable de sesion los datos. A partir de dichos datos
+trabajara con las diferentes funciones.
+
+\section uso Utilizacion
+Estos son los pasos para utilizar la libreria:
+
+Primero debe invocarse el archivo libreria:
+\code  Execute('/var/www/sistemas/samurai/lib_perl/Perm.epl'); \endcode
+
+Luego se 'crea' el objeto:
+\code $ret->{SAMURAI_Perm}->{new} (<usuario>, <sistema>); \endcode
+En donde <usuario> es el login@organismo del usuario con el que se esta
+trabajando y <sistema> es el identificador numerico del sistema.
+
+Para cambiar el sistema en el cual se esta trabajando se utiliza el siguiente
+metodo:
+\code $ret->{SAMURAI_Perm}->{setSistema} (<sistema>); \endcode
+
+Para averiguar si el usuario tiene permisos en un sistema se utiliza el
+siguiente metodo:
+\code $ret->{SAMURAI_Perm}->{tiene} () \endcode
+En este caso devuelve 1 si el usuario tiene al menos un permiso en el sistema
+seteado.
+\code $ret->{SAMURAI_Perm}->{tiene} (<permiso A>, <permiso B>) \endcode
+En este caso devuelve 1 si el usuario tiene alguno de los permisos pasados por
+parametro. A diferencia de la libreria de perl, tiene solo puede recibir una
+lista de permisos, no acepta arrays por parametro.
+
+El metodo getPermisos permite obtener un hash con los permisos del usuario en un
+sistema determinado.
+Si se pasa un sistema por parametro devuelve los permisos de dicho sistema, en
+caso contrario devuelve los permisos del sistema seteado.
+\code $ret->{SAMURAI_Perm}->{getPermisos} (<sistema>) \endcode
+
+El metodo chequear verifica que el usuario tenga al menos un permiso de los
+pasados por parametro en el sistema. En caso de no tener ningun permiso imprime 
+en pantalla el cartel de no autorizado y corta la ejecucion de la pagina.
+\code $ret->{SAMURAI_Perm}->{chequear} (<permiso A>, <permiso B>) \endcode
+
+El metodo getObservaciones devuelve un hash con las observaciones de un permiso
+en un sistema en particular.
+\code $ret->{SAMURAI_Perm}->{getObservaciones} (<permiso>,<sistema) \endcode
+*/
+?>

diff --git a/test/prueba.epl b/test/prueba.epl
index 5ebac2f6c99118fea7cb3e531c558f0d89e82e7d..1137369d61c9b88f56f850147bd90ed7808730f5 100644 (file)
--- a/test/prueba.epl
+++ b/test/prueba.epl
@@ -8,7 +8,7 @@ vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 ft=perl:
 
     use Data::Dumper;
 
-    Execute('./../lib_perl/Perm.epl');
+    Execute('/var/www/sistemas/samurai/lib_perl/Perm.epl');
     
 #define('SAMURAI_PERM', 44);
 #define('SAMURAI_PERM_DEVELOPER', 66);