summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2003-02-17 04:24:27 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2003-02-17 04:24:27 +0000
commite8d2639e9fe4581f884906c80933501add00c3fb (patch)
tree0b8a2506d0aff82d36d979e3e51b5fcd79d11487 /perl-install
parent15afa578a5bd7a41689c6ab2e22082f0c276a4f9 (diff)
downloaddrakx-backup-do-not-use-e8d2639e9fe4581f884906c80933501add00c3fb.tar
drakx-backup-do-not-use-e8d2639e9fe4581f884906c80933501add00c3fb.tar.gz
drakx-backup-do-not-use-e8d2639e9fe4581f884906c80933501add00c3fb.tar.bz2
drakx-backup-do-not-use-e8d2639e9fe4581f884906c80933501add00c3fb.tar.xz
drakx-backup-do-not-use-e8d2639e9fe4581f884906c80933501add00c3fb.zip
- Restructured function "main()"
- Made automatic queue setup being done during installation - Support for unknown printers in auto-detection and in automatic queue setup - Fixed determination of default printer - Fixed printer help page display - Fixed wait message in /usr/sbin/printerdrake
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer/data.pm12
-rw-r--r--perl-install/printer/detect.pm3
-rw-r--r--perl-install/printer/main.pm3
-rw-r--r--perl-install/printer/printerdrake.pm558
-rwxr-xr-xperl-install/standalone/printerdrake3
5 files changed, 297 insertions, 282 deletions
diff --git a/perl-install/printer/data.pm b/perl-install/printer/data.pm
index 07f85fb6a..3efca01b1 100644
--- a/perl-install/printer/data.pm
+++ b/perl-install/printer/data.pm
@@ -9,10 +9,10 @@ use vars qw(@ISA @EXPORT);
our %spoolers = ('pdq' => {
- 'help' => "/usr/bin/lphelp %s |",
- 'print_command' => 'lpr-pdq',
- 'long_name' => N("PDQ - Print, Don't Queue"),
- 'short_name' => N("PDQ"),
+ 'help' => "/usr/bin/pdq -h -P %s 2>&1 |",
+ 'print_command' => 'lpr-pdq',
+ 'long_name' => N("PDQ - Print, Don't Queue"),
+ 'short_name' => N("PDQ"),
'packages2add' => [ [ 'pdq' ], [qw(/usr/bin/pdq /usr/X11R6/bin/xpdq)] ],
'alternatives' => [
[ 'lpr', '/usr/bin/lpr-pdq' ],
@@ -21,9 +21,8 @@ our %spoolers = ('pdq' => {
],
},
'lpd' => {
- 'help' => "/usr/bin/pdq -h -P %s 2>&1 |",
'print_command' => 'lpr',
- 'long_name' => N("LPD - Line Printer Daemon"),
+ 'long_name' => N("LPD - Line Printer Daemon"),
'short_name' => N("LPD"),
'boot_spooler' => 'lpd',
'service' => 'lpd',
@@ -67,6 +66,7 @@ our %spoolers = ('pdq' => {
]
},
'cups' => {
+ 'help' => "/usr/bin/lphelp %s |",
'print_command' => 'lpr-cups',
'long_name' => N("CUPS - Common Unix Printing System"),
'short_name' => N("CUPS"),
diff --git a/perl-install/printer/detect.pm b/perl-install/printer/detect.pm
index 0f7537a2f..40842cb94 100644
--- a/perl-install/printer/detect.pm
+++ b/perl-install/printer/detect.pm
@@ -126,7 +126,8 @@ sub whatUsbport() {
}
# Was there a manufacturer and a model in the string?
if ($manufacturer eq "" || $model eq "") {
- next;
+ $manufacturer = "";
+ $model = N("Unknown Model");
}
# No description field? Make one out of manufacturer and model.
if ($description eq "") {
diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index 4cb64c8f2..84fbaf1aa 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -1824,7 +1824,8 @@ sub help_output {
open F, ($::testing ? $::prefix : "chroot $::prefix/ ") . sprintf($spoolers{$spooler}{help}, $queue);
my $helptext = join("", <F>);
close F;
- $helptext = "Option list not available!\n" if $spooler eq 'lpq' && (!$helptext || $helptext eq "");
+ $helptext = "Option list not available!\n"
+ if (!$helptext || $helptext eq "");
return $helptext;
}
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index 8e993f949..efa85334c 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -409,7 +409,7 @@ sub configure_new_printers {
# there is already a queue for them. If there is no queue for an
# auto-detected printer, a queue gets set up non-interactively.
- # Experts can have weird things as self-made CUPS backend, so do not
+ # Experts can have weird things as self-made CUPS backends, so do not
# automatically pollute the system with unwished queues in expert
# mode
return 1 if $::expert;
@@ -470,14 +470,22 @@ sub configure_new_printers {
};
# Generate a queue name from manufacturer and model
my $queue;
- my $make = $p->{val}{MANUFACTURER};
- if ($p->{val}{SKU}) {
- $queue = $make . $p->{val}{SKU};
+ my $unknown;
+ if (!$p->{val}{MANUFACTURER} || !$p->{val}{MODEL} ||
+ $p->{val}{MODEL} eq N("Unknown Model")) {
+ $queue = N("Printer");
+ $unknown = 1;
} else {
- $queue = $make . $p->{val}{MODEL};
+ my $make = $p->{val}{MANUFACTURER};
+ if ($p->{val}{SKU}) {
+ $queue = $make . $p->{val}{SKU};
+ } else {
+ $queue = $make . $p->{val}{MODEL};
+ }
+ $queue =~ s/\s+//g;
+ $queue =~ s/^$make$make/$make/;
}
- $queue =~ s/\s+//g;
- $queue =~ s/^$make$make/$make/;
+ # Append a number if the queue name already exists
if ($printer->{configured}{$queue}) {
$queue =~ s/(\d)$/$1_/;
my $i = 1;
@@ -489,8 +497,10 @@ sub configure_new_printers {
$printer->{currentqueue}{queue} = $queue;
undef $_w;
$_w = $in->wait_message(N("Printerdrake"),
- N("Configuring printer \"%s\"...",
- $printer->{currentqueue}{queue}));
+ ($unknown ?
+ N("Configuring printer ...") :
+ N("Configuring printer \"%s\"...",
+ $printer->{currentqueue}{queue})));
# Do configuration of multi-function devices and look up
# model name in the printer database
setup_common($printer, $in, $p->{val}{DESCRIPTION}, $p->{port},
@@ -500,15 +510,63 @@ sub configure_new_printers {
$printer->{OLD_QUEUE} = $printer->{QUEUE} =
$printer->{currentqueue}{queue};
# Do the steps of queue setup
- get_db_entry($printer, $in) or next;
+ get_db_entry($printer, $in);
+ # Let the user choose the model manually if it could not be
+ # auto-detected.
+ if (!$printer->{DBENTRY}) {
+ # Set the OLD_CHOICE to a non-existing value
+ $printer->{OLD_CHOICE} = "XXX";
+ # Set model selection cursor onto the "Raw Printer" entry.
+ $printer->{DBENTRY} = N("Raw printer (No driver)");
+ # Remove wait message
+ undef $_w;
+ # Choose the printer/driver from the list
+ $printer->{DBENTRY} =
+ $in->ask_from_treelist(N("Printer model selection"),
+ N("Which printer model do you have?") .
+ N("
+
+Printerdrake could not determine which model your printer is. Please choose the correct model from the list.") . " " .
+ N("If your printer is not listed, choose a compatible (see printer manual) or a similar one."), '|',
+ [ keys %printer::main::thedb ], $printer->{DBENTRY}) or next;
+ # Rename the queue according to the chosen model
+ $queue = $printer->{DBENTRY};
+ $queue =~ s/\|/ /g;
+ $printer->{currentqueue}{desc} = $queue;
+ $queue =~ s/[\s\(\),]//g;
+ # Append a number if the queue name already exists
+ if ($printer->{configured}{$queue}) {
+ $queue =~ s/(\d)$/$1_/;
+ my $i = 1;
+ while ($printer->{configured}{"$queue$i"}) {
+ $i ++;
+ }
+ $queue .= $i;
+ }
+ $printer->{currentqueue}{queue} = $queue;
+ $printer->{QUEUE} = $printer->{currentqueue}{queue};
+ # Restore wait message
+ $_w = $in->wait_message(N("Printerdrake"),
+ N("Configuring printer \"%s\"...",
+ $printer->{currentqueue}{queue}));
+ }
get_printer_info($printer, $in) or next;
setup_options($printer, $in) or next;
configure_queue($printer, $in) or next;
# If there is no default printer set, let this one get the
# default
- $printer->{DEFAULT} ||= $printer->{QUEUE};
+ if (!$printer->{DEFAULT}) {
+ $printer->{DEFAULT} = $printer->{QUEUE};
+ printer::default::set_printer($printer);
+ }
}
}
+ # Configure the current printer queues in applications
+ $_w =
+ $in->wait_message(N("Printerdrake"),
+ N("Configuring applications..."));
+ printer::main::configureapplications($printer);
+ undef $_w;
undef $printer->{noninteractive};
}
@@ -1962,6 +2020,7 @@ sub get_db_entry {
}
$printer->{OLD_CHOICE} = $printer->{DBENTRY};
}
+ 1;
}
sub is_model_correct {
@@ -2629,11 +2688,11 @@ The \"%s\" command also allows to modify the option settings for a particular pr
(!$cupsremote ?
N("To know about the options available for the current printer read either the list shown below or click on the \"Print option list\" button.%s%s
-", $scanning, $photocard) . printer::main::help_output($printer, 'lpd') :
+", $scanning, $photocard) . printer::main::help_output($printer, 'cups') :
$scanning . $photocard .
N("Here is a list of the available printing options for the current printer:
-") . printer::main::help_output($printer, 'lpd')) : $scanning . $photocard);
+") . printer::main::help_output($printer, 'cups')) : $scanning . $photocard);
} elsif ($spooler eq "lprng") {
$dialogtext =
N("To print a file from the command line (terminal window) use the command \"%s <file>\".
@@ -3090,6 +3149,25 @@ sub install_spooler {
1;
}
+sub assure_default_printer_is_set {
+ my ($printer, $in) = @_;
+ if (defined($printer->{SPOOLER}) && $printer->{SPOOLER} &&
+ (!defined($printer->{DEFAULT}) || !$printer->{DEFAULT})) {
+ my $_w = $in->wait_message(N("Printerdrake"),
+ N("Setting Default Printer..."));
+ $printer->{DEFAULT} = printer::default::get_printer($printer);
+ if ($printer->{DEFAULT}) {
+ # If a CUPS system has only remote printers and no default
+ # printer defined, it defines the first printer whose
+ # broadcast signal appeared after the start of the CUPS
+ # daemon, so on every start another printer gets the default
+ # printer. To avoid this, make sure that the default printer
+ # is defined.
+ printer::default::set_printer($printer);
+ } else { $printer->{DEFAULT} = '' }
+ }
+}
+
sub setup_default_spooler {
my ($printer, $in, $upNetwork) = @_;
$printer->{SPOOLER} ||= 'cups';
@@ -3124,9 +3202,14 @@ sub setup_default_spooler {
# Re-read the printer database (CUPS has additional drivers, PDQ
# has no raw queue)
%printer::main::thedb = ();
- #my $_w = $in->wait_message(N("Printerdrake"), N("Reading printer database..."));
- #printer::main::read_printer_db($printer->{SPOOLER});
- }
+ assure_default_printer_is_set($printer, $in);
+ }
+ # Configure the current printer queues in applications
+ my $_w =
+ $in->wait_message(N("Printerdrake"),
+ N("Configuring applications..."));
+ printer::main::configureapplications($printer);
+ undef $_w;
# Save spooler choice
printer::default::set_spooler($printer);
return $printer->{SPOOLER};
@@ -3178,15 +3261,12 @@ sub wizard_close {
#- Program entry point for configuration of the printing system.
sub main {
- my ($printer, $in, $ask_multiple_printer, $upNetwork) = @_;
+ my ($printer, $in, $normal_run, $upNetwork) = @_;
# Save the user mode, so that the same one is used on the next start
# of Printerdrake
printer::main::set_usermode($::expert);
- # Set up new printers
- $::isInstall || configure_new_printers($printer, $in, $upNetwork);
-
# Default printer name, we do not use "lp" so that one can switch the
# default printer under LPD without needing to rename another printer.
# Under LPD the alias "lp" will be given to the default printer.
@@ -3196,7 +3276,7 @@ sub main {
# we install some more stuff
{
my $_w = $in->wait_message(N("Printerdrake"),
- N("Checking installed software..."));
+ N("Checking installed software..."));
if (!$::testing &&
!files_exist(qw(/usr/bin/foomatic-configure
/usr/lib/perl5/vendor_perl/5.8.0/Foomatic/DB.pm
@@ -3228,6 +3308,22 @@ sub main {
printer::default::set_spooler($printer);
}
+ # Get the default printer (Done after non-interactive queue setup, so
+ # that these queues are taken into account)
+ assure_default_printer_is_set($printer, $in);
+
+ # Non-interactive setup of newly detected printers (This is done only
+ # when not in expert mode, so we always have a spooler defined here)
+ configure_new_printers($printer, $in, $upNetwork);
+
+ # For preparation of the "Summary" step of the installation all is done
+ # now. We do not go into the main loop
+ return if !$normal_run;
+
+ # Ask for a spooler when none is defined yet
+ $printer->{SPOOLER} ||=
+ setup_default_spooler($printer, $in, $upNetwork) || return;
+
# Turn on printer autodetection by default
$printer->{AUTODETECT} = 1;
$printer->{AUTODETECTLOCAL} = 1;
@@ -3235,238 +3331,174 @@ sub main {
$printer->{AUTODETECTSMB} = 1;
# Control variables for the main loop
- my ($menuchoice, $cursorpos, $queue, $continue, $newqueue, $editqueue, $menushown) = ('', '::', $defaultprname, 1, 0, 0, 0);
+ my ($menuchoice, $cursorpos, $queue, $newqueue, $editqueue) =
+ ('', '::', $defaultprname, 0, 0);
# Cursor position in queue modification window
my $modify = N("Printer options");
- while ($continue) {
+ while (1) {
$newqueue = 0;
- # When the queue list is not shown, cancelling the printer type
- # dialog should leave the program
- $continue = 0;
- # Get the default printer
- if (defined($printer->{SPOOLER}) && $printer->{SPOOLER} &&
- (!defined($printer->{DEFAULT}) || $printer->{DEFAULT})) {
- my $_w = $in->wait_message(N("Printerdrake"),
- N("Preparing Printerdrake..."));
- $printer->{DEFAULT} = printer::default::get_printer($printer);
- if ($printer->{DEFAULT}) {
- # If a CUPS system has only remote printers and no default
- # printer defined, it defines the first printer whose
- # broadcast signal appeared after the start of the CUPS
- # daemon, so on every start another printer gets the default
- # printer. To avoid this, make sure that the default printer
- # is defined.
- printer::default::set_printer($printer);
- } else { $printer->{DEFAULT} = '' }
- }
-
- # Configure the current printer queues in applications
- {
- my $_w = $in->wait_message(N("Printerdrake"), N("Configuring applications..."));
- printer::main::configureapplications($printer);
- }
-
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;
+ # 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 (do not show main window now).
$editqueue = 0;
} else {
# Reset modification window cursor when one leaves the window
$modify = N("Printer options");
- if (!$ask_multiple_printer &&
- %{$printer->{configured} || {}} == ()) {
-# $in->set_help('doYouWantToPrint') if $::isInstall;
- $newqueue = 1;
- $menuchoice = $printer->{want} ||
- $in->ask_yesorno(N("Printer"),
- N("Would you like to configure printing?"),
- 0) ? "\@addprinter" : "\@quit";
- if ($menuchoice ne "\@quit") {
- $printer->{SPOOLER} ||=
- setup_default_spooler($printer, $in, $upNetwork) ||
- return;
+ # This entry and the check for this entry have to use
+ # the same translation to work properly
+ my $_spoolerentry = N("Printing system: ");
+ # If networking is configured, start it, but don't ask the
+ # user to configure networking. We want to know whether we
+ # have a local network, to suppress some buttons in the
+ # recommended mode
+ my $havelocalnetworks_or_expert =
+ $::expert ||
+ check_network($printer, $in, $upNetwork, 1) &&
+ printer::detect::getIPsInLocalNetworks() != ();
+# $in->set_help('mainMenu') if $::isInstall;
+ # Initialize the cursor position
+ if ($cursorpos eq "::" &&
+ $printer->{DEFAULT} &&
+ $printer->{DEFAULT} ne "") {
+ if ($printer->{configured}{$printer->{DEFAULT}}) {
+ $cursorpos =
+ $printer->{configured}{$printer->{DEFAULT}}{queuedata}{menuentry} . N(" (Default)");
+ } elsif ($printer->{SPOOLER} eq "cups") {
+ $cursorpos = find { /!$printer->{DEFAULT}:[^!]*$/ } printer::cups::get_formatted_remote_queues($printer);
}
- } else {
- # Ask for a spooler when none is defined
- $printer->{SPOOLER} ||= setup_default_spooler($printer, $in, $upNetwork) || return;
- # This entry and the check for this entry have to use
- # the same translation to work properly
- my $_spoolerentry = N("Printing system: ");
- # If networking is configured, start it, but don't ask the
- # user to configure networking. We want to know whether we
- # have a local network, to suppress some buttons in the
- # recommended mode
- my $havelocalnetworks_or_expert =
- $::expert ||
- check_network($printer, $in, $upNetwork, 1) &&
- printer::detect::getIPsInLocalNetworks() != ();
- # Show a queue list window when there is at least one queue,
- # when we are in expert mode, or when we are not in the
- # installation.
- if (%{$printer->{configured} || {}} || $::expert || !$::isInstall) {
-# $in->set_help('mainMenu') if $::isInstall;
- # Cancelling the printer type dialog should leed to this
- # dialog
- $continue = 1;
- # This is for the "Recommended" installation. When one has
- # no printer queue printerdrake starts directly adding
- # a printer and in the end it asks whether one wants to
- # install another printer. If the user says "Yes", he
- # arrives in the main menu of printerdrake. From now
- # on the question is not asked any more but the menu
- # is shown directly after having done an operation.
- $menushown = 1;
- # Initialize the cursor position
- if ($cursorpos eq "::" &&
- $printer->{DEFAULT} &&
- $printer->{DEFAULT} ne "") {
- if ($printer->{configured}{$printer->{DEFAULT}}) {
- $cursorpos =
- $printer->{configured}{$printer->{DEFAULT}}{queuedata}{menuentry} . N(" (Default)");
- } elsif ($printer->{SPOOLER} eq "cups") {
- $cursorpos = find { /!$printer->{DEFAULT}:[^!]*$/ } printer::cups::get_formatted_remote_queues($printer);
- }
- }
- # Generate the list of available printers
- my @printerlist =
- sort((map { $printer->{configured}{$_}{queuedata}{menuentry}
- . ($_ eq $printer->{DEFAULT} ?
- N(" (Default)") : "") }
- keys(%{$printer->{configured}
- || {}})),
- ($printer->{SPOOLER} eq "cups" ?
- printer::cups::get_formatted_remote_queues($printer) :
- ()));
- my $noprinters = $#printerlist < 0;
- # Position the cursor where it were before (in case
- # a button was pressed).
- $menuchoice = $cursorpos;
- # Show the main dialog
- $in->ask_from_(
- { title => N("Printerdrake"),
- messages =>
- ($noprinters ? "" :
- ($printer->{SPOOLER} eq "cups" ?
- N("The following printers are configured. Double-click on a printer to change its settings; to make it the default printer; to view information about it; or to make a printer on a remote CUPS server available for Star Office/OpenOffice.org/GIMP.") :
- N("The following printers are configured. Double-click on a printer to change its settings; to make it the default printer; or to view information about it."))),
- cancel => (""),
- ok => (""),
+ }
+ # Generate the list of available printers
+ my @printerlist =
+ sort((map { $printer->{configured}{$_}{queuedata}{menuentry}
+ . ($_ eq $printer->{DEFAULT} ?
+ N(" (Default)") : "") }
+ keys(%{$printer->{configured}
+ || {}})),
+ ($printer->{SPOOLER} eq "cups" ?
+ printer::cups::get_formatted_remote_queues($printer) :
+ ()));
+ my $noprinters = $#printerlist < 0;
+ # Position the cursor where it was before (in case
+ # a button was pressed).
+ $menuchoice = $cursorpos;
+ # Show the main dialog
+ $in->ask_from_({
+ title => N("Printerdrake"),
+ messages =>
+ ($noprinters ? "" :
+ ($printer->{SPOOLER} eq "cups" ?
+ N("The following printers are configured. Double-click on a printer to change its settings; to make it the default printer; to view information about it; or to make a printer on a remote CUPS server available for Star Office/OpenOffice.org/GIMP.") :
+ N("The following printers are configured. Double-click on a printer to change its settings; to make it the default printer; or to view information about it."))),
+ cancel => (""),
+ ok => ("")},
+ # List the queues
+ [ if_(!$noprinters,
+ { val => \$menuchoice, format => \&translate,
+ sort => 0, separator => "!",tree_expanded => 1,
+ quit_if_double_click => 1,allow_empty_list =>1,
+ list => \@printerlist }),
+ { clicked_may_quit =>
+ sub {
+ # Save the cursor position
+ $cursorpos = $menuchoice;
+ $menuchoice = "\@addprinter";
+ 1;
},
- # List the queues
- [ if_(!$noprinters,
- { val => \$menuchoice, format => \&translate,
- sort => 0, separator => "!",tree_expanded => 1,
- quit_if_double_click => 1,allow_empty_list =>1,
- list => \@printerlist }),
- { clicked_may_quit =>
- sub {
- # Save the cursor position
- $cursorpos = $menuchoice;
- $menuchoice = "\@addprinter";
- 1;
+ val => N("Add a new printer") },
+ ($printer->{SPOOLER} eq "cups" &&
+ $havelocalnetworks_or_expert ?
+ ({ clicked_may_quit =>
+ sub {
+ # Save the cursor position
+ $cursorpos = $menuchoice;
+ $menuchoice = "\@refresh";
+ 1;
+ },
+ val => N("Refresh printer list (to display all available remote CUPS printers)") },
+ { clicked_may_quit =>
+ sub {
+ # Save the cursor position
+ $cursorpos = $menuchoice;
+ $menuchoice = "\@cupsconfig";
+ 1;
+ },
+ val => ($::expert ? N("CUPS configuration") :
+ N("Printer sharing")) }) : ()),
+ ($::expert ?
+ { clicked_may_quit =>
+ sub {
+ # Save the cursor position
+ $cursorpos = $menuchoice;
+ $menuchoice = "\@spooler";
+ 1;
+ },
+ val => N("Change the printing system") } :
+ ()),
+ { clicked_may_quit =>
+ sub {
+ # Save the cursor position
+ $cursorpos = $menuchoice;
+ $menuchoice = "\@usermode";
+ 1
},
- val => N("Add a new printer") },
- ($printer->{SPOOLER} eq "cups" && $havelocalnetworks_or_expert ?
- ({ clicked_may_quit =>
- sub {
- # Save the cursor position
- $cursorpos = $menuchoice;
- $menuchoice = "\@refresh";
- 1;
- },
- val => N("Refresh printer list (to display all available remote CUPS printers)") },
- { clicked_may_quit =>
- sub {
- # Save the cursor position
- $cursorpos = $menuchoice;
- $menuchoice = "\@cupsconfig";
- 1;
- },
- val => ($::expert ? N("CUPS configuration") :
- N("Printer sharing")) }) : ()),
- ($::expert ?
- { clicked_may_quit =>
- sub {
- # Save the cursor position
- $cursorpos = $menuchoice;
- $menuchoice = "\@spooler";
- 1;
- },
- val => N("Change the printing system") } :
- ()),
- { clicked_may_quit =>
- sub {
- # Save the cursor position
- $cursorpos = $menuchoice;
- $menuchoice = "\@usermode";
- 1
- },
- val => ($::expert ? N("Normal Mode") :
- N("Expert Mode")) },
- { clicked_may_quit =>
- sub { $menuchoice = "\@quit"; 1 },
- val => ($::isEmbedded || $::isInstall ?
- N("Done") : N("Quit")) },
- ]
- );
- # Toggle expert mode and standard mode
- if ($menuchoice eq "\@usermode") {
- printer::main::set_usermode(!$::expert);
- # Read printer database for the new user mode
- %printer::main::thedb = ();
- # Modify menu entries to switch the tree
- # structure between expert/normal mode.
- my $spooler =
- $spoolers{$printer->{SPOOLER}}{short_name};
- if ($::expert) {
- map {
- $printer->{configured}{$_}{queuedata}{menuentry} =~
- s/^/$spooler!/;
- } keys(%{$printer->{configured}});
- $cursorpos =~ s/^/$spooler!/;
- } else {
- map {
- $printer->{configured}{$_}{queuedata}{menuentry} =~
- s/^$spooler!//;
- } keys(%{$printer->{configured}});
- $cursorpos =~ s/^$spooler!//;
- }
- next;
- }
+ val => ($::expert ? N("Normal Mode") :
+ N("Expert Mode")) },
+ { clicked_may_quit =>
+ sub { $menuchoice = "\@quit"; 1 },
+ val => ($::isEmbedded || $::isInstall ?
+ N("Done") : N("Quit")) },
+ ]);
+ # Toggle expert mode and standard mode
+ if ($menuchoice eq "\@usermode") {
+ printer::main::set_usermode(!$::expert);
+ # Read printer database for the new user mode
+ %printer::main::thedb = ();
+ # Modify menu entries to switch the tree
+ # structure between expert/normal mode.
+ my $spooler =
+ $spoolers{$printer->{SPOOLER}}{short_name};
+ if ($::expert) {
+ map {
+ $printer->{configured}{$_}{queuedata}{menuentry} =~
+ s/^/$spooler!/;
+ } keys(%{$printer->{configured}});
+ $cursorpos =~ s/^/$spooler!/;
} else {
- #- as there are no printer already configured, Add one
- #- automatically.
- $menuchoice = "\@addprinter";
- }
- # Refresh printer list
- next if $menuchoice eq "\@refresh";
- # Configure CUPS
- if ($menuchoice eq "\@cupsconfig") {
- config_cups($printer, $in, $upNetwork);
- next;
- }
- # Determine a default name for a new printer queue
- if ($menuchoice eq "\@addprinter") {
- $newqueue = 1;
- my %queues;
- @queues{map { split '\|', $_ } keys %{$printer->{configured}}} = ();
- my $i = ''; while ($i < 150) { last unless exists $queues{"$defaultprname$i"}; ++$i }
- $queue = "$defaultprname$i";
- }
- # Function to switch to another spooler
- if ($menuchoice eq "\@spooler") {
- $printer->{SPOOLER} = setup_default_spooler($printer, $in, $upNetwork) || $printer->{SPOOLER};
- next;
- }
- # Rip the queue name out of the chosen menu entry
- if ($menuchoice =~ /!([^\s!:]+):[^!]*$/) {
- $queue = $1;
- # Save the cursor position
- $cursorpos = $menuchoice;
+ map {
+ $printer->{configured}{$_}{queuedata}{menuentry} =~
+ s/^$spooler!//;
+ } keys(%{$printer->{configured}});
+ $cursorpos =~ s/^$spooler!//;
}
+ next;
+ }
+ # Refresh printer list
+ next if $menuchoice eq "\@refresh";
+ # Configure CUPS
+ if ($menuchoice eq "\@cupsconfig") {
+ config_cups($printer, $in, $upNetwork);
+ next;
+ }
+ # Determine a default name for a new printer queue
+ if ($menuchoice eq "\@addprinter") {
+ $newqueue = 1;
+ my %queues;
+ @queues{map { split '\|', $_ } keys %{$printer->{configured}}} = ();
+ my $i = ''; while ($i < 150) { last unless exists $queues{"$defaultprname$i"}; ++$i }
+ $queue = "$defaultprname$i";
+ }
+ # Call function to switch to another spooler
+ if ($menuchoice eq "\@spooler") {
+ $printer->{SPOOLER} = setup_default_spooler($printer, $in, $upNetwork) || $printer->{SPOOLER};
+ next;
+ }
+ # Rip the queue name out of the chosen menu entry
+ if ($menuchoice =~ /!([^\s!:]+):[^!]*$/) {
+ $queue = $1;
+ # Save the cursor position
+ $cursorpos = $menuchoice;
}
# Save the default spooler
printer::default::set_spooler($printer);
@@ -3498,7 +3530,6 @@ sub main {
if (!$::isEmbedded && !$::isInstall &&
#if ((!$::isInstall) &&
$in->isa('interactive::gtk')) {
- $continue = 1;
# Enter wizard mode
$::Wizard_pix_up = "wiz_printerdrake.png";
$::Wizard_title = N("Add a new printer");
@@ -3511,8 +3542,8 @@ sub main {
next;
};
undef $::Wizard_no_previous;
- eval {
- #do {
+ #eval {
+ do {
# eval to catch wizard cancel. The wizard stuff should
# be in a separate function with steps. see dragw.
# (dams)
@@ -3568,8 +3599,6 @@ sub main {
# User was content with test pages
# Leave wizard mode with congratulations screen
wizard_close($in, 1);
- $continue = ($::expert || !$::isInstall || $menushown ||
- $in->ask_yesorno('', N("Do you want to configure another printer?")));
} elsif ($testpages == 2) {
# User was not content with test pages
# Leave wizard mode without congratulations
@@ -3584,16 +3613,7 @@ sub main {
$::expert or $printer->{TYPE} = "LOCAL";
wizard_welcome($printer, $in, $upNetwork) or next;
!$::expert or choose_printer_type($printer, $in) or next;
- #- Cancelling the printer connection type window
- #- should not restart printerdrake in recommended mode,
- #- it is the first dialog of the sequence there and
- #- the "Add printer" sequence should be stopped when there
- #- are no local printers. In expert mode this is the second
- #- dialog of the sequence.
- $continue = 1;
setup_printer_connection($printer, $in, $upNetwork) or next;
- #- Cancelling one of the following dialogs should
- #- restart printerdrake
if ($::expert or $printer->{MANUAL} or
$printer->{MORETHANONE}) {
choose_printer_name($printer, $in) or next;
@@ -3615,11 +3635,7 @@ sub main {
$printer->{configured}{$printer->{QUEUE}}{queuedata}{menuentry} .
($printer->{QUEUE} eq $printer->{DEFAULT} ? N(" (Default)") : '');
my $testpages = print_testpages($printer, $in, $printer->{TYPE} !~ /LOCAL/ && $upNetwork);
- if ($testpages == 1) {
- # User was content with test pages
- $continue = ($::expert || !$::isInstall || $menushown ||
- $in->ask_yesorno('', N("Do you want to configure another printer?")));
- } elsif ($testpages == 2) {
+ if ($testpages == 2) {
# User was not content with test pages
$editqueue = 1;
$queue = $printer->{QUEUE};
@@ -3681,8 +3697,8 @@ What do you want to modify on this printer?",
N("Print test pages"),
N("Learn how to use this printer"),
if_($printer->{configured}{$queue}, N("Remove printer")) ] } ])) {
- # Stay in the queue edit window until the user clicks "Close"
- # or deletes the queue
+ # 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} = {};
@@ -3763,7 +3779,7 @@ What do you want to modify on this printer?",
N("Failed to remove the printer \"%s\" from Star Office/OpenOffice.org/GIMP.", $queue));
} elsif ($modify eq N("Print test pages")) {
print_testpages($printer, $in, $upNetwork);
- } elsif ($modify eq N("Know how to use this printer")) {
+ } elsif ($modify eq N("Learn how to use this printer")) {
printer_help($printer, $in);
} elsif ($modify eq N("Remove printer")) {
if ($in->ask_yesorno('',
@@ -3804,21 +3820,17 @@ What do you want to modify on this printer?",
}
}
} else { $editqueue = 0 }
- $continue = $editqueue || $::expert || !$::isInstall || $menushown ||
- $in->ask_yesorno('', N("Do you want to configure another printer?"));
}
- # Configure the current printer queue in applications when main menu
- # will not be shown (During installation in "Recommended" mode)
- if ($::isInstall && !$::expert && !$menushown && !$continue) {
- my $_w = $in->wait_message(N("Printerdrake"), N("Configuring applications..."));
- printer::main::configureapplications($printer);
- }
+ # Configure the current printer queue in applications
+ my $_w = $in->wait_message(N("Printerdrake"),
+ N("Configuring applications..."));
+ printer::main::configureapplications($printer);
+ undef $_w;
# Delete some variables
- $printer->{OLD_QUEUE} = "";
- foreach (qw(QUEUE TYPE str_type DBENTRY ARGS OLD_CHOICE)) {
- $printer->{$_} = "";
+ foreach (qw(OLD_QUEUE QUEUE TYPE str_type DBENTRY ARGS OLD_CHOICE)){
+ $printer->{$_} = "";
}
$printer->{currentqueue} = {};
$printer->{complete} = 0;
diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake
index 4f05e1ec2..bae5ba223 100755
--- a/perl-install/standalone/printerdrake
+++ b/perl-install/standalone/printerdrake
@@ -44,7 +44,8 @@ exit 0 unless printer::printerdrake::first_time_dialog($printer, $in, 1);
# Check whether Foomatic is installed and install it if necessary
printer::printerdrake::install_foomatic($in);
-my $w = $in->wait_message(N("Printerdrake"), N("Reading printer data ..."));
+my $w = $in->wait_message(N("Printerdrake"),
+ N("Reading data of installed printers..."));
# Get what was installed before
eval { $printer = printer::main::getinfo('') };
# Choose the spooler by command line options