"See_The_Changelog"

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;
+}
+