"Replace servers at webPage.com with our own server. Will add internal servers only if had internal servers before."! | aa | (ServerDirectory serverNames includes: 'UpdatesAtSqueak.org') ifTrue: [ aa _ ServerDirectory new. aa server: 'www.squeaklet.com'. aa directory: 'public_html/internal/updates'. aa user: 'updates'; type: #ftp. aa password: 6. aa url: 'http://www.squeaklet.com/updates/internal/'. ServerDirectory addServer: aa named: 'UpdatesAtKitchen'].! | aa | aa _ ServerDirectory new. aa server: 'www.squeaklet.com'. aa directory: 'public_html/external/updates'. aa user: 'updates'; type: #ftp. aa password: 6. aa url: 'http://www.squeaklet.com/updates/external/'. ServerDirectory addServer: aa named: 'UpdatesExtAtKitchen'.! | assoc | (ServerDirectory serverNames includes: 'UpdatesAtSqueak.org') ifTrue: [ assoc _ 'Disney Squeak Updates' -> {ServerDirectory serverNamed: 'UpdatesAtSqueak.org'. ServerDirectory serverNamed: 'UpdatesAtKitchen'}. (ServerDirectory serverNamed: 'UpdatesAtSqueak.org') group: assoc. (ServerDirectory serverNamed: 'UpdatesAtKitchen') group: assoc. (ServerDirectory serverNamed: 'UpdatesAtWebPage') group: nil].! | assoc | assoc _ 'Squeak Public Updates' -> {ServerDirectory serverNamed: 'UpdatesExtUIUC'. ServerDirectory serverNamed: 'UpdatesExtAtKitchen'}. (ServerDirectory serverNamed: 'UpdatesExtUIUC') group: assoc. (ServerDirectory serverNamed: 'UpdatesExtAtKitchen') group: assoc. (ServerDirectory serverNamed: 'UpdatesExtWebPage') group: nil.! Utilities classPool at: #UpdateUrlLists put: (OrderedCollection with: #('Squeak Public Updates' #('squeak.cs.uiuc.edu/Squeak2.0/' 'www.squeaklet.com/updates/external/')) with: #('European Squeak Updates' #('www.gsug.org/Squeak2.0/'))).! (ServerDirectory serverNames includes: 'UpdatesAtSqueak.org') ifTrue: [ (Utilities classPool at: #UpdateUrlLists) addFirst: #('Disney Internal Updates' #('squeak.org/untested/' 'www.squeaklet.com/updates/internal/'))].! (ServerDirectory serverNames select: [:n | '*WebPage*' match: n]) do: [:n | ServerDirectory removeServerNamed: n].!