Chris Muller uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-cmm.161.mcz

==================== Summary ====================

Name: Network-cmm.161
Author: cmm
Time: 1 July 2015, 3:26:03.655 pm
UUID: af917aa1-ce76-460b-ba1a-7fb49700f44a
Ancestors: Network-ul.160

Remove the methods overridden by WebClient, since that has now been folded into base Squeak.

=============== Diff against Network-ul.160 ===============

Item was removed:
- ----- Method: HTTPSocket class>>httpGet:args:user:passwd: (in category 'get the page') -----
- httpGet: url args: args user: user passwd: passwd
- 	"Upload the contents of the stream to a file on the server.
- 
- 	WARNING: This method will send a basic auth header proactively.
- 	This is necessary to avoid breaking MC and SqueakSource since SS does not 
- 	return a 401 when accessing a private (global no access) repository."
- 
- 	| authorization result |
- 	authorization := (user , ':' , passwd) base64Encoded.
- 	result := self 
- 		httpGet: url args: args accept: '*/*' 
- 		request: 'Authorization: Basic ' , authorization , String crlf.
- 	^result
- !

Item was removed:
- ----- Method: HTTPSocket class>>httpGetDocument:args:accept:request: (in category 'get the page') -----
- httpGetDocument: url args: args accept: mimeType request: requestString
- 	"Return the exact contents of a web object. Asks for the given MIME type. If mimeType is nil, use 'text/html'. An extra requestString may be submitted and must end with crlf.  The parsed header is saved. Use a proxy server if one has been registered.  tk 7/23/97 17:12"
- 
- 	"Note: To fetch raw data, you can use the MIME type 'application/octet-stream'."
- 
- 	| urlString |
- 	"Normalize the url"
- 	urlString := (Url absoluteFromText: url) asString.
- 
- 	args ifNotNil: [
- 		urlString := urlString, (self argString: args) 
- 	].
- 
- 	^(self httpRequestHandler) 
- 		httpRequest: 'GET' url: urlString headers:(
- 			(mimeType ifNil:[''] ifNotNil:['Accept: ', mimeType, String crlf]),
- 			'Accept: text/html', String crlf,
- 			HTTPProxyCredentials,
- 			HTTPBlabEmail,
- 			requestString
- 		) content: nil response: nil.!

Item was removed:
- ----- Method: HTTPSocket class>>httpPost:args:user:passwd: (in category 'get the page') -----
- httpPost: url args: args user: user passwd: passwd
- 
- 	"WARNING: This method will send a basic auth header proactively.
- 	This is necessary to avoid breaking MC and SqueakSource since SS does not 
- 	return a 401 when accessing a private (global no access) repository."
- 
- 	| authorization |
- 	authorization := (user , ':' , passwd) base64Encoded.
- 	^self 
- 		httpPostDocument: url args: args accept: '*/*' 
- 		request: 'Authorization: Basic ' , authorization , String crlf
- !

Item was removed:
- ----- Method: HTTPSocket class>>httpPost:content:type:accept:request: (in category 'get the page') -----
- httpPost: url content: postData type: contentType accept: mimeType request: requestString
- 	"like httpGET, except it does a POST instead of a GET.  POST allows data to be uploaded"
- 
- 	| urlString |
- 	"Normalize the url"
- 	urlString := (Url absoluteFromText: url) asString.
- 
- 	^(self httpRequestHandler) 
- 		httpRequest: 'POST' url: urlString headers:(
- 			'Accept: ', mimeType, String crlf,
- 			'Accept: text/html', String crlf,
- 			'Content-Type: ', contentType, String crlf,
- 			'Content-Length: ', (postData ifNil:['']) size, String crlf,
- 			HTTPProxyCredentials,
- 			HTTPBlabEmail,
- 			requestString "extra user request. Authorization"
- 		) content: (postData ifNil:['']) response: nil!

Item was removed:
- ----- Method: HTTPSocket class>>httpPostDocument:args:accept:request: (in category 'get the page') -----
- httpPostDocument: url  args: args accept: mimeType request: requestString
- 	"like httpGET, except it does a POST instead of a GET.  POST allows data to be uploaded"
- 
- 	| argString  |
- 	args ifNotNil: [
- 		argString := self argString: args.
- 		argString first = $? ifTrue: [argString := argString allButFirst].
- 	].
- 
- 	^self httpPost: url 
- 			content: argString 
- 			type: 'application/x-www-form-urlencoded' 
- 			accept: mimeType 
- 			request: requestString!

