| @@ -453,7 +453,6 sub is_member { | |||||
| 453 | my $redmine_pass = shift; |
|
453 | my $redmine_pass = shift; | |
| 454 | my $r = shift; |
|
454 | my $r = shift; | |
| 455 |
|
455 | |||
| 456 | my $dbh = connect_database($r); |
|
|||
| 457 | my $project_id = get_project_identifier($r); |
|
456 | my $project_id = get_project_identifier($r); | |
| 458 |
|
457 | |||
| 459 | my $pass_digest = Digest::SHA::sha1_hex($redmine_pass); |
|
458 | my $pass_digest = Digest::SHA::sha1_hex($redmine_pass); | |
| @@ -466,6 +465,7 sub is_member { | |||||
| 466 | $usrprojpass = $cfg->{RedmineCacheCreds}->get($redmine_user.":".$project_id.":".$access_mode); |
|
465 | $usrprojpass = $cfg->{RedmineCacheCreds}->get($redmine_user.":".$project_id.":".$access_mode); | |
| 467 | return 1 if (defined $usrprojpass and ($usrprojpass eq $pass_digest)); |
|
466 | return 1 if (defined $usrprojpass and ($usrprojpass eq $pass_digest)); | |
| 468 | } |
|
467 | } | |
|
|
468 | my $dbh = connect_database($r); | |||
| 469 | my $query = $cfg->{RedmineQuery}; |
|
469 | my $query = $cfg->{RedmineQuery}; | |
| 470 | my $sth = $dbh->prepare($query); |
|
470 | my $sth = $dbh->prepare($query); | |
| 471 | $sth->execute($redmine_user, $project_id); |
|
471 | $sth->execute($redmine_user, $project_id); | |
General Comments 0
You need to be logged in to leave comments.
Login now