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

[commits at source.squeak.org]

A new version of Monticello was added to project Etoys Inbox:
http://source.squeak.org/etoysinbox/Monticello-kfr.405.mcz

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

Name: Monticello-kfr.405
Author: kfr
Time: 30 May 2011, 6:21:41 am
UUID: 8ad3427e-ec11-c049-b9af-61a7564b86af
Ancestors: Monticello-kfr.404

Add repository password and user intitials if missing

=============== Diff against Monticello-kfr.403 ===============

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:[	(code isInteger and:[code = 401]) 
+ 							ifTrue:[MCWorkingCopyBrowser editRepository. self storeVersion:aString]
+ 	                             ifFalse:[self error: response]].!
- 		ifFalse:[self error: response].!