/[webpac-proto]/test_config.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /test_config.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by dpavlin, Sun Jun 16 18:11:14 2002 UTC revision 1.2 by dpavlin, Sun Jun 16 19:39:42 2002 UTC
# Line 6  require "./common.pm"; Line 6  require "./common.pm";
6    
7  # check mps_header  # check mps_header
8  require "./search/config.pm";  require "./search/config.pm";
9    
10    my %mps;
11  foreach (split(/\n/,$common::mps_header)) {  foreach (split(/\n/,$common::mps_header)) {
12          if (/^F /) {          if (/^F /) {
13                  my (undef,$fld,undef) = split(/ /,$_,3);                  my (undef,$fld,$desc,undef) = split(/ /,$_,4);
14                  die "fix 'common.pm' field $fld in mps_header is not in *SearchFieldNames" if (!grep(/$fld/,@main::NormalSearchFieldNames) && !grep(/$fld/,@main::AdvancedSearchFieldNames));                  die "fix 'common.pm' field $fld in mps_header is not in *SearchFieldNames" if (!grep(/$fld/,@main::NormalSearchFieldNames) && !grep(/$fld/,@main::AdvancedSearchFieldNames));
15                    $mps{$fld} = $desc;
16          }          }
17  }  }
18    
# Line 17  foreach (split(/\n/,$common::mps_header) Line 20  foreach (split(/\n/,$common::mps_header)
20  foreach (@default::FieldDisplayOrder) {  foreach (@default::FieldDisplayOrder) {
21          die "fix 'search/config.pm' field $_ in FieldDisplayOrder is not in FieldNames" if (! $default::FieldNames{$_});          die "fix 'search/config.pm' field $_ in FieldDisplayOrder is not in FieldNames" if (! $default::FieldNames{$_});
22  }  }
23    foreach (keys %default::FieldNames) {
24            die "fix 'search/config.pm' field $_ in FieldNames but not in FieldDisplayOrder" if (! grep(/$_/,@default::FieldDisplayOrder));
25    }
26  foreach (@default::Separator) {  foreach (@default::Separator) {
27          die "fix 'search/config.pm' field $_ in Separator is not in FieldNames" if (! $default::FieldNames{$_});          die "fix 'search/config.pm' field $_ in Separator is not in FieldNames" if (! $default::FieldNames{$_});
28  }  }
29    foreach (@main::NormalSearchFieldNames) {
30            die "fix 'search/config.pm' or 'common.pm' field $_ from NormalSearchFieldNames not in mps_header" if (! $mps{$_});
31    }
32    foreach (@main::AdvancedSearchFieldNames) {
33            die "fix 'search/config.pm' or 'common.pm' field $_ from AdvancedSearchFieldNames not in mps_header" if (! $mps{$_});
34    }
35    
36    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.26