The " + cnt + " most recent events:"
htmltext = htmltext + "
(current time: " + string.timestring() + ")"
on add (s)
htmltext = htmltext + string.filledstring ("\t", indentlevel) + s + "\r\n"
local (adrhour, adritem, i, j, ct = 0)
for i = sizeof (adrlog^) downto 1
adrhour = @adrlog^ [i]
for j = sizeof (adrhour^) downto 1
adritem = @adrhour^ [j]
local (s)
s = s + "
" + adritem^.eventType + " : "
s = s + radio.string.decodeEntities (adritem^.htmlText) + " : "
s = s + date.timestring (xml.convertToDisplayName (nameof (adritem^))) + " : "
s = s + adritem^.secs + " sec
"
add (s)
ct++
if ct >= cnt
break
if ct >= cnt
break
htmltext = htmltext + "
"
return (htmlText)
r Verdana LAND mac on webLogUpdates(ctLogs)
local (htmltext = "", ct = 1, changes = "", header = "", xmlChanges)
changes = tcp.httpClient(server:"www.weblogs.com",path:"/changes.xml")
header = string.patternMatch ("\r\n\r\n", changes)
changes = string.delete(changes, 1, header + 3)
changes = string.replaceall(changes, "\n", "\r")
new(tableType, @xmlChanges)
xml.compile(changes, @xmlChanges)
adrUpdates = xml.getAddress(@xmlChanges, "weblogUpdates")
weblogList = xml.getAddressList(adrUpdates, "weblog")
htmltext = htmltext + "The 10 Most Recently Updated Weblogs from Weblogs.com:"
while ct <= ctLogs
local(weblogname = weblogList[ct]^.["/atts"].name)
local (weblogurl = weblogList[ct]^.["/atts"].url)
local(link = ct +".
" + weblogname + "")
htmltext = htmltext + link
ct++
htmltext = htmltext + "
(" + clock.now() + ") "
return (htmltext)
r
! -
; G
P \
a m
r ~
background - callbacks
codeFreshener >commands init main %menu + menuCommands .rFrame .statusCenterMessage 3viewLogService :
webLogUpdates ?& 6 ! Verdana uC gLAND mac Changes
1/28/02; 9:13:50 PM by AJF
Copied idea from ManilaBloggerBridge, only needs to run once.
dashboardThread.enabled = false
dashboardSuite.init()
dashboardSuite.commands.templatePlace()
dashboardSuite.commands.cleanUp()
filemenu.savemyroot (this) //save this root
never run again!
T P . uȭo
ctenabledscript E{ T t Arial
F F 2LAND mac on finalFilter (pta)
pta^.renderedText = string.replace (pta^.renderedText, "[[title]]", "