[etoys-dev] Etoys Inbox: Monticello-kfr.408.mcz

[Bert Freudenberg]

There usually is no need to "revert" changes that were only posted to the inbox.

You can simply move the version to "etoys treated" using the web UI.

- Bert -

On 30.05.2011, at 04:44, commits at source.squeak.org wrote:

> 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 mailing list
> etoys-dev at squeakland.org
> http://lists.squeakland.org/mailman/listinfo/etoys-dev