Changeset 7cdd65d for client/bin/gbrm

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/gbrm (modified) (1 diff)

client/bin/gbrm

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