test/prueba.epl

   1 [#
   2 vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 ft=perl:
   3 #]
   4 [-
   5     $ret = shift;
   6
   7     $udat{user} = 'mmarre@mecon';
   8
   9     use Data::Dumper;
  10
  11     Execute('./../lib_perl/Perm.epl');
  12
  13 #define('SAMURAI_PERM', 44);
  14 #define('SAMURAI_PERM_DEVELOPER', 66);
  15 #define('SAMURAI_PERM_PERFIL_ALTA', 58);
  16 #define('SAMURAI_PERM_PERFIL_BAJA', 59);
  17 #define('SAMURAI_PERM_PERFIL_MODIF', 60);
  18 #define('SAMURAI_PERM_PERFIL_TIPO', 65);
  19 #define('SAMURAI_PERM_USUARIO_ALTA', 61);
  20 #define('SAMURAI_PERM_USUARIO_BAJA', 62);
  21 #define('SAMURAI_PERM_USUARIO_MODIF', 63
  22
  23     print 'Cargo los datos -> Imitando el constructor.<br>';
  24    $ret->{SAMURAI_Perm}->{new} ('mmarre@mecon', 666);
  25
  26     print 'Seteo otro sistema para trabajar<br>';
  27     $ret->{SAMURAI_Perm}->{setSistema} (44);
  28
  29     print 'Veo si tiene algun permiso en el sistema seleccionado<br>';
  30     if ($ret->{SAMURAI_Perm}->{tiene} ()) {
  31         print 'Tiene al menos un permiso en el sistema '. $udat{SAMURAI_Perm_vars}{id_sistema}.'<BR>';
  32     }
  33     else {
  34         print 'No tiene permisos en el sistema '. $udat{SAMURAI_Perm_vars}{id_sistema}.'<BR>';
  35     }
  36
  37     print 'Veo si tiene algun permiso de los pasados por parametro.<br>';
  38     if ($ret->{SAMURAI_Perm}->{tiene} (61,602)) {
  39         print 'Tiene al menos uno de los permisos en el sistema '. $udat{SAMURAI_Perm_vars}{id_sistema}.'<BR>';
  40     }
  41     else {
  42         print 'No tiene ninguno de los permisos en el sistema '. $udat{SAMURAI_Perm_vars}{id_sistema}.'<BR>';
  43     }
  44
  45     print 'Obtengo los permisos del sistema en el cual estoy trabajando.<br>';
  46     $tmp = $ret->{SAMURAI_Perm}->{getPermisos} ();
  47     print Dumper($tmp);
  48
  49     print '<br>Obtengo los permisos del sistema 61 <br>';
  50     $tmp = $ret->{SAMURAI_Perm}->{getPermisos} (61);
  51     print Dumper($tmp);
  52     print '<br>';
  53
  54     print 'Pruebo la funcion chequear<BR>';
  55 #    $ret->{SAMURAI_Perm}->{chequear} (61);
  56     print 'Si aparece esto es porque tenia al menos uno de los permisos que se pasaron como parametro<br>';
  57
  58     print 'Hago un get observaciones<br>';
  59 #    $tmp = $ret->{SAMURAI_Perm}->{getObservaciones} (66,61);
  60 #    print Dumper(\%tmp);
  61
  62 #    print Dumper($udat{SAMURAI_Perm_vars}{observaciones});
  63
  64     print '<br><br>FINALE PRESTO CON TUTTI<br>';
  65 -]