Adding php_value etc, so virtualhosts with mod_perl

[Tue Topholm]

Hi All

I have a small issue, I have this code:

<Perl>
use DBI;
my ($sth, $dbh, $domain, $domainID, $created, $sql, $sqlsa, $alias, 
$path,$settingName,$settingValue);
$dbh = DBI->connect("DBI:mysql:xxxx:xxxx","xxx","xxx");
$sth = $dbh->prepare("SELECT domainID, domain, created FROM domain ORDER BY 
domainID ASC");
$sth->execute();
while (($domainID, $domain, $created) = $sth->fetchrow_array())
{
        if($created == 0)
        {
                system("/bin/mkdir /home/$domain");
                system("/bin/mkdir /home/$domain/www");
                system("/bin/mkdir /home/$domain/ErrorLog");
                system("/bin/cp /home/index.php /home/$domain/www/index.php");
                system("/bin/chown apache:apache -R /home/$domain");
                $sql = $dbh->prepare("UPDATE domain SET created = 1 WHERE 
domainID = $domainID");
                $sql->execute();
        }
                @apacheSettings = {ServerName     => "$domain",
                                   ServerAdmin    => "[EMAIL PROTECTED]",
                 ServerAlias    => "www.$domain",
                 DocumentRoot   => "/home/$domain/www",
                 ErrorLog       => "/home/$domain/ErrorLog/$domain-error_log",
                CustomLog      => qq{"|/usr/sbin/cronolog 
/websitelog/${domain}_access_log.\%Y-\%m-\%d" combined}};
                $sql = $dbh->prepare("SELECT settingName, settingValue FROM 
settings WHERE domainID = $domainID");
                $sql->execute();
                while (($settingName, $settingValue) = $sql->fetchrow_array())
                {
                        @apacheSettings{$settingName} = $settingValue;
                }
                push @{ $VirtualHost{'*:80'} },@apacheSettings;

                $sqlsa = $dbh->prepare("SELECT domain, path FROM serveralias 
WHERE domainID =" . $domainID);
                $sqlsa->execute();
                while (($alias, $path) = $sqlsa->fetchrow_array())
                {
                        [EMAIL PROTECTED] $VirtualHost{'*:80'} },
                        {
                                ServerName      => $alias,
                                ServerAdmin     => "[EMAIL PROTECTED]",
                                DocumentRoot    => $path,
                                ErrorLog        => 
"/home/$domain/ErrorLog/$domain-error_log",
                                CustomLog       => qq{"|/usr/sbin/cronolog 
/websitelog/${domain}_access_log.\%Y-\%m-\%d" combined},
                        };
                }
}
$sth->finish();
$dbh->disconnect();
</Perl>

Med venlig hilsen / Kind Regards

Tue Topholm
Device.Webbureau