Menu didn't use resolveAlias() (#1317)

fastcgi-server/man/llng-fastcgi-server.1p

@@ -129,7 +129,7 @@
 .\" ========================================================================
 .\"
 .IX Title "llng-fastcgi-server 1"
-.TH llng-fastcgi-server 1 "2017-09-26" "perl v5.26.0" "User Contributed Perl Documentation"
+.TH llng-fastcgi-server 1 "2017-10-20" "perl v5.26.0" "User Contributed Perl Documentation"
 .\" For nroff, turn off justification.  Always turn off hyphenation; it makes
 .\" way too many mistakes in technical documents.
 .if n .ad l

lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Run.pm

@@ -569,7 +569,7 @@ sub cleanHeaders {
 # returns vhost whose current hostname is an alias
 sub resolveAlias {
     my ( $class, $req ) = @_;
-    my $vhost = $req->{env}->{HTTP_HOST};
+    my $vhost = ref $req ? $req->{env}->{HTTP_HOST} : $req;
 
     $vhost =~ s/:\d+//;
     return $class->tsv->{vhostAlias}->{$vhost}

lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Menu.pm

@@ -409,6 +409,7 @@ sub _filterHash {
             my ( $vhost, $appuri ) =
               $apphash->{$key}->{options}->{uri} =~ m#^https?://([^/]*)(.*)#;
             $vhost =~ s/:\d+$//;
+            $vhost = $self->p->HANDLER->resolveAlias($vhost);
             $appuri ||= '/';
 
             # Remove if display is "no" or "off"