Find the URI from a DB entry

tags/smeserver-dl-0.2.1-1
Daniel Berteaud 11 years ago
parent a4977de824
commit 7b73242850
  1. 14
      root/etc/e-smith/templates/etc/dl.php/10Url

@ -1,14 +1,6 @@
{
use esmith::DomainsDB;
my $d = esmith::DomainsDB->open_ro || die "Couldn't open DomainsDB";
my $vhost = "$SystemName.$DomainName/dl";
foreach ($d->get_all_by_prop(type => 'domain'), $d->get_all_by_prop(type => 'vhost')){
my $root = $_->prop('DocumentRoot') || '';
if ($root eq '/usr/share/dl'){
$vhost = $_->key;
last;
}
}
my $uri = $dl{'Uri'} || "https://$SystemName.$DomainName/dl";
$uri .= '/' if ($uri !~ !/$!);
$OUT .= "\$masterPath = '$vhost'";
$OUT .= "\$masterPath = '$uri';";
}

Loading…
Cancel
Save