Need to check the path instead of the host for the demo name.

perlDreamer · perlDreamer · commit 219c523ef7c5 · 2012-02-17T11:15:28.000-08:00
diff --git a/wre/lib/WRE/WebguiDemo.pm b/wre/lib/WRE/WebguiDemo.pm
@@ -30,7 +30,7 @@ sub call {
     my $config = WRE::Config->new;
     $self->wre_config($config);
     my $r  = Plack::Request->new($env);
-    my ($id) = $r->uri->host =~ m/^\/(demo[0-9\_]+).*$/;
+    my ($id) = $r->uri->path =~ m/^\/(demo[0-9\_]+).*$/;
     my $webgui_config = $config->getWebguiRoot("/etc/".$id.".conf");
     my $response;
     if (-e $webgui_config) {
