open (ALLFILE, "<$Index_File") | | &Fatal;
open (SECFILE, ">$Second_File")| | &Fatal;
foreach $LINE (<ALLFILE, SECFILE> ) {
******************************************
Relevance Codes
******************************************
}
close(ALLFILE);
close(SECFILE);

my (%IndexFile, %BaseDir, %BaseURL, %Exclude);
my $RealmFile = 'realms'; # | delimited database of indexes


#### this loads realm data formatted as $fields[] , %IndexFile = [1]
sub LoadRealms {
#how did he open/read/close realms?
foreach (Lines($RealmFile, 1)) {
my @Fields = split(m!\|!);
next unless ($Fields[0] && $Fields[1]);
my $Realm = $Fields[0];
$IndexFile{$Realm} = $Fields[1];
$BaseDir{$Realm} = $Fields[2] | | '';
$BaseURL{$Realm} = $Fields[3] | | '';
$Exclude{$Realm} = $Fields[4] | | '';
}
}



#### Search
# &SearchIndexFile($IndexFile{$Realm}) = specific realm {$Realm}
# &SearchIndexFile($IndexFile{$_}) = all realms {$_}
# If Realm is specific, search it - otherwise search all:
# simplified to just index files
if (($Realm) && ($Realm ne 'All')) {
&SearchIndexFile($IndexFile{$Realm});
}

else {
foreach (keys %IndexFile) {
&SearchIndexFile($IndexFile{$_});
}
}



sub SearchIndexFile {
my ($IndexFile) = (@_);
unless (open(ALLFILE,"<$IndexFile")) {
print "<!--foo-->\n" if ($AllowDebug == 1);
return 0;
}
Record: while (<ALLFILE> ) {
# etc.
}
}