[Catalyst] Authentication - unix crypt

[upb]

Looks like it was easier than I thought (just had a
little trouble getting it from the docs)...

I added:

password_type: crypted

to my .yml file.

Thanks for the help!

--- Daniel McBrearty <danielmcbrearty at gmail.com>
wrote:

> 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 <usr_bin_perl at yahoo.com> 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: Catalyst at 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/
> >
> 
> 
> -- 
> Daniel McBrearty
> email : danielmcbrearty at gmail.com
> www.engoi.com : the multi - language vocab trainer
> BTW : 0873928131
> 
> _______________________________________________
> List: Catalyst at 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/
> 



 
____________________________________________________________________________________
Any questions? Get answers on any topic at www.Answers.yahoo.com.  Try it now.