32 lines
850 B
Perl
32 lines
850 B
Perl
use strict;
|
|
use Plack::Builder;
|
|
use WebGUI::Paths -inc;
|
|
use WebGUI::Config;
|
|
use WebGUI::Fork;
|
|
|
|
if ($ENV{PLACK_ENV} ne 'development') {
|
|
WebGUI::Paths->preloadAll;
|
|
}
|
|
|
|
WebGUI::Fork->init();
|
|
|
|
builder {
|
|
my $first_app;
|
|
for my $config_file (WebGUI::Paths->siteConfigs) {
|
|
my $config = WebGUI::Config->new($config_file);
|
|
my $psgi = $config->get('psgiFile') || WebGUI::Paths->defaultPSGI;
|
|
my $app = do {
|
|
# default psgi file uses environment variable to find config file
|
|
local $ENV{WEBGUI_CONFIG} = $config_file;
|
|
Plack::Util::load_psgi($psgi);
|
|
};
|
|
$first_app ||= $app;
|
|
for my $sitename ( @{ $config->get('sitename') } ) {
|
|
mount "http://$sitename/" => $app;
|
|
}
|
|
}
|
|
|
|
# use the first config found as a fallback
|
|
mount '/' => $first_app;
|
|
};
|
|
|