[REBOL] using an event to periodically check a pop server for email.
From: steve:shireman:semaxwireless at: 26-Jun-2001 10:02
I am using a face feel event, set at 120 seconds, to try to download
emails by an email bot.
I made an engage: function to do the read //pop: ... in the context of
the face. (of course, this can take many seconds to do)
My goal is to parse through the emails, and pull out the valid data, but
I think this is killing the GUI of View.
-----------
area 400x55 "Current GPS location = 39 17.4446 N 094 40.5533 W"
rate 120 feel[
engage: func [face act evt][
; this next step may take a long time, and maybe is in
wrong context?
mailbox: read pop://semax025:[ankle1--www--semaxwireless--com]
foreach msg skip mailbox prior-len [
msg: import-email msg
from: first msg/from
if all [
find trusted-sources from
parse/all msg/subject GPS-rule
][
face/text: reduce ["current GPS data"
msg/subject]
]
]
prior-len: length? mailbox
show face
]
]
--------------
any tips or ideas?
Thanks,
Steve Shireman