preparing for 6.8.2 bugfix cycle

This commit is contained in:
JT Smith 2005-12-08 21:04:50 +00:00
parent 1854f6dbeb
commit 0d24873145
4 changed files with 75 additions and 27 deletions

View file

@ -190,6 +190,7 @@ sub getSiteURL {
$site = $session{env}{HTTP_HOST} || $session{config}{defaultSitename};
}
my $proto = "http://";
# $r->subprocess_env('HTTPS')
if ($session{env}{HTTPS} eq "on") {
$proto = "https://";
}