Add step for create new objectclass in user (testing with kerberos objectclass)

1 files changed, 18 insertions, 1 deletions

diff --git a/ldap_wizard/Ldap.pm b/ldap_wizard/Ldap.pm
index 6a3bd768..b448ad77 100644
--- a/ldap_wizard/Ldap.pm
+++ b/ldap_wizard/Ldap.pm
@@ -172,8 +172,21 @@ $o->{pages} = {
                                              { label => N("Create in:"), type => 'field', fixed_val => \$o->{var}{defou} }, #. \$o->{var}{suffix} },
                                             ],
                                     post => \&do_it_user_add,
-                                    next => 'endadd'
+                                    next => 'addnext'
                                    },
+
+      	addnext => {
+                            name =>  N("test"),
+                             data => [
+                                            { label => N("OP:"), type => 'field', fixed_val => \$o->{var}{suffix} },
+                                            { label => N("AP:"), type => 'field', fixed_val => \$o->{var}{rootdn} },
+                                            { label => N("Add Kerberos"), type => 'field', fixed_val => \$o->{var}{suffix} },
+                                           ],
+                                   post => \&do_it_modif,
+                                   next => 'end'
+                                  },
+
+				   
                summary_set_srv => {
                                    name =>  N("Confirmation Information for create LDAP server"),
                                    data => [
@@ -318,6 +331,10 @@ sub do_it_user_add {
   my $mesg = add_user($o);
 }
 
+sub do_it_modif {
+	 my $mesg = modif_krb5($o);
+}
+
 sub new {
   my ($class) = @_;
   bless {