Changeset fc8707b for client/bin/gbr

Timestamp:

Oct 2, 2010, 9:20:02 PM (14 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/gbr (modified) (3 diffs)

client/bin/gbr

@@ -12 +12 @@
 use Image::ExifTool qw(ImageInfo);
 
-my $usage = "Usage: gbr QUEUE FILES\n";
+# the usage for this script
+my $usage = <<USAGE;
+Usage: gbr [options] [-q QUEUE] FILES
 
+        -q, --queue             Specify a queue other than the default
+        -d, --dryrun            Just list what would be done
+        -h, --help              Print this message
+USAGE
+
+# initialize the variables for the options
 my $q = "";
-GetOptions ('q|queue=s' => \$q);
+my $dryrun = 0;
+my $help = 0;
+
+# parse the options
+GetOptions ('q|queue=s' => \$q,
+            'd|dryrun' => \$dryrun,
+            'h|help' => \$help);
+
+# if the -h flag was passed, then print the usage and exit
+if ($help) {
+    print $usage;
+    exit 0;
+}
 
 my @files = @ARGV[0 .. $#ARGV];
@@ -61 +81 @@
 # if $printer is not defined, then throw an error
 unless( $printer){
-    print "Cannot access queue $q...do you have network connectivity and permission to view the queue?\n";
+    print "Cannot access queue $q... do you have network connectivity and permission to view the queue?\n";
     exit 1;
 }
@@ -100 +120 @@
     }
 
-    # send the print job, given the file and the job title
-    $jobid = $printer->printFile($file, $title);
-    
-    # if the printFile command returned a job id, then print that out
-    # for the user to see
-    if ($jobid) {
-        print "Sent job '$title' (id $jobid)\n";
-    }
+    # unless it's a dry run, send the print job, given the file and
+    # the job title
+    unless ($dryrun) {
+        $jobid = $printer->printFile($file, $title);
 
-    # otherwise, let them know that an error occurred
-    else {
-        print "Error sending job '$title'\n";
-    }
+        # if the printFile command returned a job id, then print that out
+        # for the user to see
+        if ($jobid) {
+            print "Sent job '$title' (id $jobid)\n";
+        }
+
+        # otherwise, let them know that an error occurred
+        else {
+            print "Error sending job '$title'\n";
+        }
+
+    # otherwise, just print what we would do
+    } else {
+        print "Would send file '$file' with title '$title'\n";
+    }    
 }