[Pkg] The Trunk: Network-cmm.161.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Jul 1 20:26:20 UTC 2015
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]!
More information about the Packages
mailing list