tilføje værdier i et array der er lavet
Jeg har dette 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 => "postmaster@$domain",
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},
};
}
$sth->finish();
$dbh->disconnect();
</Perl>
og det virker også... men hvordan tilføjer jeg ServerAlias fra en anden mysql tabel, til det her array, så de kommer ind og ligge sammen med de andre ServerAlias...
Jeg kan sagtens lave forbindelse og det hele til db'en, men jeg ved bare ikke hvad den smarteste måde er at tilføje dem på..
