build-scripts/wikiheaders.pl: ignore the 'FrontPage' wiki pages.

main
Ryan C. Gordon 2022-06-23 16:07:35 -04:00
parent bd49696133
commit 118a2189fb
No known key found for this signature in database
GPG Key ID: FA148B892AB48044
1 changed files with 7 additions and 3 deletions

View File

@ -597,15 +597,19 @@ while (readdir(DH)) {
next; # only dealing with wiki pages.
}
my $fn = $dent;
$fn =~ s/\..*\Z//;
# Ignore FrontPage.
next if $fn eq 'FrontPage';
# Ignore "Category*" pages.
next if ($dent =~ /\ACategory/);
next if ($fn =~ /\ACategory/);
open(FH, '<', "$wikipath/$dent") or die("Can't open '$wikipath/$dent': $!\n");
my $current_section = '[start]';
my @section_order = ( $current_section );
my $fn = $dent;
$fn =~ s/\..*\Z//;
my %sections = ();
$sections{$current_section} = '';