Changeset d768767

Timestamp:

Jul 5, 2010, 9:04:02 PM (14 years ago)

Author:

Jessica B. Hamrick <jhamrick@…>

Branches:

master, debian, mac, no-cups, web

Children:

0d02eca

Parents:

b58aada

git-author:

Jessica B. Hamrick <jhamrick@…> (07/05/10 21:04:02)

git-committer:

Jessica B. Hamrick <jhamrick@…> (07/05/10 21:04:02)

Message:

Add 'last' keyword for gbrm

Location:

client/bin

Files:

• gbrm (modified) (1 diff)
• gbrm.1 (modified) (1 diff)

client/bin/gbrm

@@ -41 +41 @@
 if ($id eq "all") {
     foreach $id(@jobs) {
-        $printer->cancelJob($id);
+        cancel_job($id, $printer);
     }
 }
 elsif ($id eq "current") {
     $id = $jobs[0];
-    $printer->cancelJob($id);
+    cancel_job($id, $printer);
+}
+elsif ($id eq "last") {
+    $id = $jobs[-1];
+    cancel_job($id, $printer);
 }
 else {
+    cancel_job($id, $printer);
+}
+
+sub cancel_job {
+    my ($id, $printer) = @_;
+    my $job_ref = $printer->getJob($id);
+    my $title = $job_ref->{'title'};
     $printer->cancelJob($id);
+
+    print "Canceled job '$title' (id $id)\n";
 }

client/bin/gbrm.1

@@ -14 +14 @@
 .B current 
 is used in place of an id, then the current (top) job is removed from
-the queue.  The queue must have previously been added with
+the queue.  If
+.B last
+is used in place of an id, then the last job is removed from the
+queue.  The queue must have previously been added with
 .B gutenbach-client-config
 so that gbrm knows which host to use.