diff options
author | Pascal Rigaux <pixel@mandriva.com> | 1999-07-21 16:59:18 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 1999-07-21 16:59:18 +0000 |
commit | 5a5ec8d18c04f2077622bce50e7024e0749e4da8 (patch) | |
tree | 4449a44fc54d7f3e039045a476ecb14522ee5992 /perl-install/install2.pm | |
parent | dd40621fa1311c9bce97902e2db57f8b15fab449 (diff) | |
download | drakx-5a5ec8d18c04f2077622bce50e7024e0749e4da8.tar drakx-5a5ec8d18c04f2077622bce50e7024e0749e4da8.tar.gz drakx-5a5ec8d18c04f2077622bce50e7024e0749e4da8.tar.bz2 drakx-5a5ec8d18c04f2077622bce50e7024e0749e4da8.tar.xz drakx-5a5ec8d18c04f2077622bce50e7024e0749e4da8.zip |
*** empty log message ***
Diffstat (limited to 'perl-install/install2.pm')
-rw-r--r-- | perl-install/install2.pm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 442ad4cf0..049331533 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -24,7 +24,7 @@ $INSTALL_VERSION = 0; my @installStepsFields = qw(text help skipOnCancel skipOnLocal prev next); my @installSteps = ( - selectLanguage => [ "Choose your language", "help", 0, 0 ], + selectLanguage => [ __("Choose your language"), "help", 0, 0 ], selectPath => [ __("Choose install or upgrade"), __("help"), 0, 0 ], selectInstallClass => [ __("Select installation class"), __("help"), 0, 0 ], setupSCSI => [ __("Setup SCSI"), __("help"), 0, 1 ], @@ -98,10 +98,10 @@ my $default = { installClass => 'Server', bootloader => { onmbr => 1, linear => 0 }, mkbootdisk => 0, - base => [ qw(basesystem mkbootdisk linuxconf anacron linux_logo rhs-hwdiag utempter ldconfig chkconfig ntsysv mktemp setup setuptool filesystem MAKEDEV SysVinit ash at authconfig bash bdflush binutils console-tools cpio crontabs dev diffutils e2fsprogs ed eject etcskel file fileutils findutils getty_ps gpm grep groff gzip hdparm info initscripts isapnptools kbdconfig kernel less ldconfig lilo logrotate losetup mailcap mailx man mkinitrd mingetty modutils mount mouseconfig net-tools passwd kernel-pcmcia-cs procmail procps psmisc pump mandrake-release rootfiles rpm sash sed setconsole setserial shadow-utils sh-utils slocate stat sysklogd tar termcap textutils time timeconfig tmpwatch util-linux vim-minimal vixie-cron which) ], + base => [ qw(basesystem console-tools mkbootdisk linuxconf anacron linux_logo rhs-hwdiag utempter ldconfig chkconfig ntsysv mktemp setup setuptool filesystem MAKEDEV SysVinit ash at authconfig bash bdflush binutils console-tools crontabs dev e2fsprogs ed etcskel file fileutils findutils getty_ps gpm 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 timeconfig tmpwatch util-linux vim-minimal vixie-cron which) ], comps => [ - [ 1, __('X Window System') => qw(XFree86 XFree86-xfs XFree86-75dpi-fonts) ], - [ 1, __('KDE') => qw(kdeadmin kdebase kthememgr kdegames kjumpingcube kdegraphics kdelibs kdemultimedia kdenetwork kdesupport kdeutils kBeroFTPD kdesu kdetoys kpilot kcmlaptop kdpms kpppload kmpg) ], + [ 0, __('X Window System') => qw(XFree86 XFree86-xfs XFree86-75dpi-fonts) ], + [ 0, __('KDE') => qw(kdeadmin kdebase kthememgr kdegames kjumpingcube kdegraphics kdelibs kdemultimedia kdenetwork kdesupport kdeutils kBeroFTPD kdesu kdetoys kpilot kcmlaptop kdpms kpppload kmpg) ], [ 0, __('Console Multimedia') => qw(aumix audiofile esound sndconfig awesfx rhsound cdp mpg123 svgalib playmidi sox mikmod) ], [ 0, __('CD-R burning and utilities') => qw(mkisofs cdrecord cdrecord-cdda2wav cdparanoia xcdroast) ], [ 0, __('Games') => qw(xbill xboard xboing xfishtank xgammon xjewel xpat2 xpilot xpuzzles xtrojka xkobo freeciv) ], @@ -197,10 +197,12 @@ sub findInstallFiles { c::rpmReadConfigFiles() or die "can't read rpm config files"; log::l("\tdone"); - $o->{packages} = pkgs::psFromHeaderListFile(install_any::imageGetFile("hdlist")); + $o->{packages} = pkgs::psUsingDirectory(); + pkgs::getDeps($o->{packages}); } sub choosePackages { + foreach (@{$o->{default}->{base}}) { pkgs::select($o->{packages}, $_) } $o->choosePackages($o->{packages}, $o->{comps}); my @p = @{$o->{default}->{base}}, grep { $_->{selected} } @{$o->{comps}}; |