postgresql/delete_hosts.cgi

   1 #!/usr/local/bin/perl
   2 # Delete multiple PostgreSQL allowed hosts
   3
   4 require './postgresql-lib.pl';
   5 &ReadParse();
   6 $access{'users'} || &error($text{'host_ecannot'});
   7 &error_setup($text{'host_derr'});
   8 @d = split(/\0/, $in{'d'});
   9 @d || &error($text{'host_enone'});
  10
  11 $v = &get_postgresql_version();
  12 @hosts = &get_hba_config($v);
  13 foreach $i (sort { $b <=> $a } @d) {
  14         ($host) = $hosts[$i];
  15         &delete_hba($host, $v);
  16         }
  17 &webmin_log("delete", "hosts", scalar(@d));
  18 &redirect("list_hosts.cgi");
  19