diff --git a/lib/LANraragi/Controller/Config.pm b/lib/LANraragi/Controller/Config.pm index 2cd2c999..0bd8ab6e 100644 --- a/lib/LANraragi/Controller/Config.pm +++ b/lib/LANraragi/Controller/Config.pm @@ -50,6 +50,15 @@ sub index { ); } +sub make_password_hash { + my $ppr = Authen::Passphrase::BlowfishCrypt->new( + cost => 8, + salt_random => 1, + passphrase => shift, + ); + return $ppr->as_rfc2307; +} + # Save the given parameters to the Redis config sub save_config { @@ -95,14 +104,7 @@ sub save_config { my $password = $self->req->param('newpassword'); if ( $password ne "" ) { - my $ppr = Authen::Passphrase::BlowfishCrypt->new( - cost => 8, - salt_random => 1, - passphrase => $password, - ); - - my $pass_hashed = $ppr->as_rfc2307; - $confhash{password} = $pass_hashed; + $confhash{password} = make_password_hash($password); } }