E 3F X ] . BU # displayAllChannelsdisplayNewFirstenabled VGeneva ^w 0
r
prefs X VGeneva 2VH ! FFFF000000060001001777AA000000000063000000001001710000001-7FFF6FBE180000048004806200-10620222FFFF0103AE0000100000037000000010AE408406202226D038C0001362013F00002000000B300000000 AE,A slightly different news display page which shows your channels in the order they were last modified, along with the number of unread stories and a link to read the channel.000400000009000000020B00000500000009000000020B00000600000032000000010A210FFFF0A00000
20 0007000000190000000102018000080000009700000001 40,Geneva 40, 4030 100009000000150000000239C17D39C17D000A0000001500000002620222620222000B00000005000000020000C0000001100000001AE011390000F0000005200000000400 10 4,77A 4, 4, 4,C"] 4,
4,pmEx 4, 00130000007E00000000DA91F8CE1C1D1E1F7F1B0 44,- . . ' " FFFF0FFFF0FFFE000000060001001777AA MUS bH ! FFFF000000060001001777AA000000000065000000001001710000001-7FFF6FBE18000004800480613200-10613222FFFF01032000001000000320000000102040840613222038E000613A2000020000002500000000 20,A fast, compact news status page000400000009000000020220000500000009000000020220000600000032000000010A210FFFF0A00000
20 0007000000190000000102018000080000009700000001 40,Geneva 40, 4030 100009000000150000000239C17D39C17D000A0000001500000002613222613222000B00000005000000020000C0000000F000000012009C0000F0000005200000000400 10 4,77A 4, 4, 4,C"] 4,
4,pmEx 4, 00130000007E00000000DA91F8CE1C1D1E1F7F1B0 44,- . . ' " FFFF0FFFF0FFFE000000060001001777AA MUꅇ bH
FFFF000000060001001777AA000000000065000000001001710000001-7FFF6FBE18000004800480626200-10626222FFFF01039B0000100000037000000010A1408406262225A048C000166261B900002000000A600000000 A1,The following table lists the XML news feeds you've subscribed to with the site URL, time or date last modified, a news link and the number of unread news items.00040000000A0000000201A31000500000009000000020A300006000000630000000210A210FFFF0A00000
20 C310FFFF0C00000
20 0007000000190000000102018000080000009700000001 40,Geneva 40, 4030 1000090000001500000002351224351224000A0000001500000002626222626222000B00000005000000020000C00000018000000019B8F1F143118D0000F0000002100000000400 10 00130000007E00000000DA91F8CE1C1D1E1F7F1B0 44,- . . ' " FFFF0FFFF0FFFE000000060001001777AA 멽 Y Z j q 0
< H
Y e q
q author Dave Ely authorEmail
ely@dijas.com description descriptionSmall homePageUrl 0http://radio.weblogs.com/0100683/gems/zNews.rootname zNewspageDescription x releaseDateversion 1.0b1 VGeneva Q V Geneva
o@LAND mac on any (pta) //boilerplate for your responder
pta^.responseHeaders.["Content-Type"] = "text/html"
pta^.code = 200 //everything was OK
pta^.responseBody = "" //build response
return (true)
V 2 .
any 2 .
8 @
H condition *(string.lower (path) beginsWith "/znews/")enabledmethods Geneva
o@LAND mac This script runs every hour.
Geneva
o@LAND mac This script runs every minute.
Geneva
o@LAND mac This script runs every night.
{ w .
" .
9 everyHour everyMinute
everyNight l {
R N $
fileMenu x user x R ) < u Geneva
Pʸg[ o@LAND mac do whatever needs doing at init time
bundle //prefs
if not defined (zNewsData.prefs)
new (tabletype, @zNewsData.prefs)
if not defined (zNewsData.prefs.enabled)
zNews.prefs.enabled = true
if not defined (zNewsData.prefs.displayAllChannels)
zNews.prefs.displayAllChannels = true
if not defined (zNewsData.prefs.displayNewFirst)
zNews.prefs.displayNewFirst = true
) A Geneva
ByQ o@LAND mac zNewsSuite.init()
dialog.notify(string( zNewsInfo.description ))
, Geneva
xx o@LAND mac zNewsSuite.init()
edit ( @zNewsData.prefs )
& Geneva
By+ H o@LAND mac ZNews
About
Preferences
W p `\ Geneva
p Geneva W몳 %LAND mac on showNews()
local( pta = html.getpagetableaddress())
pta^.title = zNewsInfo.name
local( adrdata = xml.aggregator.init())
local( htmltext = "", indentlevel = 0 )
on add( s )
htmltext = htmltext + string.filledstring( "\t", indentlevel ) + s + "\r\n"
local( errorstring = "", initialurl = "http://", adrnewservice = nil )
local( sortedAggrTable )
local( storyCountTable )
build a table of date sorted agregation channels
name=date in number format
value=channel XML address (the index for aggregatorData.services)
bundle
local( adrsort )
new( tabletype, @sortedAggrTable )
for ( adr in @adrdata^.services )
if ( defined( adr^.timeLastChange ))
adrsort = @sortedAggrTable.[ number( adr^.timeLastChange ) ]
if ( defined( adrsort^ )) //collision
local( counter = 1 )
loop
adrsort = @sortedAggrTable.[ number( adr^.timeLastChange ) + counter++ ]
if ( not defined( adrsort^ ))
break
adrsort^ = nameof( adr^ )
build a table of stories
name=channel XML address (the index for aggregatorData.services)
value=story count
bundle
local( tablePtr )
new( tabletype, @storyCountTable )
for ( aStory in @adrdata^.stories )
local( storyCount = 1 )
tablePtr = @storyCountTable.[ aStory^.url ]
if ( defined( tablePtr^ ))
storyCount = tablePtr^
storyCount++
tablePtr^ = storyCount
bundle
add( "
" ); indentlevel--
add( " " )
indentlevel--
return( htmltext )
bundle { // testing
html.setpagetableaddress( @scratchpad.params )
showNews()
7 Geneva B g LAND mac This script returns a string which appears in the Status Center on the Radio UserLand home page.
return( string( zNewsInfo.descriptionSmall ) + " (v" + zNewsInfo.version + ")." )
7 B Geneva @n OvLAND mac Setup the release datestamp
zNewsInfo.releaseDate = clock.now();
O V
뫋
! -
2 >
C O
X d
x
background H callbacks H init H Qmenu H showNews H SstatusCenterMessage H 2h
zDateStamp H 3 VGeneva F G O ? Geneva
o@LAND mac This script runs in its own thread.
printOutlineThread.enabled = false
printOutlineSuite.commands.cleanUp()
filemenu.savemyroot (this) //save this root
never run again!
? P .
ctenabledscript H 5 VGeneva
5VH 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 m 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 ( 7 firstFilter ( 8
pagefilter ( 9 VGeneva P E $ A = 7 url http://127.0.0.1/zNews/ A n 8H VArial n W space /GIFfGIF89a ! , D ; VArial V " + 0 : C L Q [ aalink 008000bgcolor FFFFFFflRenderlink 0000FFspaceGif spacetext 000000vlink 800080 VArial n 8> VArial n O Geneva
Yh o@LAND mac html.setpagetableaddress( @scratchpad.params )
return( zNewsSuite.showNews() )
d < Arial
F F LAND mac <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>{title}
{metaTags ()}
{bodyTag ()}
{bodytext}