The Trunk: Monticello-cmm.635.mcz

Chris Muller uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-cmm.635.mcz

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

Name: Monticello-cmm.635
Author: cmm
Time: 2 July 2016, 2:33:00.947878 pm
UUID: fe818a1e-1589-4782-b7d2-7848676e8630
Ancestors: Monticello-cmm.634

The old indexed "trunkBackup" implementation being replaced with the possibility for any HTTP repository to be indexed.  It is useful for MCHttpRepository's to cache whether their backends are indexed or not.

=============== Diff against Monticello-cmm.634 ===============

Item was changed:
  MCFileBasedRepository subclass: #MCHttpRepository
+ instanceVariableNames: 'location user password readerCache indexed'
- instanceVariableNames: 'location user password readerCache'
  classVariableNames: ''
  poolDictionaries: ''
  category: 'Monticello-Repositories'!

Item was removed:
- ----- Method: MCHttpRepository class>>trunkBackup (in category 'well-known repositories') -----
- trunkBackup
- ^ MCRepositoryGroup default repositories
- detect:
- [ : each | each isTrunkBackup ]
- ifNone:
- [ MCHttpRepository
- location: MCHttpRepository trunkBackupUrlString
- user: 'squeak'
- password: 'squeak' ]!

Item was removed:
- ----- Method: MCHttpRepository class>>trunkBackupUrlString (in category 'accessing') -----
- trunkBackupUrlString
- ^ 'http://box4.squeak.org:8888/trunk'!

Item was changed:
  ----- Method: MCHttpRepository>>clearCredentials (in category 'accessing') -----
  clearCredentials
+ user ifNotNil: [user atAllPut: $x].
+ password ifNotNil: [password atAllPut: $x].
- user atAllPut: $x.
- password atAllPut: $x.
  user := password := String empty!

Item was added:
+ ----- Method: MCHttpRepository>>isIndexed (in category 'private') -----
+ isIndexed
+ ^ indexed ifNil:
+ [indexed := [(HTTPSocket
+ httpGet: self locationWithTrailingSlash
+ args: {'query' -> {'isHistorySupported'}}
+ user: self user
+ passwd: self password) contents = 'true']
+ on: Error
+ do:
+ [:err | false]]!

Item was removed:
- ----- Method: MCHttpRepository>>isTrunkBackup (in category 'testing') -----
- isTrunkBackup
- ^ location = self class trunkBackupUrlString!

Item was changed:
  ----- Method: MCHttpRepository>>mcModel (in category 'overriding') -----
  mcModel
+ "Answer the object which can respond to #historyOf: and #originOf: or nil, if none."
+ ^ self isIndexed ifTrue: [self]!
- "Answer the object which can respond to #historyOf: and #originOf:."
- ^ self!

Item was added:
+ ----- Method: MCHttpRepository>>refresh (in category 'overriding') -----
+ refresh
+ super refresh.
+ indexed := nil!