The Trunk: Network-pre.233.mcz

Patrick Rein uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-pre.233.mcz

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

Name: Network-pre.233
Author: pre
Time: 9 May 2019, 4:32:56.848225 pm
UUID: bac3997e-f06a-074d-90cc-12fdca08da2d
Ancestors: Network-pre.232

Deprecates classes and methods related to executing Squeak in a web browser through a browser plugin. They can be loaded through the 60Deprecated-NSPlugin-System-Support package.

=============== Diff against Network-pre.232 ===============

Item was removed:
- ----- Method: FileStream class>>httpPostDocument:args: (in category '*network') -----
- httpPostDocument: url args: argsDict
- | argString |
- argString := argsDict
- ifNotNil: [argString := HTTPSocket argString: argsDict]
- ifNil: [''].
- ^self post: argString url: url , argString ifError: [self halt]!

Item was removed:
- ----- Method: FileStream class>>httpPostMultipart:args: (in category '*network') -----
- httpPostMultipart: url args: argsDict
- | mimeBorder argsStream crLf resultStream result |
- " do multipart/form-data encoding rather than x-www-urlencoded "
-
- crLf := String crlf.
- mimeBorder := '----squeak-', Time millisecondClockValue printString, '-stuff-----'.
- "encode the arguments dictionary"
- argsStream := WriteStream on: String new.
- argsDict associationsDo: [:assoc |
- assoc value do: [ :value | | fieldValue |
- "print the boundary"
- argsStream nextPutAll: '--', mimeBorder, crLf.
- " check if it's a non-text field "
- argsStream nextPutAll: 'Content-disposition: form-data; name="', assoc key, '"'.
- (value isKindOf: MIMEDocument)
- ifFalse: [fieldValue := value]
- ifTrue: [argsStream nextPutAll: ' filename="', value url pathForFile, '"', 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: crLf, crLf, fieldValue, crLf.
- ]].
- argsStream nextPutAll: '--', mimeBorder, '--'.
-
- resultStream := self
- post:
- ('Content-type: multipart/form-data; boundary=', mimeBorder, crLf,
- 'Content-length: ', argsStream contents size printString, crLf, crLf,
- argsStream contents)
- url: url ifError: [^'Error in post ' url asString].
- "get the header of the reply"
- result := resultStream upToEnd.
- ^MIMEDocument content: result!

Item was removed:
- ----- Method: FileStream class>>post:target:url:ifError: (in category '*network') -----
- post: data target: target url: url ifError: errorBlock
- ^self concreteStream new post: data target: target url: url ifError: errorBlock!

Item was removed:
- ----- Method: FileStream class>>post:url:ifError: (in category '*network') -----
- post: data url: url ifError: errorBlock
- ^self post: data target: nil url: url ifError: errorBlock!

Item was removed:
- ----- Method: FileStream class>>requestURL:target: (in category '*network') -----
- requestURL: url target: target
- "FileStream requestURL:'http://isgwww.cs.uni-magdeburg.de/~raab' target: ':=blank' "
- ^self concreteStream new requestURL: url target: target!

Item was removed:
- ----- Method: FileStream class>>requestURLStream: (in category '*network') -----
- requestURLStream: url
- "FileStream requestURLStream:'http://isgwww.cs.uni-magdeburg.de/~raab'"
- ^self concreteStream new requestURLStream: url!

Item was removed:
- ----- Method: FileStream class>>requestURLStream:ifError: (in category '*network') -----
- requestURLStream: url ifError: errorBlock
- "FileStream requestURLStream:'http://isgwww.cs.uni-magdeburg.de/~raab'"
- ^self concreteStream new requestURLStream: url ifError: errorBlock!