postgresql/delete_users.cgi

   1 #!/usr/local/bin/perl
   2 # Delete multiple PostgreSQL users
   3
   4 require './postgresql-lib.pl';
   5 &ReadParse();
   6 $access{'users'} || &error($text{'user_ecannot'});
   7 &error_setup($text{'user_derr'});
   8 @d = split(/\0/, $in{'d'});
   9 @d || &error($text{'user_enone'});
  10
  11 foreach $u (@d) {
  12         &execute_sql_logged($config{'basedb'}, "drop user \"$u\"");
  13         }
  14 &webmin_log("delete", "users", scalar(@d));
  15 &redirect("list_users.cgi");
  16