Eliot Miranda uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-eem.450.mcz
==================== Summary ====================
Name: Installer-Core-eem.450 Author: eem Time: 28 July 2022, 3:56:34.407702 pm UUID: bfcca845-0aad-41e5-a0d3-33485f0a4bc8 Ancestors: Installer-Core-mt.449
Add https to the schemes understood by InstallerMonticello. Use https for source.squeak.org and squeaksource.com. Remove the explicit scheme from senders of http:
=============== Diff against Installer-Core-mt.449 ===============
Item was changed: ----- Method: Installer class>>defaultLocalRepository (in category 'repository-overrides') ----- defaultLocalRepository "Check for a personal, Magma-indexed SqueakSource server first, if none running, the the 'mc' directory in the current directory." | localSqueaksource | + localSqueaksource := Installer monticello http: 'localhost:8079'. - localSqueaksource := Installer monticello http: 'http://localhost:8079'. ^ localSqueaksource mc isIndexed ifTrue: [localSqueaksource] ifFalse: [self localMcDir]!
Item was changed: ----- Method: Installer class>>gemsource (in category 'repositories') ----- gemsource
+ ^ self monticello http: 'seaside.gemtalksystems.com/ss'! - ^ self monticello http: 'http://seaside.gemtalksystems.com/ss%27!
Item was changed: ----- Method: Installer class>>krestianstvo (in category 'repositories') ----- krestianstvo "Krestianstvo SDK code repository." + ^ self monticello http: 'sdk.krestianstvo.org/sdk/'! - ^ self monticello http: 'http://sdk.krestianstvo.org/sdk/%27!
Item was changed: ----- Method: Installer class>>lukas (in category 'repositories') ----- lukas
+ ^ self monticello http: 'source.lukas-renggli.ch'! - ^ self monticello http: 'http://source.lukas-renggli.ch%27!
Item was changed: ----- Method: Installer class>>squeak (in category 'repositories') ----- squeak
+ ^self monticello https: 'source.squeak.org'! - ^self monticello http: 'source.squeak.org'!
Item was changed: ----- Method: Installer class>>squeaksource (in category 'repositories') ----- squeaksource
+ ^ self monticello https: 'www.squeaksource.com'! - ^ self monticello http: 'https://www.squeaksource.com%27!
Item was changed: ----- Method: Installer class>>squeaksource3 (in category 'repositories') ----- squeaksource3 + ^ self monticello http: 'ss3.gemtalksystems.com/ss/'! - ^ self monticello http: 'http://ss3.gemtalksystems.com/ss/%27!
Item was changed: ----- Method: Installer class>>swasource (in category 'repositories') ----- swasource "Visit: https://www.hpi.uni-potsdam.de/hirschfeld/trac/SqueakCommunityProjects Installer swasource project: 'MetacelloRepository'; open. Installer swasource project: 'SwaUtilities'; open. " + ^ self monticello https: 'www.hpi.uni-potsdam.de/hirschfeld/squeaksource'! - ^ self monticello http: 'https://www.hpi.uni-potsdam.de/hirschfeld/squeaksource%27!
Item was changed: ----- Method: Installer class>>wiresong (in category 'repositories') ----- wiresong
+ ^ self monticello http: 'source.wiresong.ca'! - ^ self monticello http: 'http://source.wiresong.ca%27!
Item was changed: ----- Method: InstallerMonticello>>http:user:password: (in category 'instance creation') ----- http: aUrl user: name password: secret + self setRepositoryFor: aUrl scheme: #http user: name password: secret! - | url | - url := (aUrl includesSubstring: '://') - ifTrue: [aUrl] - ifFalse: ['http://', aUrl]. - mc := self classMCHttpRepository location: url user: name password: secret. - root := mc locationWithTrailingSlash - !
Item was added: + ----- Method: InstallerMonticello>>https: (in category 'instance creation') ----- + https: aUrl + + self https: aUrl user: '' password: '' + + !
Item was added: + ----- Method: InstallerMonticello>>https:user:password: (in category 'instance creation') ----- + https: aUrl user: name password: secret + self setRepositoryFor: aUrl scheme: #https user: name password: secret!
Item was added: + ----- Method: InstallerMonticello>>setRepositoryFor:scheme:user:password: (in category 'private') ----- + setRepositoryFor: aUrl scheme: scheme user: name password: secret + | url | + url := (aUrl includesSubstring: '://') + ifTrue: [aUrl] + ifFalse: [scheme, '://', aUrl]. + mc := self classMCHttpRepository location: url user: name password: secret. + root := mc locationWithTrailingSlash!
packages@lists.squeakfoundation.org