Changeset 1454 in ProjectBuilder

Timestamp:

Apr 6, 2012, 11:08:09 AM (12 years ago)

Author:

ebaudrez

Message:

minor tweaks to command-line option processing

$debug is now an incrementable number. Removed the abbreviation '-old'
for '-oldroot', as Getopt::Long automatically automatically recognizes
such abbreviations.

File:

• projects/md2mb/devel/md2mb/bin/md2mb.pl (modified) (3 diffs)

projects/md2mb/devel/md2mb/bin/md2mb.pl

@@ -34 +34 @@
 # parse command-line options
 GetOptions(
-    'cmd|c'           => \$cmd,
-    'debug|d'         => \$debug,
-    'file|f'          => \$file,
-    'help|h'          => \$help,
-    'man|m'           => \$man,
-    'oldroot|old|o=s' => \$oldroot,
-    'profile|p=s'     => \$profile,
-    'subdir|s=s'      => \$subdir,
-    'touch|t'         => \$touch,
+    'cmd|c'       => \$cmd,
+    'debug|d+'    => \$debug,
+    'file|f'      => \$file,
+    'help|h'      => \$help,
+    'man|m'       => \$man,
+    'oldroot|o=s' => \$oldroot,
+    'profile|p=s' => \$profile,
+    'subdir|s=s'  => \$subdir,
+    'touch|t'     => \$touch,
 ) or pod2usage(2);
 pod2usage(1) if ($help);
@@ -56 +56 @@
 DEBUG MODE, not doing anything, just printing
 --- current state ---
+debug   = $debug
 cmd     = $cmd
 oldroot = $oldroot
@@ -203 +204 @@
 
  Options:
-   -cmd     | -c                command to process mail
-   -debug   | -d        debug mode
-   -file    | -f                whether $newroot is a file or a directory
-   -help    | -h        brief help message
-   -man     | -m        full documentation
-   -oldroot | -old | -o     location of the KMail mailboxes
-   -profile | -p        path to the Thunderbird profile to install to
-   -subdir  | -s        subdir that will be created to hold the
-                imported mails
-   -touch   | -t        create empty files corresponding to .sdb dirs
+   -cmd     | -c    command to process mail
+   -debug   | -d    debug mode
+   -file    | -f    whether $newroot is a file or a directory
+   -help    | -h    brief help message
+   -man     | -m    full documentation
+   -oldroot | -o    location of the KMail mailboxes
+   -profile | -p    path to the Thunderbird profile to install to
+   -subdir  | -s    subdir that will be created to hold the
+            imported mails
+   -touch   | -t    create empty files corresponding to .sdb dirs
 
 =head1 OPTIONS