15 lines
404 B
Plaintext
15 lines
404 B
Plaintext
{
|
|
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');";
|
|
}
|