The Trunk: Network-ar.74.mcz

Andreas Raab uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-ar.74.mcz

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

Name: Network-ar.74
Author: ar
Time: 12 July 2010, 6:55:42.214 pm
UUID: 2b07a464-1e21-fa41-8fa3-c06317866702
Ancestors: Network-ar.73

Put back missing HTTPProxyCredentials in HTTPSocket>>httpGetDocument:args:accept:request:

=============== Diff against Network-ar.73 ===============

Item was changed:
  ----- 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.!