blog -> check-rebol-email-times.r
[1/1] from: antonr::lexicon::net at: 1-Jan-2005 1:44
rebol [
Title: "check rebol email times"
File: %check-rebol-email-times.r
Date: 31-Dec-2004
Version: 1.0.0
Needs: [View]
Author: "Anton Rolls"
Language: 'English
Purpose: {Check and compare reported times on different rebol email
servers}
Usage: {}
ToDo: {
-
}
History: [
1.0.0 [31-Dec-2004 {First version with links from
http://www.rebol.net/cgi-bin/blog.r?view=0081} "Anton"]
]
Notes: {}
]
blk: copy [
h1 "Time Sync Rebol Email"
style link text blue underline [browse face/user-data] with [
append init [
feel: make feel [
over: func [face action position][
if all [face/font face/font/colors] [
face/font/color: pick face/font/colors not action
show face
face/font/color: first face/font/colors
]
either action [
set-face status mold face/user-data
][
clear-face status
]
]
]
]
]
]
foreach [url link-text][
http://www.rebol.com/cgi-bin/test.r "Time at REBOL.com email gateway"
http://mail.rebol.net/cgi-bin/test.r "Time at REBOL.net maillist server
(ecartis)"
http://www.rebol.net/cgi-bin/test.r "Time at REBOL.net web server"
][
append blk compose/deep [link (mold link-text) with [user-data: (url)]]
]
append blk [
status: text 400
]
view center-face layout blk