Fix configuration test for #2321
This commit is contained in:
parent
723dcce62f
commit
3c2ddd9029
|
@ -861,14 +861,14 @@ sub tests {
|
|||
return ( $res, join( ', ', @msg ) );
|
||||
},
|
||||
|
||||
# CAS APP URL must be unique
|
||||
# CAS APP URL must be defined and unique
|
||||
casAppHostnameUniqueness => sub {
|
||||
return 1
|
||||
unless ( $conf->{casAppMetaDataOptions}
|
||||
and %{ $conf->{casAppMetaDataOptions} } );
|
||||
my @msg;
|
||||
my $res = 1;
|
||||
my %casHosts;
|
||||
my %casUrl;
|
||||
foreach my $casConfKey ( keys %{ $conf->{casAppMetaDataOptions} } )
|
||||
{
|
||||
my $appUrl =
|
||||
|
@ -883,13 +883,13 @@ sub tests {
|
|||
next;
|
||||
}
|
||||
|
||||
if ( defined $casHosts{$appHost} ) {
|
||||
if ( defined $casUrl{$appUrl} ) {
|
||||
push @msg,
|
||||
"$casConfKey and $casHosts{$appHost} have the same Service hostname";
|
||||
"$casConfKey and $casUrl{$appUrl} have the same Service URL";
|
||||
$res = 0;
|
||||
next;
|
||||
}
|
||||
$casHosts{$appHost} = $casConfKey;
|
||||
$casUrl{$appUrl} = $casConfKey;
|
||||
}
|
||||
return ( $res, join( ', ', @msg ) );
|
||||
},
|
||||
|
|
Loading…
Reference in New Issue
Block a user