Changes

From SME Server

876 bytes added , 08:55, 16 December 2012

no edit summary

Line 143: Line 143: +

{

use esmith::AccountsDB;

my $accounts = esmith::AccountsDB->open_ro;

use esmith::DomainsDB;

my $domains = esmith::DomainsDB->open_ro;

$OUT = "";

my $ibay = $virtualHostContent;

my $basedir = "/home/e-smith/files/ibays/$ibay";

my $cgiBin = $accounts->get_prop($ibay, "CgiBin") || "";

$OUT .= " DocumentRoot $basedir/html\n";

if ($cgiBin)

{

$OUT .= " ScriptAlias /cgi-bin $basedir/cgi-bin\n";

}

else

{

$OUT .=

" # To add cgi-bin ScriptAlias for this i-bay, run:\n"

. " # /sbin/e-smith/db accounts setprop $ibay CgiBin "

. "enabled\n"

. " # /sbin/e-smith/signal-event console-save\n";

}

$OUT .= "# Alias /files $basedir/files\n";

if (($domains->get_prop($virtualHost, 'SystemPrimaryDomain') || 'no')

eq 'yes')

175

edits

User talk:Calisun (view source)