From: wessels <>
Date: Sat, 4 Jan 1997 15:34:18 +0000 (+0000)
Subject: add Host header
X-Git-Tag: SQUID_3_0_PRE1~5237
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=332d2d169546a07cdef3663fed56d9908e4ec1a8;p=thirdparty%2Fsquid.git

add Host header
---

diff --git a/scripts/cachetrace.pl b/scripts/cachetrace.pl
index 3fc2a24c4f..40f36ff285 100755
--- a/scripts/cachetrace.pl
+++ b/scripts/cachetrace.pl
@@ -8,6 +8,7 @@ $port = 3128;
 
 $url = "http://$url/" if ($url =~ /^[-\w\.]+$/);
 print "Querying cache path to $url\n";
+$host = $1 if ($url =~ /^[^:]+:\/\/([^\/:])+/);
 
 $sockaddr = 'S n a4 x8';
 ($name, $aliases, $proto) = getprotobyname("tcp");
@@ -32,7 +33,7 @@ sub try_http_11 {
                 connect (SOCK, $that);
         select (SOCK); $| = 1;
         select (STDOUT);
-	print SOCK "TRACE $url HTTP/1.1\r\nAccept: */*\r\n\r\n";
+	print SOCK "TRACE $url HTTP/1.1\r\nHost: $host\r\nAccept: */*\r\n\r\n";
 	while (<SOCK>) {
 		s/\r//g;
 		s/\n//g;