postfix/delete_mappings.cgi

   1 #!/usr/local/bin/perl
   2 # Delete multiple mappings
   3
   4 require './postfix-lib.pl';
   5 &ReadParse();
   6 &error_setup($text{'delete_err'});
   7
   8 @d = split(/\0/, $in{'d'});
   9 @d || &error($text{'delete_enone'});
  10
  11 $maps = &get_maps($in{'map_name'});
  12 foreach $d (@d) {
  13         ($map) = grep { $_->{'name'} eq $d } @$maps;
  14         if ($map) {
  15                 &lock_file($map->{'file'});
  16                 &delete_mapping($in{'map_name'}, $map);
  17                 }
  18         }
  19 &unlock_all_files();
  20
  21 &regenerate_map_table($in{'map_name'});
  22 &reload_postfix();
  23
  24 &webmin_log("delete", $in{'map_name'}.'s', scalar(@d));
  25 &redirect_to_map_list($in{'map_name'});