'From etoys4.0 of 9 October 2008 [latest update: #2312] on 16 September 2009 at 3:47:27 pm'!
"Change Set:		ShowcaseURL-yo
Date:			16 September 2009
Author:			Yoshiki Ohshima

SQ-389, if the path is http://content.squeakland.org/showcase/"!


!ReleaseBuilderSqueakland methodsFor: 'squeakland' stamp: 'yo 9/16/2009 15:47'!
setupServerDirectoryForSqueakland

	| d |
	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: '/webdav'.
	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.

! !