selectable templates for auth

This commit is contained in:
JT Smith 2005-03-04 23:45:13 +00:00
parent 2a1db10c8b
commit ac877443ed
8 changed files with 122 additions and 19 deletions

View file

@ -208,7 +208,7 @@ sub getSiteURL {
$site = $session{env}{HTTP_HOST} || $session{config}{defaultSitename};
}
my $proto = "http://";
if ($session{env}{SERVER_PORT} == 443) {
if ($session{env}{HTTPS} eq "on") {
$proto = "https://";
}
return $proto.$site;