Mercurial > hg > soundsoftware-site

changeset 1331:1e9b1bdd062e live

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
SHA1 -> SHA (module renamed)
author Chris Cannam
date Thu, 20 Jun 2013 11:33:30 +0100
parents 441b66f148b6
children 1d1cb01c0417
files extra/soundsoftware/SoundSoftware.pm
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/extra/soundsoftware/SoundSoftware.pm	Thu Jun 20 11:32:06 2013 +0100
+++ b/extra/soundsoftware/SoundSoftware.pm	Thu Jun 20 11:33:30 2013 +0100
@@ -72,7 +72,7 @@
 use warnings FATAL => 'all', NONFATAL => 'redefine';
 
 use DBI;
-use Digest::SHA1;
+use Digest::SHA;
 use Authen::Simple::LDAP;
 use Apache2::Module;
 use Apache2::Access;
@@ -402,7 +402,7 @@
     my $redmine_pass = shift;
     my $r = shift;
 
-    my $pass_digest = Digest::SHA1::sha1_hex($redmine_pass);
+    my $pass_digest = Digest::SHA::sha1_hex($redmine_pass);
 
     my $cfg = Apache2::Module::get_config
 	(__PACKAGE__, $r->server, $r->per_dir_config);
@@ -429,7 +429,7 @@
 	    print STDERR "SoundSoftware.pm: User $redmine_user has required role, checking credentials\n";
 
 	    unless ($auth_source_id) {
-                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) {
 		    print STDERR "SoundSoftware.pm: User $redmine_user authenticated via password\n";
 		    $ret = 1;