Changeset fc8707b for client/bin/gutenbach-client-config

Timestamp:

Oct 2, 2010, 9:20:02 PM (15 years ago)

Author:

Jessica B. Hamrick <jhamrick@…>

Branches:

master, debian, mac, no-cups

Children:

a5cf43b

Parents:

6b7441a

git-author:

Jessica B. Hamrick <jhamrick@…> (10/02/10 21:20:02)

git-committer:

Jessica B. Hamrick <jhamrick@…> (10/02/10 21:20:02)

Message:

Add '-hhelp' flags to all the client scripts

Add a '-ddryrun' option to gbr, to just list what would be done instead of doing it

File:

• client/bin/gutenbach-client-config (modified) (4 diffs)

client/bin/gutenbach-client-config

@@ -10 +10 @@
 # the usage for the program
 my $usage = <<USAGE;
-Usage: gutenbach-client-config [-l|--list|-a|--add|-d|--delete] [QUEUE] [--host=HOST]
+Usage: gutenbach-client-config [options]
 
         -l, --list              List available queues
@@ -16 +16 @@
         -d, --delete QUEUE      Delete a queue
         -s, --set-default QUEUE Set the default queue
-        -h, --host HOST         Hostname for the queue
+        -h, --host HOST         Hostname for the queue (must be used with -a)
+        -H, --help              Print this message
 USAGE
 
@@ -25 +26 @@
 my $host = "";
 my $default = "";
+my $help = 0;
 
 # get the options from the command line
@@ -31 +33 @@
             'a|add=s' => \$add,
             'd|delete=s' => \$delete,
-            'h|host=s' => \$host);
+            'h|host=s' => \$host,
+            'H|help' => \$help);
+
+# if the -H flag was passed, then print the usage and exit
+if ($help) {
+    print $usage;
+    exit 0;
+}
 
 # set the path where the configuration files live