From 228bb31b0711f7882844309a12d2c9b22a7dff54 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Sun, 7 Jun 2009 22:51:18 +0000
Subject: [PATCH] Added cgi args parser

---
 ldap-useradmin/cgi_args.pl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 ldap-useradmin/cgi_args.pl

diff --git a/ldap-useradmin/cgi_args.pl b/ldap-useradmin/cgi_args.pl
new file mode 100644
index 000000000..19ebdeac2
--- /dev/null
+++ b/ldap-useradmin/cgi_args.pl
@@ -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;
+}