summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ldap_wizard/Ldap.pm19
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 {