summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2001-08-11 01:44:26 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2001-08-11 01:44:26 +0000
commit3e2814af22221ae54b8c20d8237fce5865af0d24 (patch)
tree511c860a6842ba4e32ccf9a986616f581672fc54 /perl-install
parent24a468a5410a2987c580b9359927ad9203c0614b (diff)
downloaddrakx-backup-do-not-use-3e2814af22221ae54b8c20d8237fce5865af0d24.tar
drakx-backup-do-not-use-3e2814af22221ae54b8c20d8237fce5865af0d24.tar.gz
drakx-backup-do-not-use-3e2814af22221ae54b8c20d8237fce5865af0d24.tar.bz2
drakx-backup-do-not-use-3e2814af22221ae54b8c20d8237fce5865af0d24.tar.xz
drakx-backup-do-not-use-3e2814af22221ae54b8c20d8237fce5865af0d24.zip
Restructuring continued and debugged
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer.pm39
-rw-r--r--perl-install/printerdrake.pm296
2 files changed, 232 insertions, 103 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 7425885a9..208fd55b6 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -51,11 +51,21 @@ 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) : ()};
+ my ($printer) = @_;
+ for ($printer->{SPOOLER}) {
+ # In the case of CUPS as spooler only present the "Remote CUPS
+ # server" option when one adds a new printer, not when one modifies
+ # an already configured one.
+ /cups/ && return @printer_type_inv{qw(LOCAL),
+ $printer->{configured}{$printer->{OLD_QUEUE}} ?
+ () : qw(CUPS), qw(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) : ()};
}
}
@@ -292,9 +302,11 @@ sub read_printer_db(;$) {
}
}
}
+ close DBPATH;
#- 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) {
@@ -309,6 +321,7 @@ sub read_printer_db(;$) {
#%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 ($) {
@@ -588,10 +601,15 @@ sub configure_queue($) {
my ($printer) = @_;
if ($printer->{currentqueue}{foomatic}) {
- #- Create the queue with "foomatic-configure"
+ #- Create the queue with "foomatic-configure", in case of queue
+ #- renaming copy the old queue
run_program::rooted($prefix, "foomatic-configure",
"-s", $printer->{SPOOLER},
"-n", $printer->{currentqueue}{'queue'},
+ (($printer->{currentqueue}{'queue'} ne
+ $printer->{OLD_QUEUE}) &&
+ ($printer->{configured}{$printer->{OLD_QUEUE}}) ?
+ ("-C", $printer->{OLD_QUEUE}) : ()),
"-c", $printer->{currentqueue}{'connect'},
"-p", $printer->{currentqueue}{'id'},
"-d", $printer->{currentqueue}{'driver'},
@@ -615,6 +633,15 @@ sub configure_queue($) {
("-L", $printer->{currentqueue}{'loc'}) : (),
@{$printer->{OPTIONS}}
) or die "lpadmin failed";
+ # Copy the old queue's PPD file to the new queue when it is renamed,
+ # to conserve the option settings
+ if (($printer->{currentqueue}{'queue'} ne
+ $printer->{OLD_QUEUE}) &&
+ ($printer->{configured}{$printer->{OLD_QUEUE}})) {
+ run_program::rooted($prefix, "cp", "-f",
+ "/etc/cups/ppd/$printer->{OLD_QUEUE}.ppd",
+ "/etc/cups/ppd/$printer->{currentqueue}{'queue'}.ppd");
+ }
}
my $useUSB = 0;
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index 70ef3e1a9..4c3485f4c 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -234,18 +234,18 @@ sub setup_lpd {
}
return if !$in->ask_from_entries_refH(_("Remote lpd Printer Options"),
-_("To use a remote lpd print queue, you need to supply
-the hostname of the printer server and the queue name
+_("To use a remote lpd print, you need to supply
+the hostname of the printer server and the printer name
on that server."), [
-{ label => _("Remote hostname"), val => \$remotehost },
-{ label => _("Remote queue"), val => \$remotequeue } ],
+{ label => _("Remote host name"), val => \$remotehost },
+{ label => _("Remote printer name"), val => \$remotequeue } ],
complete => sub {
unless ($remotehost ne "") {
$in->ask_warn('', _("Remote host name missing!"));
return (1,0);
}
unless ($remotequeue ne "") {
- $in->ask_warn('', _("Remote queue name missing!"));
+ $in->ask_warn('', _("Remote printer name missing!"));
return (1,1);
}
return 0;
@@ -441,8 +441,8 @@ sub setup_socket {
return if !$in->ask_from_entries_refH(_("Socket Printer Options"),
_("To print to a socket printer, you need to provide the
-hostname of the printer and optionally the port number."), [
-{ label => _("Printer Hostname"), val => \$remotehost },
+host name of the printer and optionally the port number."), [
+{ label => _("Printer host name"), val => \$remotehost },
{ label => _("Port"), val => \$remoteport } ],
complete => sub {
unless ($remotehost ne "") {
@@ -571,10 +571,50 @@ sub get_db_entry {
$printer->{currentqueue}{'driver'} =
$printer::thedb{$printer->{DBENTRY}}{driver};
}
+ $printer->{OLD_CHOICE} = $printer->{DBENTRY};
} elsif (($::expert) && ($printer->{SPOOLER} eq "cups")) {
# Do we have a native CUPS driver or a PostScript PPD file?
$printer->{DBENTRY} = printer::get_descr_from_ppd($printer) ||
$printer->{DBENTRY};
+ $printer->{OLD_CHOICE} = $printer->{DBENTRY};
+ } else {
+ # Point the list cursor at least to manufacturer and model of the
+ # printer
+ $printer->{DBENTRY} = "";
+ my $make = $printer->{configured}{$queue}{'make'};
+ my $model = $printer->{configured}{$queue}{'model'};
+ my $key;
+ for $key (keys %printer::thedb) {
+ if ((($::expert) &&
+ ($key =~ /^$make\|$model\|.*\(recommended\)$/)) ||
+ ((!$::expert) &&
+ ($key =~ /^$make\|$model$/))) {
+ $printer->{DBENTRY} = $key;
+ }
+ }
+ if ($printer->{DBENTRY} eq "") {
+ # Exact match of make and model did not work, try to clean
+ # ups the model name
+ $model =~ s/PS//;
+ $model =~ s/PostScript//;
+ $model =~ s/Series//;
+ for $key (keys %printer::thedb) {
+ if ((($::expert) &&
+ ($key =~ /^$make\|$model\|.*\(recommended\)$/)) ||
+ ((!$::expert) &&
+ ($key =~ /^$make\|$model$/))) {
+ $printer->{DBENTRY} = $key;
+ }
+ }
+ }
+ if ($printer->{DBENTRY} eq "") {
+ # Exact match with cleaned-up model did not work, try a best
+ # match
+ $printer->{DBENTRY} =
+ bestMatchSentence("$make|$model",
+ keys %printer::thedb);
+ }
+ $printer->{OLD_CHOICE} = "";
}
} else {
if (($::expert) && ($printer->{DBENTRY} !~ (recommended))) {
@@ -588,8 +628,8 @@ sub get_db_entry {
}
}
}
+ $printer->{OLD_CHOICE} = $printer->{DBENTRY};
}
- $printer->{OLD_CHOICE} = $printer->{DBENTRY};
}
sub choose_model {
@@ -600,7 +640,6 @@ sub choose_model {
}
$in->set_help('configurePrinterType') if $::isInstall;
# Choose the printer/driver from the list
-
return ($printer->{DBENTRY} = $in->ask_from_treelist
(_("Printer model selection"),
_("Which printer model do you have?"), '|',
@@ -634,7 +673,7 @@ sub get_printer_info {
if (($printer->{configured}{$queue}) &&
($printer->{configured}{$queue}{'queuedata'}{'foomatic'})) {
# The queue was already configured with Foomatic ...
- if ($printer->{DBENTRY} eq $oldchoice) {
+ if (($printer->{DBENTRY} eq $oldchoice) && 0) {
# ... and the user didn't change the printer/driver
$printer->{ARGS} =
$printer->{configured}{$queue}{'args'};
@@ -820,7 +859,8 @@ sub print_testpages {
Note: the photo test page can take a rather long time to get printed
and on laser printers with too low memory it can even not come out.
In most cases it is enough to print the standard test page."),
- cancel => _("No test pages"),
+ cancel => ($printer->{configured}{$printer->{OLD_QUEUE}} ?
+ _("Cancel") : _("No test pages")),
ok => _("Print")},
[
{ text => _("Standard test page"), type => 'bool',
@@ -858,15 +898,21 @@ In most cases it is enough to print the standard test page."),
# print the stuff
@lpq_output = printer::print_pages($printer, @testpages);
}
-
+ my $dialogtext;
if (@lpq_output) {
- $in->ask_yesorno('',_("Test page(s) have been sent to the printer.
+ $dialogtext = _("Test page(s) have been sent to the printer.
It may take some time before the printer starts.
-Printing status:\n%s\n\nDoes it work properly?", @lpq_output), 1) and return 1;
+Printing status:\n%s\n\n", @lpq_output);
} else {
- $in->ask_yesorno('', _("Test page(s) have been sent to the printer.
-It may take some time before the printer starts.
-Does it work properly?"), 1) and return 1;
+ $dialogtext = _("Test page(s) have been sent to the printer.
+It may take some time before the printer starts.\n");
+ }
+ if ($printer->{configured}{$printer->{OLD_QUEUE}}) {
+ $in->ask_warn('',$dialogtext);
+ return 1;
+ } else {
+ $in->ask_yesorno('',$dialogtext . _("Did it work properly?"), 1)
+ and return 1;
}
} else {
return 1;
@@ -961,75 +1007,91 @@ sub main {
install_spooler($printer, $in);
}
- my ($queue, $continue, $newqueue) = ('', 1, 0);
+ # Control variables for the main loop
+ my ($queue, $continue, $newqueue, $editqueue) = ('', 1, 0, 0);
+ # Cursor position in queue modification window
+ my $modify = _("Printer options");
while ($continue) {
$newqueue = 0;
# When the queue list is not shown, cancelling the printer type
# dislog should leave the program
$continue = 0;
- if (!$ask_multiple_printer && %{$printer->{configured} || {}} == ()) {
- $newqueue = 1;
- $queue = $printer->{want} ||
- $in->ask_yesorno(_("Printer"),
- _("Would you like to configure printing?"),
- 0) ? 'lp' : _("Done");
- if ($queue ne _("Done")) {
+ if ($editqueue) {
+ # The user was either in the printer modification dialog and did
+ # not close it or he had set up a new queue and said that the test
+ # page didn't come out correctly, so let the user edit the queue.
+ $newqueue = 0;
+ $continue = 1;
+ $editqueue = 0;
+ } else {
+ # Reset modification window cursor when one leaves the window
+ $modify = _("Printer options");
+ if (!$ask_multiple_printer &&
+ %{$printer->{configured} || {}} == ()) {
+ $newqueue = 1;
+ $queue = $printer->{want} ||
+ $in->ask_yesorno(_("Printer"),
+ _("Would you like to configure printing?"),
+ 0) ? 'lp' : _("Done");
+ if ($queue ne _("Done")) {
+ $printer->{SPOOLER} ||=
+ setup_default_spooler ($printer, $in) ||
+ return;
+ }
+ } else {
+ # Ask for a spooler when none is defined
$printer->{SPOOLER} ||=
setup_default_spooler ($printer, $in) ||
return;
- }
- } else {
- # Ask for a spooler when none is defined
- $printer->{SPOOLER} ||=
- setup_default_spooler ($printer, $in) ||
- return;
- # Show a queue list window when there is at least one queue
- # or when we are in expert mode
- unless ((%{$printer->{configured} || {}} == ()) && (!$::expert)) {
- # Cancelling the printer type dialog should leed to this
- # dialog
- $continue = 1;
- $in->ask_from_entries_refH_powered(
- {messages =>
- _("The following printers are configured.\nYou can add some more or modify the existing ones."),
- cancel => '',
- },
- # List the queues
- [ { val => \$queue, format => \&translate,
+ # Show a queue list window when there is at least one queue
+ # or when we are in expert mode
+ unless ((%{$printer->{configured} || {}} == ()) &&
+ (!$::expert)) {
+ # Cancelling the printer type dialog should leed to this
+ # dialog
+ $continue = 1;
+ $in->ask_from_entries_refH_powered(
+ {messages =>
+ _("The following printers are configured.\nYou can add some more or modify the existing ones."),
+ cancel => '',
+ },
+ # List the queues
+ [ { val => \$queue, format => \&translate,
list => [ (sort keys %{$printer->{configured} || {}}),
- # Button to add a new queue
- _("Add printer"),
- # In expert mode we can change the spooler
- ($::expert ?
- ( _("Spooler: ") .
- $printer::spooler_inv{$printer->{SPOOLER}} ) : ()),
- # Bored by configuring your printers, get out of here!
- _("Done") ] } ]
- );
- } else {
- #- as there are no printer already configured, Add one
- #- automatically.
- $queue = _("Add printer");
- }
-
- if ($queue eq _("Add printer")) {
- $newqueue = 1;
- my %queues;
- @queues{map { split '\|', $_ } keys %{$printer->{configured}}} = ();
- my $i = ''; while ($i < 100) { last unless exists $queues{"lp$i"}; ++$i; }
- $queue = "lp$i";
- }
- if ($queue =~ /^Spooler: /) {
- $printer->{SPOOLER} =
- setup_default_spooler ($printer, $in) ||
- $printer->{SPOOLER};
- next;
+ # Button to add a new queue
+ _("Add printer"),
+ # In expert mode we can change the spooler
+ ($::expert ?
+ ( _("Spooler: ") .
+ $printer::spooler_inv{$printer->{SPOOLER}} ) : ()),
+ # Bored by configuring your printers, get out of here!
+ _("Done") ] } ]
+ );
+ } else {
+ #- as there are no printer already configured, Add one
+ #- automatically.
+ $queue = _("Add printer");
+ }
+ # Determine a default name for a new printer queue
+ if ($queue eq _("Add printer")) {
+ $newqueue = 1;
+ my %queues;
+ @queues{map { split '\|', $_ } keys %{$printer->{configured}}} = ();
+ my $i = ''; while ($i < 100) { last unless exists $queues{"lp$i"}; ++$i; }
+ $queue = "lp$i";
+ }
+ if ($queue =~ /^Spooler: /) {
+ $printer->{SPOOLER} =
+ setup_default_spooler ($printer, $in) ||
+ $printer->{SPOOLER};
+ next;
+ }
}
+ # Save the default spooler
+ printer::set_default_spooler($printer);
+ #- Close printerdrake
+ $queue eq _("Done") and last;
}
- # Save the default spooler
- printer::set_default_spooler($printer);
- #- Close printerdrake
- $queue eq _("Done") and last;
if ($newqueue) {
#- Set default values for a new queue
@@ -1062,24 +1124,22 @@ sub main {
}
setup_printer_connection($printer, $in) or next;
choose_printer_name($printer, $in) or next;
-
- #- configure the printer driver
- if (setup_gsdriver($printer, $in,
- $printer->{TYPE} !~ /LOCAL/ && $upNetwork)) {
- #if (lc($printer->{QUEUE}) ne lc($printer->{OLD_QUEUE})) {
- # printer::remove_queue($printer, $printer->{OLD_QUEUE});
- #}
- #delete $printer->{OLD_QUEUE}
- # if (($printer->{QUEUE} ne $printer->{OLD_QUEUE}) &&
- # ($printer->{configured}{$printer->{QUEUE}}));
- $continue = $::expert || !$::isInstall;
+ get_db_entry($printer);
+ choose_model($printer, $in) || return;
+ get_printer_info($printer);
+ setup_options($printer, $in) || return;
+ $printer->{complete} = 1;
+ printer::configure_queue($printer);
+ $printer->{complete} = 0;
+ if (print_testpages($printer, $in,
+ $printer->{TYPE} !~ /LOCAL/ && $upNetwork)) {
+ $continue = ($::expert || !$::isInstall);
} else {
- $continue = 1;
+ $editqueue = 1;
}
} else {
# Modify a queue, ask which part should be modified
- my $modify = _("Printer options");
- while ($in->ask_from_entries_refH_powered
+ if ($in->ask_from_entries_refH_powered
({ title => _("Modify printer"),
messages => _("Printer %s: %s %s
What do you want to modify on this printer?",
@@ -1098,12 +1158,20 @@ What do you want to modify on this printer?",
_("Printer options"),
_("Print test pages"),
_("Remove printer") ] } ] ) ) {
+ # Stay in the queue edit window until the user clicks "Close"
+ # or deletes the queue
+ $editqueue = 1;
#- Copy the queue data and work on the copy
$printer->{currentqueue} = {};
printer::copy_printer_params
($printer->{configured}{$queue}{'queuedata'},
$printer->{currentqueue})
if $printer->{configured}{$queue};
+ #- Keep in mind the printer driver which was used, so it can
+ #- be determined whether the driver is only available in expert
+ #- and so for setting the options for the driver in
+ #- recommended mode a special treatment has to be applied.
+ my $driver = $printer->{currentqueue}{driver};
#- keep in mind old name of queue (in case of changing)
$printer->{OLD_QUEUE} = $printer->{QUEUE} = $queue;
#- Which printer type did we have before (check beginning of
@@ -1151,23 +1219,57 @@ What do you want to modify on this printer?",
}
}
} elsif ($modify eq _("Printer options")) {
- get_printer_info($printer);
- setup_options($printer, $in) && do {
- $printer->{complete} = 1;
- printer::configure_queue($printer);
- $printer->{complete} = 0;
+ if ((!$::expert) &&
+ (!(($printer->{currentqueue}{foomatic}) &&
+ ($driver eq
+ $printer::thedb{$printer->{DBENTRY}}{driver})))) {
+ # This is a hack to allow to adjust the options of a
+ # printer which was set up in expert mode when
+ # one is currently in recommended mode (CUPS printer
+ # or not recommended Foomatic driver)
+ $::expert = 1;
+ # Read database in expert mode
+ %printer::thedb = ();
+ printer::read_printer_db($printer->{SPOOLER});
+ # Neutralize printer data set
+ delete($printer->{currentqueue}{foomatic});
+ delete($printer->{currentqueue}{id});
+ delete($printer->{currentqueue}{ppd});
+ # Re-read printer data in expert mode
+ get_db_entry($printer);
+ get_printer_info($printer);
+ setup_options($printer, $in) && do {
+ $printer->{complete} = 1;
+ printer::configure_queue($printer);
+ $printer->{complete} = 0;
+ };
+ $::expert = 0;
+ # Re-read database in recommended mode
+ %printer::thedb = ();
+ printer::read_printer_db($printer->{SPOOLER});
+ } else {
+ # Normal procedure for recommended driver or expert
+ # mode
+ setup_options($printer, $in) && do {
+ $printer->{complete} = 1;
+ printer::configure_queue($printer);
+ $printer->{complete} = 0;
+ };
}
} elsif ($modify eq _("Print test pages")) {
print_testpages($printer, $in, $upNetwork);
} elsif ($modify eq _("Remove printer")) {
$in->ask_yesorno('',
_("Do you really want to remove the printer \"%s\"?", $queue), 1) &&
- printer::remove_queue($printer, $queue) && last;
+ printer::remove_queue($printer, $queue) &&
+ ($editqueue = 0);
}
- # Reinitialize $printer data structure
- printer::resetinfo($printer);
+ } else {
+ $editqueue = 0;
}
+ $continue = ($::expert || !$::isInstall);
}
+ $queue = $printer->{currentqueue}{queue};
if ($continue) {
# Reinitialize $printer data structure
printer::resetinfo($printer);