source: gutenbach-client/debian/bin/gbr @ 2a2f76c

#!/usr/bin/perl

# Written by Jessica Hamrick (C) 2010

use strict;
use warnings;
use IPC::Open2;

my $usage = "Usage: gbr QUEUE FILE\n";

my $q = $ARGV[0];
my $file = $ARGV[1];

if (!$q or !$file) {
    print $usage;
    exit 1
}

my $configpath = "$ENV{'HOME'}/.gutenbach/$q";
my ($host, $queue);

if (-r $configpath) {
    local $/;
    my $fh;
    open $fh, $configpath;
    eval <$fh>;
}

my @args = ("lp", "-h$host", "-d$queue", "$file");
exec (@args) or die "Couldn't execute lp command";