comparison extra/soundsoftware/SoundSoftware.pm @ 1331:1e9b1bdd062e live

SHA1 -> SHA (module renamed)

 
 use strict;
 use warnings FATAL => 'all', NONFATAL => 'redefine';
 
 use DBI;
-use Digest::SHA1;
+use Digest::SHA;
 use Authen::Simple::LDAP;
 use Apache2::Module;
 use Apache2::Access;
 use Apache2::ServerRec qw();
 use Apache2::RequestRec qw();

     my $project_id = shift;
     my $redmine_user = shift;
     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);
 
     my $query = $cfg->{SoundSoftwareQuery};

 	    # credentials checked out -- test those now
 
 	    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;
 		    last;
 		}