Item was removed:
- ----- Method: HTTPSocket class>>httpPostMultipart:args:accept:request: (in category 'get the page') -----
- httpPostMultipart: url args: argsDict accept: mimeType request: requestString
- 	" do multipart/form-data encoding rather than x-www-urlencoded "
- 
- 	| mimeBorder argsStream |
- 	mimeBorder := '----squeak-georgia-tech-', Time millisecondClockValue printString, '-csl-cool-stuff-----'.
- 	"encode the arguments dictionary"
- 	argsStream := WriteStream on: String new.
- 	argsDict associationsDo: [:assoc |
- 		assoc value do: [ :value | | fieldValue |
- 		"print the boundary"
- 		argsStream nextPutAll: '--', mimeBorder, String crlf.
- 		" check if it's a non-text field "
- 		argsStream nextPutAll: 'Content-disposition: multipart/form-data; name="', assoc key, '"'.
- 		(value isKindOf: MIMEDocument)
- 			ifFalse: [fieldValue := value]
- 			ifTrue: [argsStream nextPutAll: ' filename="', value url pathForFile, '"', String crlf, 'Content-Type: ', value contentType.
- 				fieldValue := (value content
- 					ifNil: [(FileStream fileNamed: value url pathForFile) contentsOfEntireFile]
- 					ifNotNil: [value content]) asString].
- " Transcript show: 'field=', key, '; value=', fieldValue; cr. "
- 		argsStream nextPutAll: String crlf, String crlf, fieldValue, String crlf.
- 	]].
- 	argsStream nextPutAll: '--', mimeBorder, '--'.
- 
- 	^self httpPost: url 
- 			content: argsStream contents
- 			type:  'multipart/form-data; boundary=', mimeBorder
- 			accept: mimeType 
- 			request: requestString
- !

Item was removed:
- ----- Method: HTTPSocket class>>httpPostToSuperSwiki:args:accept:request: (in category 'get the page') -----
- httpPostToSuperSwiki: url args: argsDict accept: mimeType request: requestString
- 
- 	| mimeBorder argString |
- 	mimeBorder := '---------SuperSwiki',Time millisecondClockValue printString,'-----'.
- 	argString := String streamContents: [ :strm |
- 		strm nextPutAll: mimeBorder, String crlf.
- 		argsDict associationsDo: [:assoc |
- 			assoc value do: [ :value |
- 				strm
- 					nextPutAll: 'Content-disposition: form-data; name="', assoc key, '"';
- 					nextPutAll: String crlf;
- 					nextPutAll: String crlf;
- 					nextPutAll: value;
- 					nextPutAll: String crlf;
- 					nextPutAll: String crlf;
- 					nextPutAll: mimeBorder;
- 					nextPutAll: String crlf.
- 			]
- 		].
- 	].
- 
- 	^self httpPost: url 
- 			content: argString 
- 			type:  'multipart/form-data; boundary=', mimeBorder
- 			accept: mimeType 
- 			request: requestString
- !

Item was removed:
- ----- Method: HTTPSocket class>>httpPut:to:user:passwd: (in category 'get the page') -----
- httpPut: contents to: url user: user passwd: passwd
- 	"Upload the contents of the stream to a file on the server
- 	
- 	WARNING: This method will send a basic auth header proactively.
- 	This is necessary to avoid breaking MC and SqueakSource since SS does not 
- 	return a 401 when accessing a private (global no access) repository."
- 
- 	| urlString resp header |
- 
- 	"Normalize the url"
- 	urlString := (Url absoluteFromText: url) asString.
- 
- 	resp := (self httpRequestHandler) 
- 		httpRequest: 'PUT' url: urlString headers:(
- 			'Authorization: Basic ', (user, ':', passwd) base64Encoded, String crlf,
- 			'Accept: */*', String crlf,
- 			'Content-Type: application/octet-stream', String crlf,
- 			'Content-Length: ', (contents ifNil:['']) size, String crlf,
- 			HTTPProxyCredentials,
- 			HTTPBlabEmail
- 		) content: contents response:[:rr| header := rr].
- 	^resp isString ifTrue:[header, resp] ifFalse:[header, resp content]!