summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorpad <pad@mandriva.com>1999-09-05 21:28:36 +0000
committerpad <pad@mandriva.com>1999-09-05 21:28:36 +0000
commit38dce4a6d02d689b7aefa2b5f925ac5441c51a89 (patch)
tree78e8513e786585460ab499c1614e46dfbf1e25be /perl-install/install_steps_interactive.pm
parentfeaf2a529e993fee5bd71560d883ef354537ed6a (diff)
downloaddrakx-38dce4a6d02d689b7aefa2b5f925ac5441c51a89.tar
drakx-38dce4a6d02d689b7aefa2b5f925ac5441c51a89.tar.gz
drakx-38dce4a6d02d689b7aefa2b5f925ac5441c51a89.tar.bz2
drakx-38dce4a6d02d689b7aefa2b5f925ac5441c51a89.tar.xz
drakx-38dce4a6d02d689b7aefa2b5f925ac5441c51a89.zip
code clarification + bugfix
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm61
1 files changed, 33 insertions, 28 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 65206c569..15292eb39 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -228,7 +228,7 @@ name and directory should be used for this queue?"),
changed => sub
{
$o->{printer}{SPOOLDIR}
- = "$printer::spooldir$o->{printer}{QUEUE}" unless $_[0];
+ = "$printer::spooldir/$o->{printer}{QUEUE}" unless $_[0];
},
);
}
@@ -242,13 +242,17 @@ name and directory should be used for this queue?"),
$o->{printer}{TYPE} = $printer::printer_type{$o->{printer}{str_type}};
if ($o->{printer}{TYPE} eq "LOCAL") {
- eval { modules::load("lp"); };
+ {
+ my $w = $o->wait_message(_("Test ports"), _("Detecting devices..."));
+ eval { modules::load("lp"); };
+ }
my @port = ();
foreach ("lp0", "lp1", "lp2") {
local *LP;
push @port, "/dev/$_" if open LP, ">/dev/$_"
}
eval { modules::unload("lp") };
+
# @port =("lp0", "lp1", "lp2");
$o->{printer}{DEVICE} = $port[0] if $port[0];
@@ -350,33 +354,35 @@ wish to access and any applicable user name and password."),
#color_depth
- my @list_col = @{$db_entry{BITSPERPIXEL}};
- my @col = map { "$_->{DEPTH} $_->{DESCR}" } @list_col;
- my %col_to_depth = map { ("$_->{DEPTH} $_->{DESCR}", $_->{DEPTH}) } @list_col;
- my %depth_to_col = reverse %col_to_depth;
-
- if (@list_col) {
- my $is_uniprint = $db_entry{GSDRIVER} eq "uniprint";
- if ($is_uniprint) {
- $o->{printer}{BITSPERPIXEL} =
- $col_to_depth{$o->ask_from_list_
- (_("Configure Uniprint Driver"),
- _("You may now configure the uniprint options for this printer."),
- \@col,
- $depth_to_col{$o->{printer}{BITSPERPIXEL}},
- )};
+ if ($db_entry{BITSPERPIXEL}) {
+ my @list_col = @{$db_entry{BITSPERPIXEL}};
+ my @col = map { "$_->{DEPTH} $_->{DESCR}" } @list_col;
+ my %col_to_depth = map { ("$_->{DEPTH} $_->{DESCR}", $_->{DEPTH}) } @list_col;
+ my %depth_to_col = reverse %col_to_depth;
+
+ if (@list_col) {
+ my $is_uniprint = $db_entry{GSDRIVER} eq "uniprint";
+ if ($is_uniprint) {
+ $o->{printer}{BITSPERPIXEL} =
+ $col_to_depth{$o->ask_from_list_
+ (_("Configure Uniprint Driver"),
+ _("You may now configure the uniprint options for this printer."),
+ \@col,
+ $depth_to_col{$o->{printer}{BITSPERPIXEL}},
+ )};
+ } else {
+ $o->{printer}{BITSPERPIXEL} =
+ $col_to_depth{$o->ask_from_list_
+ (_("Configure Color Depth"),
+ _("You may now configure the color options for this printer."),
+ \@col,
+ $depth_to_col{$o->{printer}{BITSPERPIXEL}},
+ )};
+ }
} else {
- $o->{printer}{BITSPERPIXEL} =
- $col_to_depth{$o->ask_from_list_
- (_("Configure Color Depth"),
- _("You may now configure the color options for this printer."),
- \@col,
- $depth_to_col{$o->{printer}{BITSPERPIXEL}},
- )};
+ $o->{printer}{BITSPERPIXEL} = "Default";
}
- } else {
- $o->{printer}{BITSPERPIXEL} = "Default";
}
$o->{printer}{complete} = 1;
@@ -415,13 +421,12 @@ sub addUser($) {
my @fields = qw(name password password2 realname);
my @shells = install_any::shells($o);
- @shells = qw( /bin/bash /nide);
$o->ask_from_entries_ref(_("Add user"),
_("Enter a user"),
[_("User name"), _("Password"), _("Password (again)"), _("Real name"), _("Shell"),],
[(map { \$sup->{$_}} @fields),
- {val => \$sup->{shell}, list => \@shells},
+ {val => \$sup->{shell}, list => \@shells, not_edit => !$::expert},
],
complete => sub {
$sup->{password} eq $sup->{password2} or $o->ask_warn('', [ _("You must enter the same password"), _("Please try again") ]), return (1,2);