- add backup of previous file

- display warning
- chkconfig level 35 off some services

1 files changed, 17 insertions, 12 deletions

diff --git a/kolab_wizard/Kolab.pm b/kolab_wizard/Kolab.pm
index b66f28c2..fd882b55 100755
--- a/kolab_wizard/Kolab.pm
+++ b/kolab_wizard/Kolab.pm
@@ -56,7 +56,7 @@ my $o = {
 
 $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"),
+		   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,
 			   next => 'password',
 			  },
@@ -110,17 +110,21 @@ sub new {
 }
 
 sub backup_conf {
-#/etc/postfix/main.cf /etc/postfix/master.cf
-#/etc/postfix/transport /etc/postfix/virtual
-#/etc/cyrus.conf /etc/imapd.conf
-#/etc/proftpd.conf /etc/openldap/slapd.conf
-#/etc/sysconfig/saslauthd
-#cp -a /var/lib/ldap $BAK
-#for service in ldap saslauthd cyrus-imapd httpd postfix
-#do chkconfig --level 35 $service off
-#done
-#/etc/init.d/kolab-server stop
-#/usr/sbin/kolab_bootstrap.real -b
+    my @conf = qw(/etc/postfix/main.cf
+		  /etc/postfix/master.cf
+		  /etc/postfix/transport
+		  /etc/postfix/virtual
+		  /etc/cyrus.conf
+		  /etc/imapd.conf
+		  /etc/proftpd.conf
+		  /etc/openldap/slapd.conf
+		  /etc/sysconfig/saslauthd
+		  );
+    
+    foreach (@conf) {
+	-f $_ and MDK::Common::cp_af($_, $_.".orig");
+    }
+    cp_af("/var/lib/ldap/", "/var/lib/ldap.orig");
 }
 
 sub check_password {
@@ -141,6 +145,7 @@ $o->{var}{password}
 ";
   close F;
 
+  system("chkconfig --level 35 $_ off") foreach qw(ldap saslauthd cyrus-imapd httpd postfix);
   system("service kolab-server restart");
   undef $w;
 }