summaryrefslogtreecommitdiffstats
path: root/perl-install/install/install2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-04-25 12:26:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-04-25 12:26:16 +0000
commit126777bc019a54afb4ec51299f2cf9d2841698aa (patch)
tree97f76e571902ead55ba138f1156a4b4f00b9b779 /perl-install/install/install2.pm
parentf1f67448efc714873378dfeb8279fae68054a90a (diff)
downloaddrakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar
drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar.gz
drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar.bz2
drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar.xz
drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.zip
re-sync after the big svn loss
Diffstat (limited to 'perl-install/install/install2.pm')
-rw-r--r--perl-install/install/install2.pm661
1 files changed, 661 insertions, 0 deletions
diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
new file mode 100644
index 000000000..66d0cbee3
--- /dev/null
+++ b/perl-install/install/install2.pm
@@ -0,0 +1,661 @@
+package install::install2; # $Id$
+
+use diagnostics;
+use strict;
+use vars qw($o);
+
+#-######################################################################################
+#- misc imports
+#-######################################################################################
+use install::steps_list;
+use common;
+use install::any 'addToBeDone';
+use install::steps;
+use install::any;
+use lang;
+use keyboard;
+use mouse;
+use devices;
+use partition_table;
+use modules;
+use detect_devices;
+use run_program;
+use any;
+use log;
+use fs;
+
+
+#-#######################################################################################
+#-$O
+#-the big struct which contain, well everything (globals + the interactive methods ...)
+#-if you want to do a kickstart file, you just have to add all the required fields (see for example
+#-the variable $default)
+#-#######################################################################################
+$o = $::o = {
+# bootloader => { linear => 0, message => 1, timeout => 5, restricted => 0 },
+#- packages => [ qw() ],
+ partitioning => { clearall => 0, eraseBadPartitions => 0, auto_allocate => 0 }, #-, readonly => 0 },
+ authentication => { md5 => 1, shadow => 1 },
+ locale => { lang => 'en_US' },
+#- isUpgrade => 0,
+ toRemove => [],
+ toSave => [],
+#- simple_themes => 1,
+
+ timezone => {
+#- timezone => "Europe/Paris",
+#- UTC => 1,
+ },
+#- superuser => { password => 'a', shell => '/bin/bash', realname => 'God' },
+#- user => { name => 'foo', password => 'bar', home => '/home/foo', shell => '/bin/bash', realname => 'really, it is foo' },
+
+#- keyboard => 'de',
+#- display => "192.168.1.19:1",
+ steps => \%install::steps_list::installSteps,
+ orderedSteps => \@install::steps_list::orderedInstallSteps,
+
+ #- for the list of fields available, see network/network.pm
+ net => {
+ #- network => { HOSTNAME => 'abcd' },
+ #- resolv => { DOMAINNAME => 'foo.xyz' },
+ #- ifcfg => {
+ #- eth0 => { DEVICE => "eth0", IPADDR => '1.2.3.4', NETMASK => '255.255.255.128' }
+ #- },
+ },
+
+#-step : the current one
+#-prefix
+#-mouse
+#-keyboard
+#-netc
+#-methods
+#-packages compss
+
+};
+
+
+sub installStepsCall {
+ my ($o, $auto, $fun, @args) = @_;
+ $fun = "install::steps::$fun" if $auto;
+ $o->$fun(@args);
+}
+sub getNextStep {
+ my ($o) = @_;
+ find { !$o->{steps}{$_}{done} && $o->{steps}{$_}{reachable} } @{$o->{orderedSteps}};
+}
+
+#-######################################################################################
+#- Steps Functions
+#- each step function are called with two arguments : clicked(because if you are a
+#- beginner you can force the the step) and the entered number
+#-######################################################################################
+
+#------------------------------------------------------------------------------
+sub selectLanguage {
+ my ($auto) = @_;
+ installStepsCall($o, $auto, 'selectLanguage');
+}
+
+sub acceptLicense {
+ my ($auto) = @_;
+ installStepsCall($o, $auto, 'acceptLicense');
+}
+
+#------------------------------------------------------------------------------
+sub selectMouse {
+ my ($auto) = @_;
+ installStepsCall($o, $auto, 'selectMouse');
+
+ addToBeDone { mouse::write($o->do_pkgs, $o->{mouse}) if !$o->{isUpgrade} } 'installPackages';
+}
+
+#------------------------------------------------------------------------------
+sub setupSCSI {
+ my ($auto) = @_;
+
+ installStepsCall($o, $auto, 'setupSCSI');
+}
+
+#------------------------------------------------------------------------------
+sub selectKeyboard {
+ my ($auto) = @_;
+
+ my $force;
+ if (my $keyboard = keyboard::read()) {
+ $o->{keyboard} = $keyboard; #- for uprade
+ } elsif ($o->{isUpgrade}) {
+ #- oops, the keyboard config is wrong, forcing prompt and writing
+ $force = 1;
+ }
+
+ installStepsCall($o, $auto, 'selectKeyboard', $force);
+}
+
+#------------------------------------------------------------------------------
+sub selectInstallClass {
+ my ($auto) = @_;
+
+ installStepsCall($o, $auto, 'selectInstallClass');
+
+ if ($o->{isUpgrade}) {
+ @{$o->{orderedSteps}} = uniq(map {
+ $_ eq 'selectInstallClass' ? ($_, 'doPartitionDisks', 'formatPartitions') : $_;
+ } @{$o->{orderedSteps}});
+ }
+}
+
+#------------------------------------------------------------------------------
+sub doPartitionDisks {
+ my ($auto) = @_;
+ $o->{steps}{formatPartitions}{done} = 0;
+ installStepsCall($o, $auto, 'doPartitionDisksBefore');
+ installStepsCall($o, $auto, 'doPartitionDisks');
+ installStepsCall($o, $auto, 'doPartitionDisksAfter');
+}
+
+sub formatPartitions {
+ my ($auto) = @_;
+
+ $o->{steps}{choosePackages}{done} = 0;
+ installStepsCall($o, $auto, 'choosePartitionsToFormat') if !$o->{isUpgrade} && !$::local_install;
+ my $want_root_formated = fs::get::root($o->{fstab})->{toFormat};
+ if ($want_root_formated) {
+ foreach ('/usr') {
+ my $part = fs::get::mntpoint2part($_, $o->{fstab}) or next;
+ $part->{toFormat} or die N("You must also format %s", $_);
+ }
+ }
+ installStepsCall($o, $auto, 'formatMountPartitions') if !$::testing;
+
+ if ($want_root_formated) {
+ #- we formatted /, ensure /var/lib/rpm is cleaned otherwise bad things can happen
+ #- (especially when /var is *not* formatted)
+ eval { rm_rf("$::prefix/var/lib/rpm") };
+ }
+
+ install::any::create_minimal_files();
+
+ eval { fs::mount::mount('none', "$::prefix/proc", 'proc') };
+ eval { fs::mount::mount('none', "$::prefix/sys", 'sysfs') };
+ eval { fs::mount::usbfs($::prefix) };
+
+ install::any::screenshot_dir__and_move();
+ install::any::move_compressed_image_to_disk($o);
+
+ any::rotate_logs($::prefix);
+
+ if (any { $_->{usb_media_type} && any { $_->{mntpoint} } partition_table::get_normal_parts($_) } @{$o->{all_hds}{hds}}) {
+ log::l("we use a usb-storage based drive, so keep it as a normal scsi_hostadapter");
+ } else {
+ log::l("we do not need usb-storage for booting system, rely on hotplug");
+ #- when usb-storage is in scsi_hostadapter,
+ #- hotplug + scsimon do not load sd_mod/sr_mod when needed
+ #- (eg: when plugging a usb key)
+ $o->{modules_conf}->remove_probeall('scsi_hostadapter', 'usb-storage');
+ }
+
+ require raid;
+ raid::write_conf($o->{all_hds}{raids});
+
+ #- needed by lilo
+ if (-d '/dev/mapper') {
+ my @vgs = map { $_->{VG_name} } @{$o->{all_hds}{lvms}};
+ cp_af("/dev/$_", "$::prefix/dev") foreach 'mapper', @vgs;
+ }
+}
+
+#------------------------------------------------------------------------------
+sub choosePackages {
+ my ($auto) = @_;
+ require install::pkgs;
+
+ #- always setPackages as it may have to copy hdlist and synthesis files.
+ installStepsCall($o, $auto, 'setPackages');
+ installStepsCall($o, $auto, 'choosePackages');
+ my @flags = map_each { if_($::b, $::a) } %{$o->{rpmsrate_flags_chosen}};
+ log::l("rpmsrate_flags_chosen's: ", join(' ', sort @flags));
+
+ #- check pre-condition that basesystem package must be selected.
+ install::pkgs::packageByName($o->{packages}, 'basesystem')->flag_available or die "basesystem package not selected";
+
+ #- check if there are packages that need installation.
+ $o->{steps}{installPackages}{done} = 0 if $o->{steps}{installPackages}{done} && install::pkgs::packagesToInstall($o->{packages}) > 0;
+}
+
+#------------------------------------------------------------------------------
+sub installPackages {
+ my ($auto) = @_;
+
+ installStepsCall($o, $auto, 'beforeInstallPackages');
+ installStepsCall($o, $auto, 'installPackages');
+ installStepsCall($o, $auto, 'afterInstallPackages');
+}
+#------------------------------------------------------------------------------
+sub miscellaneous {
+ my ($auto) = @_;
+
+ installStepsCall($o, $auto, 'miscellaneousBefore');
+ installStepsCall($o, $auto, 'miscellaneous');
+ installStepsCall($o, $auto, 'miscellaneousAfter');
+}
+
+#------------------------------------------------------------------------------
+sub summary {
+ my ($auto) = @_;
+ installStepsCall($o, $auto, 'summaryBefore') if $o->{steps}{summary}{entered} == 1;
+ installStepsCall($o, $auto, 'summary');
+ installStepsCall($o, $auto, 'summaryAfter');
+}
+#------------------------------------------------------------------------------
+sub configureNetwork {
+ my ($auto) = @_;
+ #- get current configuration of network device.
+ require network::network;
+ eval { network::network::read_net_conf($o->{net}) };
+ modules::load_category($o->{modules_conf}, list_modules::ethernet_categories());
+ require network::connection::ethernet;
+ if (!$o->{isUpgrade}) {
+ installStepsCall($o, $auto, 'configureNetwork');
+ } else {
+ network::connection::ethernet::configure_eth_aliases($o->{modules_conf});
+ }
+}
+#------------------------------------------------------------------------------
+sub installUpdates {
+ my ($auto) = @_;
+ installStepsCall($o, $auto, 'installUpdates') if $o->{meta_class} ne 'firewall';
+}
+#------------------------------------------------------------------------------
+sub configureServices {
+ my ($auto) = @_;
+ installStepsCall($o, $auto, 'configureServices');
+}
+#------------------------------------------------------------------------------
+sub setRootPassword {
+ my ($auto) = @_;
+ return if $o->{isUpgrade};
+
+ installStepsCall($o, $auto, 'setRootPassword');
+}
+#------------------------------------------------------------------------------
+sub addUser {
+ my ($auto) = @_;
+
+ installStepsCall($o, $auto, 'addUser') if !$o->{isUpgrade};
+}
+
+#------------------------------------------------------------------------------
+sub setupBootloader {
+ my ($auto) = @_;
+ return if $::local_install;
+
+ $o->{modules_conf}->write;
+
+ installStepsCall($o, $auto, 'setupBootloaderBefore');
+ installStepsCall($o, $auto, 'setupBootloader');
+}
+#------------------------------------------------------------------------------
+sub configureX {
+ my ($auto) = @_;
+
+ #- done here and also at the end of install2.pm, just in case...
+ install::any::write_fstab($o);
+ $o->{modules_conf}->write;
+
+ require install::pkgs;
+ installStepsCall($o, $auto, 'configureX') if !$::testing && eval { install::pkgs::packageByName($o->{packages}, 'task-x11')->flag_installed } && !$o->{X}{disabled};
+}
+#------------------------------------------------------------------------------
+sub exitInstall {
+ my ($auto) = @_;
+ installStepsCall($o, $auto, 'exitInstall', getNextStep($::o) eq 'exitInstall');
+}
+
+
+#-######################################################################################
+#- MAIN
+#-######################################################################################
+sub main {
+#- $SIG{__DIE__} = sub { warn "DIE " . backtrace() . "\n" };
+ $SIG{SEGV} = sub {
+ my $msg = "segmentation fault: seems like memory is missing as the install crashes"; log::l($msg);
+ $o->ask_warn('', $msg);
+ setVirtual(1);
+ require install::steps_auto_install;
+ install::steps_auto_install_non_interactive::errorInStep($o, $msg);
+ };
+ $ENV{PERL_BADLANG} = 1;
+ delete $ENV{TERMINFO};
+ umask 022;
+
+ $::isInstall = 1;
+ $::isWizard = 1;
+ $::no_ugtk_init = 1;
+
+ push @::textdomains, 'DrakX', 'drakx-net', 'drakx-kbd-mouse-x11';
+
+ my ($cfg, $patch, @auto);
+ my %cmdline = map {
+ my ($n, $v) = split /=/;
+ $n => $v || 1;
+ } split ' ', cat_("/proc/cmdline");
+
+ my $opt; foreach (@_) {
+ if (/^--?(.*)/) {
+ $cmdline{$opt} = 1 if $opt;
+ $opt = $1;
+ } else {
+ $cmdline{$opt} = $_ if $opt;
+ $opt = '';
+ }
+ } $cmdline{$opt} = 1 if $opt;
+
+ #- from stage1
+ put_in_hash(\%ENV, { getVarsFromSh('/tmp/env') });
+ exists $ENV{$_} and $cmdline{lc($_)} = $ENV{$_} foreach qw(METHOD PCMCIA KICKSTART);
+
+ map_each {
+ my ($n, $v) = @_;
+ my $f = ${{
+ lang => sub { $o->{locale}{lang} = $v },
+ flang => sub { $o->{locale}{lang} = $v; push @auto, 'selectLanguage' },
+ langs => sub { $o->{locale}{langs} = +{ map { $_ => 1 } split(':', $v) } },
+ method => sub { $o->{method} = $v },
+ pcmcia => sub { $o->{pcmcia} = $v },
+ vga16 => sub { $o->{vga16} = $v },
+ vga => sub { $o->{vga} = $v =~ /0x/ ? hex($v) : $v },
+ step => sub { $o->{steps}{first} = $v },
+ meta_class => sub { $o->{meta_class} = $v },
+ freedriver => sub { $o->{freedriver} = $v },
+ no_bad_drives => sub { $o->{partitioning}{no_bad_drives} = 1 },
+ nodmraid => sub { $o->{partitioning}{nodmraid} = 1 },
+ readonly => sub { $o->{partitioning}{readonly} = $v ne "0" },
+ display => sub { $o->{display} = $v },
+ askdisplay => sub { print "Please enter the X11 display to perform the install on ? "; $o->{display} = chomp_(scalar(<STDIN>)) },
+ security => sub { $o->{security} = $v },
+ noauto => sub { $::noauto = 1 },
+ testing => sub { $::testing = 1 },
+ patch => sub { $patch = 1 },
+ defcfg => sub { $cfg = $v },
+ newt => sub { $o->{interactive} = "curses" },
+ text => sub { $o->{interactive} = "curses" },
+ stdio => sub { $o->{interactive} = "stdio" },
+ kickstart => sub { $::auto_install = $v },
+ local_install => sub { $::local_install = 1 },
+ uml_install => sub { $::uml_install = $::local_install = 1 },
+ auto_install => sub { $::auto_install = $v },
+ simple_themes => sub { $o->{simple_themes} = 1 },
+ theme => sub { $o->{theme} = $v },
+ doc => sub { $o->{doc} = 1 }, #- will be used to know that we're running for the doc team,
+ #- e.g. we want screenshots with a good B&W contrast
+ useless_thing_accepted => sub { $o->{useless_thing_accepted} = 1 },
+ alawindows => sub { $o->{security} = 0; $o->{partitioning}{clearall} = 1; $o->{bootloader}{crushMbr} = 1 },
+ fdisk => sub { $o->{partitioning}{fdisk} = 1 },
+ nomouseprobe => sub { $o->{nomouseprobe} = $v },
+ updatemodules => sub { $o->{updatemodules} = 1 },
+ move => sub { $::move = 1 },
+ globetrotter => sub { $::move = 1; $::globetrotter = 1 },
+ suppl => sub { $o->{supplmedia} = 1 },
+ askmedia => sub { $o->{askmedia} = 1 },
+ }}{lc $n}; &$f if $f;
+ } %cmdline;
+
+ if ($::testing) {
+ $ENV{SHARE_PATH} ||= "/export/install/stage2/live/usr/share";
+ $ENV{SHARE_PATH} = "/usr/share" if !-e $ENV{SHARE_PATH};
+ } else {
+ $ENV{SHARE_PATH} ||= "/usr/share";
+ }
+
+ undef $::auto_install if $cfg;
+
+ $o->{stage2_phys_medium} = install::media::stage2_phys_medium($o->{method});
+
+ log::l("second stage install running (", install::any::drakx_version($o), ")");
+
+ eval { output('/proc/sys/kernel/modprobe', "\n") } if !$::local_install && !$::testing; #- disable kmod
+ eval { fs::mount::mount('none', '/sys', 'sysfs', 1) };
+ eval { touch('/root/non-chrooted-marker.DrakX') }; #- helps distinguishing /root and /mnt/root when we don't know if we are chrooted
+
+ if ($::move) {
+ require move;
+ move::init($o);
+ }
+ if ($::local_install) {
+ push @auto,
+# 'selectLanguage', 'selectKeyboard', 'miscellaneous', 'selectInstallClass',
+ 'doPartitionDisks', 'formatPartitions';
+ fs::mount::usbfs(''); #- do it now so that when_load doesn't do it
+ $o->{nomouseprobe} = 1;
+ $o->{mouse} = mouse::fullname2mouse('Universal|Any PS/2 & USB mice');
+ }
+
+ $o->{prefix} = $::prefix = $::testing ? "/tmp/test-perl-install" : $::move ? "" : "/mnt";
+ mkdir $::prefix, 0755;
+
+ #- make sure we do not pick up any gunk from the outside world
+ my $remote_path = "$::prefix/sbin:$::prefix/bin:$::prefix/usr/sbin:$::prefix/usr/bin:$::prefix/usr/X11R6/bin";
+ $ENV{PATH} = "/usr/bin:/bin:/sbin:/usr/sbin:/usr/X11R6/bin:$remote_path";
+
+ eval { install::any::spawnShell() };
+
+ modules::load_dependencies("/modules/modules.dep");
+ require modules::any_conf;
+ require modules::modules_conf;
+ $o->{modules_conf} = modules::modules_conf::read(modules::any_conf::vnew(), '/tmp/modules.conf');
+ modules::read_already_loaded($o->{modules_conf});
+
+ #- done before auto_install is called to allow the -IP feature on auto_install file name
+ if (-e '/tmp/network') {
+ require network::network;
+ #- get stage1 network configuration if any.
+ log::l('found /tmp/network');
+ add2hash($o->{net}{network} ||= {}, network::network::read_conf('/tmp/network'));
+ if (my ($file) = glob_('/tmp/ifcfg-*')) {
+ log::l("found network config file $file");
+ my $l = network::network::read_interface_conf($file);
+ $o->{net}{ifcfg}{$l->{DEVICE}} ||= $l;
+ }
+ my $dsl_device = find { $_->{BOOTPROTO} eq 'adsl_pppoe' } values %{$o->{net}{ifcfg}};
+ if ($dsl_device) {
+ $o->{net}{type} = 'adsl';
+ $o->{net}{net_interface} = $dsl_device->{DEVICE};
+ $o->{net}{adsl} = {
+ method => 'pppoe',
+ device => $dsl_device->{DEVICE},
+ ethernet_device => $dsl_device->{DEVICE},
+ login => $dsl_device->{USER},
+ password => $dsl_device->{PASS},
+ };
+ %$dsl_device = ();
+ } else {
+ $o->{net}{type} = 'lan';
+ $o->{net}{net_interface} = first(values %{$o->{net}{ifcfg}});
+ }
+ }
+
+ #- done after module dependencies are loaded for "vfat depends on fat"
+ if ($::auto_install) {
+ if ($::auto_install =~ /-IP(\.pl)?$/) {
+ my ($ip) = cat_('/tmp/stage1.log') =~ /configuring device (?!lo)\S+ ip: (\S+)/;
+ my $normalized_ip = join('', map { sprintf "%02X", $_ } split('\.', $ip));
+ $::auto_install =~ s/-IP(\.pl)?$/-$normalized_ip$1/;
+ }
+ require install::steps_auto_install;
+ eval { $o = $::o = install::any::loadO($o, $::auto_install) };
+ if ($@) {
+ if ($o->{useless_thing_accepted}) { #- Pixel's hack to be able to fail through
+ log::l("error using auto_install, continuing");
+ undef $::auto_install;
+ } else {
+ install::steps_auto_install_non_interactive::errorInStep($o, "Error using auto_install\n" . formatError($@));
+ }
+ } else {
+ log::l("auto install config file loaded successfully");
+
+ #- normalize for people not using our special scheme
+ foreach (@{$o->{manualFstab} || []}) {
+ $_->{device} =~ s!^/dev/!!;
+ }
+ }
+ }
+ $o->{interactive} ||= 'gtk' if !$::auto_install;
+
+ if ($o->{interactive} eq "gtk" && availableMemory() < 22 * 1024) {
+ log::l("switching to curses install cuz not enough memory");
+ $o->{interactive} = "curses";
+ }
+
+ if (my ($s) = cat_("/proc/cmdline") =~ /brltty=(\S*)/) {
+ my ($driver, $device, $table) = split(',', $s);
+ $table = "text.$table.tbl" if $table !~ /\.tbl$/;
+ log::l("brltty option $driver $device $table");
+ $o->{brltty} = { driver => $driver, device => $device, table => $table };
+ $o->{interactive} = 'curses';
+ $o->{nomouseprobe} = 1;
+ }
+
+ # perl_checker: require install::steps_gtk
+ # perl_checker: require install::steps_curses
+ # perl_checker: require install::steps_stdio
+ require "install/steps_$o->{interactive}.pm" if $o->{interactive};
+
+ #- needed before accessing floppy (in case of usb floppy)
+ modules::load_category($o->{modules_conf}, 'bus/usb');
+
+ #- oem patch should be read before to still allow patch or defcfg.
+ eval { $o = $::o = install::any::loadO($o, "install/patch-oem.pl"); log::l("successfully read oem patch") };
+ #- patch should be read after defcfg in order to take precedance.
+ eval { $o = $::o = install::any::loadO($o, $cfg); log::l("successfully read default configuration: $cfg") } if $cfg;
+ eval { $o = $::o = install::any::loadO($o, "patch"); log::l("successfully read patch") } if $patch;
+
+ eval { modules::load("af_packet") };
+
+ require harddrake::sound;
+ harddrake::sound::configure_sound_slots($o->{modules_conf});
+
+ #- need to be after oo-izing $o
+ if ($o->{brltty}) {
+ symlink "/tmp/stage2/$_", $_ foreach "/etc/brltty";
+ devices::make($_) foreach $o->{brltty}{device} ? $o->{brltty}{device} : qw(ttyS0 ttyS1);
+ devices::make("vcsa");
+ run_program::run("brltty");
+ }
+
+ #- needed very early for install::steps_gtk
+ if (!$::testing) {
+ eval { $o->{mouse} = mouse::detect($o->{modules_conf}) } if !$o->{mouse} && !$o->{nomouseprobe};
+ mouse::load_modules($o->{mouse});
+ }
+
+ lang::set($o->{locale}) if !$::move;
+
+ # keep the result otherwise monitor-edid does not return good results afterwards
+ eval { any::monitor_full_edid() };
+
+ install::any::start_i810fb();
+
+ $o->{allowFB} = listlength(cat_("/proc/fb"));
+
+ if (!$::move && !$::testing) {
+ my $product_id = cat__(install::any::getFile_($o->{stage2_phys_medium}, "product.id"));
+ log::l('product_id: ' . chomp_($product_id));
+ $o->{product_id} = common::parse_LDAP_namespace_structure($product_id);
+
+ $o->{meta_class} ||= {
+ One => 'desktop',
+ Free => 'download',
+ Powerpack => 'powerpack',
+ Discovery => 'desktop',
+ 'Powerpack+' => 'server',
+ }->{$o->{product_id}{product}} || 'download';
+ }
+
+ log::l("META_CLASS=$o->{meta_class}");
+ $ENV{META_CLASS} = $o->{meta_class}; #- for Ia Ora
+
+ foreach (@auto) {
+ my $s = $o->{steps}{/::(.*)/ ? $1 : $_} or next;
+ $s->{auto} = $s->{hidden} = 1;
+ }
+
+ my $o_;
+ while (1) {
+ $o_ = $::auto_install ?
+ install::steps_auto_install->new($o) :
+ $o->{interactive} eq "stdio" ?
+ install::steps_stdio->new($o) :
+ $o->{interactive} eq "curses" ?
+ install::steps_curses->new($o) :
+ $o->{interactive} eq "gtk" ?
+ install::steps_gtk->new($o) :
+ die "unknown install type";
+ $o_ and last;
+
+ log::l("$o->{interactive} failed, trying again with curses");
+ $o->{interactive} = "curses";
+ require install::steps_curses;
+ }
+ $::o = $o = $o_;
+
+ eval { output('/proc/splash', "verbose\n") } if !$::globetrotter;
+
+ #-the main cycle
+ MAIN: for ($o->{step} = $o->{steps}{first};; $o->{step} = getNextStep($o)) {
+ $o->{steps}{$o->{step}}{entered}++;
+ $o->enteringStep($o->{step});
+ eval {
+ &{$install::install2::{$o->{step}}}($o->{steps}{$o->{step}}{auto});
+ };
+ my $err = $@;
+ $o->kill_action;
+ if ($err) {
+ local $_ = $err;
+ $o->kill_action;
+ if (!/^already displayed/) {
+ eval { $o->errorInStep($_) };
+ $o->{steps}{$o->{step}}{auto} = 0;
+ $err = $@;
+ $err and next;
+ }
+ $o->{step} = $o->{steps}{$o->{step}}{onError};
+ next MAIN unless $o->{steps}{$o->{step}}{reachable}; #- sanity check: avoid a step not reachable on error.
+ redo MAIN;
+ }
+ $o->{steps}{$o->{step}}{done} = 1;
+ $o->leavingStep($o->{step});
+
+ last if $o->{step} eq 'exitInstall';
+ }
+ unlink $install::any::compressed_image_on_disk;
+ install::media::clean_postinstall_rpms();
+ install::media::log_sizes();
+ install::any::remove_advertising();
+ install::any::write_fstab($o);
+ $o->{modules_conf}->write;
+ detect_devices::install_addons($::prefix);
+
+ #- to ensure linuxconf does not cry against those files being in the future
+ foreach ('/etc/modules.conf', '/etc/crontab', '/etc/sysconfig/mouse', '/etc/sysconfig/network', '/etc/X11/fs/config') {
+ my $now = time() - 24 * 60 * 60;
+ utime $now, $now, "$::prefix/$_";
+ }
+ #- make sure failed upgrade will not hurt too much.
+ install::steps::cleanIfFailedUpgrade($o);
+
+ -e "$::prefix/usr/sbin/urpmi.update" or eval { rm_rf("$::prefix/var/lib/urpmi") };
+
+ system("chroot", $::prefix, "bash", "-c", $o->{postInstallBeforeReboot}) if $o->{postInstallBeforeReboot};
+
+ #- copy latest log files
+ eval { cp_af("/tmp/$_", "$::prefix/root/drakx") foreach qw(ddebug.log stage1.log) };
+
+ #- ala pixel? :-) [fpons]
+ common::sync(); common::sync();
+
+ log::l("installation complete, leaving");
+ log::l("files still open by install2: ", readlink($_)) foreach glob_("/proc/self/fd/*");
+ print "\n" x 80 if !$::local_install;
+}
+
+1;