diff options
Diffstat (limited to 'perl-install/install_steps.pm')
| -rw-r--r-- | perl-install/install_steps.pm | 220 |
1 files changed, 220 insertions, 0 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm new file mode 100644 index 000000000..123507929 --- /dev/null +++ b/perl-install/install_steps.pm @@ -0,0 +1,220 @@ +package install_steps; + +use diagnostics; +use strict; + +use lang; +use keyboard; +use pkgs; +use cpio; +use log; +use fsedit; + + + +1; + + +sub new($) { + my ($type, $I) = @_; + + bless $I, ref $type || $type; +} + + +sub doPartitionDisks($$$) { + my ($I, $hds) = @_; + fsedit::auto_allocate($hds, $I->{partitions}); +} + +sub choosePackages($$$$) { + my ($I, $packages, $comps, $isUpgrade) = @_; + + foreach ('base', @{$I->{comps}}) { + $comps->{$_}->{selected} = 1; + foreach (@{$_->{packages}}) { $_->{selected} = 1; } + } + foreach (@{$I->{packages}}) { $_->{selected} = 1; } + + smp::detect() and $packages->{"kernel-smp"}->{selected} = 1; +} + +sub beforeInstallPackages($$$) { + my ($I, $method, $fstab, $isUpgrade) = @_; + + $method->prepareMedia($fstab); + + foreach (qw(dev etc home mnt tmp var var/tmp var/lib var/lib/rpm)) { + mkdir "$prefix/$_", 0755; + } + + unless ($isUpgrade) { + local *F; + open F, "> $prefix/etc/hosts" or die "Failed to create etc/hosts: $!"; + print F "127.0.0.1 localhost localhost.localdomain\n"; + } +} + +sub installPackages($$$$$) { + my ($I, $prefix, $method, $packages, $isUpgrade) = @_; + + pkgs::install($prefix, $method, $packages, $isUpgrade, 0); +} + +sub afterInstallPackages($$$$) { + my ($prefix, $keymap, $isUpgrade) = @_; + + unless ($isUpgrade) { + keyboard::write($prefix, $keymap); + lang::write($prefix); + } + # why not? + sync(); sync(); + +# configPCMCIA($o->{rootPath}, $o->{pcmcia}); +} + +sub addUser($$) { + my ($I, $prefix) = @_; + + my $new_uid; + #my @uids = map { (split)[2] } cat__("$prefix/etc/passwd"); + #for ($new_uid = 500; member($new_uid, @uids); $new_uid++) {} + for ($new_uid = 500; getpwuid($new_uid); $new_uid++) {} + + my $new_gid; + #my @gids = map { (split)[2] } cat__("$prefix/etc/group"); + #for ($new_gid = 500; member($new_gid, @gids); $new_gid++) {} + for ($new_gid = 500; getgrgid($new_gid); $new_gid++) {} + + my $homedir = "$prefix/home/$default->{user}->{name}"; + + my $pw = crypt_($default->{user}->{password}); + + unless ($testing) { + { + local *F; + open F, ">> $prefix/etc/passwd" or die "can't append to passwd file: $!"; + print F "$default->{user}->{name}:$pw:$new_uid:$new_gid:$default->{user}->{realname}:/home/$default->{user}->{name}:$default->{user}->{shell}\n"; + + open F, ">> $prefix/etc/group" or die "can't append to group file: $!"; + print F "$default->{user}->{name}::$new_gid:\n"; + } + eval { commands::cp("-f", "$prefix/etc/skel", $homedir) }; $@ and log::l("copying of skel failed: $@"), mkdir($homedir, 0750); + commands::chown_("-r", "$new_uid.$new_gid", $homedir); + } +} + +sub setRootPassword($$) { + my ($I, $prefix) = @_; + + my $pw = $default->{rootPassword}; + $pw = crypt_($pw); + + my @lines = cat_("$prefix/etc/passwd", 'die'); + local *F; + open F, "> $prefix/etc/passwd" or die "can't write in passwd: $!\n"; + foreach (@lines) { + s/^root:.*?:/root:$pw:/; + print F $_; + } +} + + +sub setupXfree { +# my ($method, $prefix, $psp) = @_; +# int fd, i; +# char buf[200], * chptr; +# char server[50]; +# int rc; +# char * path; +# char * procPath; +# rpmdb db; +# rpmTransactionSet trans; +# struct callbackInfo cbi; +# rpmProblemSet probs; +# +# if (rpmdbOpen(prefix, &db, O_RDWR | O_CREAT, 0644)) { +# errorWindow(_("Fatal error reopening RPM database")); +# return INST_ERROR; +# } +# log::l("reopened rpm database"); +# +# path = alloca(strlen(prefix) + 200); +# procPath = alloca(strlen(prefix) + 50); +# sprintf(path, "%s/usr/X11R6/bin/Xconfigurator", prefix); +# +# # This is a cheap trick to see if our X component was installed +# if (access(path, X_OK)) { +# log::l("%s cannot be run", path); +# return INST_OKAY; +# } +# +# # need proc to do pci probing +# sprintf(procPath, "%s/proc", prefix); +# umount(procPath); +# if ((rc = doMount("/proc", procPath, "proc", 0, 0))) { +# return INST_ERROR; +# } +# +# # this handles kickstart and normal/expert modes +# if ((rc=xfree86Config(prefix, "--pick"))) +# return INST_ERROR; +# +# sprintf(path, "%s/tmp/SERVER", prefix); +# if ((fd = open(path, O_RDONLY)) < 0) { +# log::l("failed to open %s: %s", path, strerror(errno)); +# return INST_ERROR; +# } +# +# buf[0] = '\0'; +# read(fd, buf, sizeof(buf)); +# close(fd); +# chptr = buf; +# while (chptr < (buf + sizeof(buf) - 1) && *chptr && *chptr != ' ') +# chptr++; +# +# if (chptr >= (buf + sizeof(buf) - 1) || *chptr != ' ') { +# log::l("couldn't find ' ' in %s", path); +# return INST_ERROR; +# } +# +# *chptr = '\0'; +# strcpy(server, "XFree86-"); +# strcat(server, buf); +# +# log::l("I will install the %s package", server); +# +# for (i = 0; i < psp->numPackages; i++) { +# if (!strcmp(psp->packages[i]->name, server)) { +# log::l("\tfound package: %s", psp->packages[i]->name); +# swOpen(1, psp->packages[i]->size); +# trans = rpmtransCreateSet(db, prefix); +# rpmtransAddPackage(trans, psp->packages[i]->h, NULL, +# psp->packages[i], 0, NULL); +# +# cbi.method = method; +# cbi.upgrade = 0; +# +# rpmRunTransactions(trans, swCallback, &cbi, NULL, &probs, 0, +# 0xffffffff); +# +# swClose(); +# break; +# } +# } +# +# # this handles kickstart and normal/expert modes +# if ((rc=xfree86Config(prefix, "--continue"))) +# return INST_ERROR; +# +# # done with proc now +# umount(procPath); +# +# rpmdbClose(db); +# +# log::l("rpm database closed"); +# +# return INST_OKAY; +} + |