Re: Perl Section...

[w trillich]

> while($domain = $sth->fetchrow_array)
>   {
>     $PerlConfig .= <<"CONFIG";
> <VirtualHost $ipAddr>
>     ServerName www.$domain
>     ServerAdmin webmaster@$domain
>     ServerAlias $domain
>     DocumentRoot $baseDir/www.$domain/htdocs/
> </VirtualHost>
> 
> CONFIG
>   }

doesn't $sth->fetchrow_array() return a reference to an 
array, instead of a simple scalar?
        $row = $sth->fetchrow_array;
        foreach $col ( @$row ) { ... }
?