'From etoys4.0 of 9 October 2008 [latest update: #2315] on 17 September 2009 at 12:08:58 pm'!
"Change Set:		ShowcaseURL-yo
Date:			17 September 2009
Author:			Yoshiki Ohshima

Further fix for 2314 to make it work with http://content.squeakland.org/showcase."!


!ReleaseBuilderSqueakland methodsFor: 'squeakland' stamp: 'yo 9/17/2009 12:08'!
setupServerDirectoryForSqueakland

	| d |
"
	ReleaseBuilderSqueakland new setupServerDirectoryForSqueakland
"
	Utilities authorName: nil.

	d _ DAVMultiUserServerDirectory on: 'http://content.squeakland.org/showcase/'.
	d altUrl: 'http://content.squeakland.org/showcase/'.
	d moniker: 'My Squeakland'.
	d acceptsUploads: true.
	d useDefaultAccount: true.
	d origDirectory: '/showcase'.
	d setupSelector: #setupPersonalDirectory:.
	ServerDirectory inImageServers at: 'My Squeakland' put: d.

	d _ DAVMultiUserServerDirectory on: 'http://content.squeakland.org/showcase/'.
	d altUrl: 'http://content.squeakland.org/showcase/'.
	d moniker: 'Squeakland Showcase'.
	d user: 'etoys'.
	d useDefaultAccount: true.
	d acceptsUploads: false.
	d instVarNamed: 'passwordHolder' put: 'kaeuqs'.
	ServerDirectory inImageServers at: 'Squeakland Showcase' put: d.
	Utilities loggedIn: false.

! !

"Postscript:
"
ReleaseBuilderSqueakland new setupServerDirectoryForSqueakland.
!