Changeset 7cdd65d for client/bin/gbq

Timestamp:

Aug 14, 2010, 9:30:39 PM (14 years ago)

Author:

Kyle Brogle <broglek@…>

Branches:

master, debian, mac, no-cups

Children:

618236b, 9dee329

Parents:

55b24d1

git-author:

Kyle Brogle <broglek@…> (08/14/10 21:30:39)

git-committer:

Kyle Brogle <broglek@…> (08/14/10 21:30:39)

Message:

Implemented default queue in client scripts.
Queue argument now optional for gb{r,rm,q}, and also takes form of -q QUEUE
now.

gutenbach-client-config -sset-default QUEUE will set default queue

Updated manpages accordingly.

File:

• client/bin/gbq (modified) (1 diff)

client/bin/gbq

@@ -8 +8 @@
 use Net::CUPS;
 use Net::CUPS::Destination;
+use Getopt::Long;
 
-my $usage = "Usage: gbq QUEUE\n";
+my $usage = "Usage: gbq [-q QUEUE]\n";
 
-my $q = $ARGV[0];
+my $q = "";
+GetOptions ('q|queue=s' => \$q);
 
 if (!$q) {
-    print $usage;
-    exit 1
+    $q = "DEFAULT";
 }