Changeset a81397c for client/bin

Timestamp:

Jul 5, 2010, 5:05:46 PM (14 years ago)

Author:

Jessica B. Hamrick <jhamrick@…>

Branches:

master, debian, mac, no-cups, web

Children:

38388ac

Parents:

c5a98db

git-author:

Jessica B. Hamrick <jhamrick@…> (07/05/10 17:05:46)

git-committer:

Jessica B. Hamrick <jhamrick@…> (07/05/10 17:05:46)

Message:

Added the "current" option to gbrm, which just removes the current job from the queue.

Location:

client/bin

Files:

• gbrm (modified) (2 diffs)
• gbrm.1 (modified) (2 diffs)

client/bin/gbrm

@@ -5 +5 @@
 use strict;
 use warnings;
+
+use Net::CUPS;
+use Net::CUPS::Destination;
 
 my $usage = "Usage: gbq QUEUE ID\n";
@@ -36 +39 @@
     @args = ("cancel", "-a", "$queue");
 }
+elsif ($id eq "current") {
+    my $cups = Net::CUPS->new();
+    $cups->setServer("$host");
+    my $printer = $cups->getDestination("$queue");
+    my @jobs = $printer->getJobs(0, 0);
+    my $id = $jobs[0];
+    @args = ("cancel", "$id", "$queue");
+}
 else {
     @args = ("cancel", "$id", "$queue");

client/bin/gbrm.1

@@ -4 +4 @@
 .SH SYNOPSIS
 .B gbrm 
-\fIQUEUE\fR [all|\fIID\fR]
+\fIQUEUE\fR [all|current|\fIID\fR]
 .SH DESCRIPTION
 Removes a single job from a Gutenbach queue, given the job id, which
@@ -11 +11 @@
 command.  If 
 .B all
-is used in place of an id, then all jobs are removed from the queue.
-The queue must have previously been added with
+is used in place of an id, then all jobs are removed from the queue.  If
+.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
 .B gutenbach-client-config
 so that gbrm knows which host to use.