Help for this page

Select Code to Download

Select or download this

    print OUT "<VirtualHost *:80>";
    print OUT $vhost;
    print OUT "</VirtualHost>";
->
    print OUT "$start$vhost$finish";

Select or download this

open(FH, '< vhosts.conf');
my $content = do {local $/; <FH> };
...
    print OUT $vhost;
    close(OUT);
}