acl/cgi_args.pl

   1
   2 do 'acl-lib.pl';
   3
   4 sub cgi_args
   5 {
   6 my ($cgi) = @_;
   7 if ($cgi eq 'edit_user.cgi') {
   8         my ($u) = grep { &can_edit_user($u->{'name'}) } &list_users();
   9         return $u ? 'user='.&urlize($u->{'name'}) :
  10                $access{'create'} ? '' : 'none';
  11         }
  12 elsif ($cgi eq 'edit_group.cgi') {
  13         my ($u) = grep { &can_edit_group($u->{'name'}) } &list_groups();
  14         return $u ? 'group='.&urlize($u->{'name'}) :
  15                $access{'groups'} ? '' : 'none';
  16         }
  17 elsif ($cgi eq 'edit_acl.cgi') {
  18         my ($u) = grep { &can_edit_user($u->{'name'}) } &list_users();
  19         if ($u && @{$u->{'modules'}}) {
  20                 return 'user='.&urlize($u->{'name'}).
  21                        '&mod='.$u->{'modules'}->[0];
  22                 }
  23         return 'none';
  24         }
  25 return undef;
  26 }