From 3a67b8d27af05adb73a4071ebfd4fa214a587dd3 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 1 Apr 2013 18:07:49 -0700
Subject: [PATCH] document verbose and progress; add back quiet tag
---
bin/debbugs-loadsql | 41 +++++++++++++++++++++++++++--------------
1 file changed, 27 insertions(+), 14 deletions(-)
diff --git a/bin/debbugs-loadsql b/bin/debbugs-loadsql
index 950bfe70..6b7d68b1 100755
--- a/bin/debbugs-loadsql
+++ b/bin/debbugs-loadsql
@@ -21,6 +21,7 @@ debbugs-loadsql [options]
Options:
--quick, -q only load changed bugs
+ --progress Show progress bar
--service, -s service name
--sysconfdir, -c postgresql service config dir
--spool-dir debbugs spool directory
@@ -36,6 +37,10 @@ debbugs-loadsql [options]
Only load changed bugs
+=item B<--progress>
+
+Show progress bar (requires Term::ProgressBar)
+
=item B<--service,-s>
Postgreql service to use; defaults to debbugs
@@ -50,6 +55,11 @@ postgresql default. [Operates by setting PGSYSCONFDIR]
Debbugs spool directory; defaults to the value configured in the
debbugs configuration file.
+=item B<--verbose>
+
+Output more information about what is happening. Probably not useful
+if you also set --progress.
+
=item B<--debug, -d
Debug verbosity.
@@ -80,24 +90,27 @@ use DateTime;
use File::stat;
-my %options = (debug => 0,
- help => 0,
- man => 0,
- verbose => 0,
- quiet => 0,
- quick => 0,
- service => 'debbugs',
- progress => 0,
- );
+my %options =
+ (debug => 0,
+ help => 0,
+ man => 0,
+ verbose => 0,
+ quiet => 0,
+ quick => 0,
+ service => 'debbugs',
+ progress => 0,
+ );
GetOptions(\%options,
- 'quick|q',
- 'service|s',
- 'sysconfdir|c',
+ 'quick|q',
+ 'service|s',
+ 'sysconfdir|c',
'progress!',
- 'spool_dir|spool-dir=s',
- 'debug|d+','help|h|?','man|m');
+ 'spool_dir|spool-dir=s',
+ 'verbose|v+',
+ 'quiet+',
+ 'debug|d+','help|h|?','man|m');
pod2usage() if $options{help};
pod2usage({verbose=>2}) if $options{man};
--
2.39.5