From 2a3897f25c778cb187a08cfcd09f2c23e4406ed9 Mon Sep 17 00:00:00 2001 From: Vicent Guardiola Date: Tue, 10 Aug 2004 15:54:23 +0000 Subject: Add step for create new objectclass in user (testing with kerberos objectclass) --- ldap_wizard/Ldap.pm | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) 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 { -- cgit v1.2.1