| Commit message (Collapse) | Author | Age | Files | Lines |
|---|
| | |
|
| | |
|
| |
|
|
|
|
|
| |
need to call various_xfree_conf()
- this implies adding parameter $do_pkgs to a few functions
|
| | |
|
| | |
|
| |
|
|
|
| |
- s/MandrakeMove/Move/
|
| | |
|
| | |
|
| |
|
|
| |
file list
|
| | |
|
| | |
|
| |
|
|
|
| |
- if no key is found, go on
|
| | |
|
| | |
|
| | |
|
| | |
|
| | |
|
| | |
|
| | |
|
| | |
|
| | |
|
| | |
|
| | |
|
| | |
|
| | |
|
| |
|
|
| |
moment, so test "-d $dir" after testing "-l $dir"
|
| | |
|
| | |
|
| | |
|
| | |
|
| | |
|
| | |
|
| |
|
|
|
| |
- fix nxclient
|
| |
|
|
|
|
| |
- /etc/security/fileshare.conf is on key to allow fileshare
- remove unused files
|
| |
|
|
|
| |
(although not saved on key)
|
| | |
|
| | |
|
| | |
|
| | |
|
| | |
|
| | |
|
| | |
|
| | |
|
| |
|
|
|
|
|
|
| |
- then remount it without "sync"
- simplify: use $key_part instead of checking /proc/mounts
- ensure key_mount() doesn't leave $key_part if unmounted
(the pb didn't occured, but maybe it could have...)
|
| | |
|
| | |
|
| |
|
|
|
| |
- have a proper mtab for magicdev+kded to work
|
| | |
|
| |
|
|
| |
cooker-mandrakemove mailing list)
|
| | |
|
6' href='#n866'>866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
package install_steps; # $Id$
use diagnostics;
use strict;
use vars qw(@filesToSaveForUpgrade @filesNewerToUseAfterUpgrade @ISA);
#-######################################################################################
#- misc imports
#-######################################################################################
use common;
use install_any qw(:all);
use partition_table qw(:types);
use detect_devices;
use modules;
use run_program;
use lang;
use keyboard;
use fsedit;
use loopback;
use pkgs;
use any;
use log;
use fs;
@filesToSaveForUpgrade = qw(
/etc/ld.so.conf /etc/fstab /etc/hosts /etc/conf.modules /etc/modules.conf
);
@filesNewerToUseAfterUpgrade = qw(
/etc/profile
);
#-######################################################################################
#- OO Stuff
#-######################################################################################
sub new($$) {
my ($type, $o) = @_;
bless $o, ref($type) || $type;
return $o;
}
#-######################################################################################
#- In/Out Steps Functions
#-######################################################################################
sub enteringStep {
my ($_o, $step) = @_;
log::l("starting step `$step'");
}
sub leavingStep {
my ($o, $step) = @_;
log::l("step `$step' finished");
if (-d "$o->{prefix}/root/drakx") {
eval { cp_af("/tmp/ddebug.log", "$o->{prefix}/root/drakx") };
output(install_any::auto_inst_file(), install_any::g_auto_install(1));
}
for (my $s = $o->{steps}{first}; $s; $s = $o->{steps}{$s}{next}) {
#- the reachability property must be recomputed each time to take
#- into account failed step.
next if $o->{steps}{$s}{done} && !$o->{steps}{$s}{redoable};
my $reachable = 1;
if (my $needs = $o->{steps}{$s}{needs}) {
my @l = ref($needs) ? @$needs : $needs;
$reachable = min(map { $o->{steps}{$_}{done} || 0 } @l);
}
$o->{steps}{$s}{reachable} = 1 if $reachable;
}
$o->{steps}{$step}{reachable} = $o->{steps}{$step}{redoable};
while (my $f = shift @{$o->{steps}{$step}{toBeDone} || []}) {
eval { &$f() };
$o->ask_warn(N("Error"), [
N("An error occurred, but I don't know how to handle it nicely.
Continue at your own risk."), formatError($@) ]) if $@;
}
}
sub errorInStep($$) { print "error :(\n"; c::_exit(1) }
sub kill_action {}
#-######################################################################################
#- Steps Functions
#-######################################################################################
#------------------------------------------------------------------------------
sub selectLanguage {
my ($o) = @_;
#- for auto_install compatibility with old $o->{lang}
$o->{locale} = lang::system_locales_to_ourlocale($o->{lang}, $o->{lang}) if $o->{lang};
lang::set($o->{locale}{lang}, !$o->isa('interactive::gtk'));
$o->{locale}{langs} ||= { $o->{locale}{lang} => 1 };
if (!exists $o->{locale}{country}) {
lang::l2locale($o->{locale}{lang}) =~ /^.._(..)/;
$o->{locale}{country} = $1;
}
lang::langs_selected($o->{locale});
log::l("selectLanguage: pack_langs ", lang::pack_langs($o->{locale}{langs}));
#- for auto_install compatibility with old $o->{keyboard} containing directly $o->{keyboard}{KEYBOARD}
$o->{keyboard} = { KEYBOARD => $o->{keyboard} } if $o->{keyboard} && !ref($o->{keyboard});
if (!$o->{keyboard} || $o->{keyboard}{unsafe}) {
$o->{keyboard} = keyboard::from_usb() || keyboard::lang2keyboard($o->{locale}{lang});
$o->{keyboard}{unsafe} = 1;
keyboard::setup($o->{keyboard}) if !$::live;
}
addToBeDone {
lang::write_langs($o->{prefix}, $o->{locale}{langs});
} 'formatPartitions' unless $::g_auto_install;
addToBeDone {
lang::write($o->{prefix}, $o->{locale});
} 'installPackages' unless $::g_auto_install;
}
#------------------------------------------------------------------------------
sub selectKeyboard {
my ($o) = @_;
$o->{keyboard}{KBCHARSET} = lang::l2charset($o->{locale}{lang});
keyboard::setup($o->{keyboard});
addToBeDone {
keyboard::write($o->{keyboard});
} 'installPackages' if !$::g_auto_install && (!$o->{isUpgrade} || !$o->{keyboard}{unsafe});
if ($o->{raw_X}) {
require Xconfig::default;
Xconfig::default::config_keyboard($o->{raw_X}, $o->{keyboard});
$o->{raw_X}->write;
}
}
#------------------------------------------------------------------------------
sub acceptLicense {}
#------------------------------------------------------------------------------
sub setupSCSI {
my ($o) = @_;
modules::configure_pcmcia($o->{pcmcia}) if $o->{pcmcia};
modules::load_ide();
modules::load_category('bus/firewire');
modules::load_category('disk/scsi|hardware_raid');
install_any::getHds($o, $o);
}
#------------------------------------------------------------------------------
sub selectInstallClass {
my ($o) = @_;
if ($o->{partitioning}{use_existing_root} || $o->{isUpgrade}) {
# either one root is defined (and all is ok), or we take the first one we find
my $p = fsedit::get_root_($o->{fstab}) || (first(install_any::find_root_parts($o->{fstab}, $o->{prefix})) || die)->{part};
install_any::use_root_part($o->{all_hds}, $p, $o->{prefix});
}
}
#------------------------------------------------------------------------------
sub doPartitionDisksBefore {
my ($o) = @_;
eval {
eval { fs::umount("$o->{prefix}/proc") };
eval { fs::umount_all($o->{fstab}, $o->{prefix}) };
eval { sleep 1; fs::umount_all($o->{fstab}, $o->{prefix}) } if $@; #- HACK
} if $o->{fstab} && !$::testing && !$::live;
}
#------------------------------------------------------------------------------
sub doPartitionDisksAfter {
my ($o) = @_;
if (!$::testing) {
my $hds = $o->{all_hds}{hds};
partition_table::write($_) foreach @$hds;
$_->{rebootNeeded} and $o->rebootNeeded foreach @$hds;
}
fs::set_removable_mntpoints($o->{all_hds});
fs::set_all_default_options($o->{all_hds}, %$o, lang::fs_options($o->{locale}))
if !$o->{isUpgrade};
$o->{fstab} = [ fsedit::get_all_fstab($o->{all_hds}) ];
fsedit::get_root_($o->{fstab}) or die "Oops, no root partition";
if (arch() =~ /ppc/ && detect_devices::get_mac_generation() =~ /NewWorld/) {
die "Need bootstrap partition to boot system!" if !(defined $partition_table::mac::bootstrap_part);
}
if (arch() =~ /ia64/ && !fsedit::has_mntpoint("/boot/efi", $o->{all_hds})) {
die \N("You must have a FAT partition mounted in /boot/efi");
}
if ($o->{partitioning}{use_existing_root}) {
#- ensure those partitions are mounted so that they are not proposed in choosePartitionsToFormat
fs::mount_part($_, $o->{prefix}) foreach sort { $a->{mntpoint} cmp $b->{mntpoint} }
grep { $_->{mntpoint} && maybeFormatted($_) } @{$o->{fstab}};
}
cat_("/proc/mounts") =~ m|(\S+)\s+/tmp/image nfs| &&
!any { $_->{mntpoint} eq "/mnt/nfs" } @{$o->{all_hds}{nfss}} and
push @{$o->{all_hds}{nfss}}, { type => 'nfs', mntpoint => "/mnt/nfs", device => $1, options => "noauto,ro,nosuid,soft,rsize=8192,wsize=8192" };
}
#------------------------------------------------------------------------------
sub doPartitionDisks {
my ($o) = @_;
if ($o->{partitioning}{auto_allocate}) {
fsedit::auto_allocate($o->{all_hds}, $o->{partitions});
}
}
#------------------------------------------------------------------------------
sub ask_mntpoint_s {
my ($_o, $fstab) = @_;
#- TODO: set the mntpoints
my %m; foreach (@$fstab) {
my $m = $_->{mntpoint};
next if !$m || $m eq 'swap'; #- there may be a lot of swap.
$m{$m} and die \N("Duplicate mount point %s", $m);
$m{$m} = 1;
#- in case the type does not correspond, force it to ext3
$_->{type} = 0x483 if $m =~ m|^/| && !isTrueFS($_) && !isOtherAvailableFS($_);
}
1;
}
sub rebootNeeded($) {
my ($_o) = @_;
log::l("Rebooting...");
c::_exit(0);
}
sub choosePartitionsToFormat($$) {
my ($_o, $fstab) = @_;
foreach (@$fstab) {
$_->{mntpoint} = "swap" if isSwap($_);
$_->{mntpoint} or next;
add2hash_($_, { toFormat => $_->{notFormatted} });
$_->{toFormatUnsure} = member($_->{mntpoint}, '/', '/usr');
if (!$_->{toFormat}) {
my $t = fsedit::typeOfPart($_->{device});
$_->{toFormatUnsure} ||=
#- if detected dos/win, it's not precise enough to just compare the types (too many of them)
(!$t || isOtherAvailableFS({ type => $t }) ? !isOtherAvailableFS($_) : $t != $_->{type});
}
}
}
sub formatMountPartitions {
my ($o) = @_;
fs::formatMount_all($o->{all_hds}{raids}, $o->{fstab}, $o->{prefix});
}
#------------------------------------------------------------------------------
sub setPackages {
my ($o, $rebuild_needed) = @_;
install_any::setPackages($o, $rebuild_needed);
pkgs::selectPackagesAlreadyInstalled($o->{packages}, $o->{prefix});
$rebuild_needed and pkgs::selectPackagesToUpgrade($o->{packages}, $o->{prefix});
}
sub choosePackages {
my ($o, $packages, $_compssUsers, $first_time) = @_;
#- now for upgrade, package that must be upgraded are
#- selected first, after is used the same scheme as install.
#- make sure we kept some space left for available else the system may
#- not be able to start (xfs at least).
my $available = install_any::getAvailableSpace($o);
my $availableCorrected = pkgs::invCorrectSize($available / sqr(1024)) * sqr(1024);
log::l(sprintf "available size %s (corrected %s)", formatXiB($available), formatXiB($availableCorrected));
add2hash_($o, { compssListLevel => 5 }) if !$::auto_install;
#- avoid destroying user selection of packages but only
#- for expert, as they may have done individual selection before.
if ($first_time || !$::expert) {
exists $o->{compssListLevel}
and pkgs::setSelectedFromCompssList($packages, $o->{compssUsersChoice}, $o->{compssListLevel}, $availableCorrected);
}
$availableCorrected;
}
sub beforeInstallPackages {
my ($o) = @_;
#- save these files in case of upgrade failure.
if ($o->{isUpgrade}) {
foreach (@filesToSaveForUpgrade) {
unlink "$o->{prefix}/$_.mdkgisave";
if (-e "$o->{prefix}/$_") {
eval { cp_af("$o->{prefix}/$_", "$o->{prefix}/$_.mdkgisave") };
}
}
foreach (@filesNewerToUseAfterUpgrade) {
unlink "$o->{prefix}/$_.rpmnew";
}
}
#- some packages need such files for proper installation.
install_any::write_fstab($o);
require network;
network::add2hosts("$o->{prefix}/etc/hosts", "localhost.localdomain", "127.0.0.1");
log::l("setting excludedocs to $o->{excludedocs}");
substInFile { s/%_excludedocs.*//; $_ .= "%_excludedocs yes\n" if eof && $o->{excludedocs} } "$o->{prefix}/etc/rpm/macros";
#- add oem lilo theme and background if the files exists.
mkdir "$o->{prefix}$_" foreach qw(/boot /usr /usr/share /usr/share/mdk);
install_any::getAndSaveFile("Mandrake/base/oem-message-graphic", "$o->{prefix}/boot/oem-message-graphic");
install_any::getAndSaveFile("Mandrake/base/oem-background.png", "$o->{prefix}/usr/share/mdk/oem-background.png");
}
sub pkg_install {
my ($o, @l) = @_;
log::l("selecting packages ".join(" ", @l));
require pkgs;
if ($::testing) {
log::l("selecting package \"$_\"") foreach @l;
} else {
$o->{packages}{rpmdb} ||= pkgs::rpmDbOpen($o->{prefix});
pkgs::selectPackage($o->{packages}, pkgs::packageByName($o->{packages}, $_) || die "$_ rpm not found") foreach @l;
}
my @toInstall = pkgs::packagesToInstall($o->{packages});
if (@toInstall) {
log::l("installing packages");
$o->installPackages;
} else {
log::l("all packages selected are already installed, nothing to do")
}
}
sub pkg_install_if_requires_satisfied {
my ($o, @l) = @_;
require pkgs;
$o->{packages}{rpmdb} ||= pkgs::rpmDbOpen($o->{prefix});
foreach (@l) {
my %newSelection;
my $pkg = pkgs::packageByName($o->{packages}, $_) || die "$_ rpm not found";
pkgs::selectPackage($o->{packages}, $pkg, 0, \%newSelection);
if (scalar(keys %newSelection) == 1) {
pkgs::selectPackage($o->{packages}, $pkg);
} else {
log::l("pkg_install_if_requires_satisfied: not selecting $_ because of ", join(", ", keys %newSelection));
}
}
$o->installPackages;
}
sub installPackages($$) { #- complete REWORK, TODO and TOCHECK!
my ($o) = @_;
my $packages = $o->{packages};
#- this method is always called, go here to close still opened rpm db.
delete $packages->{rpmdb};
if (%{$packages->{state}{ask_remove} || {}}) {
log::l("removing : ", join ', ', keys %{$packages->{state}{ask_remove}});
pkgs::remove($o->{prefix}, [ keys %{$packages->{state}{ask_remove}} ], $packages);
}
#- small transaction will be built based on this selection and depslist.
my @toInstall = pkgs::packagesToInstall($packages);
my $time = time();
$ENV{DURING_INSTALL} = 1;
pkgs::install($o->{prefix}, $o->{isUpgrade}, \@toInstall, $packages);
delete $ENV{DURING_INSTALL};
run_program::rooted_or_die($o->{prefix}, 'ldconfig') unless $::g_auto_install;
log::l("Install took: ", formatTimeRaw(time() - $time));
install_any::log_sizes($o);
scalar(@toInstall); #- return number of packages installed.
}
sub afterInstallPackages($) {
my ($o) = @_;
return if $::g_auto_install;
die \N("Some important packages didn't get installed properly.
Either your cdrom drive or your cdrom is defective.
Check the cdrom on an installed computer using \"rpm -qpl Mandrake/RPMS/*.rpm\"
") if any { m|read failed: Input/output error| } cat_("$o->{prefix}/root/drakx/install.log");
if (arch() !~ /^sparc/) { #- TODO restore it as may be needed for sparc
-x "$o->{prefix}/usr/bin/dumpkeys" or $::testing or die
"Some important packages didn't get installed properly.
Please switch to console 2 (using ctrl-alt-f2)
and look at the log file /tmp/ddebug.log
Consoles 1,3,4,7 may also contain interesting information";
}
#- why not? cuz weather is nice today :-) [pixel]
common::sync(); common::sync();
my $have_devfsd = do {
my $p = pkgs::packageByName($o->{packages}, 'devfsd');
$p && $p->flag_installed
};
if ($have_devfsd) {
require bootloader;
bootloader::may_append($o->{bootloader}, devfs => 'mount');
}
#- generate /etc/lvmtab needed for rc.sysinit
run_program::rooted($o->{prefix}, 'vgscan') if -e '/etc/lvmtab';
#- configure PCMCIA services if needed.
modules::write_pcmcia($o->{prefix}, $o->{pcmcia});
#- for mandrake_firstime
touch "$o->{prefix}/var/lock/TMP_1ST";
any::config_dvd($o->{prefix}, $have_devfsd);
any::config_mtools($o->{prefix});
any::writeandclean_ldsoconf($o->{prefix});
#- make sure wins is disabled in /etc/nsswitch.conf
#- else if eth0 is not existing, glibc segfaults.
substInFile { s/\s*wins// if /^\s*hosts\s*:/ } "$o->{prefix}/etc/nsswitch.conf";
#- make sure some services have been enabled (or a catastrophic restart will occur).
#- these are normally base package post install scripts or important services to start.
run_program::rooted($o->{prefix}, "chkconfig", "--add", $_) foreach
qw(random netfs network rawdevices sound kheader keytable syslog crond portmap);
if ($o->{mouse}{device} =~ /ttyS/) {
log::l("disabling gpm for serial mice (doesn't get along nicely with X)");
run_program::rooted($o->{prefix}, "chkconfig", "--del", "gpm")
}
#- update menu scheme before calling update menus if desktop mode.
if ($o->{meta_class} eq 'desktop') {
run_program::rooted($o->{prefix}, "touch", "/etc/menu/do-not-create-menu-link");
run_program::rooted($o->{prefix}, "touch", "/etc/menu/enable_simplified");
} elsif (!$o->{isUpgrade}) {
run_program::rooted($o->{prefix}, "touch", "/etc/menu/do-not-create-menu-link");
}
#- call update-menus at the end of package installation
run_program::rooted($o->{prefix}, "update-menus");
if ($o->{pcmcia}) {
substInFile { s/.*(TaskBarShowAPMStatus).*/$1=1/ } "$o->{prefix}/usr/lib/X11/icewm/preferences";
eval { cp_af("$o->{prefix}/usr/share/applnk/System/kapm.kdelnk",
"$o->{prefix}/etc/skel/Desktop/Autostart/kapm.kdelnk") };
}
if ($o->{brltty}) {
output("$o->{prefix}/etc/brltty.conf", <<EOF);
braille-driver $o->{brltty}{driver}
braille-device $o->{brltty}{device}
text-table $o->{brltty}{table}
EOF
}
$o->install_urpmi;
if ($o->{locale}{lang} =~ /^(zh_TW|th|vi|be|bg)/) {
#- skip since we don't have the right font (it badly fails at least for zh_TW)
} else {
my $kde_charset = lang::charset2kde_charset(lang::l2charset($o->{locale}{lang}));
my $welcome = c::to_utf8(N("Welcome to %s", '%n'));
substInFile {
s/^(GreetString)=.*/$1=$welcome/;
s/^(Language)=.*/$1=$o->{locale}{lang}/;
if (!member($kde_charset, 'iso8859-1', 'iso8859-15')) {
#- don't keep the default for those
s/^(StdFont)=.*/$1=*,12,5,$kde_charset,50,0/;
s/^(FailFont)=.*/$1=*,12,5,$kde_charset,75,0/;
s/^(GreetFont)=.*/$1=*,24,5,$kde_charset,50,0/;
}
} "$o->{prefix}/usr/share/config/kdm/kdmrc";
}
install_any::disable_user_view($o->{prefix}) if $o->{security} >= 3 || $o->{authentication}{NIS};
run_program::rooted($o->{prefix}, "kdeDesktopCleanup");
foreach (list_skels($o->{prefix}, '.kde/share/config/kfmrc')) {
my $found;
substInFile {
$found ||= /KFM Misc Defaults/;
$_ .=
"[KFM Misc Defaults]
GridWidth=85
GridHeight=70
" if eof && !$found;
} $_
}
#- move some file after an upgrade that may be seriously annoying.
#- and rename saved files to .mdkgiorig.
if ($o->{isUpgrade}) {
my $pkg = pkgs::packageByName($o->{packages}, 'rpm');
$pkg && ($pkg->flag_selected || $pkg->flag_installed) && $pkg->compare(">= 4.0") and pkgs::cleanOldRpmDb($o->{prefix});
log::l("moving previous desktop files that have been updated to Trash of each user");
install_any::kdemove_desktop_file($o->{prefix});
foreach (@filesToSaveForUpgrade) {
renamef("$o->{prefix}/$_.mdkgisave", "$o->{prefix}/$_.mdkgiorig")
if -e "$o->{prefix}$_.mdkgisave";
}
foreach (@filesNewerToUseAfterUpgrade) {
if (-e "$o->{prefix}/$_.rpmnew" && -e "$o->{prefix}/$_") {
renamef("$o->{prefix}/$_", "$o->{prefix}/$_.mdkgiorig");
renamef("$o->{prefix}/$_.rpmnew", "$o->{prefix}/$_");
}
}
}
#- fix bad update-alternatives that may occurs after upgrade (but let them for install too).
if (-d "$o->{prefix}/etc/alternatives") {
foreach (all("$o->{prefix}/etc/alternatives")) {
next if run_program::rooted($o->{prefix}, 'test', '-e', "/etc/alternatives/$_");
log::l("fixing broken alternative $_");
run_program::rooted($o->{prefix}, "update-alternatives", "--auto", $_);
}
}
#- update oem lilo image if it exists.
if (-s "$o->{prefix}/boot/oem-message-graphic") {
rename "$o->{prefix}/boot/message-graphic", "$o->{prefix}/boot/message-graphic.mdkgiorig";
rename "$o->{prefix}/boot/oem-message-graphic", "$o->{prefix}/boot/message-graphic";
}
#- update background image if it exists for common environment.
if (-s "$o->{prefix}/usr/share/mdk/oem-background.png") {
if (-e "$o->{prefix}/usr/share/mdk/backgrounds/default.png") {
rename "$o->{prefix}/usr/share/mdk/backgrounds/default.png",
"$o->{prefix}/usr/share/mdk/backgrounds/default.png.mdkgiorig";
rename "$o->{prefix}/usr/share/mdk/oem-background.png", "$o->{prefix}/usr/share/mdk/backgrounds/default.png";
} else {
#- KDE desktop background.
if (-e "$o->{prefix}/usr/share/config/kdesktoprc") {
update_gnomekderc("$o->{prefix}/usr/share/config/kdesktoprc", "Desktop0",
MultiWallpaperMode => "NoMulti",
Wallpaper => "/usr/share/mdk/oem-background.png",
WallpaperMode => "Scaled",
);
}
#- GNOME desktop background.
if (-e "$o->{prefix}/etc/gnome/config/Background") {
update_gnomekderc("$o->{prefix}/etc/gnome/config/Background", "Default",
wallpaper => "/usr/share/mdk/oem-background.png",
wallpaperAlign => "3",
);
}
}
}
if ($o->{blank} || $o->{updatemodules}) {
my @l = detect_devices::floppies_dev();
foreach (qw(blank updatemodules)) {
$o->{$_} eq "1" and $o->{$_} = $l[0] || die \N("No floppy drive available");
}
$o->{blank} and $o->copyKernelFromFloppy();
$o->{updatemodules} and $o->updateModulesFromFloppy();
}
}
sub copyKernelFromFloppy {
my ($o) = @_;
return if $::testing || !$o->{blank};
fs::mount($o->{blank}, "/floppy", "vfat", 0);
eval { cp_af("/floppy/vmlinuz", "$o->{prefix}/boot/vmlinuz-default") };
if ($@) {
log::l("copying of /floppy/vmlinuz from blank modified disk failed: $@");
}
fs::umount("/floppy");
}
sub install_urpmi {
my ($o) = @_;
my $pkg = pkgs::packageByName($o->{packages}, 'urpmi');
if ($pkg && ($pkg->flag_selected || $pkg->flag_installed)) {
install_any::install_urpmi($o->{prefix},
$::oem ? 'cdrom' : $o->{method}, #- HACK
$o->{packages},
$o->{packages}{mediums});
pkgs::saveCompssUsers($o->{prefix}, $o->{packages}, $o->{compssUsers}, $o->{compssUsersSorted});
}
}
sub updateModulesFromFloppy {
my ($o) = @_;
return if $::testing || !$o->{updatemodules};
fs::mount($o->{updatemodules}, "/floppy", "ext2", 0);
foreach (glob_("$o->{prefix}/lib/modules/*")) {
my ($kernelVersion) = m,lib/modules/(\S*),;
log::l("examining updated modules for kernel $kernelVersion");
if (-d "/floppy/$kernelVersion") {
my @src_files = glob_("/floppy/$kernelVersion/*");
my @dest_files = map { chomp_($_) } run_program::rooted_get_stdout($o->{prefix}, 'find', '/lib/modules');
foreach my $s (@src_files) {
log::l("found updatable module $s");
my ($sfile, $sext) = $s =~ m!([^/\.]*\.o)(?:\.gz|\.bz2)?$!;
my $qsfile = quotemeta $sfile;
my $qsext = quotemeta $sext;
foreach my $target (@dest_files) {
$target =~ /$qsfile/ or next;
eval { cp_af($s, $target) };
if ($@) {
log::l("updating module $target by $s failed: $@");
} else {
log::l("updating module $target by $s");
}
if ($target !~ /$qsfile$qsext$/) {
#- extension differ, first rename target file correctly,
#- then uncompress source file, then compress it as expected.
my ($basetarget, $text) = $target =~ /(.*?)(\.gz|\.bz2)$/;
rename $target, "$basetarget$sext";
$sext eq '.gz' and run_program::run("gzip", "-d", "$basetarget$sext");
$sext eq '.bz2' and run_program::run("bzip2", "-d", "$basetarget$sext");
$text eq '.gz' and run_program::run("gzip", $basetarget);
$text eq '.bz2' and run_program::run("bzip2", $basetarget);
}
}
}
}
}
fs::umount("/floppy");
}
#------------------------------------------------------------------------------
sub selectMouse($) {
my ($_o) = @_;
}
#------------------------------------------------------------------------------
sub configureNetwork {
my ($o) = @_;
require network;
network::configureNetwork2($o, $o->{prefix}, $o->{netc}, $o->{intf});
if ($o->{method} =~ /ftp|http|nfs/) {
$o->{netcnx}{type} = 'lan';
foreach ("up", "down") {
my $f = "$o->{prefix}/etc/sysconfig/network-scripts/net_cnx_$_";
output_with_perm($f, 0755, "\nif$_ eth0\n");
}
output "$o->{prefix}/etc/sysconfig/network-scripts/net_cnx_pg", "\n/usr/sbin/drakconnet\n";
require network::netconnect;
$o->{netcnx}{$_} = $o->{netc}{$_} foreach qw(NET_DEVICE NET_INTERFACE);
$o->{netcnx}{NET_INTERFACE} and network::netconnect::set_net_conf($o->{netcnx}, $o->{netc});
network::netconnect::save_conf($o->{netcnx}, $o->{netc}, $o->{intf});
}
}
#------------------------------------------------------------------------------
sub installUpdates {
my ($o) = @_;
my $u = $o->{updates} or return; $u->{updates} or return;
upNetwork($o);
require crypto;
crypto::getPackages($o->{prefix}, $o->{packages}, $u->{mirror}) and
$o->pkg_install(@{$u->{packages} || []});
#- re-install urpmi with update security medium.
$o->install_urpmi;
}
sub summaryBefore {}
sub summary {
my ($o) = @_;
configureTimezone($o);
configurePrinter($o) if $o->{printer};
}
sub summaryAfter {
my ($o) = @_;
require bootloader;
bootloader::get_append($o->{bootloader}, 'acpi') ne 'off' && !(-x "$::prefix/usr/bin/acpi" && -x "$::prefix/usr/sbin/acpid")
and $o->do_pkgs->install(qw(acpi acpid));
}
#------------------------------------------------------------------------------
sub configureTimezone {
my ($o) = @_;
install_any::preConfigureTimezone($o);
$o->pkg_install('ntp') if $o->{timezone}{ntp};
require timezone;
timezone::write($o->{prefix}, $o->{timezone});
}
#------------------------------------------------------------------------------
sub configureServices {
my ($o) = @_;
if ($o->{services}) {
require services;
services::doit($o, $o->{services});
}
}
#------------------------------------------------------------------------------
sub configurePrinter {
my ($o) = @_;
$o->do_pkgs->install('foomatic-filters', 'foomatic-db-engine', 'foomatic-db', 'printer-utils', 'printer-testpages',
if_($o->do_pkgs->is_installed('gimp'), 'gimpprint'));
require printer::main;
eval { add2hash($o->{printer} ||= {}, printer::main::getinfo($o->{prefix})) }; #- get existing configuration.
require printer::printerdrake;
printer::printerdrake::install_spooler($o->{printer}, $o); #- not interactive...
foreach (values %{$o->{printer}{configured} || {}}) {
log::l("configuring printer queue " . $_->{queuedata}{queue} || $_->{QUEUE});
#- when copy is so adul�e (sorry french taste :-)
#- and when there are some configuration in one place and in another place...
$o->{printer}{currentqueue} = {};
printer::main::copy_printer_params($_->{queuedata}, $o->{printer}{currentqueue});
printer::main::copy_printer_params($_, $o->{printer});
#- setup all configured queues, which is not the case interactively where
#- only the working queue is setup on configuration.
printer::main::configure_queue($o->{printer});
}
}
#------------------------------------------------------------------------------
sub setRootPassword {
my ($o) = @_;
$o->{superuser} ||= {};
$o->{superuser}{name} = 'root';
any::write_passwd_user($o->{prefix}, $o->{superuser}, $o->{authentication}{md5});
delete $o->{superuser}{name};
}
#------------------------------------------------------------------------------
sub addUser {
my ($o) = @_;
my $p = $o->{prefix};
my $users = $o->{users} ||= [];
my (%uids, %gids);
foreach (glob_("$p/home")) { my ($u, $g) = (stat($_))[4,5]; $uids{$u} = 1; $gids{$g} = 1 }
foreach (@$users) {
$_->{home} ||= "/home/$_->{name}";
my $u = $_->{uid} || ($_->{oldu} = (stat("$p$_->{home}"))[4]) || int getpwnam($_->{name});
my $g = $_->{gid} || ($_->{oldg} = (stat("$p$_->{home}"))[5]) || int getgrnam($_->{name});
#- search for available uid above 501 else initscripts may fail to change language for KDE.
if (!$u || getpwuid($u)) { for ($u = 501; getpwuid($u) || $uids{$u}; $u++) {} }
if (!$g) { for ($g = 501; getgrgid($g) || $gids{$g}; $g++) {} }
$_->{uid} = $u; $uids{$u} = 1;
$_->{gid} = $g; $gids{$g} = 1;
}
any::write_passwd_user($p, $_, $o->{authentication}{md5}) foreach @$users;
append_to_file("$p/etc/group",
map { "$_->{name}:x:$_->{gid}:\n" } grep { ! getgrgid($_->{gid}) } @$users);
foreach my $u (@$users) {
if (! -d "$p$u->{home}") {
my $mode = $o->{security} < 2 ? 0755 : 0750;
eval { cp_af("$p/etc/skel", "$p$u->{home}") };
if ($@) {
log::l("copying of skel failed: $@"); mkdir("$p$u->{home}", $mode);
} else {
chmod $mode, "$p$u->{home}";
}
}
require commands;
eval { commands::chown_("-r", "$u->{uid}.$u->{gid}", "$p$u->{home}") }
if $u->{uid} != $u->{oldu} || $u->{gid} != $u->{oldg};
}
any::addUsers($p, $users);
$o->pkg_install("autologin") if $o->{autologin};
any::set_autologin($o->{autologin}, $o->{desktop});
install_any::setAuthentication($o);
install_any::disable_user_view($p) if @$users == ();
}
#------------------------------------------------------------------------------
sub readBootloaderConfigBeforeInstall {
my ($o) = @_;
require bootloader;
add2hash($o->{bootloader} ||= {}, bootloader::read());
$o->{bootloader}{bootUnsafe} = 0 if $o->{bootloader}{boot}; #- when upgrading, don't ask where to install the bootloader (mbr vs boot partition)
#- since kernel or kernel-smp may not be upgraded, it should be checked
#- if there is a need to update existing lilo.conf entries by following
#- symlinks before kernel or other packages get installed.
#- update everything that could be a filename (for following symlink).
foreach my $e (@{$o->{bootloader}{entries}}) {
while (my $v = readlink "$o->{prefix}/$e->{kernel_or_dev}") {
$v = "/boot/$v" if $v !~ m|^/|; -e "$o->{prefix}$v" or last;
log::l("renaming $e->{kernel_or_dev} entry by $v");
$e->{kernel_or_dev} = $v;
}
while (my $v = readlink "$o->{prefix}/$e->{initrd}") {
$v = "/boot/$v" if $v !~ m|^/|; -e "$o->{prefix}$v" or last;
log::l("renaming $e->{initrd} entry by $v");
$e->{initrd} = $v;
}
}
}
sub setupBootloaderBefore {
my ($o) = @_;
require bootloader;
if (my @l = (grep { $_->{bus} eq 'ide' } detect_devices::burners(), detect_devices::raw_zips())) {
bootloader::set_append($o->{bootloader}, $_->{device}, 'ide-scsi') foreach @l;
}
if ($o->{miscellaneous}{HDPARM}) {
bootloader::set_append($o->{bootloader}, $_, 'autotune') foreach grep { /ide/ } all("/proc/ide");
}
if (cat_("/proc/cmdline") =~ /mem=nopentium/) {
bootloader::set_append($o->{bootloader}, 'mem', 'nopentium');
}
if (cat_("/proc/cmdline") =~ /\b(pci)=(\S+)/) {
bootloader::set_append($o->{bootloader}, $1, $2);
}
if (cat_("/proc/cmdline") =~ /\bacpi=off/) {
bootloader::set_append($o->{bootloader}, acpi => 'off');
}
if (cat_("/proc/cmdline") =~ /\bnoapic/) {
bootloader::set_append($o->{bootloader}, 'noapic');
}
if (arch() =~ /alpha/) {
if (my $dev = fsedit::get_root($o->{fstab})) {
$o->{bootloader}{boot} ||= "/dev/$dev->{rootDevice}";
$o->{bootloader}{root} ||= "/dev/$dev->{device}";
$o->{bootloader}{part_nb} ||= first($dev->{device} =~ /(\d+)/);
}
} else {
#- check for valid fb mode to enable a default boot with frame buffer.
my $vga = $o->{allowFB} && (!detect_devices::matching_desc('3D Rage LT') &&
!detect_devices::matching_desc('Rage Mobility [PL]') &&
!detect_devices::matching_desc('i740') &&
!detect_devices::matching_desc('Matrox') &&
!detect_devices::matching_desc('Tseng.*ET6\d00') &&
!detect_devices::matching_desc('SiS.*SG86C2.5') &&
!detect_devices::matching_desc('SiS.*559[78]') &&
!detect_devices::matching_desc('SiS.*300') &&
!detect_devices::matching_desc('SiS.*540') &&
!detect_devices::matching_desc('SiS.*6C?326') &&
!detect_devices::matching_desc('SiS.*6C?236') &&
!detect_devices::matching_desc('Voodoo [35]|Voodoo Banshee') && #- 3d acceleration seems to bug in fb mode
!detect_devices::matching_desc('8281[05].* CGC') #- i810 now have FB support during install but we disable it afterwards
);
my $force_vga = $o->{allowFB} && (detect_devices::matching_desc('SiS.*630') || #- SiS 630 need frame buffer.
detect_devices::matching_desc('GeForce.*Integrated') #- needed for fbdev driver (hack).
);
#- propose the default fb mode for kernel fb, if aurora or bootsplash is installed.
my $need_fb = any {
my $p = pkgs::packageByName($o->{packages}, $_);
$p && $p->flag_installed;
} 'Aurora', 'bootsplash';
bootloader::suggest($o->{bootloader}, $o->{all_hds}{hds}, $o->{fstab},
vga_fb => ($force_vga || $vga && $need_fb) && $o->{vga},
quiet => $o->{meta_class} ne 'server');
bootloader::suggest_floppy($o->{bootloader}) if $o->{security} <= 3 && arch() !~ /ppc/;
$o->{bootloader}{keytable} ||= keyboard::keyboard2kmap($o->{keyboard});
}
}
sub setupBootloader {
my ($o) = @_;
return if $::g_auto_install;
if (arch() =~ /alpha/) {
return if $::testing;
my $b = $o->{bootloader};
$b->{boot} or $o->ask_warn('', "Can't install aboot, not a bsd disklabel"), return;
run_program::rooted($o->{prefix}, "swriteboot", $b->{boot}, "/boot/bootlx") or do {
cdie "swriteboot failed";
run_program::rooted($o->{prefix}, "swriteboot", "-f1", $b->{boot}, "/boot/bootlx");
};
run_program::rooted($o->{prefix}, "abootconf", $b->{boot}, $b->{part_nb});
modules::load('loop');
output "$o->{prefix}/etc/aboot.conf",
map_index { -e "$o->{prefix}/boot/initrd-$_->[1]" ?
"$::i:$b->{part_nb}$_->[0] root=$b->{root} initrd=/boot/initrd-$_->[1] $b->{perImageAppend}\n" :
"$::i:$b->{part_nb}$_->[0] root=$b->{root} $b->{perImageAppend}\n" }
map { run_program::rooted($o->{prefix}, "mkinitrd", "-f", "/boot/initrd-$_->[1]", "--ifneeded", $_->[1]);
$_ } grep { $_->[0] && $_->[1] }
map { [ m|$o->{prefix}(/boot/vmlinux-(.*))| ] } glob_("$o->{prefix}/boot/vmlinux-*");
# output "$o->{prefix}/etc/aboot.conf",
# map_index { "$::i:$b->{part_nb}$_ root=$b->{root} $b->{perImageAppend}\n" }
# map { /$o->{prefix}(.*)/ } eval { glob_("$o->{prefix}/boot/vmlinux*") };
} else {
require bootloader;
bootloader::install($o->{bootloader}, $o->{fstab}, $o->{all_hds}{hds});
}
}
#------------------------------------------------------------------------------
sub configureXBefore {
my ($o) = @_;
#- keep this here if the package has to be updated.
$o->pkg_install("XFree86");
}
sub configureX {
my ($o) = @_;
configureXBefore($o);
require Xconfig::default;
$o->{raw_X} = Xconfig::default::configure($o->{keyboard}, $o->{mouse});
require Xconfig::main;
Xconfig::main::configure_everything_auto_install($o->{raw_X}, $o->do_pkgs, $o->{X},
{ allowFB => $o->{allowFB},
allowNVIDIA_rpms => $o->do_pkgs->check_kernel_module_packages('NVIDIA_kernel', 'NVIDIA_GLX'),
});
configureXAfter($o);
}
sub configureXAfter {
my ($o) = @_;
if ($o->{X}{bios_vga_mode}) {
install_any::setupFB($o, $o->{X}{bios_vga_mode}) or do {
log::l("disabling automatic start-up of X11 if any as setup framebuffer failed");
Xconfig::various::runlevel(3); #- disable automatic start-up of X11 on error.
};
}
if ($o->{X}{default_depth} >= 16 && $o->{X}{resolution_wanted} >= 1024) {
log::l("setting large icon style for kde");
install_any::kderc_largedisplay($o->{prefix});
}
}
#------------------------------------------------------------------------------
sub miscellaneousBefore {
my ($o) = @_;
my %s = getVarsFromSh("$o->{prefix}/etc/sysconfig/system");
$o->{miscellaneous}{HDPARM} = $s{HDPARM} if exists $s{HDPARM};
require security::level;
require security::various;
$o->{security} ||= security::level::get() || ($o->{meta_class} =~ /server|firewall/ ? 3 : 2);
$o->{security_user} ||= security::various::config_security_user($o->{prefix});
$o->{libsafe} ||= security::various::config_libsafe($o->{prefix});
log::l("security $o->{security}");
add2hash_($o->{miscellaneous} ||= {}, { numlock => !detect_devices::isLaptop() });
}
sub miscellaneous {
my ($_o) = @_;
#- keep some given parameters
#-TODO
}
sub miscellaneousAfter {
my ($o) = @_;
add2hash_ $o, { useSupermount => $o->{security} < 4 };
$ENV{SECURE_LEVEL} = $o->{security}; #- deprecated with chkconfig 1.3.4-2mdk, uses /etc/sysconfig/msec
addToBeDone {
setVarsInSh("$o->{prefix}/etc/sysconfig/system", {
CLASS => $::expert && 'expert' || 'beginner',
SECURITY => $o->{security},
META_CLASS => $o->{meta_class} || 'PowerPack',
});
substInFile { s/KEYBOARD_AT_BOOT=.*/KEYBOARD_AT_BOOT=yes/ } "$o->{prefix}/etc/sysconfig/usb" if detect_devices::usbKeyboards();
} 'installPackages';
}
#------------------------------------------------------------------------------
sub exitInstall {
my ($o) = @_;
eval {
my $report = '/root/drakx/report.bug';
unlink "$::prefix$report", "$::prefix$report.gz";
output "$::prefix$report", install_any::report_bug($o->{prefix});
run_program::rooted($::prefix, 'gzip', $report);
};
install_any::getAndSaveAutoInstallFloppy($o, 1, "$o->{prefix}/root/drakx/replay_install.img");
eval { output "$o->{prefix}/root/drakx/README", "This directory contains several installation-related files,
mostly log files (very useful if you ever report a bug!).
Beware that some Mandrake tools rely on the contents of some
of these files... so remove any file from here at your own
risk!
" };
install_any::unlockCdrom();
install_any::log_sizes($o);
}
#------------------------------------------------------------------------------
sub hasNetwork {
my ($o) = @_;
$o->{netcnx}{type} && $o->{netc}{NETWORKING} ne 'no' and return 1;
log::l("no network seems to be configured for internet ($o->{netcnx}{type},$o->{netc}{NETWORKING})");
0;
}
#------------------------------------------------------------------------------
sub upNetwork {
my ($o, $b_pppAvoided) = @_;
#- do not destroy this file if prefix is '' or even '/' (could it happens ?).
if (length($o->{prefix}) > 1) {
symlinkf("$o->{prefix}/etc/$_", "/etc/$_") foreach qw(resolv.conf protocols services);
}
member($o->{method}, qw(ftp http nfs)) and return 1;
modules::write_conf($o->{prefix});
if (hasNetwork($o)) {
if ($o->{netcnx}{type} =~ /adsl|lan|cable/) {
require network::netconnect;
network::netconnect::start_internet($o);
return 1;
} elsif (!$b_pppAvoided) {
eval { modules::load(qw(serial ppp bsd_comp ppp_deflate)) };
run_program::rooted($o->{prefix}, "/etc/rc.d/init.d/syslog", "start");
require network::netconnect;
network::netconnect::start_internet($o);
return 1;
}
}
$::testing;
}
#------------------------------------------------------------------------------
sub downNetwork {
my ($o, $costlyOnly) = @_;
$o->{method} eq "ftp" || $o->{method} eq "http" || $o->{method} eq "nfs" and return 1;
modules::write_conf($o->{prefix});
if (hasNetwork($o)) {
if (!$costlyOnly) {
require network::netconnect;
network::netconnect::stop_internet($o);
return 1;
} elsif ($o->{netc}{type} !~ /adsl|lan|cable/) {
require network::netconnect;
network::netconnect::stop_internet($o);
run_program::rooted($o->{prefix}, "/etc/rc.d/init.d/syslog", "stop");
eval { modules::unload(qw(ppp_deflate bsd_comp ppp serial)) };
return 1;
}
}
$::testing;
}
#------------------------------------------------------------------------------
sub cleanIfFailedUpgrade($) {
my ($o) = @_;
#- if an upgrade has failed, there should be .mdkgisave files around.
if ($o->{isUpgrade}) {
foreach (@filesToSaveForUpgrade) {
if (-e "$o->{prefix}/$_" && -e "$o->{prefix}/$_.mdkgisave") {
rename "$o->{prefix}/$_", "$o->{prefix}/$_.mdkginew"; #- keep new files around in case !
rename "$o->{prefix}/$_.mdkgisave", "$o->{prefix}/$_";
}
}
}
}
1;
