The Trunk: Monticello-ar.346.mcz

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 !