> -----Original Message-----
> From: w trillich [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, April 20, 2000 11:51 AM
> To: modperl
> Subject: Re: Perl Section...
>
>
> > 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?
nope, that would be $sth->fetchrow_arrayref() ;)
> $row = $sth->fetchrow_array;
> foreach $col ( @$row ) { ... }
> ?
>