Excellent work here, both of you.
Adam
On 7/21/07, Jay K <[EMAIL PROTECTED]> wrote:
For the benefit of the list:
This issue has been resolved. It turned out to be a disagreement
between what C::P::Authenticaiton was trying to place in $user->store
() and what LDAP was trying to place in $user->store()
LDAP was correct, and C::P::Authentication should keep it's grubby
little hands off of $user->store() - I am pushing a maintenance
release of C::P::Authentication to CPAN now. Should be available
from CPAN in a few hours.
JayK
On Jul 21, 2007, at 6:51 PM, [EMAIL PROTECTED] wrote:
>
>
>
>
> Folks,
>
>
> I have been wracking my head on this for a few days now (with
> jayk
> and mst offering much appreciated support on irc). It appears that
> the
> LDAP store (both .4 and .5) does not play nicely with the new auth .10
> changes. From what I have been able to diagnose it appears as
> though there
> is an issue with object stringification between auth/credpassword
> and ldap
> store. The root error shown (when running with debug on and using
> any of
> the LDAP store generated accessors such as $c->user->username ) is :
>
>
> [error] Caught exception in TestLDAP::Controller::Auth->login
> "Can't use
> string ("Catalyst::Plugin::Authentication") as a HASH ref while
> "strict
> refs" in use at /Library/Perl/5.8.6/Class/Accessor/Fast.pm line 39.
> at /Library/Perl/5.8.6/Class/Accessor/Fast.pm line 39
>
>
> Placing a local $SIG{__DIE__} = \&Carp::confess; on line 38 of
> C::A::F I
> get a dump such as this:
>
> [error] Caught exception in TestLDAP::Controller::Auth->login
> "Can't use
> string ("Catalyst::Plugin::Authentication") as a HASH ref while
> "strict
> refs" in use at /Library/Perl/5.8.6/Class/Accessor/Fast.pm line 39.
> at /Library/Perl/5.8.6/Class/Accessor/Fast.pm line 39
>
> Class::Accessor::Fast::__ANON__
> ('Catalyst::Plugin::Authentication::Store::LDAP::Backend')
> called at /Library/Perl/5.8.6
> /Catalyst/Plugin/Authentication/Store/LDAP/User.pm line 95
>
> Catalyst::Plugin::Authentication::Store::LDAP::User::stringify
> ('Catalyst::Plugin::Authentication::Store::LDAP::User=HASH(0x1b...')
> called at /Library/Perl/5.8.6
> /Catalyst/Plugin/Authentication/Store/LDAP/User.pm line 50
>
> Catalyst::Plugin::Authentication::Store::LDAP::User::__ANON__
> ('Catalyst::Plugin::Authentication::Store::LDAP::User=HASH(0x1b...',
> 'undef', '') called at /Library/Perl/5.8.6
> /Catalyst/Plugin/Authentication/Credential/Password.pm line 141
>
> Catalyst::Plugin::Authentication::Credential::Password::login
> ('TestLDAP=HASH(0x1bdf4cc)',
> 'USERNAME', 'PASSWORD') called at
> /Volumes/stuffs/Apps/TestLDAP/script/../lib/TestLDAP/Controller/
> Auth.pm
> line 47
>
> TestLDAP::Controller::Auth::login('TestLDAP::Controller::Auth=HASH
> (0x1b66f90)',
> 'TestLDAP=HASH(0x1bdf4cc)') called at /Library/Perl/5.8.6
> /Catalyst/Action.pm line 47
> Catalyst::Action::execute('Catalyst::Action=HASH(0x1bc3350)',
> 'TestLDAP::Controller::Auth=HASH(0x1b66f90)', 'TestLDAP=HASH
> (0x1bdf4cc)')
> called at /Library/Perl/5.8.6/Catalyst/Action.pm line 32
>
> Catalyst::Action::__ANON__('TestLDAP::Controller::Auth=HASH
> (0x1b66f90)',
> 'TestLDAP=HASH(0x1bdf4cc)') called at /Library/Perl/5.8.6/
> Catalyst.pm line
> 1187
> eval {...} called at /Library/Perl/5.8.6/Catalyst.pm line 1187
> Catalyst::execute('TestLDAP=HASH(0x1bdf4cc)',
> 'TestLDAP::Controller::Auth', 'Catalyst::Action=HASH(0x1bc3350)')
> called at
> /Library/Perl/5.8.6/Catalyst/Action.pm line 42
> Catalyst::Action::dispatch('Catalyst::Action=HASH(0x1bc3350)',
> 'TestLDAP=HASH(0x1bdf4cc)') called at /Library/Perl/5.8.6
> /Catalyst/Controller.pm line 74
>
> Catalyst::Controller::_ACTION('TestLDAP::Controller::Auth=HASH
> (0x1b66f90)',
> 'TestLDAP=HASH(0x1bdf4cc)') called at /Library/Perl/5.8.6
> /Catalyst/Action.pm line 47
> Catalyst::Action::execute('Catalyst::Action=HASH(0x1bb230c)',
> 'TestLDAP::Controller::Auth=HASH(0x1b66f90)', 'TestLDAP=HASH
> (0x1bdf4cc)')
> called at /Library/Perl/5.8.6/Catalyst/Action.pm line 32
>
> Catalyst::Action::__ANON__('TestLDAP::Controller::Auth=HASH
> (0x1b66f90)',
> 'TestLDAP=HASH(0x1bdf4cc)') called at /Library/Perl/5.8.6/
> Catalyst.pm line
> 1187
> eval {...} called at /Library/Perl/5.8.6/Catalyst.pm line 1187
> Catalyst::execute('TestLDAP=HASH(0x1bdf4cc)',
> 'TestLDAP::Controller::Auth', 'Catalyst::Action=HASH(0x1bb230c)')
> called at
> /Library/Perl/5.8.6/Catalyst/Action.pm line 42
> Catalyst::Action::dispatch('Catalyst::Action=HASH(0x1bb230c)',
> 'TestLDAP=HASH(0x1bdf4cc)') called at /Library/Perl/5.8.6
> /Catalyst/Dispatcher.pm line 177
>
> Catalyst::Dispatcher::forward('Catalyst::Dispatcher=HASH(0x1a79c10)',
> 'TestLDAP=HASH(0x1bdf4cc)', '_ACTION') called at /Library/Perl/5.8.6
> /Catalyst.pm line 300
> Catalyst::forward('TestLDAP=HASH(0x1bdf4cc)', '_ACTION')
> called at
> /Library/Perl/5.8.6/Catalyst/Controller.pm line 48
>
> Catalyst::Controller::_DISPATCH('TestLDAP::Controller::Auth=HASH
> (0x1b66f90)',
> 'TestLDAP=HASH(0x1bdf4cc)') called at /Library/Perl/5.8.6
> /Catalyst/Action.pm line 47
> Catalyst::Action::execute('Catalyst::Action=HASH(0x2d42dfc)',
> 'TestLDAP::Controller::Auth=HASH(0x1b66f90)', 'TestLDAP=HASH
> (0x1bdf4cc)')
> called at /Library/Perl/5.8.6/Catalyst/Action.pm line 32
>
> Catalyst::Action::__ANON__('TestLDAP::Controller::Auth=HASH
> (0x1b66f90)',
> 'TestLDAP=HASH(0x1bdf4cc)') called at /Library/Perl/5.8.6/
> Catalyst.pm line
> 1187
> eval {...} called at /Library/Perl/5.8.6/Catalyst.pm line 1187
> Catalyst::execute('TestLDAP=HASH(0x1bdf4cc)',
> 'TestLDAP::Controller::Auth', 'Catalyst::Action=HASH(0x2d42dfc)')
> called at
> /Library/Perl/5.8.6/Catalyst/Action.pm line 42
> Catalyst::Action::dispatch('Catalyst::Action=HASH(0x2d42dfc)',
> 'TestLDAP=HASH(0x1bdf4cc)') called at /Library/Perl/5.8.6
> /Catalyst/Dispatcher.pm line 177
>
> Catalyst::Dispatcher::forward('Catalyst::Dispatcher=HASH(0x1a79c10)',
> 'TestLDAP=HASH(0x1bdf4cc)', '/auth/_DISPATCH') called at
> /Library/Perl/5.8.6/Catalyst.pm line 300
> Catalyst::forward('TestLDAP=HASH(0x1bdf4cc)', '/auth/
> _DISPATCH')
> called at /Library/Perl/5.8.6/Catalyst/Dispatcher.pm line 116
>
> Catalyst::Dispatcher::dispatch('Catalyst::Dispatcher=HASH(0x1a79c10)',
> 'TestLDAP=HASH(0x1bdf4cc)') called at /Library/Perl/5.8.6/
> Catalyst.pm line
> 1136
> Catalyst::dispatch('TestLDAP=HASH(0x1bdf4cc)') called at
> /System/Library/Perl/5.8.6/NEXT.pm line 75
> NEXT::AUTOLOAD('TestLDAP=HASH(0x1bdf4cc)') called at
> /Library/Perl/5.8.6/Catalyst/Plugin/Static/Simple.pm line 62
>
> Catalyst::Plugin::Static::Simple::dispatch('TestLDAP=HASH(0x1bdf4cc)')
> called at /Library/Perl/5.8.6/Catalyst.pm line 1496
> eval {...} called at /Library/Perl/5.8.6/Catalyst.pm line 1487
> Catalyst::handle_request('TestLDAP') called at /Library/
> Perl/5.8.6
> /Catalyst/Engine/HTTP.pm line 365
>
> Catalyst::Engine::HTTP::_handler
> ('Catalyst::Engine::HTTP::Restarter=HASH(0x1a8d7e0)',
> 'TestLDAP', 3000, 'POST', '/auth/login', 'HTTP/1.1') called at
> /Library/Perl/5.8.6/Catalyst/Engine/HTTP.pm line 275
>
> Catalyst::Engine::HTTP::run('Catalyst::Engine::HTTP::Restarter=HASH
> (0x1a8d7e0)',
> 'TestLDAP', 3000, 'undef', 'HASH(0x180c418)') called at
> /System/Library/Perl/5.8.6/NEXT.pm line 75
> NEXT::AUTOLOAD('Catalyst::Engine::HTTP::Restarter=HASH
> (0x1a8d7e0)',
> 'TestLDAP', 3000, 'undef', 'HASH(0x180c418)') called at /Library/
> Perl/5.8.6
> /Catalyst/Engine/HTTP/Restarter.pm line 69
>
> Catalyst::Engine::HTTP::Restarter::run
> ('Catalyst::Engine::HTTP::Restarter=HASH(0x1a8d7e0)',
> 'TestLDAP', 3000, 'undef', 'HASH(0x180c418)') called at
> /Library/Perl/5.8.6/Catalyst.pm line 1800
> Catalyst::run('TestLDAP', 3000, 'undef', 'HASH(0x180c418)')
> called
> at ./testldap_server.pl line 55"
>
>
> If I turn off debug things seem to play a little bit better -- the
> line
> that seems to be tossing the error is 141 in Credential/Password.pm:
>
> $c->log->debug("Successfully authenticated user '$user'.")
> if $c->debug;
>
> which leads be to believe that there is a bigger issue with passing
> $user
> around as an object vs string vs hash between these modules.
>
> Thanks!
> Wade Stuart
> Fallon Worldwide
> P: 612.758.2660
> C: 612.877.0385
>
>
> _______________________________________________
> List: Catalyst@lists.rawmode.org
> Listinfo: http://lists.rawmode.org/mailman/listinfo/catalyst
> Searchable archive: http://www.mail-archive.com/
> catalyst@lists.rawmode.org/
> Dev site: http://dev.catalyst.perl.org/
---
"Those who can make you believe absurdities can make you commit
atrocities." --Voltaire
_______________________________________________
List: Catalyst@lists.rawmode.org
Listinfo: http://lists.rawmode.org/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.rawmode.org/
Dev site: http://dev.catalyst.perl.org/
--
HJK Solutions - We Launch Startups - http://www.hjksolutions.com
Adam Jacob, Senior Partner
T: (206) 508-4759 E: [EMAIL PROTECTED]
_______________________________________________
List: Catalyst@lists.rawmode.org
Listinfo: http://lists.rawmode.org/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.rawmode.org/
Dev site: http://dev.catalyst.perl.org/
