Как я могу обновлять сессию каждые 60 секунд и отображать ее на стенограмме с Pharo?

Question

|a b |
a := ZnClient new.
a get: 'http://cloud-storage.com/login'.
a
formAt: 'username' put: 'jom';
formAt: 'password' put: 'mypass';
post;
get: 'http://cloud-storage.com/my-file'.
"Here I want to refresh the session for every 60sec and"
"to checking for newer data"
b := a maxNumberOfRedirects:60
Transcript show: b; cr.

Я хотел бы реализовать метод, который может обновлять сеанс ZnClient каждые 60 секунд для проверки новых данных на сервере, на котором я вошел. Я попробовал метод перенаправления pharo, но он не работает. или сказать ничего не показывает. Любая идея?

Answer 1

| session data |

session := ZnClient new url: 'http://cloud-storage.com'.

"Login"
session path: '/login';
    formAt: 'email' put: 'jom';
    formAt: 'password' put: 'mypass';
    post.

"Get data"
data := session path: '/my-file'; get; contents.

"Check for new data every 60 secs for maximum 100 tries"
[
    100 timesRepeat: [
        | newData |
        (Delay forSeconds: 60) wait.
        newData := session path: '/my-file'; get; contents.
        (data ~= newData) ifTrue: [Transcript show: newData; cr]
    ]
] fork.

NB. Несмотря на приведенный выше пример кода, вы можете попробовать If-Modified-Since метод в ZnClient.