summaryrefslogtreecommitdiffstats
path: root/perl-install/printer
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/printer')
-rw-r--r--perl-install/printer/office.pm22
1 files changed, 9 insertions, 13 deletions
diff --git a/perl-install/printer/office.pm b/perl-install/printer/office.pm
index d8479249a..9db6af231 100644
--- a/perl-install/printer/office.pm
+++ b/perl-install/printer/office.pm
@@ -8,7 +8,7 @@ use printer::common;
use printer::cups;
# ------------------------------------------------------------------
-# Star Offica/OpenOffice.org
+# Star Office/OpenOffice.org
# ------------------------------------------------------------------
@@ -41,7 +41,7 @@ sub configureoffice {
my ($suite, $printer) = @_;
# Do we have Star Office installed?
my $configfilename = find_config_file($suite);
- return 1 if !$configfilename;
+ return 1 unless $configfilename;
$configfilename =~ m!$suites{$suite}{file_name}!;
my $configprefix = $1;
# Load Star Office printer config file
@@ -51,7 +51,7 @@ sub configureoffice {
(-x "$::prefix/usr/bin/curl" || -x "$::prefix/usr/bin/wget")) {
my @printerlist = printer::cups::get_remote_queues();
foreach my $listentry (@printerlist) {
- next if !($listentry =~ /^([^\|]+)\|([^\|]+)$/);
+ next unless ($listentry =~ /^([^\|]+)\|([^\|]+)$/);
my $queue = $1;
my $server = $2;
if (-x "$::prefix/usr/bin/wget") {
@@ -74,6 +74,7 @@ sub configureoffice {
foreach my $queue (keys(%{$printer->{configured}})) {
# Check if we have a PPD file
if (! -r "$::prefix/etc/foomatic/$queue.ppd") {
+ # Only set up this printer if there's a PPD file
if (-r "$::prefix/etc/cups/ppd/$queue.ppd") {
# If we have a PPD file in the CUPS config dir, link to it
run_program::rooted($::prefix,
@@ -86,9 +87,6 @@ sub configureoffice {
"ln", "-sf",
"/usr/share/postscript/ppd/$queue.ppd",
"/etc/foomatic/$queue.ppd");
- } else {
- # No PPD file at all? We cannot set up this printer
- next;
}
}
$configfilecontent =
@@ -107,7 +105,7 @@ sub add_cups_remote_to_office {
my ($suite, $printer, $queue) = @_;
# Do we have Star Office installed?
my $configfilename = find_config_file($suite);
- return 1 if !$configfilename;
+ return 1 unless $configfilename;
$configfilename =~ m!$suites{$suite}{file_name}!;
my $configprefix = $1;
# Load Star Office printer config file
@@ -117,7 +115,7 @@ sub add_cups_remote_to_office {
(-x "$::prefix/usr/bin/curl" || -x "$::prefix/usr/bin/wget")) {
my @printerlist = printer::cups::get_remote_queues();
foreach my $listentry (@printerlist) {
- next if !($listentry =~ /^([^\|]+)\|([^\|]+)$/);
+ next unless ($listentry =~ /^([^\|]+)\|([^\|]+)$/);
my $q = $1;
next if $q ne $queue;
my $server = $2;
@@ -156,7 +154,7 @@ sub remove_printer_from_office {
my ($suite, $printer, $queue) = @_;
# Do we have Star Office installed?
my $configfilename = find_config_file($suite);
- return 1 if !$configfilename;
+ return 1 unless $configfilename;
$configfilename =~ m!$suites{$suite}{file_name}!;
my $configprefix = $1;
# Load Star Office printer config file
@@ -173,7 +171,7 @@ sub remove_local_printers_from_office {
my ($suite, $printer) = @_;
# Do we have Star Office installed?
my $configfilename = find_config_file($suite);
- return 1 if !$configfilename;
+ return 1 unless $configfilename;
$configfilename =~ m!$suites{$suite}{file_name}!;
my $configprefix = $1;
# Load Star Office printer config file
@@ -347,9 +345,7 @@ sub find_config_file {
my $filename = <F>;
close F;
if ($filename) {
- if ($::prefix ne "") {
- $filename =~ s/^$::prefix//;
- }
+ $filename =~ s/^$::prefix// if $::prefix;
# Work around a bug in the "ls" of "busybox". During
# installation it outputs the mask given on the command line
# instead of nothing when the mask does not match any file