fix kolab-server installtion pb (one again)

1 files changed, 15 insertions, 1 deletions

diff --git a/kolab_wizard/Kolab.pm b/kolab_wizard/Kolab.pm
index 27fb6b2f..d4395dda 100755
--- a/kolab_wizard/Kolab.pm
+++ b/kolab_wizard/Kolab.pm
@@ -50,7 +50,7 @@ my $o = {
 		 maildomain => $DOMAINNAME,
 		 password => '',
 		},
-	 needed_rpm => [ 'proftpd', 'openldap-servers', 'apache2', 'kolab-server' ],
+#	 needed_rpm => [ 'proftpd', 'openldap-servers', 'apache2', 'kolab-server' ],
 	 #	 defaultimage => $ENV{__WIZ_HOME__},
 	};
 
@@ -58,6 +58,7 @@ $o->{pages} = {
 	       welcome => {
 			   name => N("Welcome to the Kolab Groupware server configuration Wizard.") . "\n\n" . N("Kolab is a secure, scalable and reliable groupware server. Some of the major features include: a web administration interface, a shared address book with provision for mailbox users as well as contacts and a POP3 as well as IMAP4(rev1) access to mail") . "\n\n" . N("Warning: Kolab needs to configure many other services: Proftpd, LDAP, Cyrus, Postfix, Imap, Saslauth. Wizard will make a backup of all your previous configuration files for these services."),
 			   no_back => 1,
+			   post => \&rpm_needed_kolab, 
 			   next => 'password',
 			  },
 	       #	       hostname => {
@@ -109,6 +110,19 @@ sub new {
 	}, $class;
 }
 
+sub rpm_needed_kolab {
+    my $in = 'interactive'->vnew('su', 'Installing Kolab');
+    my $w = $in->wait_message(N("Install in progress"), N("Installing Kolab server on your system..."));
+    system("urpmi --auto kolab-server");
+    undef $w;
+    if (!$in->do_pkgs->is_installed("kolab-server")) { 
+	$::Wizard_finished = 1;
+	$in->ask_okcancel(N("Error"), N("Installation failed"));
+	$in->exit;
+	
+    }
+}
+
 sub backup_conf {
   my @conf = qw(/etc/postfix/main.cf
 		  /etc/postfix/master.cf