1 |
dpavlin |
1.1 |
#!/usr/bin/perl |
2 |
|
|
# |
3 |
|
|
# test configuration files |
4 |
|
|
|
5 |
|
|
require "./common.pm"; |
6 |
|
|
|
7 |
|
|
# check mps_header |
8 |
|
|
require "./search/config.pm"; |
9 |
|
|
foreach (split(/\n/,$common::mps_header)) { |
10 |
|
|
if (/^F /) { |
11 |
|
|
my (undef,$fld,undef) = split(/ /,$_,3); |
12 |
|
|
die "fix 'common.pm' field $fld in mps_header is not in *SearchFieldNames" if (!grep(/$fld/,@main::NormalSearchFieldNames) && !grep(/$fld/,@main::AdvancedSearchFieldNames)); |
13 |
|
|
} |
14 |
|
|
} |
15 |
|
|
|
16 |
|
|
## check search/config.pm |
17 |
|
|
foreach (@default::FieldDisplayOrder) { |
18 |
|
|
die "fix 'search/config.pm' field $_ in FieldDisplayOrder is not in FieldNames" if (! $default::FieldNames{$_}); |
19 |
|
|
} |
20 |
|
|
foreach (@default::Separator) { |
21 |
|
|
die "fix 'search/config.pm' field $_ in Separator is not in FieldNames" if (! $default::FieldNames{$_}); |
22 |
|
|
} |
23 |
|
|
|