Did you specify your user and passwords fields in the driver config?
They must mactch names on your login form. Here is my config hash for
auth that I have in my driver.
# session management configuration for Authentication::UserSessionCookie
# and Authorization
BeerDB->config->{auth} = {
user_class => 'BeerDB::Drinker',
user_field => 'username',
password_field=> 'pw',
# tell Authorization plugin your table names and user fk
role_table => 'auth_role',
role_assign_table => 'role_assignment',
permission_table => 'permission',
user_fk => 'usr_id',
#cookie_expiry => '+3H',
cookie_name => 'cafeasp_sessionid',
session_class => 'Apache::Session::File', # default
session_args => {
Directory => '/usr/local/apache2/tmp/sessions', # default
LockDirectory => '/usr/local/apache2/tmp/sessionlock', # default
},
};
HTH,
Peter
On 10/10/05, John Krystynak <[EMAIL PROTECTED]> wrote:
> I'm trying to get a really simple login/auth working and M::P::A::USC
> isn't working for me.
>
> First: is there any sample code out there that works. Login, and
> logout? I'm at the point that I don't care which module it's from
> M::P::A::USC or
>
> Second: How do you turn on debugging? I use:
> use Maypole::Application qw(-Debug2 Authentication::UserSessionCookie);
>
> but I don't see the statements that should be coming from the warns in
> the UserSessionCookie.pm (at least they don't show up in my
> httpd-error.log)
>
> I must be doing something stupid - I'm trying to follow the
> authentication HOWTO
> (http://www.droogs.org/perl/maypole/authentication.html), but my app
> never authenticates any user. I want the debug on so I can see if it
> is even calling the database with the right user field.
>
> Here's my authenticate function:
>
> use Maypole::Constants;
> sub authenticate {
> my ($self, $r) = @_;
> $r->get_user;
> # let them go if they exist as a user
> if ($r->user) {
> warn "authenticate: Found user " . $r->user . "\n";
> return OK;
> }
>
> # otherwise force them to the login page
> warn "authenticate: " . $r->template_args->{login_error} . " :
> Sending to login page\n"\
> ;
>
> $r->{template} = "login";
> return OK;
> }
>
> The upshot is that it always goes to the login page, and r->ruser is
> empty, as is the login_error....
>
>
> Trying not to bang head too hard here...
>
> johnk
>
>
> --
> eBay vs Amazon Shopping Comparison - Try it!
> http://aytozon.com
>
>
> -------------------------------------------------------
> This SF.Net email is sponsored by:
> Power Architecture Resource Center: Free content, downloads, discussions,
> and more. http://solutions.newsforge.com/ibmarch.tmpl
> _______________________________________________
> Maypole-users mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/maypole-users
>
--
pjs
-------------------------------------------------------
This SF.Net email is sponsored by:
Power Architecture Resource Center: Free content, downloads, discussions,
and more. http://solutions.newsforge.com/ibmarch.tmpl
_______________________________________________
Maypole-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/maypole-users
