From b8dad5d242017f8252e395314aed513516be3306 Mon Sep 17 00:00:00 2001
From: des <des@FreeBSD.org>
Date: Thu, 28 Nov 2002 12:07:15 +0000
Subject: Implement and document support for an HTTP_REFERER environment
 variable.

PR:		28171
Submitted by:	Andre Albsmeier <andre.albsmeier@mchp.siemens.de>
Approved by:	re (bmah)
MFC after:	1 week
---
 lib/libfetch/fetch.3 |  5 +++++
 lib/libfetch/http.c  | 33 +++++++++++++++++++++------------
 2 files changed, 26 insertions(+), 12 deletions(-)

(limited to 'lib/libfetch')

diff --git a/lib/libfetch/fetch.3 b/lib/libfetch/fetch.3
index 109a422..7600ef5 100644
--- a/lib/libfetch/fetch.3
+++ b/lib/libfetch/fetch.3
@@ -511,6 +511,11 @@ variable.
 This variable is used if and only if connected to an HTTP proxy, and
 is ignored if a user and/or a password were specified in the proxy
 URL.
+.It Ev HTTP_REFERER
+Specifies the referer URL to use for HTTP requests.
+If set to
+.Dq auto ,
+the document URL will be used as referer URL.
 .It Ev HTTP_USER_AGENT
 Specifies the User-Agent string to use for HTTP requests.
 This can be useful when working with HTTP origin or proxy servers that
diff --git a/lib/libfetch/http.c b/lib/libfetch/http.c
index f28e2ea..00f28e8 100644
--- a/lib/libfetch/http.c
+++ b/lib/libfetch/http.c
@@ -776,10 +776,7 @@ _http_request(struct url *URL, const char *op, struct url_stat *us,
 	const char *p;
 	FILE *f;
 	hdr_t h;
-	char *host;
-#ifdef INET6
-	char hbuf[MAXHOSTNAMELEN + 1];
-#endif
+	char hbuf[MAXHOSTNAMELEN + 7], *host;
 
 	direct = CHECK_FLAG('d');
 	noredirect = CHECK_FLAG('A');
@@ -831,24 +828,29 @@ _http_request(struct url *URL, const char *op, struct url_stat *us,
 			host = hbuf;
 		}
 #endif
+		if (url->port != _fetch_default_port(url->scheme)) {
+			if (host != hbuf) {
+				strcpy(hbuf, host);
+				host = hbuf;
+			}
+			snprintf(hbuf + strlen(hbuf),
+			    sizeof(hbuf) - strlen(hbuf), ":%d", url->port);
+		}
 
 		/* send request */
 		if (verbose)
-			_fetch_info("requesting %s://%s:%d%s",
-			    url->scheme, host, url->port, url->doc);
+			_fetch_info("requesting %s://%s%s",
+			    url->scheme, host, url->doc);
 		if (purl) {
-			_http_cmd(conn, "%s %s://%s:%d%s HTTP/1.1",
-			    op, url->scheme, host, url->port, url->doc);
+			_http_cmd(conn, "%s %s://%s%s HTTP/1.1",
+			    op, url->scheme, host, url->doc);
 		} else {
 			_http_cmd(conn, "%s %s HTTP/1.1",
 			    op, url->doc);
 		}
 
 		/* virtual host */
-		if (url->port == _fetch_default_port(url->scheme))
-			_http_cmd(conn, "Host: %s", host);
-		else
-			_http_cmd(conn, "Host: %s:%d", host, url->port);
+		_http_cmd(conn, "Host: %s", host);
 
 		/* proxy authorization */
 		if (purl) {
@@ -874,6 +876,13 @@ _http_request(struct url *URL, const char *op, struct url_stat *us,
 		}
 
 		/* other headers */
+		if ((p = getenv("HTTP_REFERER")) != NULL && *p != '\0') {
+			if (strcasecmp(p, "auto") == 0)
+				_http_cmd(conn, "Referer: %s://%s%s",
+				    url->scheme, host, url->doc);
+			else
+				_http_cmd(conn, "Referer: %s", p);
+		}
 		if ((p = getenv("HTTP_USER_AGENT")) != NULL && *p != '\0')
 			_http_cmd(conn, "User-Agent: %s", p);
 		else
-- 
cgit v1.1