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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

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