acl/delete_group.cgi

   1 #!/usr/local/bin/perl
   2 # delete_group.cgi
   3 # Delete a group (and maybe it's members)
   4
   5 require './acl-lib.pl';
   6 &ReadParse();
   7 &error_setup($text{'gdelete_err'});
   8 $access{'groups'} || &error($text{'gdelete_ecannot'});
   9 @glist = &list_groups();
  10 ($group) = grep { $_->{'name'} eq $in{'group'} } @glist;
  11 @mems = @{$group->{'members'}};
  12 foreach $m (@mems) {
  13         &error($text{'gdelete_esub'}) if ($m =~ /^\@/);
  14         }
  15
  16 if (&indexof($base_remote_user, @mems) >= 0) {
  17         &error($text{'gdelete_euser'});
  18         }
  19 elsif (@mems && !$in{'confirm'}) {
  20         # Ask if the user really wants to delete the group and members
  21         &ui_print_header(undef, $text{'gdelete_title'}, "");
  22         print "<center><form action=delete_group.cgi>\n";
  23         print "<input type=hidden name=group value='$in{'group'}'>\n";
  24         print &text('gdelete_desc', "<tt>$in{'group'}</tt>",
  25                     "<tt>".join(" ", @mems)."</tt>"),"<p>\n";
  26         print "<input type=submit name=confirm value='$text{'gdelete_ok'}'>\n";
  27         print "</form></center>\n";
  28         &ui_print_footer("", $text{'index_return'});
  29         }
  30 else {
  31         # Delete the group (and members if any)
  32         &delete_group($in{'group'});
  33         foreach $u (@mems) {
  34                 if ($u =~ /^\@(.*)/) {
  35                         &delete_group("$1");
  36                         }
  37                 else {
  38                         &delete_user($u);
  39                         }
  40                 }
  41         &delete_from_groups("\@".$in{'group'});
  42         &reload_miniserv();
  43         &webmin_log("delete", "group", $in{'group'});
  44         &redirect("");
  45         }
  46