sub del_vhost # ($_[0] = $domain)
{
open(VHOSTS, "<$vhosts_file") || &error("Kann die Datei $vhosts_file nicht lesen!", 1);
my $content = "";
while (<VHOSTS>){
        $content.=$_;
}
close(VHOSTS);
my @vhosts = split(/\n\n/, $content);
open(OUT, ">$vhosts_file") || &error("Kann nicht in die Datei $vhosts_file schreiben!");
flock(OUT, LOCK_EX);
foreach my $vhost (@vhosts){
        if (!($vhost =~ /ServerName\s*www.$domain/)){
                print OUT $vhost."\n\n";
        }
}
close(OUT);
&info("VHOST", "Entferne Virtuellen Host($_[0]).");
}