← Back
Editing: delete_mappings.cgi
#!/usr/bin/perl # Delete multiple mappings require './postfix-lib.pl'; ## no critic use strict; use warnings; our ($err, $map, $maps, @d, %in, %text); &ReadParse(); &error_setup($text{'delete_err'}); @d = split(/\0/, $in{'d'}); @d || &error($text{'delete_enone'}); $maps = &get_maps($in{'map_name'}); foreach my $d (@d) { ($map) = grep { $_->{'name'} eq $d } @$maps; if ($map) { &lock_file($map->{'file'}); &delete_mapping($in{'map_name'}, $map); } } &unlock_all_files(); ®enerate_map_table($in{'map_name'}); $err = &reload_postfix(); &error($err) if ($err); &webmin_log("delete", $in{'map_name'}.'s', scalar(@d)); &redirect_to_map_list($in{'map_name'});
Save File
Cancel