summaryrefslogtreecommitdiffstats
path: root/perl-install/printer.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/printer.pm')
-rw-r--r--perl-install/printer.pm684
1 files changed, 0 insertions, 684 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm
deleted file mode 100644
index bf98ddc3d..000000000
--- a/perl-install/printer.pm
+++ /dev/null
@@ -1,684 +0,0 @@
-package printer;
-# $Id$
-
-#use diagnostics;
-#use strict;
-
-
-use common;
-use commands;
-use run_program;
-
-#-if we are in an DrakX config
-my $prefix = "";
-
-#-location of the printer database in an installed system
-my $PRINTER_DB_FILE = "/usr/share/foomatic/db/compiled/overview.xml";
-#-configuration directory of Foomatic
-my $FOOMATICCONFDIR = "/etc/foomatic";
-#-location of the file containing the default spooler's name
-my $FOOMATIC_DEFAULT_SPOOLER = "$FOOMATICCONFDIR/defaultspooler";
-
-%spooler = (
- __("CUPS - Common Unix Printing System") => "cups",
- __("LPRng - LPR New Generation") => "lprng",
- __("LPD - Line Printer Daemon") => "lpd",
- __("PDQ - Print, Don't Queue") => "pdq"
-# __("PDQ - Marcia, click here!") => "pdq"
-);
-%spooler_inv = reverse %spooler;
-
-%printer_type = (
- __("Local printer") => "LOCAL",
- __("Remote printer") => "REMOTE",
- __("Remote CUPS server") => "CUPS",
- __("Remote lpd server") => "LPD",
- __("Network printer (socket)") => "SOCKET",
- __("SMB/Windows 95/98/NT") => "SMB",
- __("NetWare") => "NCP",
- __("Printer Device URI") => "URI",
- __("Pipe into command") => "POSTPIPE"
-);
-%printer_type_inv = reverse %printer_type;
-
-#------------------------------------------------------------------------------
-sub set_prefix($) { $prefix = $_[0]; }
-
-sub default_queue($) { $_[0]{QUEUE} }
-
-sub default_printer_type($) { "LOCAL" }
-sub spooler {
- return @spooler_inv{qw(cups lpd lprng pdq)};
-}
-sub printer_type($) {
- for ($_[0]{SPOOLER}) {
- /cups/ && return @printer_type_inv{qw(LOCAL CUPS LPD SOCKET SMB), $::expert ? qw(URI) : ()};
- /lpd/ && return @printer_type_inv{qw(LOCAL LPD SOCKET SMB NCP), $::expert ? qw(POSTPIPE URI) : ()};
- /lprng/ && return @printer_type_inv{qw(LOCAL LPD SOCKET SMB NCP), $::expert ? qw(POSTPIPE URI) : ()};
- /pdq/ && return @printer_type_inv{qw(LOCAL LPD SOCKET), $::expert ? qw(URI) : ()};
- }
-}
-
-sub get_default_spooler () {
- if (-f "$prefix$FOOMATIC_DEFAULT_SPOOLER") {
- open DEFSPOOL, "< $prefix$FOOMATIC_DEFAULT_SPOOLER";
- my $spool = <DEFSPOOL>;
- chomp $spool;
- close DEFSPOOL;
- if ($spool =~ /cups|lpd|lprng|pdq/) {
- return $spool;
- }
- }
-}
-
-sub set_default_spooler ($) {
- my ($printer) = @_;
- # Make Foomatic config directory if it does not exist yet
- if (!(-d $FOOMATICCONFDIR)) {mkdir $FOOMATICCONFDIR;}
- # Mark the default driver in a file
- open DEFSPOOL, "> $prefix$FOOMATIC_DEFAULT_SPOOLER" ||
- die "Cannot create $prefix$FOOMATIC_DEFAULT_SPOOLER!";
- print DEFSPOOL $printer->{SPOOLER};
- close DEFSPOOL;
-}
-
-sub restart_service ($) {
- my ($service) = @_;
- run_program::rooted($prefix, "/etc/rc.d/init.d/$service restart")
- || die "Could not restart $service!";
-}
-
-sub start_service ($) {
- my ($service) = @_;
- run_program::rooted($prefix, "/etc/rc.d/init.d/$service start")
- || die "Could not start $service!";
-}
-
-sub stop_service ($) {
- my ($service) = @_;
- run_program::rooted($prefix, "/etc/rc.d/init.d/$service stop")
- || die "Could not stop $service!";
-}
-
-sub remove_package ($) {
- my ($package) = @_;
- run_program::rooted($prefix, "rpm -e --nodeps $package") || do {};
-}
-
-sub copy_printer_params($$) {
- my ($from, $to) = @_;
- map { $to->{$_} = $from->{$_} } grep { $_ ne 'configured' } keys %$from;
- #- avoid cycles-----------------^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
-}
-
-sub getinfo($) {
- my ($prefix) = @_;
- my $printer = {};
- my @QUEUES;
-
- set_prefix($prefix);
-
- # Initialize $printer data structure
- resetinfo($printer);
-
- return $printer;
-}
-
-#------------------------------------------------------------------------------
-sub resetinfo($) {
- my ($printer) = @_;
- $printer->{QUEUE} = "";
- $printer->{OLD_QUEUE} = "";
- $printer->{ARGS} = "";
- $printer->{DBENTRY} = "";
- @{$printer->{OPTIONS}} = ();
- $printer->{currentqueue} = {};
- # -check which printing system was used previously and load the information
- # -about its queues
- read_configured_queues($printer);
-}
-
-sub read_configured_queues($) {
- my ($printer) = @_;
- my @QUEUES;
- # Get the default spooler choice from the config file
- if (!($printer->{SPOOLER} ||= get_default_spooler())) {
- #- Find the first spooler where there are queues
- my $spooler;
- for $spooler (qw(cups pdq lprng lpd)) {
- #- poll queue info
- local *F;
- open F, ($::testing ? "$prefix" : "chroot $prefix/ ") .
- "foomatic-configure -P -s $spooler |" ||
- die "Could not run foomatic-configure";
- eval (join('',(<F>)));
- close F;
- #- Have we found queues?
- if ($#QUEUES != -1) {
- $printer->{SPOOLER} = $spooler;
- last;
- }
- }
- } else {
- #- Poll the queues of the current default spooler
- local *F;
- open F, ($::testing ? "$prefix" : "chroot $prefix/ ") .
- "foomatic-configure -P -s $printer->{SPOOLER} |" ||
- die "Could not run foomatic-configure";
- eval (join('',(<F>)));
- close F;
- }
- $printer->{configured} = {};
- my $i;
- my $N = $#QUEUES + 1;
- for ($i = 0; $i < $N; $i++) {
- $printer->{configured}{$QUEUES[$i]->{'queuedata'}{'queue'}} =
- $QUEUES[$i];
- }
-}
-
-sub read_printer_db(;$) {
-
- my $spooler = $_[0];
-
- my $dbpath = $prefix . $PRINTER_DB_FILE;
-
- local $_; #- use of while (<...
-
- local *DBPATH; #- don't have to do close ... and don't modify globals at least
- # Generate the Foomatic printer/driver overview, read it from the
- # appropriate file when it is already generated
- if (!(-f $dbpath)) {
- open DBPATH, ($::testing ? "$prefix" : "chroot $prefix/ ") .
- "foomatic-configure -O |" ||
- die "Could not run foomatic-configure";
- } else {
- open DBPATH, $dbpath or die "An error has occurred on $dbpath : $!";
- }
-
- my $entry = {};
- my $inentry = 0;
- my $indrivers = 0;
- my $inautodetect = 0;
- while (<DBPATH>) {
- chomp;
- if ($inentry) {
- # We are inside a printer entry
- if ($indrivers) {
- # We are inside the drivers block of a printers entry
- if (m!^\s*</drivers>\s*$!) {
- # End of drivers block
- $indrivers = 0;
- } elsif (m!^\s*<driver>(.+)</driver>\s*$!) {
- push (@{$entry->{drivers}}, $1);
- }
- } elsif ($inautodetect) {
- # We are inside the autodetect block of a printers entry
- # All entries inside this block will be ignored
- if (m!^.*</autodetect>\s*$!) {
- # End of autodetect block
- $inautodetect = 0;
- }
- } else {
- if (m!^\s*</printer>\s*$!) {
- # entry completed
- $inentry = 0;
- # Expert mode:
- # Make one database entry per driver with the entry name
- # manufacturer|model|driver
- if ($::expert) {
- my $driver;
- for $driver (@{$entry->{drivers}}) {
- my $driverstr;
- if ($driver eq "Postscript") {
- $driverstr = "PostScript";
- } else {
- $driverstr = "GhostScript + $driver";
- }
- if ($driver eq $entry->{defaultdriver}) {
- $driverstr .= " (recommended)";
- }
- $entry->{ENTRY} = "$entry->{make}|$entry->{model}|$driverstr";
- $entry->{driver} = $driver;
- # Duplicate contents of $entry because it is multiply entered to the database
- map { $thedb{$entry->{ENTRY}}->{$_} = $entry->{$_} } keys %$entry;
- }
- } else {
- # Recommended mode
- # Make one entry per printer, with the recommended
- # driver (manufacturerer|model)
- $entry->{ENTRY} = "$entry->{make}|$entry->{model}";
- if ($entry->{defaultdriver}) {
- $entry->{driver} = $entry->{defaultdriver};
- map { $thedb{$entry->{ENTRY}}->{$_} = $entry->{$_} } keys %$entry;
- }
- }
- $entry = {};
- } elsif (m!^\s*<id>\s*([^\s<>]+)\s*</id>\s*$!) {
- # Foomatic printer ID
- $entry->{id} = $1;
- } elsif (m!^\s*<make>(.+)</make>\s*$!) {
- # Printer manufacturer
- $entry->{make} = uc($1);
- } elsif (m!^\s*<model>(.+)</model>\s*$!) {
- # Printer model
- $entry->{model} = $1;
- } elsif (m!<driver>(.+)</driver>!) {
- # Printer default driver
- $entry->{defaultdriver} = $1;
- } elsif (m!^\s*<drivers>\s*$!) {
- # Drivers block
- $indrivers = 1;
- @{$entry->{drivers}} = ();
- } elsif (m!^\s*<autodetect>\s*$!) {
- # Autodetect block
- $inautodetect = 1;
- }
- }
- } else {
- if (m!^\s*<printer>\s*$!) {
- # new entry
- $inentry = 1;
- }
- }
- }
-
- #- Load CUPS driver database if CUPS is used as spooler
- if (($spooler) && ($spooler eq "cups") && ($::expert)) {
- #&$install('cups-drivers') unless $::testing;
- #my $w;
- #if ($in) {
- # $w = $in->wait_message(_("CUPS starting"),
- # _("Reading CUPS drivers database..."));
- #}
- poll_ppd_base();
- }
-
- @entries_db_short = sort keys %printer::thedb;
- #%descr_to_db = map { $printer::thedb{$_}{DESCR}, $_ } @entries_db_short;
- #%descr_to_help = map { $printer::thedb{$_}{DESCR}, $printer::thedb{$_}{ABOUT} } @entries_db_short;
- #@entry_db_description = keys %descr_to_db;
- #db_to_descr = reverse %descr_to_db;
-}
-
-sub read_foomatic_options ($) {
- my ($printer) = @_;
- # Generate the option data for the chosen printer/driver combo
- my $COMBODATA;
- local *F;
- open F, ($::testing ? "$prefix" : "chroot $prefix/ ") .
- "foomatic-configure -P -p $printer->{currentqueue}{'id'}" .
- " -d $printer->{currentqueue}{'driver'}" .
- ($printer->{OLD_QUEUE} ?
- " -s $printer->{SPOOLER} -n $printer->{OLD_QUEUE}" : "")
- . " |" ||
- die "Could not run foomatic-configure";
- eval (join('',(<F>)));
- close F;
- # Return the arguments field
- return $COMBODATA->{'args'};
-}
-
-sub read_cups_options ($) {
- my ($queue_or_file) = @_;
- # Generate the option data from a CUPS PPD file/a CUPS queue
- # Use the same Perl data structure as Foomatic uses to be able to
- # reuse the dialog
- local *F;
- if ($queue_or_file =~ /.ppd.gz$/) { # compressed PPD file
- open F, ($::testing ? "$prefix" : "chroot $prefix/ ") .
- "gunzip -cd $queue_or_file | lphelp - |" ||
- die "Could not run lphelp";
- } else { # PPD file not compressed or queue
- open F, ($::testing ? "$prefix" : "chroot $prefix/ ") .
- "lphelp $queue_or_file |" ||
- die "Could not run lphelp";
- }
- my $i;
- my $j;
- my @args = ();
- my $line;
- my $inoption = 0;
- my $inchoices = 0;
-# my $innumerical = 0;
- while ($line = <F>) {
- chomp $line;
- if ($inoption) {
- if ($inchoices) {
- if ($line =~ /^\s*(\S+)\s+(\S.*)$/) {
- push(@{$args[$i]{vals}}, {});
- $j = $#{$args[$i]{vals}};
- $args[$i]{vals}[$j]{value} = $1;
- my $comment = $2;
- # Did we find the default setting?
- if ($comment =~ /default\)\s*$/) {
- $args[$i]{default} = $args[$i]{vals}[$j]{value};
- $comment =~ s/,\s*default\)\s*$//;
- } else {
- $comment =~ s/\)\s*$//;
- }
- # Remove opening paranthese
- $comment =~ s/^\(//;
- # Remove page size info
- $comment =~ s/,\s*size:\s*[0-9\.]+x[0-9\.]+in$//;
- $args[$i]{vals}[$j]{comment} = $comment;
- } elsif (($line =~ /^\s*$/) && ($#{$args[$i]{vals}} > -1)) {
- $inchoices = 0;
- $inoption = 0;
- }
-# } elsif ($innumerical == 1) {
-# if ($line =~ /^\s*The default value is ([0-9\.]+)\s*$/) {
-# $args[$i]{default} = $1;
-# $innumerical = 0;
-# $inoption = 0;
-# }
- } else {
- if ($line =~ /^\s*<choice>/) {
- $inchoices = 1;
-# } elsif ($line =~ /^\s*<value> must be a(.*) number in the range ([0-9\.]+)\.\.([0-9\.]+)\s*$/) {
-# delete($args[$i]{vals});
-# $args[$i]{min} = $2;
-# $args[$i]{max} = $3;
-# my $type = $1;
-# if ($type =~ /integer/) {
-# $args[$i]{type} = 'int';
-# } else {
-# $args[$i]{type} = 'float';
-# }
-# $innumerical = 1;
- }
- }
- } else {
- if ($line =~ /^\s*([^\s:][^:]*):\s+-o\s+([^\s=]+)=<choice>\s*$/) {
-# if ($line =~ /^\s*([^\s:][^:]*):\s+-o\s+([^\s=]+)=<.*>\s*$/) {
- $inoption = 1;
- push(@args, {});
- $i = $#args;
- $args[$i]{comment} = $1;
- $args[$i]{name} = $2;
- $args[$i]{type} = 'enum';
- @{$args[$i]{vals}} = ();
- }
- }
- }
- close F;
- # Return the arguments field
- return \@args;
-}
-
-#------------------------------------------------------------------------------
-sub read_cupsd_conf {
- my @cupsd_conf;
- local *F;
-
- open F, "$prefix/etc/cups/cupsd.conf";
- @cupsd_conf = <F>;
- close F;
-
- @cupsd_conf;
-}
-sub write_cupsd_conf {
- my (@cupsd_conf) = @_;
- local *F;
-
- open F, ">$prefix/etc/cups/cupsd.conf";
- print F @cupsd_conf;
- close F;
-
- #- restart cups after updating configuration.
- run_program::rooted($prefix, "/etc/rc.d/init.d/cups restart"); sleep 1;
-}
-
-sub read_printers_conf {
- my ($printer) = @_;
- my $current = undef;
-
- #- read /etc/cups/printers.conf file.
- #- according to this code, we are now using the following keys for each queues.
- #- DeviceURI > lpd://printer6/lp
- #- Info > Info Text
- #- Location > Location Text
- #- State > Idle|Stopped
- #- Accepting > Yes|No
- local *PRINTERS; open PRINTERS, "$prefix/etc/cups/printers.conf" or return;
- local $_;
- while (<PRINTERS>) {
- chomp;
- /^\s*#/ and next;
- if (/^\s*<(?:DefaultPrinter|Printer)\s+([^>]*)>/) { $current = { mode => 'cups', QUEUE => $1, } }
- elsif (/\s*<\/Printer>/) { $current->{QUEUE} && $current->{DeviceURI} or next; #- minimal check of synthax.
- add2hash($printer->{configured}{$current->{QUEUE}} ||= {}, $current); $current = undef }
- elsif (/\s*(\S*)\s+(.*)/) { $current->{$1} = $2 }
- }
- close PRINTERS;
-
- #- assume this printing system.
- $printer->{SPOOLER} ||= 'cups';
-}
-
-sub get_direct_uri {
- #- get the local printer to access via a Device URI.
- my @direct_uri;
- local *F; open F, ($::testing ? "$prefix" : "chroot $prefix/ ") . "/usr/sbin/lpinfo -v |";
- local $_;
- while (<F>) {
- /^(direct|usb|serial)\s+(\S*)/ and push @direct_uri, $2;
- }
- close F;
- @direct_uri;
-}
-
-sub get_descr_from_ppd {
- my ($printer) = @_;
- my %ppd;
-
- #- if there is no ppd, this means this is the PostScript generic filter.
- local *F; open F, "$prefix/etc/cups/ppd/$printer->{OLD_QUEUE}.ppd" or return "OTHERS|Generic PostScript printer|PostScript (en)";
- local $_;
- while (<F>) {
- /^\*([^\s:]*)\s*:\s*\"([^\"]*)\"/ and do { $ppd{$1} = $2; next };
- /^\*([^\s:]*)\s*:\s*([^\s\"]*)/ and do { $ppd{$1} = $2; next };
- }
- close F;
-
- my $descr = ($ppd{NickName} || $ppd{ShortNickName} || $ppd{ModelName});
- # Apply the beautifying rules of poll_ppd_base
- if ($descr =~ /Foomatic \+ Postscript/) {
- $descr =~ s/Foomatic \+ Postscript/PostScript/;
- } elsif ($descr =~ /Foomatic/) {
- $descr =~ s/Foomatic/GhostScript/;
- } elsif ($descr =~ /CUPS\+GIMP-print/) {
- $descr =~ s/CUPS\+GIMP-print/CUPS \+ GIMP-Print/;
- } elsif ($descr =~ /Series CUPS/) {
- $descr =~ s/Series CUPS/Series, CUPS/;
- } elsif (!(uc($descr) =~ /POSTSCRIPT/)) {
- $descr .= ", PostScript";
- }
-
- # Split the $descr into model and driver
- my $model;
- my $driver;
- if ($descr =~ /^([^,]+), (.*)$/) {
- $model = $1;
- $driver = $2;
- } else {
- # Some PPDs do not have the ", <driver>" part.
- $model = $descr;
- $driver = "PostScript";
- }
- my $make = $ppd{Manufacturer};
- my $lang = $ppd{LanguageVersion};
-
- # Remove manufacturer's name from the beginning of the model name
- if (($make) && ($model =~ /^$make[\s\-]+([^\s\-].*)$/)) {
- $model = $1;
- }
-
- # Put out the resulting description string
- uc($make) . '|' . $model . '|' . $driver .
- ($lang && (" (" . lc(substr($lang, 0, 2)) . ")"));
-}
-
-sub poll_ppd_base {
-
- #- before trying to poll the ppd database available to cups, we have to make sure
- #- the file /etc/cups/ppds.dat is no more modified.
- #- if cups continue to modify it (because it reads the ppd files available), the
- #- poll_ppd_base program simply cores :-)
- run_program::rooted($prefix, "ifup lo"); #- else cups will not be happy!
- run_program::rooted($prefix, "/etc/rc.d/init.d/cups start");
- my $driversthere = scalar(keys %thedb);
- foreach (1..60) {
- local *PPDS; open PPDS, ($::testing ? "$prefix" : "chroot $prefix/ ") . "/usr/bin/poll_ppd_base -a |";
- local $_;
- while (<PPDS>) {
- chomp;
- my ($ppd, $mf, $descr, $lang) = split /\|/;
- my ($model, $driver);
- if ($descr) {
- if ($descr =~ /^([^,]+), (.*)$/) {
- $model = $1;
- $driver = $2;
- } else {
- # Some PPDs do not have the ", <driver>" part.
- $model = $descr;
- $driver = "PostScript";
- }
- }
- # Rename Canon "BJC XXXX" models into "BJC-XXXX" so that the models
- # do not appear twice
- if ($mf eq "CANON") {
- $model =~ s/BJC\s+/BJC-/;
- }
- $ppd && $mf && $descr and do {
- my $key = "$mf|$model|$driver" . ($lang && " ($lang)");
- $thedb{$key}{ppd} = $ppd;
- $thedb{$key}{driver} = $driver;
- $thedb{$key}{make} = $mf;
- $thedb{$key}{model} = $model;
- }
- }
- close PPDS;
- scalar(keys %thedb) - $driversthere > 5 and last;
- #- we have to try again running the program, wait here a little before.
- sleep 1;
- }
-
- #scalar(keys %descr_to_ppd) > 5 or die "unable to connect to cups server";
-
-}
-
-
-
-#-******************************************************************************
-#- write functions
-#-******************************************************************************
-
-sub configure_queue($) {
- my ($printer) = @_;
-
- if ($printer->{currentqueue}{foomatic}) {
- #- Create the queue with "foomatic-configure"
- run_program::rooted($prefix, "foomatic-configure",
- "-s", $printer->{SPOOLER},
- "-n", $printer->{currentqueue}{'queue'},
- "-c", $printer->{currentqueue}{'connect'},
- "-p", $printer->{currentqueue}{'id'},
- "-d", $printer->{currentqueue}{'driver'},
- "-N", $printer->{currentqueue}{'desc'},
- "-L", $printer->{currentqueue}{'loc'},
- @{$printer->{OPTIONS}}
- ) or die "foomatic-configure failed";
- } elsif ($printer->{currentqueue}{ppd}) {
- #- If the chosen driver is a PPD file from /usr/share/cups/model,
- #- we use lpadmin to set up the queue
- run_program::rooted($prefix, "lpadmin",
- "-p", $printer->{currentqueue}{'queue'},
-# $printer->{State} eq 'Idle' &&
-# $printer->{Accepting} eq 'Yes' ? ("-E") : (),
- "-E",
- "-v", $printer->{currentqueue}{'connect'},
- "-m", $printer->{currentqueue}{'ppd'},
- $printer->{currentqueue}{'desc'} ?
- ("-D", $printer->{currentqueue}{'desc'}) : (),
- $printer->{currentqueue}{'loc'} ?
- ("-L", $printer->{currentqueue}{'loc'}) : (),
- @{$printer->{OPTIONS}}
- ) or die "lpadmin failed";
- }
-
- my $useUSB = 0;
- foreach (values %{$printer->{configured}}) {
- $useUSB ||= $_->{'queuedata'}{'connect'} =~ /usb/ ||
- $_->{DeviceURI} =~ /usb/;
- }
- if ($useUSB) {
- my $f = "$prefix/etc/sysconfig/usb";
- my %usb = getVarsFromSh($f);
- $usb{PRINTER} = "yes";
- setVarsInSh($f, \%usb);
- }
-}
-
-sub remove_queue($$) {
- my ($printer) = $_[0];
- my ($queue) = $_[1];
- run_program::rooted($prefix, "foomatic-configure", "-D",
- "-s", $printer->{SPOOLER},
- "-n", $queue);
- delete $printer->{configured}{$queue};
-}
-
-sub restart_queue($) {
- my ($printer) = @_;
- my $queue = default_queue($printer);
-
- # Restart the daemon(s)
- for ($printer->{SPOOLER}) {
- /cups/ && do {
- #- restart cups.
- run_program::rooted($prefix, "/etc/rc.d/init.d/cups restart"); sleep 1;
- last };
- /lpr|lprng/ && do {
- #- restart lpd.
- foreach (("/var/spool/lpd/$queue/lock", "/var/spool/lpd/lpd.lock")) {
- my $pidlpd = (cat_("$prefix$_"))[0];
- kill 'TERM', $pidlpd if $pidlpd;
- unlink "$prefix$_";
- }
- run_program::rooted($prefix, "lpd"); sleep 1;
- last };
- }
- # Kill the jobs
- run_program::rooted($prefix, "foomatic-printjob", "-R",
- "-s", $printer->{SPOOLER},
- "-P", $queue, "-");
-
-}
-
-sub print_pages($@) {
- my ($printer, @pages) = @_;
- my $queue = default_queue($printer);
- my $lpr = "/usr/bin/foomatic-printjob";
- my $lpq = "$lpr -Q";
-
- # Print the pages
- foreach (@pages) {
- run_program::rooted($prefix, $lpr, "-s", $printer->{SPOOLER},
- "-P", $queue, $_);
- }
- sleep 5; #- allow lpr to send pages.
- # Check whether the job is queued
- local *F;
- open F, ($::testing ? "$prefix" : "chroot $prefix/ ") . "$lpq -s $printer->{SPOOLER} -P $queue |";
- my @lpq_output =
- grep { !/^no entries/ && !(/^Rank\s+Owner/ .. /^\s*$/) } <F>;
- close F;
- @lpq_output;
-}
-
-
-#-######################################################################################
-#- Wonderful perl :(
-#-######################################################################################
-1;
generated by cgit v1.2.1 (git 2.21.0) at 2024-12-03 17:53:09 +0000