VladPolskiy/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2025-08-24 06:45:35 +00:00
Code Issues Packages Projects Releases Wiki Activity

Added cgi args parser

Browse Source
This commit is contained in:
Jamie Cameron
2009-06-07 22:51:18 +00:00
parent fb12b6f934
commit 228bb31b07
1 changed files with 19 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
ldap-useradmin/cgi_args.pl Normal file
View File

@ -0,0 +1,19 @@
do 'ldap-useradmin-lib.pl';
sub cgi_args
{
my ($cgi) = @_;
if ($cgi eq 'edit_user.cgi') {
# Link to first available user
my @allulist = &list_users();
my @ulist = &useradmin::list_allowed_users(\%access, \@allulist);
return @ulist ? "dn=".&urlize($ulist[0]->{'dn'}) : "new=1";
}
elsif ($cgi eq 'edit_group.cgi') {
my @allglist = &list_groups();
my @glist = &useradmin::list_allowed_groups(\%access, \@allglist);
return @glist ? "dn=".&urlize($glist[0]->{'dn'}) : "new=1";
}
return undef;
}