-if (defined $maxsize) {
- my($fileno)=-1;
- my($filename,$fileid);
- foreach $owner (sort { $DB{$b}{"name"} cmp $DB{$a}{"name"}; } keys %OWNS) {
- my( $child );
-
- if ($fileno<0 || tell(OUT)>=$maxsize) {
- OUT_flush() if ($fileno>=0);
- $fileid=sprintf("%04d",++$fileno);
- $filename="kew-$fileid.html";
- open(OUT,">$filename") or die "Cannot open \"$filename\": $!";
- print_header("chunk $fileid");
- }
-
- if ($debugmatch) {
- print STDERR "($owner):";
- foreach $child (@{$OWNS{$owner}})
- { print STDERR " ($child)"; }
- print STDERR "\n";
- }
- print OUT format_record("<p><a id=\"".htmlquote($owner)."\">","</a></p>\n",%{$DB{$owner}});
- if (@{$OWNS{$owner}}) {
- print OUT "<blockquote>\n";
- foreach $child (@{$OWNS{$owner}})
- { print OUT format_record("<p>","</p>\n",%{$DB{$child}}); }
- print OUT "</blockquote>\n";
- }
- print OUT "\n";
- $DB{$owner}{"_filename"}=$filename;
- }
- OUT_flush();
- open(OUT,">kew-index.html") or die "Cannot open \"kew-index.html\": $!";
- print_header("Index");
- }
-else {
- open(OUT,">kewensis.html") or die "Cannot open \"kewensis.html\": $!";
- print_header("Full");
- }