Changeset b58aada for client/bin/gbr

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/gbr (modified) (2 diffs)

client/bin/gbr

@@ -5 +5 @@
 use strict;
 use warnings;
+
+use Net::CUPS;
+use Net::CUPS::Destination;
+use Image::ExifTool qw(ImageInfo);
 
 my $usage = "Usage: gbr QUEUE FILES\n";
@@ -31 +35 @@
 }
 
-$ENV{CUPS_SERVER}="$host";
+my $cups = Net::CUPS->new();
+$cups->setServer("$host");
+my $printer = $cups->getDestination("$queue");
+my ($jobid, $title);
 
 foreach my $file(@files) {
     if ($file =~ m|http://www\.youtube\.com/watch\?v=|) {
-        open(LP, "|-", "lp", "-d$queue") or die "Couldn't execute lp command";
-        print LP "$file";
-        close LP;
+        open FILE, ">", "/tmp/gutenbach-youtube\n" or die "Couldn't create temporary file";
+        print FILE $file;
+        $title = $file;
+        $file = "/tmp/gutenbach-youtube";
+        $printer->addOption("copies", 42);
     }
     else {
-        my $pid = open(LP, "-|");
-        if (not $pid) {
-            my @args = ("lp", "-d$queue", "$file");
-            exec(@args) or die "Couldn't execute lp command";
+        my $fileinfo = ImageInfo($file);
+        my $magic = $fileinfo->{FileType};
+
+        if ($magic) {
+            $title = $fileinfo->{'Title'}." - ".$fileinfo->{'Artist'}." - ".$fileinfo->{'Album'};
+        }
+        else {
+            $title = $file;
         }
     }
 
-    print "Sent job '$file'\n";
+    $jobid = $printer->printFile($file, $title);
+    
+    if ($jobid) {
+        print "Sent job '$title' (id $jobid)\n";
+    }
+    else {
+        print "Error sending job '$title'\n";
+    }
 }