David T. Lewis uploaded a new version of Network to project Squeak 4.6:
http://source.squeak.org/squeak46/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]! |
Free forum by Nabble | Edit this page |