{ use esmith::DomainsDB; my $d = esmith::DomainsDB->open_ro || die "Couldn't open DomainsDB"; my $vhost = "$SystemName.$DomainName"; foreach ($d->get_all_by_prop(type => 'domain'), $d->get_all_by_prop(type => 'vhost')){ my $root = $_->prop('DocumentRoot') || ''; if ($root eq '/usr/share/opensondage'){ $vhost = $_->key; last; } } $OUT .= "define('STUDS_URL', '$vhost');"; }