# HG changeset patch # User Chris Cannam # Date 1371724410 -3600 # Node ID 1e9b1bdd062ebc3806048f677a19f0a68e1e2ccb # Parent 441b66f148b62d4c74c80856774a903f4b178b13 SHA1 -> SHA (module renamed) diff -r 441b66f148b6 -r 1e9b1bdd062e extra/soundsoftware/SoundSoftware.pm --- 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;