PAL.C.T MINI SHELL
#!/usr/bin/perl
# Delete multiple mappings
require './postfix-lib.pl';
&ReadParse();
&error_setup($text{'delete_err'});
@d = split(/\0/, $in{'d'});
@d || &error($text{'delete_enone'});
$maps = &get_maps($in{'map_name'});
foreach $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'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`