[Pkg] The Trunk: Monticello-ar.346.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Dec 30 16:05:22 UTC 2009


Andreas Raab uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-ar.346.mcz

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

Name: Monticello-ar.346
Author: ar
Time: 30 December 2009, 5:04:52 am
UUID: 305a6619-474d-314a-9331-9a03c6d97588
Ancestors: Monticello-ar.345

Include names of repository and package in up and download progress.

=============== Diff against Monticello-ar.345 ===============

Item was changed:
  ----- Method: MCHttpRepository>>readStreamForFileNamed:do: (in category 'required') -----
  readStreamForFileNamed: aString do: aBlock
  	| contents |
+ 	self displayProgress: 'Downloading ', aString during:[
+ 		contents := HTTPSocket httpGet: (self urlForFileNamed: aString) args: nil user: self user passwd: self password.
+ 	].
- 	contents := HTTPSocket httpGet: (self urlForFileNamed: aString) args: nil user: self user passwd: self password.
  	^ contents isString ifFalse: [aBlock value: contents]!

Item was changed:
  ----- Method: MCHttpRepository>>writeStreamForFileNamed:replace:do: (in category 'required') -----
  writeStreamForFileNamed: aString replace: ignoreBoolean do: aBlock
  	| stream response |
  	stream := RWBinaryOrTextStream on: String new.
  	aBlock value: stream.
+ 	self displayProgress: 'Uploading ', aString during:[
- 	self displayProgress: 'Uploading package' during:[
  		response := HTTPSocket
  					httpPut: stream contents
  					to: (self urlForFileNamed: aString)
  					user: self user
  					passwd: self password.
  	].
  	(#( 'HTTP/1.1 201 ' 'HTTP/1.1 200 ' 'HTTP/1.0 201 ' 'HTTP/1.0 200 ')
  		anySatisfy: [:code | response beginsWith: code ])
  			ifFalse: [self error: response].!

Item was changed:
  ----- Method: MCHttpRepository>>allFileNames (in category 'required') -----
  allFileNames
  	| index |
+ 	self displayProgress: 'Updating ', self description during:[
- 	self displayProgress: 'Updating repository' during:[
  		index := HTTPSocket httpGet: self locationWithTrailingSlash, '?C=M;O=D' args: nil user: self user passwd: self password.
  	].
  	index isString ifTrue: [self error: 'Could not access ', location].
  	^ self parseFileNamesFromStream: index	!



More information about the Packages mailing list