projects
/
webmin.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Handle hostnames with upper-case letters
[webmin.git]
/
qmailadmin
/
delete_aliases.cgi
1
#!/usr/local/bin/perl
2
# Delete a bunch of aliases
3
4
require './qmail-lib.pl';
5
&ReadParse();
6
&error_setup($text{'adelete_err'});
7
@d = split(/\0/, $in{'d'});
8
@d || &error($text{'adelete_enone'});
9
10
foreach $d (@d) {
11
$a = &get_alias($d);
12
if ($a) {
13
&delete_alias($a);
14
}
15
}
16
&webmin_log("delete", "aliases", scalar(@d));
17
&redirect("list_aliases.cgi");
18
19
20