>From 86946b6637b1e61f80e6d69d51f90ea886b12ae2 Mon Sep 17 00:00:00 2001 From: Holger Hans Peter Freyther Date: Sun, 6 Mar 2011 16:06:40 +0100 Subject: [PATCH 2/7] netclients: Always set Host in the HTTP header It looks like a mistake that the post code did not set the host header. Fix it by setting it in the defaultHeaders method. --- packages/net/ChangeLog | 4 ++++ packages/net/URIResolver.st | 3 +-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/packages/net/ChangeLog b/packages/net/ChangeLog index 84e6d35..3453547 100644 --- a/packages/net/ChangeLog +++ b/packages/net/ChangeLog @@ -1,5 +1,9 @@ 2011-03-06 Holger Hans Peter Freyther + * URIResolver.st: Always set the 'Host' header for HTTP. + +2011-03-06 Holger Hans Peter Freyther + * URIResolver.st: Add #defaultHeaders for HTTP. 2011-01-11 Paolo Bonzini diff --git a/packages/net/URIResolver.st b/packages/net/URIResolver.st index 1c52658..c2dc296 100644 --- a/packages/net/URIResolver.st +++ b/packages/net/URIResolver.st @@ -81,6 +81,7 @@ Copyright (c) Kazuki Yasumatsu, 1995. All rights reserved. requestHeaders := OrderedCollection new. requestHeaders add: 'User-Agent: GNU-Smalltalk/' , Smalltalk version. requestHeaders add: 'Accept: text/html, image/gif, */*; q=0.2'. + requestHeaders add: 'Host: ' , url host. noCache ifTrue: [requestHeaders add: 'Pragma: no-cache']. ^ requestHeaders @@ -506,7 +507,6 @@ Copyright (c) Kazuki Yasumatsu, 1995. All rights reserved. | requestHeaders tmpFile stream protocolError response string | requestHeaders := self defaultHeaders. - requestHeaders add: 'Host: ' , url host. client reporter statusString: 'Connecting'. protocolError := false. client reporter @@ -577,7 +577,6 @@ Copyright (c) Kazuki Yasumatsu, 1995. All rights reserved. | requestHeaders tmpFile stream protocolError response string | requestHeaders := self defaultHeaders. - requestHeaders add: 'Host: ' , url host. client reporter statusString: 'Connecting'. client reporter statusString: 'Connect: Host contacted. Waiting for reply...'. -- 1.7.4