#!/usr/bin/perl

use strict;

my $file = $ARGV[0];

open FILE, "<$file";
my $str = '';
my $url;
while (my $line = <FILE>) {
    next if ($line =~ m/^[\s]*$/);
    $str .= $line;

    if ($line =~ m/ServerName ([^ ]+)/) {
        $url = $1;
        chomp $url;
    }

    if ($line =~ m/<\/VirtualHost/) {
        $str =~ s/(    ScriptAlias)/\n$1/;
        open HOST_CONF, ">$url.conf";
        print HOST_CONF $str;
        close HOST_CONF;

        $str = '';
    }
}
close FILE;

exit 0;