"{ Package: 'stx:goodies/monticello' }"

"{ NameSpace: Smalltalk }"

MCHttpRepository subclass:#MCSqueaksourceRepository

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Monticello-RemoteRepositories'

!

MCSqueaksourceRepository comment:'I am a specialized MCHttpRepository for http://squeaksource.com.

I optimize checks for existing files by doing a head request instead of reloading the whole file list first.'

!

!MCSqueaksourceRepository class methodsFor:'accessing'!

description

	^ 'squeaksource.com'

! !

!MCSqueaksourceRepository class methodsFor:'creation template'!

baseURL

	^ 'http://squeaksource.com/'

! !

!MCSqueaksourceRepository class methodsFor:'testing'!

isResponsibleFor: aUrl

	^ aUrl includesSubstring: 'squeaksource.com/'

! !

!MCSqueaksourceRepository methodsFor:'*Komitter-Models'!

koRemote

	^ KomitSqueakSourceRemote new

		remote: self;

		yourself

! !

!MCSqueaksourceRepository methodsFor:'interface'!

includesFileNamed: aString

	"avoid the slower default method and simply do a head request "

	self httpClient

		numberOfRetries: 0;

		ifFail: [ :exception | 

			((exception isKindOf: ZnHttpUnsuccessful) and: [ exception response isNotFound ])

				ifTrue: [ ^ false ].

			exception pass];

		head: (self urlForFileNamed: aString).

	^ true

!

includesVersionNamed: aString

	"directly do a filename check since squeaksource only stores mcz"

	^ self includesFileNamed: aString, '.mcz'

! !

!MCSqueaksourceRepository class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !