Support search links

diff --git a/acl/cgi_args.pl b/acl/cgi_args.pl
new file mode 100644 (file)
index 0000000..8934f6c
--- /dev/null
+++ b/acl/cgi_args.pl
@@ -0,0 +1,27 @@
+
+do 'acl-lib.pl';
+
+sub cgi_args
+{
+my ($cgi) = @_;
+if ($cgi eq 'edit_user.cgi') {
+       local ($u) = grep { &can_edit_user($u->{'name'}) }
+                         &list_users();
+       return $u ? 'user='.&urlize($u->{'name'}) : 'none';
+       }
+elsif ($cgi eq 'edit_group.cgi') {
+       local ($u) = grep { &can_edit_group($u->{'name'}) }
+                         &list_groups();
+       return $u ? 'group='.&urlize($u->{'name'}) : 'none';
+       }
+elsif ($cgi eq 'edit_acl.cgi') {
+       local ($u) = grep { &can_edit_user($u->{'name'}) }
+                         &list_users();
+       if ($u && @{$u->{'modules'}}) {
+               return 'user='.&urlize($u->{'name'}).
+                      '&mod='.$u->{'modules'}->[0];
+               }
+       return 'none';
+       }
+return undef;
+}