[Pharo-project] error trying to upload to ss3

[Stéphane Ducasse]

camillo 

I'm trying your script with the latest image.


| f files|
f := FSFilesystem disk workingDirectory / 'www.squeaksource.com' / 'Kozen'.
files := f glob: [ :each| each basename endsWith: '.mcz'].

files do: [ :file ||entity stream|
        stream := file readStream.
        (entity := ZnStreamingEntity type: ZnMimeType applicationOctetStream)
                stream: stream;
                contentLength: stream size.
        Transcript show: file; cr.
        "upload the version to gemstone"
        ZnClient new
                systemPolicy;
                beOneShot;
                signalProgress: true;
                ifFail: [ :exception | Transcript show: file basename; show: ' 
'; print: exception ];
                username: 'sd' password: 'sn00py_';
                entity: entity;
                url: ( 'http://ss3.gemstone.com/ss/Kozen/', file basename);
                put ]
        displayingProgress: 'Uploading mcz'


apparently FSReadStream does not know isBinary



streamFrom: inputStream to: outputStream size: totalSize
        | bufferSize buffer leftToRead |
        bufferSize := 4096 min: totalSize.
        buffer := (inputStream isBinary ifTrue: [ ByteArray ] ifFalse: [ String 
]) new: bufferSize.
                                        ^^^^^^^^^^
        leftToRead := totalSize.
        [ leftToRead > 0 ]
                whileTrue: [ | readCount |
                        readCount := bufferSize min: leftToRead.
                        inputStream next: readCount into: buffer.
                        leftToRead := leftToRead - readCount.
                        outputStream next: readCount putAll: buffer startingAt: 
1 ]