2 # Delete a bunch of virtual mappings
4 require './qmail-lib.pl';
6 &error_setup($text{'vdelete_err'});
7 @d = split(/\0/, $in{'d'});
8 @d || &error($text{'adelete_enone'});
10 @virts = &list_virts();
12 ($virt) = grep { $_->{'from'} eq $d } @virts;
17 &webmin_log("delete", "virts", scalar(@d));
18 &redirect("list_virts.cgi");