useradmin/cgi_args.pl

   1
   2 do 'user-lib.pl';
   3
   4 sub cgi_args
   5 {
   6 my ($cgi) = @_;
   7 if ($cgi eq 'edit_user.cgi') {
   8         # Link to first available user
   9         my @allulist = &list_users();
  10         my @ulist = &list_allowed_users(\%access, \@allulist);
  11         return @ulist ? "user=".&urlize($ulist[0]->{'user'}) : "none";
  12         }
  13 elsif ($cgi eq 'edit_group.cgi') {
  14         my @allglist = &list_groups();
  15         my @glist = &list_allowed_groups(\%access, \@allglist);
  16         return @glist ? "group=".&urlize($glist[0]->{'group'}) : "none";
  17         }
  18 return undef;
  19 }