Revision 1331:1e9b1bdd062e extra
| extra/soundsoftware/SoundSoftware.pm | ||
|---|---|---|
| 72 | 72 |
use warnings FATAL => 'all', NONFATAL => 'redefine'; |
| 73 | 73 |
|
| 74 | 74 |
use DBI; |
| 75 |
use Digest::SHA1;
|
|
| 75 |
use Digest::SHA; |
|
| 76 | 76 |
use Authen::Simple::LDAP; |
| 77 | 77 |
use Apache2::Module; |
| 78 | 78 |
use Apache2::Access; |
| ... | ... | |
| 402 | 402 |
my $redmine_pass = shift; |
| 403 | 403 |
my $r = shift; |
| 404 | 404 |
|
| 405 |
my $pass_digest = Digest::SHA1::sha1_hex($redmine_pass);
|
|
| 405 |
my $pass_digest = Digest::SHA::sha1_hex($redmine_pass); |
|
| 406 | 406 |
|
| 407 | 407 |
my $cfg = Apache2::Module::get_config |
| 408 | 408 |
(__PACKAGE__, $r->server, $r->per_dir_config); |
| ... | ... | |
| 429 | 429 |
print STDERR "SoundSoftware.pm: User $redmine_user has required role, checking credentials\n"; |
| 430 | 430 |
|
| 431 | 431 |
unless ($auth_source_id) {
|
| 432 |
my $salted_password = Digest::SHA1::sha1_hex($salt.$pass_digest);
|
|
| 432 |
my $salted_password = Digest::SHA::sha1_hex($salt.$pass_digest); |
|
| 433 | 433 |
if ($hashed_password eq $salted_password) {
|
| 434 | 434 |
print STDERR "SoundSoftware.pm: User $redmine_user authenticated via password\n"; |
| 435 | 435 |
$ret = 1; |
Also available in: Unified diff