Changeset b58aada for client/bin/gbrm

Timestamp:

Jul 5, 2010, 8:01:47 PM (14 years ago)

Author:

Jessica B. Hamrick <jhamrick@…>

Branches:

master, debian, mac, no-cups, web

Children:

d768767

Parents:

38388ac

git-author:

Jessica B. Hamrick <jhamrick@…> (07/05/10 20:01:47)

git-committer:

Jessica B. Hamrick <jhamrick@…> (07/05/10 20:01:47)

Message:

Use perl bindings for gbr and gbrm in addition to gbq. Update README.

File:

• client/bin/gbrm (modified) (1 diff)

client/bin/gbrm

@@ -34 +34 @@
 }
 
-my @args;
+my $cups = Net::CUPS->new();
+$cups->setServer("$host");
+my $printer = $cups->getDestination("$queue");
+my @jobs = $printer->getJobs(0, 0);
 
 if ($id eq "all") {
-    @args = ("cancel", "-a", "$queue");
+    foreach $id(@jobs) {
+        $printer->cancelJob($id);
+    }
 }
 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");
+    $id = $jobs[0];
+    $printer->cancelJob($id);
 }
 else {
-    @args = ("cancel", "$id", "$queue");
+    $printer->cancelJob($id);
 }
-$ENV{CUPS_SERVER}="$host";
-exec (@args) or die "Couldn't execute cancel command";