Re: [Openinteract-help] Progress

[Bernie L. <Ber...@nt...>]

Chris,

Tried your perl debug, but not sure what it means.

Output is below.

Regards,

Bernie.

bash-2.05$ perl /tmp/bl.pl
Using (/home/oi/bltest) for 'website_dir'.
superuser_id: 1
Level: [8]
bash-2.05$ cat /tmp/bl/pl
#!/usr/bin/perl

use strict;
use OpenInteract::Startup;

my $HANDLER = 'bltest::Handler::superuser';

{
    my $R = OpenInteract::Startup->setup_static_environment_options(
                    undef, {}, { temp_lib => 'lazy' } );

                    # my $superuser_id = 
$R->CONFIG->{default_objects}{superuser};
    my $superuser_id = 1;

    print "superuser_id: $superuser_id\n";
    # Play with the next two lines to experiment
    my $superuser = $R->user->fetch( $superuser_id,
                                     { skip_security => 1 });
    $R->{auth}{user} = $superuser;

    $R->CONFIG->{DEBUG} = 2;
    my $level        = $R->user->check_security({
                              class                 => $HANDLER,
                              object_id             => '0' });
    print "Level: [$level]\n";
}