summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2003-08-26 00:10:26 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2003-08-26 00:10:26 +0000
commit56fb9ae3ca7ec6aa792068bd82e97bb198092299 (patch)
treed16f229650fee31e2a9fe23bbe1f249a6431041a /perl-install
parentd1cc348191809530c80b35405317dbe21b999bfd (diff)
downloaddrakx-backup-do-not-use-56fb9ae3ca7ec6aa792068bd82e97bb198092299.tar
drakx-backup-do-not-use-56fb9ae3ca7ec6aa792068bd82e97bb198092299.tar.gz
drakx-backup-do-not-use-56fb9ae3ca7ec6aa792068bd82e97bb198092299.tar.bz2
drakx-backup-do-not-use-56fb9ae3ca7ec6aa792068bd82e97bb198092299.tar.xz
drakx-backup-do-not-use-56fb9ae3ca7ec6aa792068bd82e97bb198092299.zip
Let names of automatically generated queues not contain the word "Series".
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer/printerdrake.pm60
1 files changed, 31 insertions, 29 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index fb81a8c2c..42730f259 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -19,33 +19,6 @@ use printer::data;
my $hp1000fwtext = N("The HP LaserJet 1000 needs its firmware to be uploaded after being turned on. Download the Windows driver package from the HP web site (the firmware on the printer's CD does not work) and extract the firmware file from it by uncompresing the self-extracting '.exe' file with the 'unzip' utility and searching for the 'sihp1000.img' file. Copy this file into the '/etc/printer' directory. There it will be found by the automatic uploader script and uploaded whenever the printer is connected and turned on.
");
-sub choose_printer_type {
- my ($printer, $in) = @_;
- $printer->{str_type} = $printer_type_inv{$printer->{TYPE}};
- my $autodetect = 0;
- $autodetect = 1 if $printer->{AUTODETECT};
- my @printertypes = printer::main::printer_type($printer);
- $in->ask_from_(
- { title => N("Select Printer Connection"),
- messages => N("How is the printer connected?") .
- if_($printer->{SPOOLER} eq "cups",
- N("
-Printers on remote CUPS servers do not need to be configured here; these printers will be automatically detected.")),
- },
- [
- { val => \$printer->{str_type},
- list => \@printertypes,
- not_edit => 1, sort => 0,
- type => 'list' },
- { text => N("Printer auto-detection (Local, TCP/Socket, and SMB printers)"),
- type => 'bool', val => \$autodetect }
- ]
- ) or return 0;
- $printer->{AUTODETECT} = $autodetect ? 1 : undef;
- $printer->{TYPE} = $printer_type{$printer->{str_type}};
- 1;
-}
-
sub config_cups {
my ($printer, $in, $upNetwork) = @_;
@@ -512,6 +485,33 @@ N("Examples for correct IPs:\n") .
return $retvalue;
}
+sub choose_printer_type {
+ my ($printer, $in) = @_;
+ $printer->{str_type} = $printer_type_inv{$printer->{TYPE}};
+ my $autodetect = 0;
+ $autodetect = 1 if $printer->{AUTODETECT};
+ my @printertypes = printer::main::printer_type($printer);
+ $in->ask_from_(
+ { title => N("Select Printer Connection"),
+ messages => N("How is the printer connected?") .
+ if_($printer->{SPOOLER} eq "cups",
+ N("
+Printers on remote CUPS servers do not need to be configured here; these printers will be automatically detected.")),
+ },
+ [
+ { val => \$printer->{str_type},
+ list => \@printertypes,
+ not_edit => 1, sort => 0,
+ type => 'list' },
+ { text => N("Printer auto-detection (Local, TCP/Socket, and SMB printers)"),
+ type => 'bool', val => \$autodetect }
+ ]
+ ) or return 0;
+ $printer->{AUTODETECT} = $autodetect ? 1 : undef;
+ $printer->{TYPE} = $printer_type{$printer->{str_type}};
+ 1;
+}
+
sub setup_printer_connection {
my ($printer, $in, $upNetwork) = @_;
# Choose the appropriate connection config dialog
@@ -677,7 +677,8 @@ sub configure_new_printers {
} else {
$queue = $make . $p->{val}{MODEL};
}
- $queue =~ s/\s+//g;
+ $queue =~ s/series//gi;
+ $queue =~ s/[\s\(\)\-,]//g;
$queue =~ s/^$make$make/$make/;
}
# Append a number if the queue name already exists
@@ -733,7 +734,8 @@ Printerdrake could not determine which model your printer %s is. Please choose t
$queue = $printer->{DBENTRY};
$queue =~ s/\|/ /g;
$printer->{currentqueue}{desc} = $queue;
- $queue =~ s/[\s\(\),]//g;
+ $queue =~ s/series//gi;
+ $queue =~ s/[\s\(\)\-,]//g;
# Append a number if the queue name already exists
if ($printer->{configured}{$queue}) {
$queue =~ s/(\d)$/$1_/;