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

This commit is contained in:
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. next; # only dealing with wiki pages.
} }
my $fn = $dent;
$fn =~ s/\..*\Z//;
# Ignore FrontPage.
next if $fn eq 'FrontPage';
# Ignore "Category*" pages. # Ignore "Category*" pages.
next if ($dent =~ /\ACategory/); next if ($fn =~ /\ACategory/);
open(FH, '<', "$wikipath/$dent") or die("Can't open '$wikipath/$dent': $!\n"); open(FH, '<', "$wikipath/$dent") or die("Can't open '$wikipath/$dent': $!\n");
my $current_section = '[start]'; my $current_section = '[start]';
my @section_order = ( $current_section ); my @section_order = ( $current_section );
my $fn = $dent;
$fn =~ s/\..*\Z//;
my %sections = (); my %sections = ();
$sections{$current_section} = ''; $sections{$current_section} = '';