+ # Index node will be needed now, find it
+ if ($index_node eq '')
+ {
+ $node = '';
+ open CONTENTS, $contents or die "Cannot open $contents: $!";
+ while (<CONTENTS>)
+ {
+ chomp;
+ last if ($node) = /^\s*HREF=\"(.+?\.html)\">\s*Index\s*<\/A>(?:<\/B>)?$/;
+ }
+ close CONTENTS;
+ $index_node = $node if $node ne '';
+ $index_node = 'Index.html' if $index_node eq '';
+ $index = $cin_man.'/'.$index_node;
+ }