oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixed a bug that only showed up when the site was on a non-standard port

Browse source
This commit is contained in:
JT Smith 2003-07-02 00:31:49 +00:00
parent 38be974f88
commit 03ce7b9cc9
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/URL.pm
View file

@ -52,13 +52,10 @@ These subroutines are available from this package:
sub _getSiteURL { sub _getSiteURL {
my $site = $session{env}{HTTP_HOST} || $session{config}{sitename}; my $site = $session{env}{HTTP_HOST} || $session{config}{sitename};
my $proto = "http://"; my $proto = "http://";
my $port;
if ($session{env}{SERVER_PORT} == 443) { if ($session{env}{SERVER_PORT} == 443) {
$proto = "https://"; $proto = "https://";
} elsif ($session{env}{SERVER_PORT} != 80) {
$port = ":".$session{env}{SERVER_PORT};
} }
return $proto.$site.$port; return $proto.$site;
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------