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);
#define('SAMURAI_PERM_USUARIO_MODIF', 63
print 'Cargo los datos -> Imitando el constructor.<br>';
- $ret->{SAMURAI_Perm}->{new} ('mmarre@mecon', 666);
+ $ret->{SAMURAI_Perm}->{new} ('mmarre@mecon', 666);
print 'Seteo otro sistema para trabajar<br>';
$ret->{SAMURAI_Perm}->{setSistema} (44);
print '<br>';
print 'Pruebo la funcion chequear<BR>';
-# $ret->{SAMURAI_Perm}->{chequear} (61);
+ $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 Dumper($udat{SAMURAI_Perm_vars}{observaciones});
+ $tmp = $ret->{SAMURAI_Perm}->{getObservaciones} (66,61);
+ print Dumper($tmp);
+
+ 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>';
-]