From 2e8d4c5bd7bc54816b6012d8c284dd0c1849298e Mon Sep 17 00:00:00 2001
From: pallo <pallo@7612ce4b-ef26-0410-bec9-ea0150e637f0>
Date: Thu, 4 May 2000 21:36:21 +0000
Subject: [PATCH] Try a little harder to guess th URL.

git-svn-id: https://svn.code.sf.net/p/squirrelmail/code/trunk/squirrelmail@491 7612ce4b-ef26-0410-bec9-ea0150e637f0
---
 index.php | 24 +++++++++++++++++++++---
 1 file changed, 21 insertions(+), 3 deletions(-)

diff --git a/index.php b/index.php
index 45e3f837..b3383416 100644
--- a/index.php
+++ b/index.php
@@ -1,8 +1,26 @@
 <?php
-   $headers = getallheaders();
+
+   // Get the path
    $path = substr($PHP_SELF, 0, strrpos($PHP_SELF, '/'));
-   $location = $headers["Host"] . $path;
 
-   header("Location: http://$location/src/login.php\n\n");
+   // Check if this is a HTTPS or regular HTTP request
+   $proto = "http://";
+   if(isset($HTTPS) && $HTTPS == 'on' ) {
+     $proto = "https://";
+   }
+
+   // Get the hostname from the Host header or server config.
+   // Fallback is to omit the server name and use a relative URI,
+   // although this is not RFC 2616 compliant.
+   if(isset($HTTP_HOST) && !empty($HTTP_HOST)) {
+     $location = $proto . $HTTP_HOST . $path;
+   } else if(isset($SERVER_NAME) && !empty($SERVER_NAME)) {
+     $location = $proto . $SERVER_NAME . $path;
+   } else {
+     $location = $path;
+   }
+
+   // Redirect
+   header("Location: $location/src/login.php\n\n");
    exit();
 ?>
-- 
2.25.1