add more serverAlias to vhost conf

[Tue Topholm]

Hi Group

I have this script

 

<Perl>

use DBI;

my ($sth, $dbh, $domain, $domainID, $created, $sql, $sqlsa);

$dbh = DBI->connect("DBI:xxxx:localhost","xxxx","xxxx");

$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();

        }

        push @{ $VirtualHost{'*:80'} },

                {

                 ServerName     => "$domain",

                 ServerAdmin    => "[EMAIL PROTECTED]",

                 ServerAlias    => "www.$domain",

                 DocumentRoot   => "/home/$domain/www",

                 ErrorLog       =>
"/home/$domain/ErrorLog/$domain-error_log",

                 #CustomLog     => "/websitelog/$domain combined",

                 CustomLog      => qq{"|/usr/sbin/cronolog
/websitelog/${domain}_access_log.\%Y-\%m-\%d" combined},

                };

}

$sth->finish();

$dbh->disconnect();

</Perl>

 

It works perfectly

But now I want to add some more serveraliases I have in another table, with
domainID as foreign key, which is primary in domain-table.


I know how to make the sql-string and all that, but how do I add the
serveralias to it, because I can't do it in the middle of pushing data into
the array, or can I..

 

Should I first push the data as I do now, and the push the new data
afterwards, and if so how do I do that?

 

I hope you can help

 

Med venlig hilsen / Best Regards
Tue Topholm

Device.Webbureau
M: +45 26 74 07 41

P: +45 70 21 00 04
LinkedIN: http://www.linkedin.com/in/ttopholm