From cb11e9634554d0f473c1d7b513a503d4f0cd64ec Mon Sep 17 00:00:00 2001
From: Stefan Ritt <stefan.ritt@psi.ch>
Date: Wed, 23 Jun 2004 08:00:26 +0000
Subject: [PATCH] Extract and use 'X-Forwarded-Host:'

SVN revision: 921
---
 src/elogd.c | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/src/elogd.c b/src/elogd.c
index df2f0184..f3a5fa1f 100755
--- a/src/elogd.c
+++ b/src/elogd.c
@@ -6,6 +6,9 @@
    Contents:     Web server program for Electronic Logbook ELOG
   
    $Log$
+   Revision 1.356  2004/06/23 08:00:26  midas
+   Extract and use 'X-Forwarded-Host:'
+
    Revision 1.355  2004/06/23 07:41:34  midas
    Added _cmdline in redirection
 
@@ -17991,6 +17994,16 @@ void server_loop(int tcp_port, int daemon)
                *strchr(http_host, '\r') = 0;
          }
 
+         /* extract X-Forwarded-Host, overwrite "Host:" if found */
+         if ((p = strstr(net_buffer, "X-Forwarded-Host:")) != NULL) {
+            p += 5;
+            while (*p && *p == ' ')
+               p++;
+            strlcpy(http_host, p, sizeof(http_host));
+            if (strchr(http_host, '\r'))
+               *strchr(http_host, '\r') = 0;
+         }
+
          /* extract "X-Forwarded-For:" */
          if ((p = strstr(net_buffer, "X-Forwarded-For:")) != NULL) {
             p += 16;