no_comment

7 files changed, 26 insertions, 10 deletions

diff --git a/perl-install/Makefile.config b/perl-install/Makefile.config
index d7a9c0c58..3890b77a6 100644
--- a/perl-install/Makefile.config
+++ b/perl-install/Makefile.config
@@ -11,7 +11,7 @@ STAGE2      = $(ROOTDEST)/Mandrake/base/mdkinst_stage2
 BASE        = $(ROOTDEST)/Mandrake/base
 DESTREP4PMS = $(DEST)$(REP4PMS)
 PERL        = perl
-LOCALFILES  = $(patsubst %, ../tools/%,e2fsck.shared ddcprobe/ddcxinfos pnp_serial/pnp_serial)
+LOCALFILES  = $(patsubst %, ../tools/%,e2fsck.shared ddcprobe/ddcxinfos pnp_serial/pnp_serial xhost+)
 LOCALFILES2 = extract_archive
 DIRS        = c Newt po pci_probing resize_fat
 EXCLUDE     = $(LOCALFILES) boot.img keymaps consolefonts install
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 08d7e0bc0..24489c54e 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -367,6 +367,7 @@ sub miscellaneous {
     addToBeDone {
 	setVarsInSh("$o->{prefix}/etc/sysconfig/system", { 
             HDPARM => $o->{miscellaneous}{HDPARM},
+            CLASS => $::expert && "expert" || $::beginner && "beginner" || "medium",
             TYPE => $o->{installClass},
             SECURITY => $o->{security},
         });
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 5e6963435..94471d205 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -384,8 +384,8 @@ sub choosePackagesTree {
 	$w->show;
 	$w->set_sensitive(!$p->{base} && !$p->{installed});
 	$w->signal_connect(focus_in_event => sub {
-	    my $p = pkgs::getHeader($p);
-	    gtktext_insert($info_widget,
+	    my $p = eval { pkgs::getHeader($p) };
+	    gtktext_insert($info_widget, $@ ? _("Bad package") :
 			   _("Version: %s\n", c::headerGetEntry($p, 'version') . '-' . c::headerGetEntry($p, 'release')) .
 			   _("Size: %d KB\n", c::headerGetEntry($p, 'size') / 1024) .
 
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 96f383cd1..41338477a 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -25,6 +25,7 @@ sub exit {
 
 sub ask_from_listW {
     my ($o, $title, $messages, $l, $def) = @_;
+    my $r;
 
     my $w = my_gtk->new(first(deref($title)), %$o);
     $w->{retval} = $def || $l->[0]; #- nearly especially for the X test case (see timeout in Xconfigurator.pm)
@@ -44,11 +45,12 @@ sub ask_from_listW {
 	       );
 	$defW->grab_focus if $defW;
 	$w->{rwindow}->set_position('center') if $::isStandalone;
-	$w->main;
+	$r = $w->main;
     } else {
 	$w->_ask_from_list($title, $messages, $l, $def);
-	$w->main;
+	$r = $w->main;
     }
+    $r or die "ask_from_list cancel";
 }
 
 sub ask_many_from_list_refW($$$$$) {
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 33f47a122..8c2c82cd4 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -148,6 +148,7 @@ my @drivers_by_category = (
   "cdu31a" => "Sony CDU-31A",
   "sonycd535" => "Sony CDU-5xx",
   "isofs" => "iso9660",
+  "ide-cd" => "ide-cd",
 }],
 [ 'sound', {
   "alsa" => "ALSA sound module, many sound cards",
diff --git a/perl-install/share/compssUsers b/perl-install/share/compssUsers
index dc78cf2f7..be0bc6a93 100644
--- a/perl-install/share/compssUsers
+++ b/perl-install/share/compssUsers
@@ -48,14 +48,15 @@ System configuration
 	kde:administration:utilities
 
 Web Server
-	daemons:network:http
+ 	apache
+ 	mod_perl
+ 	mod_php3
 
 Network Management Workstation	
 	network:tools
-# above is daemons:network *without* sendmail
+# above is daemons:network *without* sendmail and http
 	daemons:network:base
 	daemons:network:ftp
-	daemons:network:http
 	daemons:network:nfs
 	daemons:network:telnet
 	BeroList
diff --git a/perl-install/standalone/drakxservices b/perl-install/standalone/drakxservices
index 58f0c39e3..c463308da 100755
--- a/perl-install/standalone/drakxservices
+++ b/perl-install/standalone/drakxservices
@@ -2,8 +2,9 @@
 
 use lib qw(/usr/lib/libDrakX);
 
-use common qw(:common :functional);
+use common qw(:common :functional :file);
 use interactive;
+use log;
 
 local $_ = join '', @ARGV;
 
@@ -23,7 +24,17 @@ _("Choose which services should be automatically started at boot time"),
 mapn { 
     my ($name, $before, $after) = @_;
     if ($before != $after) {
-	system("chkconfig", $after ? "--add" : "--del", $name);
+	if ($after) {
+	    if (cat_("/etc/rc.d/init.d/$name") =~ /^chkconfig:\s+-/m) {
+		system("chkconfig --add $name");
+	    } else {
+		`/sbin/runlevel` =~ /\s(\d+)/ or die "bad runlevel";
+		$1 == 3 || $1 == 5 or log::l("strange runlevel: ``$1'' (neither 3 nor 5)");
+		system("chkconfig --level $1 $name on");
+	    }
+	} else {
+	    system("chkconfig --del $name");
+	}
     }
 } \@l, \@before, $after if $after;