which bit is a problem?
I have this working AOK at home, don't have the source right in front
of me. But IIRC all we had to do was tell the Auth module to use crypt
...
When I get home I'll post the source. Anyhow, it seems to work out of
the box ... also with passwords that were previously in an apache
style password file, that have been moved into the db.
when you store the password, just pass crypt 'xx', $password to the db ...
On 12/12/06, upb <[EMAIL PROTECTED]> wrote:
I've built an app using the Tutorial as a guide. I'm
authenticating with a user table using plain text
passwords (just as in the tutorial). Now I'd like to
use existing user data that has passwords stored using
unix Crypt (with the crypt function in Perl).
After reading the docs, it looks like I can use
Catalyst::Plugin::Authentication::Credential::Password
but I'm unclear exactly what I need to do.
>From the docs, I see this goes somewhere...
$user->supported_features(qw/password crypted/);
and that there is an expected method -
crypted_password - which returns the user's crypted
password as a string, with the salt as the first two
chars.
Our passwords are crypted using the example in the
Perl Cookbook (or Camel book)...
my $salt = join '',
('.','/',0..9,'A'..'Z','a'..'z')[rand 64,rand 64];
my $crypt_pwd = crypt($plain_pwd,$salt);
I've just started using Catalyst, and this is the
first thing that's tripped me up.
Thank you.
____________________________________________________________________________________
Need a quick answer? Get one in minutes from people who know.
Ask your question on www.Answers.yahoo.com
_______________________________________________
List: [email protected]
Listinfo: http://lists.rawmode.org/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/[email protected]/
Dev site: http://dev.catalyst.perl.org/
--
Daniel McBrearty
email : danielmcbrearty at gmail.com
www.engoi.com : the multi - language vocab trainer
BTW : 0873928131
_______________________________________________
List: [email protected]
Listinfo: http://lists.rawmode.org/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/[email protected]/
Dev site: http://dev.catalyst.perl.org/
