summaryrefslogtreecommitdiffstats
path: root/ldap_wizard/Ldap.pm
diff options
context:
space:
mode:
authorVicent Guardiola <vguardiola@mandriva.com>2004-08-10 15:54:23 +0000
committerVicent Guardiola <vguardiola@mandriva.com>2004-08-10 15:54:23 +0000
commit2a3897f25c778cb187a08cfcd09f2c23e4406ed9 (patch)
tree2aca70cd4568292e4c74a098b73bf5f57f6db4c5 /ldap_wizard/Ldap.pm
parente6ecd636bcf1fa46660f2048399653253d25425d (diff)
downloaddrakwizard-2a3897f25c778cb187a08cfcd09f2c23e4406ed9.tar
drakwizard-2a3897f25c778cb187a08cfcd09f2c23e4406ed9.tar.gz
drakwizard-2a3897f25c778cb187a08cfcd09f2c23e4406ed9.tar.bz2
drakwizard-2a3897f25c778cb187a08cfcd09f2c23e4406ed9.tar.xz
drakwizard-2a3897f25c778cb187a08cfcd09f2c23e4406ed9.zip
Add step for create new objectclass in user (testing with kerberos objectclass)
Diffstat (limited to 'ldap_wizard/Ldap.pm')
-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 {