from preamble:

"Change Set:		CleanupUpdateServers-dew
Date:			9 December 2003
Author:			Doug Way

Remove uiuc update server (from Utilities class>>updateUrlLists) which
has been defunct for a long time.  Also clean up various other
ServerDirectory update servers."

| publicUpdateServers sqcInternetOne |
publicUpdateServers _ Utilities updateUrlLists detect: [:ea | ea first =
'Squeak Public Updates'].
publicUpdateServers at: 2 put:
{'update.squeakfoundation.org/external/'}.

"Add Internal (testing) SqF updates server"
sqcInternetOne _ (ServerDirectory serverNamed: 'squeakfoundation') copy.
sqcInternetOne groupName: 'SqC Internal Updates*'.
ServerDirectory addServer: sqcInternetOne named: 'UpdatesAtSqFInternal'.

"Assign a better name to the SqF updates server"
sqcInternetOne _ ServerDirectory serverNamed: 'squeakfoundation'.
ServerDirectory addServer: (ServerDirectory serverNamed:
'squeakfoundation') named: 'UpdatesAtSqF'.
ServerDirectory removeServerNamed: 'squeakfoundation' ifAbsent: [].

"Remove obsolete update servers"
ServerDirectory removeServerNamed: 'UpdatesExtUIUC' ifAbsent: [].
ServerDirectory removeServerNamed: 'UpdatesExtUIUC2' ifAbsent: [].
ServerDirectory removeServerNamed: 'UpdatesAtSqueak.org' ifAbsent: [].
!
-------------- next part --------------
A non-text attachment was scrubbed...
Name: CleanupUpdateServers-dew.cs.gz
Type: application/octet-stream
Size: 548 bytes
Desc: not available
Url : http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20031211/d10bf507/CleanupUpdateServers-dew.cs.obj