diff options
| -rwxr-xr-x | kolab_wizard/Kolab.pm | 16 |
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 |