Re: [Dancer-users] Dancer::Plugin::Auth::RBAC Application

18 Apr 2011

      Hi Christopher,

That's exactly my problem. It's solved.

Thank you for your help.
                                    Fontardion

2011/4/18 Christopher Taranto <christopher@tokpela.com>
...
Hi Fontardion,
I think the problem you are encountering is that you are getting confused
about the reference to the auth plugin and using the plugin method directly.
Try this:
get '/' => sub {
  if (auth->asa('guest') ) {
    redirect '/login';
  }
  else {
    template 'index';
  }
};
post '/login' => sub {
    my $auth = auth(params->{username}, params->{password});
    if (! $auth->errors) {
      flash ok => 'Login ok';
      redirect '/';
    }
    else {
      flash error => 'Login Error';
      redirect '/login';
    }
};
get '/logout' => sub {
    auth->revoke();
    flash ok => 'Session Closed';
    redirect '/';
};
On Mon, Apr 18, 2011 at 6:47 AM, Forgoselo Fontardion <
fontardion@gmail.com> wrote:
...
Hello Flavio:
May be I didn't explained the problem properly. Excuseme for taking so
many days to answer, but I've out off the office for the weekend.
In my first route '/':
- The RBAC plugin doesn't export the variable $auth, so the program
   can't access information as type of user, using the "asa" function.
   - The error given by the perl parser when executing app.pl is: *Variable
   "$auth" is not imported*
   - If I add a *my $auth;* to the root of the package the error returned
   would be: *Can't call method "asa" on an undefined value*. This is due
   to the $auth isn't an object.
In the second route '/logn':
No problem arises because the $auth is declared there.
In the third route '/logout':
The same problem as in the first route.
Best regards,
                    Fontardion
2011/4/15 Flavio Poletti <polettix@gmail.com>
...
Please report your errors as well.
At first glance, it seems that you're trying to use $auth as a global
variable, but you use "my" inside '/login' which means that inside that
route you're dealing with a different variable.
Cheers,
Flavio.
On Thu, Apr 14, 2011 at 6:53 PM, Forgoselo Fontardion <
fontardion@gmail.com> wrote:
...
Hi,
I'm startirng to create a new web application, my first dancer's one.
I'm testing the RBAC plugin. I've found a problem that I can't solve.
When I try to use a function to check the status of the login, in example to
check if a user has admin role or to revoke its permissions. In the cases
previously described I found an error, because the $auth scalar variable is
only accessible to the route '/'.
get '/' => sub {
  if $auth->asa('guest') ) {
    redirect '/login';
  }
  else {
    template 'index';
  }
};
post '/login' => sub {
    my $auth = auth(params->{username}, params->{password});
    if (! $auth->errors) {
      flash ok => 'Login ok';
      redirect '/';
    }
    else {
      flash error => 'Login Error';
      redirect '/login';
    }
};
get '/logout' => sub {
    $auth->revoke();
    flash ok => 'Session Closed';
    redirect '/';
};
Best regards,
                        Fontardion
_______________________________________________
Dancer-users mailing list
Dancer-users@perldancer.org
http://www.backup-manager.org/cgi-bin/listinfo/dancer-users
_______________________________________________
Dancer-users mailing list
Dancer-users@perldancer.org
http://www.backup-manager.org/cgi-bin/listinfo/dancer-users
_______________________________________________
Dancer-users mailing list
Dancer-users@perldancer.org
http://www.backup-manager.org/cgi-bin/listinfo/dancer-users