Changeset a81397c for client/bin/gbrm

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.

File:

• client/bin/gbrm (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");