From a105512aace7f42f2603336844607e39c054502b Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Tue, 21 Aug 2001 01:09:13 +0000
Subject: 	* library/http/http.tcl (geturl): added port number to Host: 
 header to comply with HTTP/1.1 spec (RFC 2068).  [Bug #452217]

---
 ChangeLog             | 5 +++++
 library/http/http.tcl | 6 +++---
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 46fa753..b1902e9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-08-20  Jeff Hobbs  <jeffh@ActiveState.com>
+
+	* library/http/http.tcl (geturl): added port number to Host:
+	header to comply with HTTP/1.1 spec (RFC 2068).  [Bug #452217]
+
 2001-08-16  David Gravereaux <davygrvy@pobox.com>
 
 	* tools/tcl.wse.in:
diff --git a/library/http/http.tcl b/library/http/http.tcl
index 10e094f..fa5bd8f 100644
--- a/library/http/http.tcl
+++ b/library/http/http.tcl
@@ -9,7 +9,7 @@
 # See the file "license.terms" for information on usage and
 # redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: http.tcl,v 1.36 2001/08/09 01:06:42 dgp Exp $
+# RCS: @(#) $Id: http.tcl,v 1.37 2001/08/21 01:09:13 hobbs Exp $
 
 # Rough version history:
 # 1.0	Old http_get interface
@@ -29,9 +29,9 @@ namespace eval http {
 	-accept */*
 	-proxyhost {}
 	-proxyport {}
-	-useragent {Tcl http client package 2.3.2}
 	-proxyfilter http::ProxyRequired
     }
+    set http(-useragent) "Tcl http client package [package provide http]"
 
     variable formMap
     variable alphanumeric a-zA-Z0-9
@@ -394,7 +394,7 @@ proc http::geturl { url args } {
     if {[catch {
 	puts $s "$how $srvurl HTTP/1.0"
 	puts $s "Accept: $http(-accept)"
-	puts $s "Host: $host"
+	puts $s "Host: $host:$port"
 	puts $s "User-Agent: $http(-useragent)"
 	foreach {key value} $state(-headers) {
 	    regsub -all \[\n\r\]  $value {} value
-- 
cgit v0.12