6 X A FFFF000000060001001777AA000000000071000000001001710000001-7FFF6FBE1800000480048061C200-17C7E7C7E061C222FFFF0103820000100000037000000010984084061C1844B028C0001161C16D000020000009D00000000 98,Listing of today's Radio.root updates as logged into either the GDB log or the outline log. The pref is taken from the info in the user.log.prefs table.0004000000090000000209A000050000000A00000002019A0000600000031000000010920FFFF0900000
20 000700000035000000020101809E0 1018000080000009A00000001 40,Verdana 40, 401C230 10000900000015000000023AE1803AE180000A000000150000000261C22261C222000B00000005000000020000C0000001A00000001827C7E18EF110110000F0000005200000000400 10 4,77A 4,C 4,C 4, 4,C 4,C 4, 00130000007E00000000DA91F8CE1C1D1E1F7F1B0 44,- . . ' " FFFF0FFFF0FFFE000000060001001777AA ; 3x A $ V ;12 " 9
E Q ] 12 author Andy Fragen authorEmail andy@thefragens.com description 0 X homePageUrl -http://radio.weblogs.com/0001017/publicTools/name Root Updates Report releaseDateversion 0.95 $ l Arial
?'-$ 4),LAND mac Changes
1/15/02; 5:21:20 PM by DW
Runs on the user's machine, when refreshing.
local (adrtable = @system.temp.rootUpdatesReportSnapshot)
rootUpdatesReportData = adrtable^.data
rootUpdatesReportInfo = adrtable^.info
rootUpdatesReportSuite = adrtable^.suite
rootUpdatesReportThread = adrtable^.thread
rootUpdatesReportWebsite = adrtable^.website
filemenu.savemyroot (@rootUpdatesReportSuite)
local (x = string.parseAddress (@rootUpdatesReportSuite), f = x [1])
frontier.tools.install (f)
dialog.notify ("Thanks for updating.")
x B Arial
? vH LAND mac 1/15/02; 5:18:06 PM by DW
This is the Refresh menu command.
local (url = "http://radio.weblogs.com/0001017/publicTools/rootUpdatesReport/codeFreshener.fttb")
local (urllist = string.urlsplit (url))
local (s = tcp.httpclient (server:urllist [2], path:urllist [3]))
local (f = frontier.pathstring + "codeFreshener.fttb")
file.writewholefile (f, s)
fatpages.importfatfile (f)
thread.callscript (@system.temp.rootUpdatesReportSnapshot.loader, {})
x Arial
=5 J ` 0LAND mac Changes
1/15/02; 5:08:55 PM by DW
Created. I run this on my machine to create a package for refreshCode to load.
Talk about a Mobius Strip. It's really simple code, but it's fun to walk your mind through it.
local (oldRootUpdatesReportData)
bundle //get rootUpdatesReportData ready for ship
oldRootUpdatesReportData = rootUpdatesReportData
new (tabletype, @rootUpdatesReportData)
rootUpdatesReportThread.enabled = true
rootUpdatesReportInfo.releaseDate = clock.now ()
local (adrtable = @system.temp.rootUpdatesReportSnapshot)
new (tabletype, adrtable)
adrtable^.data = rootUpdatesReportData
adrtable^.info = rootUpdatesReportInfo
adrtable^.suite = rootUpdatesReportSuite
adrtable^.thread = rootUpdatesReportThread
adrtable^.website = rootUpdatesReportWebsite
adrtable^.loader = rootUpdatesReportSuite.codeFreshener.loadNewCode
local (f =radio.file.getSubFolder("publicTools/rootUpdatesReport") + "codeFreshener.fttb")
file.surefilepath (f)
export.sendobject (adrtable, f)
f = radio.file.getSubFolder("publicTools/rootUpdatesReport") + "rootUpdatesReport.root"
target.set (this)
fileMenu.saveCopy (f)
rootUpdatesReportData = oldrootUpdatesReportData
dialog.alert (file.filefrompath (f) + " is " + string.megabytestring (file.size (f)))
} . R?RG
$ 0
? loadNewCode refreshCode releaseNewCode ^ VArial
3x1 ; Verdana 55 tLAND mac table.emptyTable (@rootUpdatesReportWebsite.["#glossary"])
2 55
cleanUp e VVerdana 2@x # , Verdana ;12q )LAND mac local (pta = html.getPageTableAddress())
local (adrlog = log.getGuestSubTable ("exportAddToLog"))
local (html = "", today = date.longString(clock.now()))
pta^.title = "Root Updates Report "
on add (s)
html = html + (s + "\r\n");
add ("Version: " + rootUpdatesReportInfo.version + "")
add ("RootUpdatesReport will read the current days updates from logs in a guest database (GDB) or all root updates from the outline. RootUpdatesReport will use either the GDB log or the outline log depending on your selections in the user.log.prefs table. It will preferentially use the GDB if both are checked. It does not utilize the text file. Please email me with any problems.")
add ("Daily Root Updates: " + today + "
")
if user.log.prefs.flLogToGuestDatabase
add ("From the guest database...")
local (adrItem, adrCallback)
add ("")
for adrItem in adrlog
for adrCallback in adrItem
add ("- "+string(adrCallback^[1])+"
")
try
add ("- "+string(adrCallback^[3])+"
")
add ("
")
else
if user.log.prefs.flLogToOutline
add ("From the outline...")
add ("")
local (adrOutline = @system.temp.rootUpdatesLog)
new (outlineType, adrOutline)
target.set (adrOutline)
op.insert ("#renderOutlineWith \"prettyOutline\"", up)
op.insert ("#renderOutlineWith \"ideaListRenderer\"", up)
op.insertOutline (user.rootUpdates.prefs.adrOutlineForUser, down)
op.insertOutline (@user.log.outlines.exportAddToLog, down)
add (renderObject(@system.temp.rootUpdatesLog))
return (html)
cdatatabl S $
type linkurl mailto:afragen@mac.com 2 Geneva
{mXs # ' LAND mac rootUpdatesReportSuite.menuCommands.refreshCode()
% Verdana ;g 7 ' LAND mac Root Updates Report
Refresh Code...
p Q 6d Verdana
p s Verdana |H帑sH & } ESLAND mac if dialog.confirm ("Get the newest code from Andy's folder?")
rootUpdatesReportSuite.codeFreshener.refreshCode ()
6 |Hڸs-
refreshCode VVerdana 2@x N Verdana ;r ' LAND mac This script returns a string which appears in the Status Center on the Radio UserLand home page.
local (numUpdates)
numUpdates = sizeOf(log.getGuestSubTable ("exportAddToLog")^)
if user.log.prefs.flLogToGuestDatabase
if numUpdates != 0
if numUpdates == 1
return ("There is " + numUpdates + " new update today.")
else
return ("There are " + numUpdates + " new updates today.")
else
return ("There are no new updates today.")
else
return ("Here are today's root updates.")
L ;
# /
4 @
E Q
^ j
~
codeFreshener 0 commands 0 *main 0 menu 0 menuCommands 0 statusCenterMessage 0 + 0 Verdana 557 Y+!LAND mac This script runs in its own thread.
loop //loop until the application quits
Add your code here.
thread.sleepFor (10) //sleep for ten seconds
rootUpdatesReportThread.enabled = false
rootUpdatesReportSuite.commands.cleanUp ()
filemenu.savemyroot (this) //save this root
never run again!
P . 512
ctenabledscript 0 # VVerdana 6MY t Arial
F F 2LAND mac on finalFilter (pta)
pta^.renderedText = string.replace (pta^.renderedText, "[[title]]", "")
return (true)
- Geneva Eu`Q 2LAND mac on firstFilter (adrPageTable)
return (true)
* [ Geneva Eu7a v L 3*lLAND mac on pageFilter (pta)
if typeOf (pta^.template) == outlineType or typeOf (pta^.template) == wpTextType
table.assign (@pta^.template, string (pta^.template))
if typeOf (pta^.template) == stringType and not pta^.indirectTemplate
pta^.template = string.replace (pta^.template, "<title>", "[[title]]")
html.addPageToGlossary (pta)
return (true)
y . EF
$ 0
; finalFilter &d firstFilter 'n
pagefilter (+ VGeneva P E $ M I 7; url #http://127.0.0.1/rootUpdatesReport/ M n 1. VArial n W space /GIFfGIF89a ! , D ; VArial V " + 0 : C L Q [ aalink 008000bgcolor FFFFFFflRenderlink 0000FFspaceGif spacetext 000000vlink 800080 VArial n VArial n ' Verdana M4P ' LAND mac return (rootUpdatesReportSuite.main())
@ V 7Q
*
4 @
H T
[ g
n z
#filters 0 *4#ftpSite 0 + #glossary 0 +l#images 0 +#prefs 0 ,#tools 0 -index 0 .H VVerdana ??8 @ w 8 ;
"
9 E
] i
rootUpdatesReportInfo rootUpdatesReportSuite "rootUpdatesReportThread %rootUpdatesReportWebsite . V
Lucida Grande E z >\ f u Verdana 512 ' LAND mac rootUpdatesReportInfo
author
authorEmail
description
homePageUrl
name
releaseDate
version
rootUpdatesReportSuite
codeFreshener
loadNewCode
refreshCode
releaseNewCode
commands
cleanUp
main
menu
menuCommands
refreshCode
statusCenterMessage
rootUpdatesReportThread
rootUpdatesReportWebsite
#filters
#ftpSite
#glossary
#images
#prefs
#tools
index
[ [l [ [$ [ [$ [ [$ [ [$ [ [$ [ [$ [ [$ [ [l [ [0 [ [L [ [L [ [L [ [0 [ [| [ [0 [ [0 [ [0 [ [h [ [0 [ [l [ [l [ [ [ [ [ [ [ [ [ [ [ [ [ [ w 0E@x
Lucida Grande
Lucida Grande A Geneva ^}
Lucida Grande mn
Lucida Grande
Lucida Grande