20 lines
562 B
Perl
20 lines
562 B
Perl
use lib '/data/WebGUI/lib';
|
|
use WebGUI;
|
|
|
|
my $wg1 = WebGUI->new;
|
|
my $wg2 = WebGUI->new;
|
|
|
|
use Plack::Builder;
|
|
my $app = builder {
|
|
mount "http://dev.localhost.localdomain:5000/" => $wg1;
|
|
mount "/wg1" => $wg1;
|
|
mount "/wg2" => $wg2;
|
|
mount "/" => sub { [ 200, [ 'Content-Type' => 'text/html' ], [ <<END_HTML ] ] };
|
|
<p>WebGUI + URLMap</p>
|
|
<ul>
|
|
<li><a href="http://dev.localhost.localdomain:5000">Virtual Host (wG instance #1)</a></li>
|
|
<li><a href=/wg1>Nested (wG instance #1)</a></li>
|
|
<li><a href=/wg2>Nested (wG instance #2)</a></li>
|
|
</ul>
|
|
END_HTML
|
|
};
|