summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-05-04 18:31:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-05-04 18:31:12 +0000
commit4e096379cad750ecfdb7ddd78eeae899380a7696 (patch)
treed8d20a99442163647d9daac826478cb5695f4312 /perl-install
parenta653f2e1d6d6ff8ee49c647e747bdb5b549429c2 (diff)
downloaddrakx-4e096379cad750ecfdb7ddd78eeae899380a7696.tar
drakx-4e096379cad750ecfdb7ddd78eeae899380a7696.tar.gz
drakx-4e096379cad750ecfdb7ddd78eeae899380a7696.tar.bz2
drakx-4e096379cad750ecfdb7ddd78eeae899380a7696.tar.xz
drakx-4e096379cad750ecfdb7ddd78eeae899380a7696.zip
no_comment
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ChangeLog18
-rw-r--r--perl-install/install_any.pm4
-rw-r--r--perl-install/interactive.pm5
-rw-r--r--perl-install/interactive_gtk.pm3
-rw-r--r--perl-install/interactive_newt.pm1
-rw-r--r--perl-install/modules.pm23
6 files changed, 37 insertions, 17 deletions
diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog
index 92b1fd02b..0a26b3797 100644
--- a/perl-install/ChangeLog
+++ b/perl-install/ChangeLog
@@ -1,5 +1,23 @@
2000-05-04 Pixel <pixel@mandrakesoft.com>
+ * install2.pm (configurePrinter): give clicked to printerConfig
+
+ * interactive.pm (ask_from_entries_ref): set default val if not_edit
+
+ * interactive_newt.pm (ask_from_entries_refW): remove setting of
+ default val. Now done in interactive::ask_from_entries_ref
+
+ * interactive_gtk.pm (ask_from_entries_refW): handle empty value
+
+ * modules.pm (read_already_loaded): ensure that already loaded
+ modules are put in %loaded.
+ * modules.pm (load_ide): add loading if ide-probe-mod (for new kernel)
+
+ * lilo.pm (install_lilo): truncate label's to 15 chars
+
+ * install_any.pm (generate_ks_cfg): fix missing space
+ * install_any.pm (generate_ks_cfg): fix bug for nfs comand
+
* install2.pm: get rid of autoformat
* install_steps.pm (choosePartitionsToFormat): get rid of autoformat
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 11df7afe3..a9696327a 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -820,7 +820,7 @@ sub generate_ks_cfg {
if ($o->{method} =~ /ftp|http/) {
$ks .= "url --url $ENV{URLPREFIX}\n";
} elsif ($o->{method} =~ /nfs/) {
- cat_("/proc/mounts") =~ m|(\S+:\S+)\s+/tmp/rhimage nfs| or die;
+ cat_("/proc/mounts") =~ m|(\S+):(\S+)\s+/tmp/rhimage nfs| or die;
$ks .= "nfs --server $1 --dir $2\n";
}
my %intf = %{$o->{intf}[0]};
@@ -829,7 +829,7 @@ sub generate_ks_cfg {
} else {
my %l = (ip => $intf{IPADDR}, netmask => $intf{NETMASK}, gateway => $o->{netc}{GATEWAY});
$ks .= "network " . join(" ", map_each { $::b && "--$::a $::b" } %l);
- $ks .= "--nameserver $_" foreach network::dnsServers($o->{netc});
+ $ks .= " --nameserver $_" foreach network::dnsServers($o->{netc});
$ks .= "\n";
}
$ks;
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index f82091458..684f68179 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -227,8 +227,9 @@ sub ask_from_entries_ref($$$$;$%) {
if ((ref $_) eq "SCALAR") {
{ val => $_ }
} else {
- ($_->{list} && (@{$_->{list}} > 1)) ?
- { %$_, type => "list"} : $_;
+ add2hash_($_, { type => 'list' }) if @{$_->{list}} > 1; #- TODO: remove the if, not needed?
+ ${$_->{val}} = $_->{list}[0] if $_->{not_edit} && !member(${$_->{val}}, @{$_->{list}});
+ $_;
}
} @$val ];
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 98beacdc7..d3f773fbf 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -188,7 +188,6 @@ sub ask_from_entries_refW {
$w->entry->set_editable(!$_->{not_edit});
$w->set_popdown_strings(@{$_->{list}});
$w->disable_activate;
- $_->{val} ||= $_->{list}[0];
$w;
} elsif ($_->{type} eq "bool") {
my $w = Gtk::CheckButton->new($_->{text});
@@ -264,7 +263,7 @@ sub ask_from_entries_refW {
#-i must say before &$go_to_next, but with it doen't work HACK!
$w->signal_emit_stop("key_press_event") if chr($e->{keyval}) eq "\x8d";
});
- $widget->set_text(${$val->[$i]{val}}) if ${$val->[$i]{val}};
+ $widget->set_text(${$val->[$i]{val}});
$widget->set_visibility(0) if $val->[$i]{hidden};
}
&{$updates[$i]};
diff --git a/perl-install/interactive_newt.pm b/perl-install/interactive_newt.pm
index 67238844b..dc21c27e2 100644
--- a/perl-install/interactive_newt.pm
+++ b/perl-install/interactive_newt.pm
@@ -128,7 +128,6 @@ sub ask_from_entries_refW {
#- $_->{type} = "entry" if $_->{type} eq "list" && !$_->{not_edit};
${$_->{val}} ||= '';
if ($_->{type} eq "list") {
- $_->{val} ||= $_->{list}[0];
my $w = Newt::Component::Listbox(-1, -1, 1, 0);
$w->ListboxSetWidth(20);
$w->ListboxAddEntry($_) foreach @{$_->{list}};
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 60d9d201c..024936c28 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -137,6 +137,7 @@ arch() =~ /^sparc/ ? (
"sd_mod" => "sd_mod",
"ide-mod" => "ide-mod",
"ide-probe" => "ide-probe",
+ "ide-probe-mod" => "ide-probe-mod",
}],
[ 'disk', {
arch() =~ /^sparc/ ? (
@@ -158,15 +159,15 @@ arch() =~ /^sparc/ ? (
}],
[ 'cdrom', {
arch() !~ /^sparc/ ? (
-#- "sbpcd" => "SoundBlaster/Panasonic", #- removed for space
- "aztcd" => "Aztech CD",
- "gscd" => "Goldstar R420",
- "isp16" => "ISP16/MAD16/Mozart",
+ "sbpcd" => "SoundBlaster/Panasonic",
+#- "aztcd" => "Aztech CD",
+#- "gscd" => "Goldstar R420",
+#- "isp16" => "ISP16/MAD16/Mozart",
#- "mcd" => "Mitsumi", #- removed for space
- "mcdx" => "Mitsumi (alternate)",
- "optcd" => "Optics Storage 8000",
- "cm206" => "Phillips CM206/CM260",
- "sjcd" => "Sanyo",
+#- "mcdx" => "Mitsumi (alternate)",
+#- "optcd" => "Optics Storage 8000",
+#- "cm206" => "Phillips CM206/CM260",
+#- "sjcd" => "Sanyo",
"cdu31a" => "Sony CDU-31A",
"sonycd535" => "Sony CDU-5xx",
) : (),
@@ -447,9 +448,11 @@ sub load_raw {
}
sub read_already_loaded() {
- foreach (cat_("/proc/modules", "die")) {
+ foreach (cat_("/proc/modules")) {
my ($name) = split;
$conf{$name}{loaded} = 1;
+ my $l = $loaded{($drivers{$name} || next)->{type}} ||= [];
+ push @$l, $name unless member($name, @$l);
}
}
@@ -603,6 +606,6 @@ sub load_ide {
eval {
load("ide-mod", 'prereq', 'options="' . detect_devices::hasUltra66() . '"');
delete $conf{"ide-mod"}{options};
- load_multi(qw(ide-probe ide-disk ide-cd));
+ load_multi(qw(ide-probe ide-probe-mod ide-disk ide-cd));
}
}