Hi Folks,

I am working on a Project to migrate the Legacy App in Perl to Catalyst Framework. Legacy app has its own authentication mechanism. And it uses Crypt::PBKDF2 to store the password in the database.

I want to use Catalyst::Plugin::Authentication instead of custom login mechanism for catalyst but I didn't find a way to authenticate password using Authentication Plugin

Legacy: 

 
           $pbk_crypt = Crypt::PBKDF2->new(
                hash_class => 'HMACSHA2',
                hash_args => {
                        sha_size => 512,
                },
                iterations => 10000,
                salt_len => 10,
        );

        $pass = $pbk_crypt->generate('password');

[download]

Catalyst 

__PACKAGE__->config(
    'Plugin::Authentication' => {
        default => {
            class                    => 'SimpleDB',
            user_model          => 'DB::User',
            password_type   => 'self_check',
        },
)

[download]
And in the User table following code is added: 
__PACKAGE__->add_columns(
    'password' => {
        passphrase       => 'rfc2307',
        passphrase_class => 'SaltedDigest',
        passphrase_args  => {
            algorithm   => 'SHA-512',
            salt_random => 10,
            iterations => 10000,
        },
        passphrase_check_method => 'check_password',
    },
);

[download]

And in Controller : 

 if ($username and $password) {
    if ($c->authenticate({ username => $username,
                               password => $password  } )) {
            
            $c->response->redirect($c->uri_for_action('/profile'));
            return;
        } else {
            # Set an error message
            $c->stash(error_msg => "Bad username or password.");
        }
}

[download]
but it's not working. I am not sure what I am doing wrong here.

In reply to Perl Catalyst by akuk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.