From c8582d04528afc6ff80f235d2cce14e756e3ae7e Mon Sep 17 00:00:00 2001 From: Vicent Guardiola Date: Mon, 20 Sep 2004 15:21:52 +0000 Subject: generate new uid/gid number --- ldap_wizard/Ldap.pm | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/ldap_wizard/Ldap.pm b/ldap_wizard/Ldap.pm index 9518a2c8..c60de6ac 100644 --- a/ldap_wizard/Ldap.pm +++ b/ldap_wizard/Ldap.pm @@ -1,5 +1,5 @@ #!/usr/bin/perl -# version 0.1 +# version 1.33 # GPL like # vguardiola@mandrakesoft.com @@ -52,7 +52,7 @@ my $o = { }, needed_rpm => [ 'openldap-servers','openldap-clients' ], defaultimage => "$ENV{__WIZ_HOME__}ldap_wizard/images/ldap.png", - }; + }; my $wiz = new MDK::Wizard::Wizcommon; @@ -393,6 +393,13 @@ EOF sub do_it_user_add { return if $::testing; + my $uid = "10000"; + while (defined(getpwuid($uid))) { + $uid++; + } + + $o->{var}{uidnb} = $uid; + $o->{var}{gidnb} = $uid; ($o->{var}{code_return}, $o->{var}{error_user_add}) = add_user($o); if ($o->{var}{code_return} =~ /success/i) { -- cgit v1.2.1