Adapto las paginas de permisos para funcionar con MECON_HTML_TablaDB.

[mecon/samurai.git] / test / prueba.epl

diff --git a/test/prueba.epl b/test/prueba.epl
index 506174f4aa60d51b9bf48937da063536985ac05f..1137369d61c9b88f56f850147bd90ed7808730f5 100644 (file)
--- a/test/prueba.epl
+++ b/test/prueba.epl
@@ -1,47 +1,66 @@
+[#
+vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 ft=perl:
+#]

 [-
     $ret = shift;
 
 [-
     $ret = shift;
 

+    $udat{user} = 'mmarre@mecon';
+

     use Data::Dumper;
 
     use Data::Dumper;
 

-    Execute('./../perl/Samurai/Perm.epl');
+    Execute('/var/www/sistemas/samurai/lib_perl/Perm.epl');
+    
+#define('SAMURAI_PERM', 44);
+#define('SAMURAI_PERM_DEVELOPER', 66);
+#define('SAMURAI_PERM_PERFIL_ALTA', 58);
+#define('SAMURAI_PERM_PERFIL_BAJA', 59);
+#define('SAMURAI_PERM_PERFIL_MODIF', 60);
+#define('SAMURAI_PERM_PERFIL_TIPO', 65);
+#define('SAMURAI_PERM_USUARIO_ALTA', 61);
+#define('SAMURAI_PERM_USUARIO_BAJA', 62);
+#define('SAMURAI_PERM_USUARIO_MODIF', 63
+    
+    print 'Cargo los datos -> Imitando el constructor.<br>';
+    $ret->{SAMURAI_Perm}->{new} ('mmarre@mecon', 666);

 
 

-    $udat{user}='mmarre@mecon';
+    print 'Seteo otro sistema para trabajar<br>'; 
+    $ret->{SAMURAI_Perm}->{setSistema} (44);

 
 

-    $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";
+    print 'Veo si tiene algun permiso en el sistema seleccionado<br>';
+    if ($ret->{SAMURAI_Perm}->{tiene} ()) {
+        print 'Tiene al menos un permiso en el sistema '. $udat{SAMURAI_Perm_vars}{id_sistema}.'<BR>';

     }
     else {
     }
     else {

-        print "NO TIENE TODOS LOS PERMISOS\n";
+        print 'No tiene permisos en el sistema '. $udat{SAMURAI_Perm_vars}{id_sistema}.'<BR>';

     }
 
     }
 

-    print "tieneO\n";
-    if ($ret->{SA_Perm}->{tieneO} (1,2,3,9,3)) {
-        print "TIENE ALGUNOS DE LOS PERMISOS\n";
+    print 'Veo si tiene algun permiso de los pasados por parametro.<br>';
+    if ($ret->{SAMURAI_Perm}->{tiene} (61,602)) {
+        print 'Tiene al menos uno de los permisos en el sistema '. $udat{SAMURAI_Perm_vars}{id_sistema}.'<BR>';

     }
     else {
     }
     else {

-        print "NO TIENE NINGUNO DE  LOS PERMISOS\n";
+        print 'No tiene ninguno de los permisos en el sistema '. $udat{SAMURAI_Perm_vars}{id_sistema}.'<BR>';

     }
     }

+    
+    print 'Obtengo los permisos del sistema en el cual estoy trabajando.<br>';
+    $tmp = $ret->{SAMURAI_Perm}->{getPermisos} ();
+    print Dumper($tmp);

 
 

-    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 '<br>Obtengo los permisos del sistema 61 <br>';
+    $tmp = $ret->{SAMURAI_Perm}->{getPermisos} (61);
+    print Dumper($tmp);
+    print '<br>';
+    
+    print 'Pruebo la funcion chequear<BR>';
+    $ret->{SAMURAI_Perm}->{chequear} (612,61);
+    print 'Si aparece esto es porque tenia al menos uno de los permisos que se pasaron como parametro<br>';
+    
+    print 'Hago un get observaciones<br>';
+    $tmp = $ret->{SAMURAI_Perm}->{getObservaciones} (66,61);
+    print Dumper($tmp);

 
 

-    print "tieneUn\n";
-    if ($ret->{SA_Perm}->{tieneUn} (4)){
-        print "Tiene el permiso\n";
-    }
-    else {
-        print "No tiene el permiso\n";
-    }
+    print '<BR><BR>Asi es como queda el udat de SAMURAI<BR>';
+    print '<pre>'.Dumper($udat{SAMURAI_Perm_vars}).'</pre>';
+   
+    print '<br><br>FINALE PRESTO CON TUTTI<br>';

 -]
 -]