[Userlogin-users] userlogin / attributes problems

[<la...@lu...>]

I was wondering if anyone had a working example on how to use the <%attr>
section to set what level a user needs to be to access a page / component.

The autohandler that comes w/ UserLogin has a <%doc> section with an
<%attr> section, but I believe it is wrong.

<%attr>
$permissions => { "Cannot Do Anything" => 0, "Super-User" => 1 }
</%attr>

Shouldn't that be permissions=> instead of $permissions=> ?

If I remove the doc tags from that section I get:

error in file:    /usr/local/apache/mason/obj/testauth/autohandler
line 47:  Global symbol "$permissions" requires explicit package name
line 56:  BEGIN not safe after errors--compilation aborted

context:
...
43:  db => "userlogin",
44:  host => undef,
45:  port => undef,
46:  username => "laotse",
47:  password => "laotse",$permissions => { "Cannot Do Anything" => 0,
"Super-User" => 1 }},
48:  'code'=>sub {
49:  my %ARGS;
50:  { local $^W; %ARGS = @_ unless (@_ % 2); }
51:  my $_out = $m->current_sink;
52:  $m->debug_hook($m->current_comp->path) if (%DB::);
53:
54:
55:  # Create global session and sys
56:  use POSIX;
57:  use vars qw($session $sys);
58:  my $err;
59:  # Assign global session and sys
60:  ($session, $sys, $err) = $m->comp('session', %ARGS);

I tried removing the $ from permissions but that did not work either.

Can someone explain to me / show me an example on how to get a
page/component to check for the user level of the logged in person and
display or not display according to the required permission level?


-----------------------------------------------------------------------------
Brian Knox
Just Another Perl Hacker
perl -le '$_="6110>374086;2064208213:90<307;55";tr[0->][ LEOR!AUBGNSTY];print'