* On Thu, May 22 2008, J. Shirley wrote:
> On Thu, May 22, 2008 at 12:48 PM, Stephan Jennewein <[EMAIL PROTECTED]> wrote:
>> Hi,
>>
>> what's the common way to add user with encrypted passwords with the algorithm
>> i've chosen in the config . There are nice plugins for authenticating users
>> but no for create new users. I tried to write a hook for the schema, but it
>> won't work. Can anyone give me a working solution ?
>>
>> Stephan
>>
>
> That depends how you are storing the users, which you didn't really explain.
>
> I'll just assume that you are using
> Catalyst::Authentication::Store::DBIx::Class and have a DBIx::Class
> schema class that you store your users in.
>
> If that assumption is correct, simply use DBIx::Class::EncodedColumn
>
> http://search.cpan.org/~groditi/DBIx-Class-EncodedColumn-0.00001/lib/DBIx/Class/EncodedColumn.pm
As an aside, here's the script I use for creating password hashes (using
EncodedColumn and Bcrypt):
use strict;
use warnings;
use DBIx::Class::EncodedColumn::Crypt::Eksblowfish::Bcrypt;
use Term::ReadLine;
chomp(my $password = Term::ReadLine->new($0)->readline('Password> '));
print DBIx::Class::EncodedColumn::Crypt::Eksblowfish::Bcrypt->
make_encode_sub->($password), "\n";
Yes, the password is echoed.
Regards,
Jonathan Rockway
--
print just => another => perl => hacker => if $,=$"
_______________________________________________
List: [email protected]
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/[email protected]/
Dev site: http://dev.catalyst.perl.org/
