summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2002-01-29 23:33:36 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2002-01-29 23:33:36 +0000
commit11c48161bf207df87506db3626ee92531091b4d7 (patch)
treec42de0083b3e40f85a69746b5e88d7778fcf4d18 /perl-install
parent52bbc276a76a8c8f943e43cac729e8c82787d387 (diff)
downloaddrakx-11c48161bf207df87506db3626ee92531091b4d7.tar
drakx-11c48161bf207df87506db3626ee92531091b4d7.tar.gz
drakx-11c48161bf207df87506db3626ee92531091b4d7.tar.bz2
drakx-11c48161bf207df87506db3626ee92531091b4d7.tar.xz
drakx-11c48161bf207df87506db3626ee92531091b4d7.zip
Prepared printerdrake for the "Add printer" wizard.
Improvements for the selection of a local printer, especially when no or one printer was detected.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer.pm2
-rw-r--r--perl-install/printerdrake.pm145
2 files changed, 108 insertions, 39 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 8f980b948..a62ecbb94 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -225,7 +225,7 @@ sub wait_for_cups {
last;
}
}
- return cupsready;
+ return $cupsready;
}
sub assure_device_is_available_for_cups {
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index c572a0e87..5712c4e79 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -208,21 +208,46 @@ sub auto_detect {
detect_devices::whatPrinter();
}
+sub wizard_welcome {
+ my ($in) = @_;
+ if ($in) {
+ $in->ask_warn(_("Local Printer"),
+ _("
+Welcome to the Printer Setup Wizard
+
+This wizard will help you to install your printer(s) connected to this computer.
+Please plug in your printer(s) on this computer and turn it/them on. Click on \"Next\" when you are ready, and on \"Cancel\" when you do not want to set up your printer(s) now.
+Note that some computers can crash during the printer auto-detection, use the \"Expert Mode\" of printerdrake to do a printer installation without auto-tection. You also need the \"Expert Mode\" when you want to set up printing on a remote printer when printerdrake does not list it automatically."));
+ }
+}
+
+sub wizard_congratulations {
+ my ($in) = @_;
+ if ($in) {
+ $in->ask_warn(_("Local Printer"),
+ _("
+Congratulations, your printer is now installed and configured!
+
+You can print using the \"Print\" command of your application (usually in the \"File\" menu).
+
+If you want to add, remove, or rename a printer, or if you want to change the default option settings (paper input tray, printout quality, ...), select \"Printer\" in the \"Hardware\" section of the Mandrake Control Center."))
+ }
+}
sub setup_local {
my ($printer, $in) = @_;
my (@port, @str, $device);
my $queue = $printer->{OLD_QUEUE};
- my $do_auto_detect =
+ my $do_auto_detect = ((!$::expert) or
$in->ask_yesorno(_("Auto-Detection of Printers"),
_("Printerdrake is able to auto-detect your locally connected parallel and USB printers for you, but note that on some systems the auto-detection CAN FREEZE YOUR SYSTEM AND EVEN CORRUPT YOUR FILE SYSTEMS! So do it ON YOUR OWN RISK!
-For local printers auto-detection is not really necessary, because they are external devices where you can easily see on their labels which models you have, but if you really want to auto-detect them, connect them and turn them on now and click \"Yes\", otherwise click \"No\"."),0);
+For local printers auto-detection is not really necessary, because they are external devices where you can easily see on their labels which models you have, but if you really want to auto-detect them, connect them and turn them on now and click \"Yes\", otherwise click \"No\"."),0));
my @parport;
my $menuentries;
+ $in->set_help('setupLocal') if $::isInstall;
if ($do_auto_detect) {
@parport = auto_detect($in);
- $in->set_help('setupLocal') if $::isInstall;
for my $p (@parport) {
if ($p->{val}{DESCRIPTION}) {
my $menustr = $p->{val}{DESCRIPTION};
@@ -249,7 +274,7 @@ For local printers auto-detection is not really necessary, because they are exte
$menuentries->{$menustr} = $p->{port};
}
}
- if ($::expert || !@str) {
+ if ($::expert) {
@port = detect_devices::whatPrinterPort();
for my $q (@port) {
if (@str) {
@@ -294,6 +319,7 @@ For local printers auto-detection is not really necessary, because they are exte
my @menuentrieslist = sort { $menuentries->{$a} cmp $menuentries->{$b} }
keys(%{$menuentries});
my $menuchoice = "";
+ my $oldmenuchoice = "";
if (($printer->{configured}{$queue}) &&
($printer->{currentqueue}{'connect'} =~ m/^file:/)) {
$device = $printer->{currentqueue}{'connect'};
@@ -304,43 +330,85 @@ For local printers auto-detection is not really necessary, because they are exte
last;
}
}
+ } else {
+ $device = "";
}
if (($menuchoice eq "") && (@menuentrieslist > -1)) {
$menuchoice = $menuentrieslist[0];
+ $oldmenuchoice = $menuchoice;
+ if ($device eq "") {
+ $device = $menuentries->{$menuchoice};
+ }
}
if ($in) {
$::expert or $in->set_help('configurePrinterDev') if $::isInstall;
- return if !$in->ask_from(_("Local Printer"),
- ($do_auto_detect ?
- ($::expert ?
- (@str ?
+ if ($#menuentrieslist < 0) { # No menu entry
+ if ($::expert) {
+ $device = $in->ask_from_entry
+ (_("Local Printer"),
+ _("No local printer found! To manually install a printer enter a device name/file name in the input line (Parallel Ports: /dev/lp0, /dev/lp1, ..., equivalent to LPT1:, LPT2:, ..., 1st USB printer: /dev/usb/lp0, 2nd USB printer: /dev/usb/lp1, ...)."),
+ {
+ complete => sub {
+ unless ($menuchoice ne "") {
+ $in->ask_warn('', _("You must enter a device or file name!"));
+ return (1,0);
+ }
+ return 0;
+ }
+ });
+ if ($device eq "") {
+ return 0;
+ }
+ } else {
+ $in->ask_warn(_("Local Printer"), _("No local printer found!"));
+ return 0;
+ }
+ } elsif (($#menuentrieslist == 0) && (!$::expert)) { # only one menu
+ # entry
+ return if !$in->ask_yesorno(_("Local Printer"),
+ _("Detected %s, do you want to set it up?", $menuentrieslist[0]), 1);
+ } else {
+ return if !$in->ask_from_(
+ {title => _("Local Printer"),
+ messages => (($do_auto_detect ?
+ ($::expert ?
+ (@str ?
_("Here is a list of all auto-detected printers. ") : ()) .
-_("Please choose the desired printer/printer port or enter a device name/file name in the input line") :
- (@str ?
+_("Please choose the printer you want to set up or enter a device name/file name in the input line") :
+ (@str ?
_("Here is a list of all auto-detected printers. ") : ()) .
-_("Please choose the desired printer/printer port.\n\n")) :
- ($::expert ?
+_("Please choose the printer you want to set up.")) :
+ ($::expert ?
_("Please choose the port where your printer is connected to or enter a device name/file name in the input line") :
-_("Please choose the port where your printer is connected to.\n\n"))) .
- ($::expert ?
-_(" (Parallel Ports: /dev/lp0, /dev/lp1, ..., equivalent to LPT1:, LPT2:, ..., 1st USB printer: /dev/usb/lp0, 2nd USB printer: /dev/usb/lp1, ...).\n\n") :
- ()). (join "\n", @str), [
-{ label => _("Your choice"), val => \$menuchoice, list => \@menuentrieslist, not_edit => !$::expert } ],
- complete => sub {
- unless ($menuchoice ne "") {
- $in->ask_warn('', _("You must choose/enter a printer/device!"));
- return (1,0);
- }
- return 0;
- }
+_("Please choose the port where your printer is connected to."))) .
+ ($::expert ?
+_(" (Parallel Ports: /dev/lp0, /dev/lp1, ..., equivalent to LPT1:, LPT2:, ..., 1st USB printer: /dev/usb/lp0, 2nd USB printer: /dev/usb/lp1, ...).") :
+ ())),
+ callbacks => {
+ complete => sub {
+ unless ($menuchoice ne "") {
+ $in->ask_warn('', _("You must choose/enter a printer/device!"));
+ return (1,0);
+ }
+ return 0;
+ },
+ changed => sub {
+ if ($oldmenuchoice ne $menuchoice) {
+ $device = $menuentries->{$menuchoice};
+ $oldmenuchoice = $menuchoice;
+ }
+ return 0;
+ }
+ }},
+ [
+ ($::expert ?
+ { val => \$device } : ()),
+ { val => \$menuchoice, list => \@menuentrieslist,
+ not_edit => !$::expert, format => \&translate,
+ allow_empty_list => $::expert }
+ ]
);
- }
-
- #- Get the device file name according to what was chosen from the menu
- if ($menuentries->{$menuchoice}) {
- $device = $menuentries->{$menuchoice};
- } else {
- $device = $menuchoice;
+ }
}
#- if CUPS is the spooler, make sure that CUPS knows the device
@@ -2042,7 +2110,7 @@ sub main {
{title => _("Printerdrake"),
messages =>
($noprinters ? "" :
- _("The following printers are configured. Double-click on one of them to modify it, to set it as default, or to get information about it.")),
+ _("he 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 => (""),
},
@@ -2068,7 +2136,7 @@ sub main {
$menuchoice = "\@refresh";
1;
},
- val => _("Refresh printer list (to get all remote CUPS printers visible)") } : ()),
+ val => _("Refresh printer list (to display all available remote CUPS printers)") } : ()),
( $::expert ?
{ clicked_may_quit =>
sub {
@@ -2160,7 +2228,8 @@ sub main {
#- on "Add printer"
#$menuchoice = "\@addprinter";
#- Do all the configuration steps for a new queue
- choose_printer_type($printer, $in) or next;
+ $printer->{TYPE} = "LOCAL";
+ !$::expert or choose_printer_type($printer, $in) or next;
if ($printer->{TYPE} eq 'CUPS') {
setup_remote_cups_server($printer, $in);
$continue = ($::expert || !$::isInstall || $menushown ||
@@ -2171,13 +2240,13 @@ sub main {
#- printerdrake
$continue = 1;
setup_printer_connection($printer, $in) or next;
- choose_printer_name($printer, $in) or next;
+ !$::expert or choose_printer_name($printer, $in) or next;
get_db_entry($printer, $in);
- choose_model($printer, $in) or next;
+ !$::expert or choose_model($printer, $in) or next;
get_printer_info($printer, $in) or next;
- setup_options($printer, $in) or next;
+ !$::expert or setup_options($printer, $in) or next;
configure_queue($printer, $in);
- setasdefault($printer, $in);
+ !$::expert or setasdefault($printer, $in);
$cursorpos =
$printer->{configured}{$printer->{QUEUE}}{'queuedata'}{'menuentry'} .
($printer->{QUEUE} eq $printer->{DEFAULT} ?