[#
vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 ft=perl:
#]
[-
    $ret = shift;

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

    use Data::Dumper;

    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);

    print 'Seteo otro sistema para trabajar<br>'; 
    $ret->{SAMURAI_Perm}->{setSistema} (44);

    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 {
        print 'No tiene permisos en el sistema '. $udat{SAMURAI_Perm_vars}{id_sistema}.'<BR>';
    }

    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 {
        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 '<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 '<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>';
-]