summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-09-19 16:42:18 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-09-19 16:42:18 +0000
commit4ba41be7ed4ab9eaeaf35913059671bc458107c6 (patch)
tree105ce76f9db6abd88f701bc052ca96029def704c
parentdcc8ce0c2edcc5ee9f271e985e8e2792e193fedb (diff)
downloaddrakx-backup-do-not-use-4ba41be7ed4ab9eaeaf35913059671bc458107c6.tar
drakx-backup-do-not-use-4ba41be7ed4ab9eaeaf35913059671bc458107c6.tar.gz
drakx-backup-do-not-use-4ba41be7ed4ab9eaeaf35913059671bc458107c6.tar.bz2
drakx-backup-do-not-use-4ba41be7ed4ab9eaeaf35913059671bc458107c6.tar.xz
drakx-backup-do-not-use-4ba41be7ed4ab9eaeaf35913059671bc458107c6.zip
initial support for server install
-rw-r--r--perl-install/install2.pm1
-rw-r--r--perl-install/install_steps_gtk.pm13
2 files changed, 12 insertions, 2 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index e6b6bf8d6..a8c60cab8 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -478,6 +478,7 @@ sub main {
$o->{lnx4win} = 1 if $VERSION =~ /lnx4win/i;
$o->{meta_class} = 'desktop' if $VERSION =~ /desktop/i;
$o->{meta_class} = 'firewall' if $VERSION =~ /firewall/i;
+ $o->{meta_class} = 'server' if $VERSION =~ /server/i;
if ($::oem) {
$o->{partitioning}{use_existing_root} = 1;
$o->{partitioning}{auto_allocate} = 1;
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 9011b0fbd..d08dea1de 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -291,6 +291,15 @@ sub reallyChooseGroups {
gtkpack($w->create_box_with_title(_("Package Group Selection")),
gtkpack_(new Gtk::VBox(0,0),
1, gtkpack_(new Gtk::HBox(0,0),
+ $o->{meta_class} eq 'server' ? (
+ 1, gtkpack(new Gtk::VBox(0,0),
+ $entries_in_path->('Server'),
+ ),
+ 1, gtkpack(new Gtk::VBox(0,0),
+ $entry->('Development|Development'),
+ $entry->('Development|Documentation'),
+ ),
+ ) : (
1, gtkpack(new Gtk::VBox(0,0),
$entries_in_path->('Workstation'),
'',
@@ -302,8 +311,8 @@ sub reallyChooseGroups {
'',
$entries_in_path->('Graphical Environment'),
),
- ),
- ),
+ ),
+ )),
'',
gtkadd(new Gtk::HBox(0,0),
$w_size,