Redmine

  my $redmine_pass = shift;

  my $r = shift;

  my $project_id  = get_project_identifier($r);

  my $pass_digest = Digest::SHA::sha1_hex($redmine_pass);

    $usrprojpass = $cfg->{RedmineCacheCreds}->get($redmine_user.":".$project_id.":".$access_mode);

    return 1 if (defined $usrprojpass and ($usrprojpass eq $pass_digest));

  }

  my $query = $cfg->{RedmineQuery};

  my $sth = $dbh->prepare($query);

  $sth->execute($redmine_user, $project_id);