depot/third_party/nixpkgs/pkgs/by-name/la/lanraragi/expose-password-hashing.patch

36 lines
1 KiB
Diff

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);
}
}