Nicolas Cellier uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-nice.38.mcz==================== Summary ====================
Name: Network-nice.38
Author: nice
Time: 20 October 2009, 12:30:44 pm
UUID: d091db89-50b4-124f-91b0-4350c3016bd8
Ancestors: Network-tfel.37
use #fasterKeys
=============== Diff against Network-tfel.37 ===============
Item was changed:
----- Method: ServerDirectory>>checkServersWithPrefix:andParseListInto: (in category 'updates') -----
checkServersWithPrefix: prefix andParseListInto: listBlock
"Check that all servers are up and have the latest Updates.list.
Warn user when can't write to a server that can still be read.
The contents of updates.list is parsed into {{vers. {fileNames*}}*},
and returned via the listBlock."
| serverList updateLists listContents maxSize outOfDateServers |
serverList := self serversInGroup.
serverList isEmpty
ifTrue: [^Array new].
updateLists := Dictionary new.
serverList do: [:updateServer |
[listContents := updateServer getFileNamed: prefix , 'updates.list'.
updateLists at: updateServer put: listContents]
on: Error
do: [:ex |
UIManager default chooseFrom: #('Cancel entire update')
title: 'Server ', updateServer moniker,
' is unavailable.\Please consider phoning the administator.\' withCRs, listContents.
^Array new]].
maxSize := (updateLists collect: [:each | each size]) max.
+ outOfDateServers := updateLists fasterKeys select: [:updateServer |
- outOfDateServers := updateLists keys select: [:updateServer |
(updateLists at: updateServer) size < maxSize].
outOfDateServers do: [:updateServer |
(self outOfDate: updateServer) ifTrue: [^Array new]].
listBlock value: (Utilities parseListContents: listContents).
serverList removeAll: outOfDateServers.
^serverList
!
Item was changed:
----- Method: ServerDirectory class>>serverNames (in category 'available servers') -----
serverNames
+ ^self servers fasterKeys sort!
- ^self servers keys asSortedArray!
Locked
