extra-svn-Redmine-pm.patch

Bruno Orcha GarcĂ­a, 2015-05-27 12:43

Download (761 Bytes)

View differences:

extra/svn/Redmine.pm (copia de trabajo)
453 453
  my $redmine_pass = shift;
454 454
  my $r = shift;
455 455

  
456
  my $dbh         = connect_database($r);
457 456
  my $project_id  = get_project_identifier($r);
458 457

  
459 458
  my $pass_digest = Digest::SHA::sha1_hex($redmine_pass);
......
466 465
    $usrprojpass = $cfg->{RedmineCacheCreds}->get($redmine_user.":".$project_id.":".$access_mode);
467 466
    return 1 if (defined $usrprojpass and ($usrprojpass eq $pass_digest));
468 467
  }
468
  my $dbh = connect_database($r);
469 469
  my $query = $cfg->{RedmineQuery};
470 470
  my $sth = $dbh->prepare($query);
471 471
  $sth->execute($redmine_user, $project_id);