[Pkg] Monticello Public: Monticello.impl-kph.638.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of Monticello.impl was added to project Monticello Public:
http://www.squeaksource.com/mc/Monticello.impl-kph.638.mcz

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

Name: Monticello.impl-kph.638
Author: kph
Time: 26 February 2009, 2:07:15 pm
UUID: c56b5da1-040e-11de-a647-000a95edb42a
Ancestors: Monticello.impl-kph.637

password manager was always returning squeak for squeak.

Changed this so that the repo is responsible for defaults, the http repo does this, but the password manager is ambivalent

=============== Diff against Monticello.impl-kph.637 ===============

Item was changed:
  ----- Method: MCPasswordManager>>queryPasswordAt:user: (in category 'queries') -----
  queryPasswordAt: location user: user
  	"Answer the password for the given user/location. 
  	If the password is absent, query the user if interactive."
  	| pwd |
  	"search for existing password"
   
  	pwd := self passwordAt: location user: user.
  	pwd ifNotNil:[^pwd].
  
- 	user = 'squeak' ifTrue: [ ^ 'squeak' ].
- 	user = '' ifTrue: [ ^ 'squeak' ].
- 
  	pwd := FillInTheBlank requestPassword: 'Password for "', user, '" at ', location.
  	pwd isEmptyOrNil ifTrue:[^nil].
  	(self confirm: 'Remember password for "', user, '" at ', location,'?') ifTrue:[
  		self passwordAt: location user: user put: pwd.
  	].
  	^pwd
  	
   !

Item was changed:
  ----- Method: MCHttpRepository>>password (in category 'as yet unclassified') -----
  password
  	self user isEmpty ifTrue: [^''].
+ 	self user = 'squeak' ifTrue: [ ^ 'squeak' ].
+ 	
  	^(MCPasswordManager default queryPasswordAt: self locationHost user: self user) ifNil:[^'']!