diff options
| -rw-r--r-- | ldap_wizard/Ldap.pm | 19 |
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 { |