Changeset fc8707b for client/bin/gbrm

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/gbrm (modified) (2 diffs)

client/bin/gbrm

@@ -11 +11 @@
 use Getopt::Long;
 
-my $usage = "Usage: gbq [-q QUEUE] ID\n";
+# usage
+my $usage = <<USAGE;
+Usage: gbq [options] [-q QUEUE] ID
+
+        -q, --queue             Specify a queue other than the default
+        -h, --help              Print this message
+USAGE
+
+# initialize the variables for the options
 my $q = "";
-GetOptions ('q|queue=s' => \$q);
+my $help = 0;
+
+# parse the options
+GetOptions ('q|queue=s' => \$q,
+            'h|help', => \$help);
+
+# if the -h flag was passed, then print the usage and exit
+if ($help) {
+    print $usage;
+    exit 0;
+}
 
 my @ids = @ARGV[0 .. $#ARGV];
@@ -19 +37 @@
 # if the -q option is not specified, then assume we're using the
 # default queue
-if (!$q){
+if (!$q) {
     $q = "DEFAULT";
 }