diff options
author | Jean-Philippe Lang <jp_lang@yahoo.fr> | 2012-02-15 19:25:16 +0000 |
---|---|---|
committer | Jean-Philippe Lang <jp_lang@yahoo.fr> | 2012-02-15 19:25:16 +0000 |
commit | 6a290cc281e69fdfe25c759aa7883ae7103e3d39 (patch) | |
tree | a889814a55b0ecbd59f72b71ac15d357bea74805 /extra | |
parent | f84273ca9138c61945e33640aa39cf64805e7642 (diff) | |
download | redmine-6a290cc281e69fdfe25c759aa7883ae7103e3d39.tar.gz redmine-6a290cc281e69fdfe25c759aa7883ae7103e3d39.zip |
Use Digest::SHA instead of Digest::SHA1 in Redmine.pm (#10242).
git-svn-id: svn+ssh://rubyforge.org/var/svn/redmine/trunk@8882 e93f8b46-1217-0410-a6f0-8f06a7374b81
Diffstat (limited to 'extra')
-rw-r--r-- | extra/svn/Redmine.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/extra/svn/Redmine.pm b/extra/svn/Redmine.pm index 31f204d8a..fcc87ca13 100644 --- a/extra/svn/Redmine.pm +++ b/extra/svn/Redmine.pm @@ -99,7 +99,7 @@ use strict; use warnings FATAL => 'all', NONFATAL => 'redefine'; use DBI; -use Digest::SHA1; +use Digest::SHA; # optional module for LDAP authentication my $CanUseLDAPAuth = eval("use Authen::Simple::LDAP; 1"); @@ -327,7 +327,7 @@ sub is_member { my $dbh = connect_database($r); my $project_id = get_project_identifier($r); - my $pass_digest = Digest::SHA1::sha1_hex($redmine_pass); + my $pass_digest = Digest::SHA::sha1_hex($redmine_pass); my $access_mode = defined $read_only_methods{$r->method} ? "R" : "W"; @@ -346,7 +346,7 @@ sub is_member { unless ($auth_source_id) { my $method = $r->method; - my $salted_password = Digest::SHA1::sha1_hex($salt.$pass_digest); + my $salted_password = Digest::SHA::sha1_hex($salt.$pass_digest); if ($hashed_password eq $salted_password && (($access_mode eq "R" && $permissions =~ /:browse_repository/) || $permissions =~ /:commit_access/) ) { $ret = 1; last; |