postgresql/delete_groups.cgi

   1 #!/usr/local/bin/perl
   2 # Delete multiple PostgreSQL groups
   3
   4 require './postgresql-lib.pl';
   5 &ReadParse();
   6 $access{'users'} || &error($text{'user_ecannot'});
   7 &error_setup($text{'group_derr'});
   8 @d = split(/\0/, $in{'d'});
   9 @d || &error($text{'group_enone'});
  10
  11 foreach $g (@d) {
  12         if (&get_postgresql_version() >= 8.0) {
  13                 &execute_sql_logged($config{'basedb'}, "drop group $g");
  14                 }
  15         else {
  16                 &execute_sql_logged($config{'basedb'}, "delete from pg_group where grosysid = $g");
  17                 }
  18         }
  19 &webmin_log("delete", "groups", scalar(@d));
  20 &redirect("list_groups.cgi");
  21