rho_n/hpr_generator
4
2
Fork 1
Code Issues 30 Pull Requests 4 Projects 1 Releases Wiki Activity

Add quiet option to site-generator

Browse Source 
Suppress progress information while generating pages.
This commit is contained in:
Roan Horning 2022-08-07 21:49:10 -04:00
parent 4725547d39
commit a194a28b71
Signed by: rho_n
GPG Key ID: 234AEF20B72D5769
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
site-generator
View File

@ -9,7 +9,8 @@
site-generator [OPTION]... PAGE|PAGE=<comma separated list of ids>... site-generator [OPTION]... PAGE|PAGE=<comma separated list of ids>...
-p, --preview print generated pages to standard out -p, --preview print generated pages to standard out
-v, --verbose use verbose mode -q, --quiet suppress progress information while generating pages
-v, --verbose print extended progress information while generating pages
--help print this help message --help print this help message
Where I<PAGE> is a file name of a web page Where I<PAGE> is a file name of a web page
@ -92,13 +93,19 @@ sub main {
# Argument parsing # Argument parsing
my $preview; my $preview;
my $verbose; my $verbose;
my $quiet;
GetOptions( GetOptions(
'preview' => \$preview, 'preview' => \$preview,
'verbose' => \$verbose, 'verbose' => \$verbose,
'quiet' => \$quiet,
) or pod2usage(1); ) or pod2usage(1);
pod2usage(1) unless @ARGV; pod2usage(1) unless @ARGV;
my (@page_args) = @ARGV; my (@page_args) = @ARGV;
if ($quiet) {
$verbose = 'quiet';
};
# Set flag indicating whether or not to generate all pages. # Set flag indicating whether or not to generate all pages.
# The flag is set to true if the special argument ALL is # The flag is set to true if the special argument ALL is
# passed into the generator # passed into the generator
@ -186,7 +193,9 @@ sub generate_page {
sub verbose { sub verbose {
my ($verbose, $message) = @_; my ($verbose, $message) = @_;
if ($verbose) { if ($verbose) {
print STDOUT "$message\n"; if ($verbose ne 'quiet') {
print STDOUT "$message\n";
}
} }
else { else {
STDOUT->autoflush(1); STDOUT->autoflush(1);