A new version of Monticello was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Monticello-kfr.408.mcz
==================== Summary ====================
Name: Monticello-kfr.408 Author: kfr Time: 30 May 2011, 6:44:54 am UUID: 8b39e6d7-6aa6-fd43-9d62-dac73740638a Ancestors: Monticello-kfr.407
Revert
=============== Diff against Monticello-kfr.405 ===============
Item was changed: ----- Method: MCHttpRepository>>writeStreamForFileNamed:replace:do: (in category 'required') ----- writeStreamForFileNamed: aString replace: ignoreBoolean do: aBlock | stream response statusLine code | stream := RWBinaryOrTextStream on: String new. aBlock value: stream. self displayProgress: 'Uploading ', aString during:[ response := HTTPSocket httpPut: stream contents to: (self urlForFileNamed: aString) user: self user passwd: self password. ]. "More robust handling of HTTP responses. Instead of enumerating all possible return codes and http versions, do a quick parse" (response beginsWith: 'HTTP/') ifTrue:[ "Looks like an HTTP header, not some error message" statusLine := response copyUpTo: Character cr. code := [(statusLine findTokens: ' ') second asInteger] on: Error do:[]. ]. (code isInteger and:[code between: 200 and: 299]) + ifFalse:[self error: response].! - ifFalse:[ (code isInteger and:[code = 401]) - ifTrue:[MCWorkingCopyBrowser editRepository. self storeVersion:aString] - ifFalse:[self error: response]].!
etoys-dev@lists.squeakfoundation.org