forked from rho_n/hpr_generator
Add option to site-generator to list configured pages
This commit is contained in:
parent
bccfa695a3
commit
818fc25ff9
@ -8,6 +8,7 @@
|
|||||||
|
|
||||||
site-generator [OPTION]... PAGE|PAGE=<comma separated list of ids>...
|
site-generator [OPTION]... PAGE|PAGE=<comma separated list of ids>...
|
||||||
|
|
||||||
|
-l, --list print list of configured pages
|
||||||
-p, --preview print generated pages to standard out
|
-p, --preview print generated pages to standard out
|
||||||
-q, --quiet suppress progress information while generating pages
|
-q, --quiet suppress progress information while generating pages
|
||||||
-v, --verbose print extended progress information while generating pages
|
-v, --verbose print extended progress information while generating pages
|
||||||
@ -95,6 +96,7 @@ sub main {
|
|||||||
my $verbose;
|
my $verbose;
|
||||||
my $quiet;
|
my $quiet;
|
||||||
GetOptions(
|
GetOptions(
|
||||||
|
'list' => \&print_available_pages,
|
||||||
'preview' => \$preview,
|
'preview' => \$preview,
|
||||||
'verbose' => \$verbose,
|
'verbose' => \$verbose,
|
||||||
'quiet' => \$quiet,
|
'quiet' => \$quiet,
|
||||||
@ -275,3 +277,20 @@ sub get_filename {
|
|||||||
}
|
}
|
||||||
return $filename;
|
return $filename;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub print_available_pages {
|
||||||
|
# Load config file
|
||||||
|
read_config "site.cfg" => my %config;
|
||||||
|
|
||||||
|
my @page_args = sort (keys %config);
|
||||||
|
|
||||||
|
# Remove non page sections of the configuration file
|
||||||
|
# from the generated list of pages.
|
||||||
|
@page_args= grep { $_ ne 'DBI' } @page_args;
|
||||||
|
@page_args= grep { $_ ne 'root_template' } @page_args;
|
||||||
|
|
||||||
|
foreach my $page_arg (@page_args) {
|
||||||
|
print "$page_arg\n";
|
||||||
|
}
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user