|
Lines 143-152
for my $authtypecode (@authtypecodes) {
Link Here
|
| 143 |
($verbose >= 2) and logger("Building query..."); |
143 |
($verbose >= 2) and logger("Building query..."); |
| 144 |
my $query = _build_query( $authrecord, $attempt ); |
144 |
my $query = _build_query( $authrecord, $attempt ); |
| 145 |
($verbose >= 2) and logger("Building query done."); |
145 |
($verbose >= 2) and logger("Building query done."); |
| 146 |
$debug and $query and warn $query; |
146 |
($verbose >= 2) and logger ($query); |
| 147 |
# This prevent too general queries to be executed |
147 |
# This prevent too general queries to be executed |
| 148 |
# TODO: This should allow more than these 3 indexes |
148 |
# TODO: This should allow more than these 3 indexes |
| 149 |
next unless $query =~ /(he|he-main|ident)(,\S*)*(=|:)/; |
149 |
next unless $query =~ /(ppn|he|he-main|ident)(,\S*)*(=|:)/; |
| 150 |
|
150 |
|
| 151 |
($verbose >= 2) and logger("Searching..."); |
151 |
($verbose >= 2) and logger("Searching..."); |
| 152 |
my ($error, $results) = SimpleSearch($query, undef, undef, ["authorityserver"]); |
152 |
my ($error, $results) = SimpleSearch($query, undef, undef, ["authorityserver"]); |
| 153 |
- |
|
|