Updates:
Cc:
[hidden email]
Comment #5 on issue 4569 by
[hidden email]: "load updates" just
loads the last update?
http://code.google.com/p/pharo/issues/detail?id=4569this was the code before
newUpdates
"Return a list of fully formed URLs of update files we do not yet have up
to the upToNumber instance variable if set."
"self new newUpdates"
| existing out list doc raw char |
out := OrderedCollection new.
existing := SystemVersion current updates.
doc := HTTPClient httpGet: self updateListFileURLString.
doc class == RWBinaryOrTextStream ifTrue:
[raw := doc reset; contents. "one file name per line"
list := self extractVersion: SystemVersion current version from: raw.
list reverseDo: [:fileName |
| itsNumber |
itsNumber := fileName initialIntegerOrNil.
(existing includes: itsNumber)
ifFalse: [ (itsNumber isNil or: [itsNumber <= self upToNumber])
ifTrue: [out addFirst: self updateFolderURL, fileName]]
ifTrue: [^ out]].
((out size > 0) or:
[char := doc reset; skipSeparators; next.
(char == $*) | (char == $#)]) ifTrue:
[^ out "we have our list"]].
self feedback: 'All code update servers seem to be unavailable'.
^ out
and using Zinc
newUpdates
"Return a list of fully formed URLs of update files we do not yet have up
to the upToNumber instance variable if set."
"self new newUpdates"
| existing out list result doc raw char |
out := OrderedCollection new.
existing := SystemVersion current updates.
(result := ZnClient get: self updateListFileURLString) isSuccess
ifFalse: [ self error: 'Cannot access update server' ].
"one file name per line"
list := self extractVersion: SystemVersion current version from: result
contents.
list reverseDo: [:fileName | | itsNumber |
itsNumber := fileName initialIntegerOrNil.
(existing includes: itsNumber)
ifFalse: [ (itsNumber isNil or: [itsNumber <= self upToNumber])
ifTrue: [out addFirst: self updateFolderURL, fileName]]
ifTrue: [^ out].
((out size > 0) or:
[char := doc reset; skipSeparators; next.
(char == $*) | (char == $#)]) ifTrue:
[^ out "we have our list"]].
self feedback: 'All code update servers seem to be unavailable'.
^ out
_______________________________________________
Pharo-bugtracker mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-bugtracker
Locked
