2 do 'ldap-useradmin-lib.pl';
7 if ($cgi eq 'edit_user.cgi') {
8 # Link to first available user
9 my @allulist = &list_users();
10 my @ulist = &useradmin::list_allowed_users(\%access, \@allulist);
11 return @ulist ? "dn=".&urlize($ulist[0]->{'dn'}) : "new=1";
13 elsif ($cgi eq 'edit_group.cgi') {
14 my @allglist = &list_groups();
15 my @glist = &useradmin::list_allowed_groups(\%access, \@allglist);
16 return @glist ? "dn=".&urlize($glist[0]->{'dn'}) : "new=1";