Commit 375feb93 authored by Xavier Guimard's avatar Xavier Guimard

Remove port number in hostname

parent a63918d2
......@@ -118,7 +118,9 @@ sub set_header_out {
# returns host, as set by full URI or Host header
# @return host string Host value
sub hostname {
return $ENV{SERVER_NAME};
my $s = $ENV{SERVER_NAME};
$s =~ s/:\d+$//;
return $s
}
## @method string remote_ip
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment