summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-08-29 20:15:36 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-08-29 20:15:36 +0000
commitd5e061896a35a49a50124949c2882ac9cbe94589 (patch)
tree920e7af830e2aa3a766dba5b7aacdca4a6b50a44 /perl-install
parentc05cafad9c601272884cf75ee4e056bfbf4b2917 (diff)
downloaddrakx-backup-do-not-use-d5e061896a35a49a50124949c2882ac9cbe94589.tar
drakx-backup-do-not-use-d5e061896a35a49a50124949c2882ac9cbe94589.tar.gz
drakx-backup-do-not-use-d5e061896a35a49a50124949c2882ac9cbe94589.tar.bz2
drakx-backup-do-not-use-d5e061896a35a49a50124949c2882ac9cbe94589.tar.xz
drakx-backup-do-not-use-d5e061896a35a49a50124949c2882ac9cbe94589.zip
no_comment
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Makefile1
-rw-r--r--perl-install/Xconfigurator.pm6
-rw-r--r--perl-install/commands.pm10
-rw-r--r--perl-install/detect_devices.pm10
-rw-r--r--perl-install/ftp.pm54
-rw-r--r--perl-install/install2.pm8
-rw-r--r--perl-install/install_any.pm4
-rw-r--r--perl-install/install_steps.pm6
-rw-r--r--perl-install/install_steps_interactive.pm6
-rw-r--r--perl-install/interactive_gtk.pm12
-rw-r--r--perl-install/interactive_stdio.pm2
-rw-r--r--perl-install/lang.pm2
-rw-r--r--perl-install/modules.pm13
-rw-r--r--perl-install/network.pm15
-rw-r--r--perl-install/partition_table_raw.pm2
-rw-r--r--perl-install/pkgs.pm5
-rw-r--r--perl-install/share/install.rc8
-rw-r--r--perl-install/share/themes-blackwhite.rc2
-rw-r--r--perl-install/share/themes-blue.rc2
-rw-r--r--perl-install/share/themes-savane.rc2
20 files changed, 98 insertions, 72 deletions
diff --git a/perl-install/Makefile b/perl-install/Makefile
index fe296c0a4..d4e7e68c0 100644
--- a/perl-install/Makefile
+++ b/perl-install/Makefile
@@ -124,6 +124,7 @@ get_needed_files: $(SO_FILES)
done
mv -f $(DEST)/bin/* $(DEST)/sbin/* $(DEST)/usr/bin
+ cd $(DEST)/usr/bin ; mv insmod insmod_
rmdir $(DEST)/bin $(DEST)/sbin
ln -sf ash $(DEST)/usr/bin/sh
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index d8609fcc2..84ff9b803 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -176,7 +176,7 @@ sub cardConfiguration(;$$) {
$card->{flags}{needVideoRam} and
$card->{memory} ||=
$videomemory{$in->ask_from_list_('',
- _("Give your graphic card memory size"),
+ _("Select the memory size of your graphic card"),
[ sort { $videomemory{$a} <=> $videomemory{$b} }
keys %videomemory])};
$card;
@@ -221,7 +221,7 @@ sub testFinalConfig($;$) {
my ($o, $auto) = @_;
$o->{monitor}{hsyncrange} && $o->{monitor}{vsyncrange} or
- $in->ask_warn('', _("Monitor not configured yet")), return;
+ $in->ask_warn('', _("Monitor not configured")), return;
$o->{card}{server} or
$in->ask_warn('', _("Graphic card not configured yet")), return;
@@ -234,7 +234,7 @@ sub testFinalConfig($;$) {
write_XF86Config($o, $::testing ? $tmpconfig : "$prefix/etc/X11/XF86Config");
$auto
- or $in->ask_yesorno(_("Test configuration"), _("Do you want to test configuration?"))
+ or $in->ask_yesorno(_("Test configuration"), _("Do you want to test the configuration?"))
or return 1;
my $pid; unless ($pid = fork) {
diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index 1e09d7329..e2c5ba97b 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -387,3 +387,13 @@ sub unpack_ {
}
}
}
+
+sub insmod {
+ my $name = shift;
+ my $f = "/tmp/$name.o";
+ require 'run_program.pm';
+ run_program::run("cd /tmp ; bzip2 -cd /lib/modules.cpio.bz2 | cpio -i $name.o");
+ -r $f or die "can't find module $name";
+ run_program::run("insmod_", $f, @_) or die("insmod $name failed");
+ unlink $f;
+}
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index b8e9c9993..19bae0339 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -5,6 +5,7 @@ use strict;
use log;
use common qw(:common :file);
+use devices;
use c;
@@ -30,9 +31,8 @@ sub get {
sub hds() { grep { $_->{type} eq 'hd' } get(); }
sub cdroms() { grep { $_->{type} eq 'cdrom' } get(); }
sub floppies() {
- my @l = grep { $_->{type} eq 'fd' } get();
- unshift @l, "fd0" if tryOpen("fd0");
- @l;
+ (grep { tryOpen($_) } qw(fd0 fd1)),
+ (grep { $_->{type} eq 'fd' } get());
}
sub hasSCSI() {
@@ -134,7 +134,7 @@ sub getDAC960() {
sub getNet() {
- grep { hasNetDevice($_) } qw(eth0 tr0 plip0 plip1 plip2 fddi0);
+ grep { hasNetDevice($_) } qw(eth0 eth1 eth2 eth3 tr0 plip0 plip1 plip2 fddi0);
}
sub getPlip() {
foreach (0..2) {
@@ -151,5 +151,5 @@ sub hasNetDevice($) { c::hasNetDevice($_[0]) }
sub tryOpen($) {
local *F;
- sysopen F, "/dev/$_[0]", c::O_NONBLOCK();
+ sysopen F, devices::make($_[0]), c::O_NONBLOCK();
}
diff --git a/perl-install/ftp.pm b/perl-install/ftp.pm
index e6c27e68c..0879a8b72 100644
--- a/perl-install/ftp.pm
+++ b/perl-install/ftp.pm
@@ -7,14 +7,18 @@ use log;
# non-rentrant!!
-my %options = (Passive => 1);
-$options{Firewall} = $ENV{PROXY} if $ENV{PROXY};
-$options{Port} = $ENV{PROXYPORT} if $ENV{PROXYPORT};
-my @l;
-unless ($ENV{HOST}) {
- # must be in kickstart, using URLPREFIX to find out information
- ($ENV{LOGIN}, $ENV{PASSWORD}, $ENV{HOST}, $ENV{PREFIX}) = @l =
- $ENV{URLPREFIX} =~ m|
+1;
+
+
+sub new {
+ my %options = (Passive => 1);
+ $options{Firewall} = $ENV{PROXY} if $ENV{PROXY};
+ $options{Port} = $ENV{PROXYPORT} if $ENV{PROXYPORT};
+ my @l;
+ unless ($ENV{HOST}) {
+ # must be in kickstart, using URLPREFIX to find out information
+ ($ENV{LOGIN}, $ENV{PASSWORD}, $ENV{HOST}, $ENV{PREFIX}) = @l =
+ $ENV{URLPREFIX} =~ m|
://
(?: ([^:]*) # login
(?: :([^@]*))? # password
@@ -22,28 +26,28 @@ unless ($ENV{HOST}) {
([^/]*) # host
/?(.*) # prefix
|x;
-}
-unless ($ENV{LOGIN}) {
- $ENV{LOGIN} = 'anonymous';
- $ENV{PASSWORD} = 'mdkinst@test';
-}
-
-my $host = $ENV{HOST};
-if ($host !~ /^[.\d]+$/) {
- $host = join ".", unpack "C4", (gethostbyname $host)[4];
- print ">>>>> $host <<<<<<\n";
+ }
+ unless ($ENV{LOGIN}) {
+ $ENV{LOGIN} = 'anonymous';
+ $ENV{PASSWORD} = 'mdkinst@test';
+ }
+
+ my $host = $ENV{HOST};
+ if ($host !~ /^[.\d]+$/) {
+ $host = join ".", unpack "C4", (gethostbyname $host)[4];
+ }
+
+ my $ftp = Net::FTP->new($host, %options) or die;
+ $ftp->login($ENV{LOGIN}, $ENV{PASSWORD}) or die;
+ $ftp->binary;
+
+ $ftp;
}
-my $ftp = Net::FTP->new($host, %options) or die;
-$ftp->login($ENV{LOGIN}, $ENV{PASSWORD}) or die;
-$ftp->binary;
my $retr;
-
-1;
-
-
sub getFile($) {
+ $ftp ||= new();
$retr->close if $retr;
$retr = $ftp->retr($ENV{PREFIX} . "/" . install_any::relGetFile($_[0]));
}
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 8e5361933..2c082a6b4 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -48,7 +48,7 @@ customized installation, this Install Class is for you."),
setupSCSI =>
__("The system did not detect a SCSI card. If you have one (or several)
-click on \"Yes\" and choose the module(s) to be tested. Otherwise,
+click on \"Yes\" and choose the module\(s) to be tested. Otherwise,
select \"No\".
If you don't know if your computer has SCSI interfaces, consult the
@@ -173,7 +173,7 @@ my @installSteps = (
configureServices => [ __("Configure services"), 0, 0 ],
configurePrinter => [ __("Configure printer"), 0, 0 ],
setRootPassword => [ __("Set root password"), 1, 1, "formatPartitions" ],
- addUser => [ __("Add a user"), 1, 1, "formatPartitions" ],
+ addUser => [ __("Add a user"), 1, 1, "doInstallStep" ],
createBootdisk => [ __("Create bootdisk"), 1, 0, "doInstallStep" ],
setupBootloader => [ __("Install bootloader"), 1, 1, "doInstallStep" ],
configureX => [ __("Configure X"), 1, 0, "doInstallStep" ],
@@ -319,6 +319,7 @@ sub configureMouse { $o->mouseConfig }
sub configureNetwork { $o->configureNetwork($o->{steps}{$o->{step}}{entered} == 1 && !$_[0]) }
sub configureTimezone { $o->timeConfig }
sub configureServices { $o->servicesConfig }
+sub configurePrinter { $o->printerConfig }
sub setRootPassword { $o->setRootPassword }
sub addUser {
$o->addUser;
@@ -379,11 +380,12 @@ sub main {
modules::load_deps("/modules/modules.dep");
modules::read_conf("/tmp/conf.modules");
+ modules::read_already_loaded();
while (@_) {
local $_ = shift;
if (/--method/) {
- $_ = shift;
+ $o->{method} = $_ = shift;
if (/ftp/) {
require 'ftp.pm';
local $^W = 0;
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 4ec01334c..5dfea7d79 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -87,8 +87,8 @@ sub shells($) {
sub setPackages {
my ($o) = @_;
- eval { $o->{packages} = pkgs::psUsingHdlist() };
- $@ and $o->{packages} = pkgs::psUsingDirectory();
+ eval { $o->{packages} = pkgs::psUsingHdlist() } if $o->{method} ne "nfs";
+ $o->{packages} = pkgs::psUsingDirectory() if $o->{method} eq "nfs" || $@;
pkgs::getDeps($o->{packages});
$o->{compss} = pkgs::readCompss($o->{packages});
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 87a43f815..8e086f70d 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -160,12 +160,14 @@ sub configureNetwork($) {
network::write_resolv_conf("$etc/resolv.conf", $o->{netc});
network::write_interface_conf("$etc/sysconfig/network-scripts/ifcfg-$_->{DEVICE}", $_) foreach @{$o->{intf}};
network::add2hosts("$etc/hosts", $o->{netc}{HOSTNAME}, map { $_->{IPADDR} } @{$o->{intf}});
-# syscall_('sethostname', $hostname, length $hostname) or warn "sethostname failed: $!";
+ network::sethostname($o->{netc}) unless $::testing;
+ network::addDefaultRoute($o->{netc}) unless $::testing;
#res_init(); # reinit the resolver so DNS changes take affect
}
sub timeConfig {}
sub servicesConfig {}
+sub printerConfig {}
sub setRootPassword($) {
my ($o) = @_;
@@ -231,7 +233,7 @@ sub createBootdisk($) {
return if $::testing;
- lilo::mkbootdisk($o->{prefix}, versionString(), "/dev/$dev");
+ lilo::mkbootdisk($o->{prefix}, versionString(), $dev);
$o->{mkbootdisk} = $dev;
}
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index ca46629a7..52bedcd81 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -35,7 +35,7 @@ sub chooseLanguage($) {
sub selectInstallOrUpgrade($) {
my ($o) = @_;
$o->ask_from_list_(_("Install/Upgrade"),
- _("Is it an install or an upgrade?"),
+ _("Is this an install or an upgrade?"),
[ __("Install"), __("Upgrade") ],
$o->default("isUpgrade") ? "Upgrade" : "Install") eq "Upgrade";
}
@@ -124,7 +124,7 @@ sub configureNetwork($) {
}
if ($r !~ /^Keep/) {
- my @l = first(network::getNet());
+ my @l = network::getNet() or return die _("no network card found");
@l = ($l[0]) unless $::expert; # keep only one
$o->configureNetworkIntf(network::findIntf($o->{intf}, $_)) foreach @l;
@@ -157,7 +157,7 @@ _("Choose the floppy drive you want to use to make the bootdisk"),
\@l, $o->default("mkbootdisk"));
}
- $o->ask_warn('', _("Insert a floppy in floppy drive %s", $o->{mkbootdisk}));
+ $o->ask_warn('', _("Insert a floppy in drive %s", $o->{mkbootdisk}));
my $w = $o->wait_message('', _("Creating bootdisk"));
$o->SUPER::createBootdisk;
}
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 94456e9c0..47e978229 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -12,12 +12,12 @@ use my_gtk qw(:helpers :wrappers);
1;
-# redefine ask_warn
-sub ask_warn {
- my $o = shift;
- local $my_gtk::grab = 1;
- $o->SUPER::ask_warn(@_);
-}
+## redefine ask_warn
+#sub ask_warn {
+# my $o = shift;
+# local $my_gtk::grab = 1;
+# $o->SUPER::ask_warn(@_);
+#}
sub ask_from_entryW {
my ($o, $title, $messages, $def) = @_;
diff --git a/perl-install/interactive_stdio.pm b/perl-install/interactive_stdio.pm
index 6fb1fd58c..f77cc082f 100644
--- a/perl-install/interactive_stdio.pm
+++ b/perl-install/interactive_stdio.pm
@@ -31,7 +31,7 @@ sub ask_from_listW {
my @l;
do {
if (defined $i) {
- @l ? print _("Ambiguity (%s) be more precise\n", join(", ", @l)) :
+ @l ? print _("Ambiguity (%s), be more precise\n", join(", ", @l)) :
print _("Bad choice, try again\n");
}
@$list == 1 ? print @$list :
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index f6cf56986..6a73c6a0a 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -164,5 +164,5 @@ sub load_font {
# X11 font
log::l("fontset: " . $fontSet);
- Gtk::Gdk::Font::fontset_load("*",$fontSet);
+# Gtk::Gdk::Font::fontset_load("*",$fontSet);
}
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index e1e735e1b..4118fec29 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -231,11 +231,7 @@ sub load_raw($$$@) {
my ($name, $type, $minor, @options) = @_;
# @options or @options = guiGetModuleOptions($name);
- my $f = "/tmp/$name.o";
- run_program::run("cd /tmp ; bzip2 -cd /lib/modules.cpio.bz2 | cpio -i $name.o");
- -r $f or die "can't find module $name";
- run_program::run("insmod", $f, @options) or die("insmod $name failed");
- unlink $f;
+ run_program::run("insmod", $name, @options) or die("insmod $name failed");
# this is a hack to make plip go
if ($name eq "parport_pc") {
@@ -250,6 +246,13 @@ sub load_raw($$$@) {
$loaded{$name} = { type => $type, minor => $minor, options => \@options };
}
+sub read_already_loaded() {
+ foreach (cat_("/proc/modules", "die")) {
+ my ($name) = split;
+ @{$loaded{$name}}{"type", "minor"} = @{$drivers{$name}}[3,4];
+ }
+}
+
sub load_deps($) {
my ($file) = @_;
diff --git a/perl-install/network.pm b/perl-install/network.pm
index 7dd3f9349..f37012892 100644
--- a/perl-install/network.pm
+++ b/perl-install/network.pm
@@ -120,7 +120,12 @@ sub guessHostname {
sub addDefaultRoute {
my ($netc) = @_;
- c::addDefaultRoute($netc->{gateway}) if $netc->{gateway} || !$::testing;
+ c::addDefaultRoute($netc->{GATEWAY}) if $netc->{GATEWAY};
+}
+
+sub sethostname {
+ my ($netc) = @_;
+ syscall_('sethostname', $netc->{HOSTNAME}, length $netc->{HOSTNAME}) or log::l("sethostname failed: $!");
}
sub dnsServers {
@@ -129,12 +134,8 @@ sub dnsServers {
}
sub getNet() {
- my @l = detect_devices::getNet();
- unless (@l) {
- modules::load_thiskind('net') or return;
- @l = detect_devices::getNet();
- }
- @l;
+ modules::load_thiskind('net');
+ detect_devices::getNet();
}
sub findIntf {
diff --git a/perl-install/partition_table_raw.pm b/perl-install/partition_table_raw.pm
index 7d74debb5..ff54ef765 100644
--- a/perl-install/partition_table_raw.pm
+++ b/perl-install/partition_table_raw.pm
@@ -101,7 +101,7 @@ sub write($$$) {
sub clear_raw { { raw => [ ({}) x $nb_primary ] } }
-sub zero_MBR($) {
+sub zero_MBR($) {
my ($hd) = @_;
$hd->{isDirty} = $hd->{needKernelReread} = 1;
$hd->{primary} = clear_raw();
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 2a9947e60..3813cfcbc 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -248,7 +248,10 @@ sub install {
log::ld("starting installation: ", $nb, " packages, ", $total, " bytes");
# !! do not translate these messages, they are used when catched (cf install_steps_graphical)
- my $callbackOpen = sub { fileno install_any::getFile($_[0]) || log::l("bad file $_[0]") };
+ my $callbackOpen = sub {
+ my $fd = install_any::getFile($_[0]) or log::l("bad file $_[0]");
+ $fd ? fileno $fd : -1;
+ };
my $callbackClose = sub { };
my $callbackStart = sub { log::ld("starting installing package ", $_[0]) };
my $callbackProgress = sub { log::ld("progressing installation ", $_[0], "/", $_[1]) };
diff --git a/perl-install/share/install.rc b/perl-install/share/install.rc
index d02ae6105..20dbbe915 100644
--- a/perl-install/share/install.rc
+++ b/perl-install/share/install.rc
@@ -1,8 +1,13 @@
+style "default-font"
+{
+ font = "-adobe-helvetica-medium-r-normal-*-*-100-*-*-p-*-iso8859-1"
+}
+
style "steps"
{
bg[NORMAL] = { 0, 0, 0 }
fg[NORMAL] = { 1.0, 1.0, 1.0 }
- font = "-adobe-helvetica-medium-r-normal-*-*-80-*-*-p-*-iso8859-1"
+ font = "-adobe-helvetica-medium-r-normal-*-*-80-*-*-p-*-iso8859-1"
}
style "logo"
@@ -30,5 +35,6 @@ style "logo"
base[INSENSITIVE] = { 1.0, 1.0, 1.0 }
}
+widget "*" style "default-font"
widget "*Steps*" style "steps"
widget "*logo*" style "logo"
diff --git a/perl-install/share/themes-blackwhite.rc b/perl-install/share/themes-blackwhite.rc
index bc94df9aa..8635192fe 100644
--- a/perl-install/share/themes-blackwhite.rc
+++ b/perl-install/share/themes-blackwhite.rc
@@ -1,7 +1,5 @@
style "any"
{
- font = "-adobe-helvetica-medium-r-normal-*-*-100-*-*-p-*-iso8859-1"
-
bg[NORMAL] = { 0.67, 0.67, 0.67 }
bg[ACTIVE] = { 0, 0, 0 }
bg[PRELIGHT] = { 0, 0, 0 }
diff --git a/perl-install/share/themes-blue.rc b/perl-install/share/themes-blue.rc
index 1404d4dce..958be8d1a 100644
--- a/perl-install/share/themes-blue.rc
+++ b/perl-install/share/themes-blue.rc
@@ -1,7 +1,5 @@
style "any"
{
- font = "-adobe-helvetica-medium-r-normal-*-*-100-*-*-p-*-iso8859-1"
-
bg[NORMAL] = { 0, 0, 0.67 }
bg[ACTIVE] = { 0, 0.67, 1.0 }
bg[PRELIGHT] = { 0, 0, 1.0 }
diff --git a/perl-install/share/themes-savane.rc b/perl-install/share/themes-savane.rc
index dcc60633a..d96d79eae 100644
--- a/perl-install/share/themes-savane.rc
+++ b/perl-install/share/themes-savane.rc
@@ -1,7 +1,5 @@
style "any"
{
- font = "-adobe-helvetica-medium-r-normal-*-*-100-*-*-p-*-iso8859-1"
-
bg[NORMAL] = { 0.67, 0.33, 0 }
bg[ACTIVE] = { 1.0, 0.67, 0 }
bg[PRELIGHT] = { 1.0, 1.0, 0 }