premshree

REBOL is a weird and nice language. It’s got URLs and emails as data structures (and for good reason). It’s new and it’s immature, but the folks have a vision, and that’s what makes me use it on occasion.

Maybe somebody else will (or is?) snatch that vision from them. However, REBOL is in safe hands. That’s nice.

REBOL [Title:  "REBOL Technorati"]

TECHNORATI_URL: "http://api.technorati.com"
COSMOS_GET: 	"/cosmos?"
BLOGINFO_GET: 	"/bloginfo?"
OUTBOUND_GET: 	"/outbound?"
KEY:		"Your-Technorati-API-Key"

cosmos:		func [url start] [ probe parse-xml read to-url join TECHNORATI_URL join COSMOS_GET join "key=" join KEY join "&start=" join start join "&url=" join url "&format=xml" ]
bloginfo:	func [url] [ probe parse-xml read to-url join TECHNORATI_URL join BLOGINFO_GET join "key=" join KEY join "&url=" join url "&format=xml" ]
outbound:	func [url] [ probe parse-xml read to-url join TECHNORATI_URL join OUTBOUND_GET join "key=" join KEY join "&url=" join url "&format=xml" ]