#!/usr/bin/perl

$|++;

my $user = shift;

use lib qw(. /scripts);
use modDB qw(mysql hosting provision pr0v1s10n 192.168.25.115);

use NDBM_File;
use Fcntl;
my $temp = q[
<VirtualHost *>
        ServerAdmin [email protected]
        DocumentRoot /domains/##username##/
        ServerName  ##domain##
        ServerAlias ##hh##
</VirtualHost>
];





my (@data) = modDB::fetchHashrefList(q[select hh.* from hostheaders hh, user_table u where u.username=hh.username and u.package_id in (31, 32, 33, 34, 35, 30)]);

foreach $item (@data)
{

my $t = $temp;
$t =~ s/##username##/$item->{username}/g;
$t =~ s/##domain##/$item->{host}/g;
$t =~ s/##hh##//g;

print $t;
}