Changeset 7cdd65d for client/bin/gbr

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

client/bin/gbr

@@ -8 +8 @@
 use Net::CUPS;
 use Net::CUPS::Destination;
+use Getopt::Long;
 use Image::ExifTool qw(ImageInfo);
 
 my $usage = "Usage: gbr QUEUE FILES\n";
 
-my $q = $ARGV[0];
-my @files = @ARGV[1 .. $#ARGV];
+my $q = "";
+GetOptions ('q|queue=s' => \$q);
 
-if (!$q or !@files) {
+my @files = @ARGV[0 .. $#ARGV];
+
+if (!$q){
+    $q = "DEFAULT";
+}
+if (!@files) {
     print $usage;
     exit 1