From bb6d891b8c6c6db0bf8b20eb6dc2f8ded6e519e6 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 8 Nov 1999 18:09:37 +0000 Subject: no_comment --- perl-install/c/stuff.xs.pm | 2 +- perl-install/install2.pm | 9 +++++---- perl-install/install_any.pm | 6 +++++- perl-install/install_steps.pm | 5 ++++- 4 files changed, 15 insertions(+), 7 deletions(-) (limited to 'perl-install') diff --git a/perl-install/c/stuff.xs.pm b/perl-install/c/stuff.xs.pm index c7b0ed82e..a3317b76b 100644 --- a/perl-install/c/stuff.xs.pm +++ b/perl-install/c/stuff.xs.pm @@ -558,7 +558,7 @@ headerGetEntry_string_list(h, query) [ qw(int S_IFCHR S_IFBLK KDSKBENT KT_SPEC NR_KEYS MAX_NR_KEYMAPS BLKRRPART TIOCSCTTY HDIO_GETGEO BLKGETSIZE MS_MGC_VAL MS_RDONLY O_NONBLOCK SECTORSIZE WNOHANG - VT_ACTIVATE VT_WAITACTIVE VT_GETSTATE CDROM_LOCKDOOR + VT_ACTIVATE VT_WAITACTIVE VT_GETSTATE CDROM_LOCKDOOR CDROMEJECT ) ], ); push @macros, [ qw(int RPMTAG_NAME RPMTAG_GROUP RPMTAG_SIZE RPMTAG_VERSION RPMTAG_SUMMARY RPMTAG_DESCRIPTION RPMTAG_RELEASE RPMTAG_ARCH RPMTAG_FILENAMES RPMTAG_OBSOLETES) ] diff --git a/perl-install/install2.pm b/perl-install/install2.pm index e1deac204..ed506f7d9 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -181,8 +181,8 @@ $o = $::o = { steps => \%installSteps, orderedSteps => \@orderedInstallSteps, -#-GOLD base => [ qw(basesystem sed initscripts console-tools mkbootdisk anacron utempter ldconfig chkconfig ntsysv mktemp setup filesystem SysVinit bdflush crontabs dev e2fsprogs etcskel fileutils findutils getty_ps grep groff gzip hdparm info initscripts isapnptools kernel less ldconfig lilo logrotate losetup man mkinitrd mingetty modutils mount net-tools passwd procmail procps psmisc mandrake-release rootfiles rpm sash sed setserial shadow-utils sh-utils slocate stat sysklogd tar termcap textutils time tmpwatch util-linux vim-minimal vixie-cron which perl-base) ], - base => [ qw(basesystem sed initscripts console-tools mkbootdisk anacron utempter ldconfig chkconfig ntsysv mktemp setup filesystem SysVinit bdflush crontabs dev e2fsprogs etcskel fileutils findutils getty_ps grep groff gzip hdparm info initscripts isapnptools kbdconfig kernel less ldconfig lilo logrotate losetup man mkinitrd mingetty modutils mount net-tools passwd procmail procps psmisc mandrake-release rootfiles rpm sash sed setconsole setserial shadow-utils sh-utils slocate stat sysklogd tar termcap textutils time tmpwatch util-linux vim-minimal vixie-cron which cpio perl) ], + base => [ qw(basesystem sed initscripts console-tools mkbootdisk anacron utempter ldconfig chkconfig ntsysv mktemp setup filesystem SysVinit bdflush crontabs dev e2fsprogs etcskel fileutils findutils getty_ps grep groff gzip hdparm info initscripts isapnptools kernel less ldconfig lilo logrotate losetup man mkinitrd mingetty modutils mount net-tools passwd procmail procps psmisc mandrake-release rootfiles rpm sash sed setserial shadow-utils sh-utils slocate stat sysklogd tar termcap textutils time tmpwatch util-linux vim-minimal vixie-cron which perl-base) ], +#-GOLD base => [ qw(basesystem sed initscripts console-tools mkbootdisk anacron utempter ldconfig chkconfig ntsysv mktemp setup filesystem SysVinit bdflush crontabs dev e2fsprogs etcskel fileutils findutils getty_ps grep groff gzip hdparm info initscripts isapnptools kbdconfig kernel less ldconfig lilo logrotate losetup man mkinitrd mingetty modutils mount net-tools passwd procmail procps psmisc mandrake-release rootfiles rpm sash sed setconsole setserial shadow-utils sh-utils slocate stat sysklogd tar termcap textutils time tmpwatch util-linux vim-minimal vixie-cron which cpio perl) ], #- for the list of fields available for user and superuser, see @etc_pass_fields in install_steps.pm #- intf => [ { DEVICE => "eth0", IPADDR => '1.2.3.4', NETMASK => '255.255.255.128' } ], @@ -312,11 +312,12 @@ sub formatPartitions { unless ($::testing) { $o->formatPartitions(@{$o->{fstab}}); - fs::mount_all([ grep { isExt2($_) || isSwap($_) } @{$o->{fstab}} ], $o->{prefix}); + fs::mount_all([ grep { isSwap($_) } @{$o->{fstab}} ], $o->{prefix}); + die _("Not enough swap to fulfill installation, please add some") if availableMemory < 40 * 1024; + fs::mount_all([ grep { isExt2($_) } @{$o->{fstab}} ], $o->{prefix}); } eval { $o = $::o = install_any::loadO($o) } if $_[1] == 1; - die _("Not enough swap to fulfill installation, please add some") if availableMemory < 40 * 1024; } mkdir "$o->{prefix}/$_", 0755 foreach qw(dev etc etc/profile.d etc/sysconfig etc/sysconfig/console etc/sysconfig/network-scripts diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index ed87b688a..2326edaa1 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -334,10 +334,14 @@ sub killCardServices { $pid and kill(15, $pid); #- send SIGTERM } -sub unlockCdroms { +sub unlockCdroms() { ioctl detect_devices::tryOpen($_->{device}), c::CDROM_LOCKDOOR(), 0 foreach detect_devices::cdroms(); } +sub ejectCdrom() { + ioctl detect_devices::tryOpen($_), c::CDROMEJECT(), 1 + foreach map { first split } grep { m|/tmp/rhimage| } cat_("/proc/mounts"); +} sub setupFB { my ($o, $vga) = @_; diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 077b90376..3ec11a021 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -452,7 +452,10 @@ sub miscellaneous { } #------------------------------------------------------------------------------ -sub exitInstall { install_any::unlockCdroms } +sub exitInstall { + install_any::unlockCdroms; + install_any::ejectCdrom; +} #-###################################################################################### #- Wonderful perl :( -- cgit v1.2.1