[REBOL] blog -> check-rebol-email-times.r

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

  [This is the only message in the thread]