From 1118de56310ddcdce3c3456681b2d4be02a64acd Mon Sep 17 00:00:00 2001
From: Antoine Ginies <aginies@mandriva.com>
Date: Wed, 10 Mar 2004 14:22:42 +0000
Subject: set basic configuration

---
 kolab_wizard/Kolab.pm | 98 ++++++++++++++++++++++++++++++++-------------------
 1 file changed, 62 insertions(+), 36 deletions(-)

diff --git a/kolab_wizard/Kolab.pm b/kolab_wizard/Kolab.pm
index 88c6af17..c68236a2 100755
--- a/kolab_wizard/Kolab.pm
+++ b/kolab_wizard/Kolab.pm
@@ -20,11 +20,11 @@
 
 package MDK::Wizard::Kolab;
 use strict;
-
 use common;
 use MDK::Wizard::IFCFG;
 use MDK::Wizard::Wizcommon;
 
+
 my $wiz = new MDK::Wizard::Wizcommon;
 
 my $HOSTNAME = chomp_(`hostname`);
@@ -34,48 +34,48 @@ if (!$IPSERVER) {
     ($IPSERVER) = `/sbin/ip addr show dev $interface` =~ /^\s*inet\s+(\d+\.\d+\.\d+\.\d+)/m;
 }
 my $DOMAINNAME = chomp_(`domainname`);
-
+my $kolab_config = "/etc/kolab/kolab.conf";
 
 my $o = {
-    name => N("Kolab configuration wizard"),
-    init => sub {
-	if (member($DOMAINNAME, qw(localdomain (none)))) {
-	    return 0, N("You need to readjust your domainname, not equal to localdomain or none. Please launch drakconnect to adjust it.")
-	    }
-	1
-	},
-	    var => {
-		HOSTNAME => $HOSTNAME,
-		ip1 => $IPSERVER,
-		maildomain => $DOMAINNAME,
-		password => '',
-	    },
-#	 needed_rpm => [ 'kolab-server', 'postfix', 'openldap-servers', 'proftpd' ],
-    defaultimage => $ENV{__WIZ_HOME__},
-};
+	 name => N("Kolab configuration wizard"),
+	 init => sub {
+	   if (member($DOMAINNAME, qw(localdomain (none)))) {
+	     return 0, N("You need to readjust your domainname, not equal to localdomain or none. Please launch drakconnect to adjust it.")
+	   }
+	   1
+	 },
+	 var => {
+		 HOSTNAME => $HOSTNAME,
+		 ip1 => $IPSERVER,
+		 maildomain => $DOMAINNAME,
+		 password => 'a',
+		},
+	 needed_rpm => [ 'kolab-server', 'postfix', 'openldap-servers', 'proftpd' ],
+	 defaultimage => $ENV{__WIZ_HOME__},
+	};
 
 $o->{pages} = {
 	       welcome => {
-			   name => N("Welcome to the Kolab Groupware server configuration Wizard."),
+			   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"),
 			   no_back => 1,
-			   next => 'hostname'
+			   next => 'password',
 			  },
-	       hostname => {
-			    name => N("Hostname"),
-			    data => [
-				     { label => N("Hostname:"), val => \$o->{var}{HOSTNAME} },
-				     { label => N("Mail domain:"), val => \$o->{var}{maildomain} },
-				    ],
-			    next => 'password'
-			   },
+#	       hostname => {
+#			    name => N("Hostname"),
+#			    data => [
+#				     { label => N("Hostname:"), val => \$o->{var}{HOSTNAME} },
+#				     { label => N("Mail domain:"), val => \$o->{var}{maildomain} },
+#				    ],
+#			    next => 'password',
+#			   },
 	       password => {
-			    name => N("Password"),
+			    name => N("Enter pasword for the manager account of Kolab server."),
 			    data => [
 				     { label => N("Password:"), val => \$o->{var}{password} },
 				     { label => N("Password again:"), val => \$o->{var}{password2} },
 				    ],
 			    post => \&check_password,
-			    next => 'summary'
+			    next => 'summary',
 			   },
 	       warning => {
 			   name => N("Warning.") . "\n\n",
@@ -83,7 +83,7 @@ $o->{pages} = {
 			  },
 	       error => {
 			 name => N("Error.") . "\n\n",
-			 next => 'config'
+			 next => 'config',
 			},
 	       summary => {
 			   name =>  N("The wizard will now configured Kolab server with this parameters"),
@@ -93,12 +93,12 @@ $o->{pages} = {
 				    { label => N("Mail domain:"), fixed_val => \$o->{var}{maildomain} },
 				   ],
 			   post => \&do_it,
-			   next => 'end'
+			   next => 'end',
 			  },
 	       end => {
-		       name => N("Congratulations") . "\n\n" . N("The kolab server is now configured and running. Log in as 'manager' with the password you entered."),
+		       name => N("Congratulations") . "\n\n" . N("The kolab server is now configured and running. Log in as 'manager' with the password you entered at https://127.0.0.1/kolab/admin/"),
 		       end => 1,
-		       next => 0
+		       next => 0,
 	  },
 };
 
@@ -109,14 +109,40 @@ sub new {
        }, $class;
 }
 
+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
+}
+
 sub check_password {
     $o->{var}{password} ne $o->{var}{password2} or return 'passwd';
 }
 
 
 sub do_it {
-    $::testing or return;
-    print ".....\n";
+  return if $::testing;
+  my $in = 'interactive'->vnew('su', 'Kolab server');
+  my $w = $in->wait_message(N("Kolab server"), N("Configuring Kolab server on your system..."));
+  system("service $_ stop") foreach qw(ldap saslauthd cyrus-imapd httpd postfix);
+
+  open(F, "|/usr/sbin/kolab_bootstrap.real -b\n");
+  print F "$o->{var}{HOSTNAME}
+$o->{var}{maildomain}
+$o->{var}{password}
+";
+  close F;
+
+  system("service kolab-server restart");
+  undef $w;
 }
 
 1;
-- 
cgit v1.2.1