2 # Delete several mail aliases
4 require './postfix-lib.pl';
5 require './aliases-lib.pl';
7 &error_setup($text{'adelete_err'});
8 $access{'aliases'} || &error($text{'aliases_ecannot'});
9 @afiles = &get_aliases_files(&get_current_value("alias_maps"));
10 &lock_alias_files(\@afiles);
13 @d = split(/\0/, $in{'d'});
14 @d || &error($text{'adelete_enone'});
15 @aliases = &list_postfix_aliases();
17 ($alias) = grep { $_->{'name'} eq $d } @aliases;
19 push(@delaliases, $alias);
24 foreach $alias (@delaliases) {
25 &delete_postfix_alias($alias);
27 &unlock_alias_files(\@afiles);
29 ®enerate_aliases();
32 &webmin_log("delete", "aliases", scalar(@delaliases));
33 &redirect("aliases.cgi");