From d575e6d1d3df9f34b6a78b311454eb0e2bb8e4b6 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 17 Oct 2002 15:06:58 +0000
Subject: consolidate more stuff into %spoolers

---
 perl-install/printer.pm | 49 +++++++++++++++++++++----------------------------
 1 file changed, 21 insertions(+), 28 deletions(-)

(limited to 'perl-install/printer.pm')

diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 6289688ee..2e8fd6f1b 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -22,36 +22,32 @@ my $FOOMATIC_DEFAULT_SPOOLER = "$FOOMATICCONFDIR/defaultspooler";
 #-Did we already read the subroutines of /usr/sbin/ptal-init?
 my $ptalinitread = 0;
 
-my %spoolers = ('ppq' => {
+our %spoolers = ('ppq' => {
                           'help' => "/usr/bin/lphelp %s |",
-					 'print_command' => 'lpr-pdq'
+					 'print_command' => 'lpr-pdq',
+					 'long_name' =>_("PDQ - Print, Don't Queue"),
+					 'short_name' => _("PDQ")
                  },
                 'lpd' => {
                         'help' => "/usr/bin/pdq -h -P %s 2>&1 |"
-                        'print_command' => 'lpr-cups'
+                        'print_command' => 'lpr-cups',
+				    'long_name' => _("LPD - Line Printer Daemon"),
+					   'short_name' => _("LPD")
                  },
 			 'lprng' => {
-				'print_command' => 'lpr-lpd'
+				'print_command' => 'lpr-lpd',
+				'long_name' => _("LPRng - LPR New Generation"),
+				'short_name' => _("LPRng")
 			 },
 			 'cups' => {
-				'print_command' => 'lpr-cups'
+				'print_command' => 'lpr-cups',
+				'long_name' => _("CUPS - Common Unix Printing System"),
+				'short_name' => _("CUPS")
 			 }
             );
-%spooler = (
-    _("CUPS - Common Unix Printing System") => "cups",
-    _("LPRng - LPR New Generation")         => "lprng",
-    _("LPD - Line Printer Daemon")          => "lpd",
-    _("PDQ - Print, Don't Queue")           => "pdq"
-);
-%spooler_inv = reverse %spooler;
+our %spooler_inv = map {$spooler{$_}{long_name} => $_ } keys %spoolers;
 
-%shortspooler = (
-    _("CUPS")   => "cups",
-    _("LPRng")  => "lprng",
-    _("LPD")    => "lpd",
-    _("PDQ")    => "pdq"
-);
-%shortspooler_inv = reverse %shortspooler;
+our %shortspooler_inv = map {$spooler{$_}{short_name} => $_ } keys %spoolers;
 
 %printer_type = (
     _("Local printer")                              => "LOCAL",
@@ -83,9 +79,9 @@ sub spooler {
     # show it only in the spooler menu when it was manually installed.
     if (files_exist((qw(/usr/lib/filters/lpf
 			/usr/sbin/lpd)))) {
-	return @spooler_inv{qw(cups lprng pdq)};
+	return @spooler_inv{qw(cups lprng pdq)}{long_name};
     } else {
-	return @spooler_inv{qw(cups pdq)};
+	return @spooler_inv{qw(cups pdq)}{long_name};
     }
 }
 
@@ -517,12 +513,9 @@ sub whatNetPrinter {
 
     # Which ports should be scanned?
     my @portstoscan;
-    if ($smb) {
-	push @portstoscan, "139";
-    }
-    if ($network) {
-	push @portstoscan, "4010", "4020", "4030", "5503", "9100-9104";
-    }
+    push @portstoscan, "139" if ($smb);
+    push @portstoscan, "4010", "4020", "4030", "5503", "9100-9104" if ($network);
+    
     return () if $#portstoscan < 0;
     my $portlist = join (",", @portstoscan);
     
@@ -820,7 +813,7 @@ sub read_configured_queues($) {
 
 sub make_menuentry {
     my ($printer, $queue) = @_;
-    my $spooler = $shortspooler_inv{$printer->{SPOOLER}};
+    my $spooler = $shortspooler_inv{$printer->{SPOOLER}}{short_name};
     my $connect = $printer->{configured}{$queue}{queuedata}{connect};
     my $localremote;
     if (($connect =~ m!^file:!) || ($connect =~ m!^ptal:/mlc:!)) {
-- 
cgit v1.2.1