# < X * f ] = Geneva ӣӣ LAND mac Aggregator preferences
Enable the aggregator?
<%radio.prefs.checkboxPref ("Check this box to enable the aggregator. If it's enabled, NewsRiver will automatically scan the feeds you're subscribed to each hour, adding new or changed items to the News page.", @aggregatorData.prefs.enabled)%>
Remote access and security
You can access NewsRiver through any Web browser whether it's running on the same computer as the OPML Editor, or over the Internet. The settings on this page allow you to secure remote access by requiring a username and password.
<%radio.prefs.checkboxPref ("Check this box to enable access to NewsRiver over the Internet. Leave it unchecked if you want to allow access only from the same computer that's running the OPML Editor.", @aggregatorData.newsRiver.security.allowRemoteViewing)%>
<%radio.prefs.checkboxPref ("Check this box if you want to allow posting of forms over the Internet.", @aggregatorData.newsRiver.security.allowRemotePost)%>
<%radio.prefs.checkboxPref ("Check this box to require user authentication when accessing NewsRiver over the Internet. If this box is checked, remote users will receive a username/password dialog box when they access your site from another computer. Enter the username and password below.", @aggregatorData.newsRiver.security.requireRemoteLogin)%>
<%radio.prefs.stringPref ("Username", @aggregatorData.prefs.security.username)%>
<%if html.getpagetableaddress ()^.method != "POST" {system.temp.newsRiver.repeatedPassword = aggregatorData.prefs.security.password}; ""%>
<%radio.prefs.stringPref ("Password", @system.temp.newsRiver.repeatedPassword, type:"password")%>
<%radio.prefs.stringPref ("Repeat Password", @aggregatorData.prefs.security.password, type:"password")%>
<%try {delete (@system.temp.newsRiver.repeatedPassword)}; ""%>
Note: If you enable access to your Web server over the Internet, the NewsRiver home page can be reached via its IP address, <%newsRiverSuite.getHomePageAddress ()%>, or via its domain name if it has one.
When and how the aggregator runs
If the aggregator is enabled it runs once per hour. The next preference says at what minute in each hour the scan will run. For example, if you enter 0, it will scan at the top of the hour; if you enter 59, it will scan at one minute before the top of the hour.
<%radio.prefs.numberPref ("Minute to scan", @aggregatorData.prefs.minuteToRead, upperbound:59)%>
The aggregator is multi-threaded. This means it can read read several feeds at the same time. The larger this number the quicker it will finish each scan, but it may make your machine slower while the scan is running.
<%radio.prefs.numberPref ("Number of threads", @aggregatorData.prefs.maxThreads, lowerbound:1, upperbound:10)%>
How many items?
How many items do you want to display on the News page? The more items you ask for the longer it will take to display the page. If you subscribe to a lot of channels and have a fast computer, make the number large. If you don't find yourself scrolling to the bottom of the page very often, or if you find the News Aggregator page loads slowly, you can make it smaller.
<%radio.prefs.numberPref ("Number of items on the News page", @aggregatorData.newsRiver.ctStoriesOnNewsPage, upperbound:1000)%>
Checkboxes on or off?
<%radio.prefs.checkboxPref ("Check this box if you want the checkboxes next to each news item to be checked by default. This makes it easier to delete news items, only keeping those that you want to refer to later.", @aggregatorData.newsRiver.flNewsPageDeleteCheckboxesDefault)%>
Podcasting
NewsRiver has a podcasting client built-in, or a podcatcher. As it's scanning for changes, NewsRiver saves information about enclosures so it can download them later. This page allows you to determine when it downloads enclosures and where it stores them.
<%radio.prefs.checkboxPref ("Check this box to automatically download enclosures included in feeds you subscribe to. ", @aggregatorData.newsRiver.podcatcher.prefs.enabled)%>
<%radio.prefs.stringPref ("Save enclosures in this folder" - V O X X z M W ~ E R = 4 ? ` \ $ 0˨0˨ linetext
Subscriptionspath subscriptions.wsf f V R $ // linetext Preferencespath prefs.wsf V V Q $ VFVF linetext
Lifehackerpath index.wsff V c $ wB
ctbackups lastFeedUrl !http://scienceblogs.com/main/rss/x.xmlsg/rss.xml/recent.rss - V X X z M W ~ E R = 4 ? 4W (
4
6 0D t Հ v j " l O index.wsf 3 F wW!
*
4 @
O [
e q
- 9
? K
T `
f r
{
0 <
G S
^ j
t
background t backup { callbacks decodeEntities P doScanNow S
getDateString Y`getHomePageAddress \ getString FimportDefaultSubscriptions
importOpml init `menu b menuCommands notes oldstuff /pages Dplaylist {
podcatcher ] readingList responder lstatusCenterMessage YtranslateToEntities funtaint mupdateAfterScan qP
updateCode q
updateTool z utilities viewLog
viewNewsItems OviewSubscriptions wsfMasterControl %1 VGeneva S OXJ 3 )(* N
download VGeneva | = V Geneva * N* N z TLAND mac on download (url, folder)
Changes
2/28/06; 5:08:26 AM by DW
Created. Reads a special kind of RSS feed, one that doesn't change. It's got a bunch of podcasts or songs, download them all, and that's it.
local (xmltext = tcp.httpreadurl (url))
xml.compile (xmltext, @xstruct)
scratchpad.xstruct = xstruct
local (adrrss = xml.getaddress (@xstruct, "rss"))
local (adrchannel = xml.getaddress (adrrss, "channel"))
for adr in adrchannel
if nameof (adr^) contains "item"
local (adrtitle = xml.getaddress (adr, "title"))
local (adrenclosure = xml.getaddress (adr, "enclosure"))
local (url = adrenclosure^.["/atts"].url)
local (extension = string.nthfield (url, ".", string.countfields (url, ".")))
local (fname = adrtitle^, maxsize = 32 - sizeof (extension) - 1)
if sizeof (fname) > maxsize
fname = string.mid (fname, 1, maxsize)
local (f = folder + fname + "." + extension)
file.surefilepath (f)
if not file.exists (f) //don't download again
local (content = tcp.httpreadurl (url))
file.writewholefile (f, content)
bundle //test code
local (folder =frontier.pathstring + "Carnival Cast" + file.getpathchar ())
file.surefilepath (folder + "xxx")
file.openfolder (folder)
download ("http://pod-serve.com/podcasts/feed/carnvial-cast", folder)
Wdatatabl G )E)E created Tue, 28 Feb 2006 13:08:21 GMT Wdatatabl G )H)H created Tue, 28 Feb 2006 13:08:24 GMT Wdatatabl G )J)J created Tue, 28 Feb 2006 13:08:26 GMT Wdatatabl G )) created Tue, 28 Feb 2006 13:14:11 GMT Wdatatabl G )) created Tue, 28 Feb 2006 13:14:43 GMT Wdatatabl G )) created Tue, 28 Feb 2006 13:14:50 GMT Wdatatabl G )) created Tue, 28 Feb 2006 13:15:13 GMT Wdatatabl G )) created Tue, 28 Feb 2006 13:15:34 GMT Wdatatabl G )) created Tue, 28 Feb 2006 13:15:47 GMT Wdatatabl G )
)
created Tue, 28 Feb 2006 13:15:54 GMT Wdatatabl G )) created Tue, 28 Feb 2006 13:16:05 GMT Wdatatabl G )) created Tue, 28 Feb 2006 13:16:05 GMT Wdatatabl G );); created Tue, 28 Feb 2006 13:16:43 GMT Wdatatabl G )<)< created Tue, 28 Feb 2006 13:25:16 GMT Wdatatabl G )) created Tue, 28 Feb 2006 13:26:36 GMT Wdatatabl G )) created Tue, 28 Feb 2006 13:26:47 GMT Wdatatabl G )) created Tue, 28 Feb 2006 13:27:00 GMT Wdatatabl G )) created Tue, 28 Feb 2006 13:20:07 GMT Wdatatabl G ).). created Tue, 28 Feb 2006 13:20:46 GMT Wdatatabl G ) ) created Tue, 28 Feb 2006 13:33:18 GMT Wdatatabl G )) created Tue, 28 Feb 2006 13:19:13 GMT Wdatatabl G )) created Tue, 28 Feb 2006 13:19:40 GMT Wdatatabl G )n)n created Tue, 28 Feb 2006 13:09:02 GMT Wdatatabl G )e)e created Tue, 28 Feb 2006 13:13:09 GMT Wdatatabl G )) created Tue, 28 Feb 2006 13:52:50 GMT Wdatatabl G )) created Tue, 28 Feb 2006 13:52:58 GMT Wdatatabl G )s)s created Tue, 28 Feb 2006 13:09:07 GMT V 9 FFFF000000060001001777AA000000000063000000001001710000001-77FB6FBE18000004800480618200-10618222FFFF0103000010000002D000000010408406186048E00061860000400000009000000020121000500000008000000020200006000000650000000210920FFFF0A00000
20 10E310FFFF0E00000
10 0007000000190000000102012000080000014D00000002 40,Arial 40, 10407D104E4400014004000801010 40,Geneva 40, 4030 100009000000150000000237C22E37C22E000A0000001500000002618222618222000B00000005000000020000C0000001200000001011167D0000F0000005200000000400 10 4,77A 4,12:1 4, 4, 4,J 4,I 4,I 00130000007E00000000DA91F8CE1C1D1E1F7F1B0 44,- . . ' " FFFF0FFFF0FFFE000000060001001777AA !/z ] 9 x FFFF000000060001001777AA000000000063000000001001710000001-7FFF6FBE18000004800480618200-10618222FFFF0103000010000002D000000010408406186048E00061860000400000009000000020121000500000008000000020200006000000630000000210A210FFFF0A00000
10 E310FFFF0E00000
10 0007000000190000000102018000080000009700000001 40,Geneva 40, 4030 100009000000150000000239A23A39A23A000A0000001500000002618222618222000B00000005000000020000C00000009000000010000F0000005200000000400 10 4,77A 4,17:4 4,r 4,emNa 4,ke. 4,k\ 4,g 00130000007E00000000DA91F8CE1C1D1E1F7F1B0 44,- . . ' " FFFF0FFFF0FFFE000000060001001777AA xy 38 x ~ '.C ) - @ D K U
f r |
!checkBoxesOffIntro checkBoxesOnIntro clickThePostButton delete DeletehowToUnsubscribe (v noStories *There are no stories to list at this time.oneChannelMessage -standardMessage subsFileName mySubscriptions.opmltitle HomeunsubscribeButton Unsubscribe VArial
| 9 I 9 ( L (T F Q Y d l r eventHeader Eventintro 'This page lists the most recent events.
secsHeader Secs
timeHeader Timetitle
Events LogwhatHappenedHeader What S O 8 %l<~G @ Y clickToCommentOnThisPage #Click here to comment on this page.clickToCommentOnThisPost #Click here to comment on this post.helpLinkToolTip 6Click here to get more information about this feature.
xmlToolTip :Click to view the current XML source text for the channel. S ` FFFF000000060001001777AA000000000063000000001001710000001-77FF6FBE1800000480048064E200-1064E222FFFF01030000100000036000000010F94084064E222D7048C0003C64EEA00002000000FE00000000 F9,Can't subscribe to the channel. The most likely cure is to check the URL in a web browser and see if you can get it to read the feed. The following message probably won't help you figure out what went wrong, but we include it here because it might. 00040000000A0000000201FB1000500000009000000020FB0000600000063000000020920FFFF0A00000
20 10E310FFFF0E00000
10 0007000000190000000102012000080000014F00000002 40,Arial 40, 10407D104E440003214004000801010 40,Geneva 40, 4030 100009000000150000000235E22D35E22D000A000000150000000264E22264E222000B00000005000000020000C0000001C00000002030F903E40000F0000005200000000400 10 4, 4, 4,! 4,! 4,77A 4,Jake 4, 00130000007E00000000DA91F8CE1C1D1E1F7F1B0 44,- . . ' " FFFF0FFFF0FFFE000000060001001777AA 7:S E ` 4 ?000000060001001777AA000000000071000000001001710000001-77FB6FBE1800000480048063C200-14B4F4B4F063C222FFFF01034A0000100000036000000010B34084063C2229B048C0002A63CC700002000000B800000000 B3,Congratulations, you have successfully subscribed to "[[channeltitle]]". It now appears in your subscriptions list below; new items will appear on the News page every hour.00040000000A0000000201B51000500000009000000020B500006000000650000000210920FFFF0A00000
10 10E310FFFF0E00000
10 0007000000190000000102011000080000015D00000002 40,Arial 40, 10407D104E440003214004000801010 40,Geneva 40, 1040304E401010000900000015000000023F72F93F72F9000A000000150000000263C22263C222000B00000005000000020000C00000018000000014A4B4F1DF02000000F0000005200000000400 10 4,pV 4,77A 4, (K; 4, 4,4 4, 4, 00130000007E00000000DA91F8CE1C1D1E1F7F1B0 44,- . . ' " FFFF0FFFF0FFFE000000060001001777AA 7^CG
0< 4 FFFF000000060001001777AA000000000071000000001001710000001-77FF6FBE1800000480048062A200-1131A131A062A222FFFF01031700001000000370000000106B4084062A22246048C0001862A109000020000007000000000 6B,Enter the URL of an XML news feed you want to subscribe to in the box below, then click on the Add button. 00040000000A00000002016D10005000000090000000206D0000600000063000000020920FFFF0A00000
20 10E310FFFF0E00000
10 0007000000190000000102012000080000014D00000002 40,Arial 40, 10407D104E4400014004000801010 40,Geneva 40, 4030 10000900000015000000023512CD3512CD000A000000150000000262A22262A222000B00000005000000020000C0000002100000002012D6D06B011030000F0000005200000000400 10 4,77A 4,49:5 4, 4, 4, 4, 4, 00130000007E00000000DA91F8CE1C1D1E1F7F1B0 44,- . . ' " FFFF0FFFF0FFFE000000060001001777AA vOS k 3 ` * FFFF000000060001001777AA00000000006F000000001001710000001-77FF6FBE18000004800480660200-1222A222A0660222FFFF0103000010000003900000001016C4084066022212C048C0004E6601CD000020000017200000000 16C,The following table lists the XML news feeds you've subscribed to. Included is the name of the source, linked to its Web page, the time or day it last changed, the number of times it has changed since you subscribed, and a link to the XML file for the channel. To delete a subscription, check it and then click on the Unsubscribe button at the bottom of the page. 00040000000B000000020216E200050000000A00000002016E00006000000970000000310920FFFF0A00000
10 10A210FFFF0A00000
10 10E310FFFF0E00000
10 0007000000190000000102011000080000015D00000002 40,Arial 40, 10407D104E440003214004000801010 40,Geneva 40, 1040304E401010000900000015000000023AF2773AF277000A0000001500000002660222660222000B00000005000000020000C0000001F000000020B3016C041C70000F0000005200000000400 10 4,77A 4,77A 4,Cـ 4, 4, 4, 5{ 4, 00130000007E00000000DA91F8CE1C1D1E1F7F1B0 44,- . . ' " FFFF0FFFF0FFFE000000060001001777AA xS l & * p V j'.F
& 2
F R
a m
x addButton AddcantSubscribeBecause 6confirmSubscription @subscribeIntro C]
tableIntro IMtitle
SubscriptionsunsubscribeButton Unsubscribe VArial
l I _C p 8 xW'.D
! -
2 >
L
aggregator 2? eventsLog ?misc 5R
subscriptions P U $ x'.K
! prefsOutline }strings Q VGeneva | =@8 S $ ~F ! cellBgColor FFFFFF
frameColor DCDCDC VGeneva | =@8 gif GIF89a f3 ̙f3 f3 ffffff3f 3333f333 f 3 f3 ̙f3 ̙̙̙̙f̙3̙ ffffff3f 3333f333 f 3 ̙f3 ̙̙f3 ̙f3 ff̙ffff3f 33̙33f333 ̙ f 3 ffffff3f fff̙fff3f ffffff3f fffffffffff3ff f3f3f3f3ff33f3 f f f f ff 3f 3333f333 333̙3f333 3333f333 3f3f3f3ff3f33f 33333333f33333 3 3 3 3 f3 33 f 3 ̙ f 3 f 3 f f f ff f3 f 3 3 3 3f 33 3 f 3 w U D " w U D " w U D " ݻwwwUUUDDD""" !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! $ , I$`d CV
#lСĄ+Z(0cC 'NJI\G VbZi/aƤ@75ICϟF983O@lh%QV9L4jϩ^:
3؞K*gZ-mv}(ԧҔ%+2K$ ; Q 000000060001001777AA00000000005B0000000010017101-77FF6FFE180000060006003900200-10390021FFFFF010000100000077000000020907840336A21F8B202CE00035D336A193090716DE84036A390021FDD7028E0008F339003000020000090D00000000 907,
Public Domain Icons
Public Domain Icons
These icons were originally made for Mosaic for X and have been included in the NCSA httpd and Apache server distributions in the past. They are in the public domain and may be freely included in any application. The original icons were done by Kevin Hughes (kevinh@eit.com).
Many thanks to Andy Polyakov for tuning the icon colors and adding a few new images. If you'd like to contribute additions or ideas to this set, please let me know.
The following are a few suggestions, to serve as a starting point for ideas. Please feel free to tweak and rename the icons as you like.
a.gif
This might be used to represent PostScript or text layout languages.
alert.black.gif, alert.red.gif
These can be used to highlight any important items, such as a README file in a directory.
| " Z W
y
t
3 ?
K W
a m
$
/ ;
J V
b n
/ ;
I U
` l
v
"j["Macintosh HD:Applications:OPML:Guest Databases:apps:Tools:newsRiver.root"].newsRiverWebsite.postToWeblog sxl["Macintosh HD:Users:davewiner:Desktop:OPML:Guest Databases:apps:Tools:newsRiver.root"].newsRiverWebsite.log zu["Macintosh HD:Users:davewiner:Desktop:OPML:Guest Databases:apps:Tools:newsRiver.root"].newsRiverWebsite.postToWeblog ;About Agnosticism/Atheism m Ask MetaFilter !BBC News | Education | UK Edition #i Boing Boing t@+ButterfliesandWheels.com Notes and Comments r EirePreneur t Event log Guardian Unlimited lHome $Internet Infidels News wire pJoystiq x
Lifehacker ,News Aggregator Newsome.Org ٝ
Pharyngula n5plasticbag.org غ Preferences Red State Rabble o Salon.com
Samizdata.net f#Scobleizer - Microsoft Geek Blogger #Scripting News qSlashdot ofStupid Evil Bastard r
Subscriptions $Y
TechCrunch s Test page [Thoughts from Kansas mWordpress Plugins DB n VArial Q X T $ VV linetext
Samizdata.netpath index.wsf X o F V
y
t
)
3 ?
D P
l x
!
2 >
H T
b n
) 5
J V
k "j["Macintosh HD:Applications:OPML:Guest Databases:apps:Tools:newsRiver.root"].newsRiverWebsite.postToWeblog sxl["Macintosh HD:Users:davewiner:Desktop:OPML:Guest Databases:apps:Tools:newsRiver.root"].newsRiverWebsite.log zu["Macintosh HD:Users:davewiner:Desktop:OPML:Guest Databases:apps:Tools:newsRiver.root"].newsRiverWebsite.postToWeblog ;About Agnosticism/Atheism m Ask MetaFilter Boing Boing t@+ButterfliesandWheels.com Notes and Comments Z k l p2 Y f Z o Y m 1 q X5 - V X f X z M : ~ E R = 4 ? 4W (
4
6 0D t Հ v j " l O V P p2 $ V V . 3linetext !BBC News | Education | UK Editionpath index.wsf l p2 $ VvVv . 3linetext !BBC News | Education | UK Editionpath index.wsf l ` \ $ VV linetext
Subscriptionspath subscriptions.wsf ] Y $ VڠVڠ $linetext Guardian Unlimitedpath index.wsf ] d ` $ VV & +linetext About Agnosticism/Atheismpath index.wsf d 1 q Y qj X5 # - V X f 1 _ [ $ VV ! &linetext Thoughts from Kansaspath index.wsf _ U Q $ VAVA linetext
Pharyngulapath index.wsf U _ [ $ VV ! &linetext Wordpress Plugins DBpath index.wsf _ Y m $ V/V/ linetext Homepath index.wsf index.wsf Y Y O $ VV linetext Slashdotpath index.wsfx.wsff Y [ W $ VV "linetext Red State Rabblepath index.wsf [ Y f $ VgVg linetext Homepath index.wsf index.wsf Y f b $ V%V% ( -linetext Internet Infidels News wirepath index.wsf f X5 $ V)V) ' / = ] Y $ V6V6 $linetext Guardian Unlimitedpath index.wsf Y U $ VV linetext Scripting Newspath index.wsf v r $ V^V^ 8 =linetext +ButterfliesandWheels.com Notes and Commentspath index.wsf v ^ Z $ VV %linetext Stupid Evil Bastardpath index.wsf ^ ` Q $ VV linetext
TechCrunchpath index.wsfiptions.wsf ` $ CD CD w |linetext j["Macintosh HD:Applications:OPML:Guest Databases:apps:Tools:newsRiver.root"].newsRiverWebsite.postToWeblogpath postToWeblog.wsf Y R $ VV linetext Boing Boingpath index.wsfwsf Y V R $ V}V} linetext EirePreneurpath index.wsf V . gif GIF89a ̙3ff33̙3f3f fffffff3f UUU333 3 f f3 3f !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , !dihlp,tmx|pH,Ȥrl:ШtJ6
ֹuu
_SX gyfpy.E]-:}vǾvk3dW@Ey$t^l|*j=z?(D8naZ{Lr`p~[rujpxµkeǙշlq͍¼~WѲ6{KУgʬS烙AyƐCs n"HFP-x#Cf(O_ ȥ1&"хhJ(62g J XCxdM$M $L8ɣ?N Df7 9X% _}UfJXl"ᦚpxNPRbV|Y9mJ'rH8A>[(*a%=RڨT¨櫴fZ+}
)_U`[Ȗ" ʾ0'+-m2Ot"w A
nZImh7NEµ/ tꩿ|,P 0 L܂<
1
1o/ ~| 2<\F @˝_\@Q»-ˬ 30|&Z2jt bց%IonmQ_Lj,RK10(-wobymcل DvwuƆ`O 0Q۹n
]qt8xϮVC 9r{4ͺ/ӥw$gF촓8ƹ[OH??F\zң ^ɓ#}B!1Q:P_5Ip!͏Z NvQw` (,-jQ5lxw@E Xڋ4Psk &Є:ݝBU.T "
ز
QV@lEFIT"zg5)>[Y: 2ЊS|v0:S}A$gd`(GI Л %AQ#&Y.ND%MLke[z4IMF"xA!Ax"E Y̥.w^ 0IbL2f:Ќ4IjZ̦6nz 8IrL:v@fu`X&&ӜJD3QdS"ꚇT/|e0j~ԡcюJQ:Y6 -2w((iT
t0O$@o5(q BD1k ?y>ӛ=%_g#vN: Hft!ndUq75θ[;N:C])p[ y0@R t٪Gx}\/U^~YQ6纎E}z$`/6b9ɮz?[ҟ7~QOj=\ؿ<
{MmGc w+W(тML{z w/s#iCB&ss~Xc30kW*'wgV9EJp{p.C-ַ}1G=GkQĀivd0}`90{|sjJ/&xzAm3HJh5*W# "rIXFZ%\4: x'yVȄetUrisg"u]8Z7m( JtJz86mIx@z(c9J $}bKfKxDB`x+/"%8Xx؊8Xx؋8XxȘzOZpABPCYyF]8^sEdR$(Y-Qݘ/e CTU:gEVU xvST4%^
Muz7Ca6UU0 xK5c5T\ @Xe]5[ZZ0Z[ PV_e[uG Y!E 5,p 7)4)\-QHEQ=|>>'+]ۅ\t9V͵·XtZ\QuvRxQÕbv} Y#I_uU_[U鑱 qSVfZZx_zEN~
m+8t{@Ȅ'w*+oȴwUK`lh4B]7s)}Kh[q[8[b*Z1|kiS6[%K
{Q汙< $wЉX6/ӋˋStJ_dʞ껾۾;[{ۿ <\|
XbYڈP T#5_@`vu#L TK(É Ux8 U P; Zw%UA >ii3 I\]Y
ŝyMl&U&HSUW5U1U0Ĥ~LY ^XX}嘉_|ls\SuY[TSlW@Tr%#E:ZUSuaɛ3YWjip ŕ,LU3 Y5ˀ\Y- ZA&E_9`Y\ʣUlʀ(̿%ּQ˘<ɽ|\9lZ z,P)]ERϾyƮyW y]\К1
- A=ϓPy_1\7CA = L7XK;* ,,0XjT3m䘝 @ B=D]F}HJ4bN?P?Y""/cGYK ` b=0Kߴa͜!a]m_-vMedhdn%reZv}s {
ءp F h"q}}ؽc،M:f ʲv"B؞
iϒӵ/ZLeُ'"J?0
{
jfiڵگMzҵMZC@
]nJ=-ܑG`Z`þb\ 6g=/0ꨃڬ=K;-oܓۈDSd -{ͬFݤJ42
nP* =-;[l3Z9 PذfBB^ bG=]+LN~EPGФ6^{qhCn{QNik>Em>B*CWMTkR_1&9n -1p~_8+X|Tƣ$1Qr[MK}h>GKZV jjqqCGN^mwJN >25^w2>cNuN.~Q=v{ΤJp7~~gM "#>. KX>9 .'^EZ>g9f ӻ$ !o~>!M35$RxDQx"IZ-Ã{u nJJ-"j
HLnp r?t_vxz|~ ?_?T& Ol} ;~ˤ__LPLë8(Ǡo?0L`Sk&i _xT)ė9WOuE)Fu~b? H~2+!Ĉ'Rh"ƌ7r#Ȑ"G,i$ʔ*Wl%̘2gҬi&Μ:w'РB-j(R42mӨKJuJӤN6Ÿ+
fX ڴjVxV-\n,ݵvy^ 敋/}x"庒1C|#pn8pԪS83dˏ qtq=C 0o
]x 7 O`,}+ N/4ΙF| u gi7Ak$ l L`` *`yIȠDh]H!G;ه~ =BVB`X
>h`vbq t_(l
k:xGa圉 UVe 8NV hUfFRיe)kJ"l_lb^] Yo|z~-`t-
ۙi2m ʙ )W1Yy@R|bŧZ=٩z#> H"Ydw
g^XV-e
{aZ b$P
jj0X",(: }
3 VĂ6b71DuڨM"2 '| Dm \.
_9u2K r&2#l)>mվLyGP5_
"]r~cpjX${,$^L7tɡ.u^]_~{7ن*uGoM HCuJo4
j@z(]n >dK7+T\`K36zŷ;*G<ovV~=߳)Wo*_sO+'
{֮ 垿?gN2E q[g>9b $){
,
%^O<' Z|&$
?"FpnK@^q?B
#,J_|D%2w%[=HacX.,Qǘ9ұv# =~# )A<$"E2|$$#)IR$&3Mr$(C)Q<%*SU|%,c)YҲ%.s]Σr,0<(Ld &=90Nf)A0!%fCY x2ٸs$ǜɋkP FRqh'49uȆ7 j&m,>abBh0+рb,E K f(
qƀt;
Dl2Ja1OWjy3OoX
Wl q*Rk
1s:}jKͫ5 T|bU?*Tzu /]NSjղU rnJM4H[W ݫ%jf3e,8 {3?)늪գ,f%:ꂫ QT]-@Zc(}mkLN
]̒ڀ d4.KQzc!B&wеn;{]^r.x+=/zӫ}x ~_ǼI}L6ca<#6p} /8Qta
WQ8cq^f߉q7̥xr-V
t`jCe\
%6͐}Ci{ oMdyA7Fk99Y fAft`(J0OWr\ *@].< ||L a7βf4SyonH~3IqӏB-jQ33cYh:;ZV-MFO_9s6oggԢթ6}MҸX?|=Tq;Vfyw m]zݘ'iZƯl|{pVnu[{𦓼k=k &uLln;ߐ8 pt[nw?r:^1lQ 9~ncҦaPoO*7 sqXO fG rj9
n螓Ni<]W:< i4V 7qǙۓvY/%=3;Tt ]#V8n>)a< 599˕\jo+hx?xLIyӃ ~=c/Ӿ=s=/?>3>/Sֿ>{>ufq4ijO[_#D6'4gˋڢ|na? %W ]C`WZ]h=FAVD 4* -^fr'(d}
j}$l` z Im
&^ a`90J%V Q Jidݠ#!DS
Ug[9oQ.\a!U[i>PZ
&I%dkAB3" "f)Ve9!- u} 0.r V82ġHveV4Ɩ0:D袐}#88#99#::#; Xȗ[c;] >M#>nA飁Ouc<`d@@$? (
~ՆT%mؒWEBEjBVaFCjLȈMc) dFfPbCd%t-JE]xUXT&eP^KfVLƢKS ^VǍ^Ul @aDYy\qxWVM ȉ uȑq
`XR =eW^$fX`F ,։ Snf^%c6fH=KkO%ff
]
R Y]^h~Hf4^jz[Fl
$Aɩ٦ln m^ږpEޜmga8tb x5EکduJe$\i):őzN[%y6 z 9geB'J&!{',Iy6x j*VxgrܣEXP%%70`0 ~YhO ]tB
]vZgUKцr~gdKhI(gTϓy}2|أ( f~.%P5\b hzFhti{iZRfgޱ)qc\֩橌z\̚ھEs9 ⩉br(ih rzjYX@^ H`SjB(䅆F~#6>+FN+V^+fn+v~++++r!c z`;_&a o]!WC+1j1
]`Ńz2_0C&D8C@̉El2N. A.ઘBbi;~_J#
^l V̺+ʶ j`ϊ,-2&,aT/l2"~dl"Z?b8I-2]-ZyҲlqTVb Vm8
Vm#pJ}-,JC$86m2mU .6 nB`!V"b]IQ9mIS-J"2- ᚠN4OY6b!,>3/nV .-&g--6fTBkjC. BRb/rop9o..J :#I\I5INc/zQo1j,/ 0 p|a)<WTY?d ٧M#ГU0WFADvedPdۤ) ?X W
@jCvw(yY0pƃW a q qSk
IJdHN:$ȅԴ s1 :
@tc> Oުu!!grfÙ0 1W81? r {=2|\ K~&ejL +i X1p26 xrI
¦,fo>9dg,ђL r.n~bJ0 & m@++kZ15s3;+XJ:&GB6r%sjVxlv 3 3&ހ)DHt<F>>6 YY/#JuO$tꀙA#+燎^=t $EM>MPFs4?@(yl@Bt8s3"ТtntNkFwt~*&I7'T7Xks %5gU/U7&[DN
<
^Ku4W#]@tH@8u-ک(ڵ}XdE˨Pgs?w JP
u"4bb\t64\w6 ?65`(%6&+_̳s
dч
uBS1\cP}.7$)v*3T6r~WG`oQ.@t{puV;Zp@ (/
z{p]+p^綗yetE8)a6~?*kĵjKvkojur%vv[WeCK8 j ]8pgT餆x[x}P:"Oˌs xbCQx{7ڋ**Ҳ&!9)"O9W_9go9w9999yoբ84// N :aDV
*:% gbj.[,;}lтll V"vaUW%lz
m6N- "{v
!֖m+,!~: !䲕 _m?nn&n(($._-Sa#Kz){.8::'a:z6[>-y~}oF`g$A~۽~; ,1R5C[Es]5<_?`=d ' Y_GU>?Npkcw?KQ ?LEa扦V /L2zJ \*W|: ( xLM{T _{:| ][D1w6$$E%uv6I zGZJ*SRXt85 {{uV j\ [s{dH *9V|p Wl:=
(+qG"u'q`4}AV&By+7!ƌp8G~IJ* FMfj´3g:rwR_ț:gD)2 ^L 12 J,58DxܖψZ? Ti(,ɑ*@cߖ+*cׯ` /Jk l܈f28i_XY!ߙeBϟ7ЭiZ(ny kTRA?3W1;8
Wؽ̋ Jy WV; K#){wś?>ۻ?B ; . U U: 0 B᷏ y ~
K S !6 !> "# "/ # # $ $+ % % % & & & '/ '6 (s (z ) ) * * + + , , 0 0# 1$ 1* 2% 2' 3 3" 4% 4) 5* 5/ 5 5 6 6 7 7 8e 8j 93 98 9 : : : ; ; P >V ?i ?o @# @* A4 A; BJ BQ CK CR DR DY E> EF Fk Fs G G Hj Hn Iq Iv Jc Jl Kf Kn Lk Ln M M N
N
O O O P P Pa gif GIF89a 333 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , i80 @#i;U"(|<ڮ:W!UJ:<<>,;IkX݂
{ mhڭuO[?>28V ; alert.black gif GIF89a 333 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , e80 @#i;W$֕xB.Qת5e>PHQfaQv5Aݒ\̴2`Iutz08<< ; alert.red gif GIF89a 33f 333 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , jhp@&i;WdB{^HaظjpnHP*V MW':Z+nek]G%1h~gNmg)c
P7AK ;back gif GIF89a fff333 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , K#j3Si7Nvt7*E nXm/5FPxƤl(N ڌ:@VUϋ ; ball.gray gif GIF89a ̻fffUUU333 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , D0I8ͻI| a#WBa iV H|&"9
_NgI % &*T&xx, ;ball.red gif GIF89a 33f !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , @80I]%[ adyO!%aN7/< NCbQBU
IeLsZجV ;binary gif GIF89a ̙333 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , iH0@$Y
]! q^ k굮jAvQh)n%Ӗ *ԂZU)9!_8s; JI;CS ;binhex gif GIF89a fff333 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , iH0@$YjU^+`Qߛ<[@`((&hLb.]|@ s;"".Ͷ<ҝh,DC6;M ;blank gif GIF89a !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , ڋI ;bomb 8gif GIF89a 3̻fffUUU333 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , 0IX$Ivm^I
v$}ئIvDpH
%r[@-45 oJ V1z=b@X `8o,@ۅ y_,UIJgh ABxCJepf% UTBLW ;box1 gif GIF89a ̙333 3 f3 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , n0#;D\iS1cuqk' @׆iXp~%0BC Պ9m1M:/<>n'W[2LL
;box2 gif GIF89a ̙333 3 f3 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , H0@$i;U"a ,14``H~`x8(|F˦U^
SDs(e]+m<=O~qzZ,d|=|`c{
KD1; ;broken gif GIF89a 333 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , j80 @#i;U"(1RDmL K:K
|hJ$Y '.fľ'wV@ٛ6*[uiR7
=HS ;index gif GIF89a f333 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , H0@$i;U"hAREmr%F~2K0^#ChZ
VyR2VkX(pIgÕ7VnEMOrZR9DQAG<9
s/yy ;layout gif GIF89a 333f3f333 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , oIx Gvm^IYq$l4aL r@kW HPh6=(Aa9(UBo\5& 2Wv-/s8GM/;xpukt}{[RQ?pH ;left gif GIF89a !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , + IXAo}N(JdDjh:)!yt]~ md ; leftArrow zGIFfGIF89a f3 ̙f3 f3 ffffff3f 3333f333 f 3 f3 ̙f3 ̙̙̙̙f̙3̙ ffffff3f 3333f333 f 3 ̙f3 ̙̙f3 ̙f3 ff̙ffff3f 33̙33f333 ̙ f 3 ffffff3f fff̙fff3f ffffff3f fffffffffff3ff f3f3f3f3ff33f3 f f f f ff 3f 3333f333 333̙3f333 3333f333 3f3f3f3ff3f33f 33333333f33333 3 3 3 3 f3 33 f 3 ̙ f 3 f 3 f f f ff f3 f 3 3 3 3f 33 3 f 3 w U D " w U D " w U D " ݻwwwUUUDDD""" ! , G2 ̘!DCNƌqZ@ #>xp!A 'ʹ1I1. ! clip2gif 0.7.2 by Yves Piguet ;link gif GIF89a 33f 333 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , lXP@%i;U"QRFmL
K:KDz _sDV@T N6#m a^k +Ǻ}NzBD=4X q(fHi.2^7W6w-2: Q ;pie4 gif GIF89a !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , @4X q(fHi.2^7]r LI䒩D1rROI0
;pie5 gif GIF89a !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , <4X q(fHi.2^7r f<
-(t1 F ;pie6 gif GIF89a !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , 94X q(fHi.2.TE%a<"0
;pie7 gif GIF89a !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , 84X qxpzȶHBjx~<2~ ( ;pie8 gif GIF89a !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , ,4hm*aTl+ Hmߵ~c ;portal gif GIF89a 3̙3333 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , qhP@&i;U"rAeᾇ'eGy
npx|7B@x `H y %$\N\[
^2֦=[- oGzp7FF2|: ;ps gif GIF89a 333 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , g80 @#IjU hV&L wU'eH{ ;eAJ^X*zլrYDb8^7\( 7> F85 ;quill gif GIF89a fff3333 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , ~h0@&i;WGxp]BqHR/ !:,Cb V%H@ @d)6<1EY!~˺A = v,ipg Zp[ys" ;right gif GIF89a !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , + ⚀QMZy}ReHjf^lt=ݸ^ ;screw1 gif GIF89a ̙333 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , u0BlhaB( ]@JTK/9?[\A@3$V( ؉rR!v`Uʩ3u|iVf*{ ǧ O~}(vp_?7 O ;screw2 gif GIF89a ̙333 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , zH0@$i;U"@TAW6,Aa@,N>H}J{v,{ ;sound2 gif GIF89a ̙fff333 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , PH-tYC$!zP(
WɝE zU[4J쯀1T/g O9T7A3n}7 њaʌp^$ ;sphere1 !gif GIF89a 33̙f 333 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , xpI8:@ AjtnEC w-T2VTʬWh5awE_=}L~$y{~VSz_qwm?|H5j& ;sphere2 gif GIF89a 33f 333 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , {hp@&i;U"aRGm ru|O!@ |c*{G rp,@G|F {Bxyj:63#JH=/7@ ;tar gif GIF89a VVU777 !DThis icon is in the public domain. 1995 Kevin Hughes, kevinh@eit.com , `(0y;A|ș,#ж !FZ)Fb!FqN=
94ydԙ];䌛Uz<^L=u{4҄TM ;tex gif GIF89a 333 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , n80 @#i)! Ega5ny*u_;
` yx$$QD
RRE'Ԗp38Zn׀x#~/}i{eGF:oZ ;text gif GIF89a 333 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , X80 @#i;U"qDR'
n Jn( <:{PټVEnY2~Oڍ ;transfer gif GIF89a 33f 333 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , e(*ս0 -2J]}JXq뒝!|C>_@9BUCI`3"tJ]Fة♥Ox,~!-O軻1it-)44 ;unknown gif GIF89a 333 !NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995 ! , h80 @#i;a"Qyʵ.J 70֧#$
@*,K|'"-K<%$`[˓j%xYq8Fn{=~q_K<4L#~x= ; VArial
i V 2 2 U gif GIF87aM l ιܥخӗдʗՇԗɉʈ׳ҴǷԨʤƩŸȭƘɑɕŗ븪̶긕紉媆ӴƧקʤᝑϖƚsdylxStlY:}vF|ntNu,o1k:gvlpyפzˣxѦjr֚xǗvƍt֗kȔiҋkʼngWؤVѤO^ćXɒLspwwtujgfgvvjYPIT˖988SLDE !T",>|J-dA`S!+֜Eh]A!Ƞ!B0Ԁ2lqYhRxQ+qđ7܀ !d "Ĕ Cmls6`
z6lF/̐C 8 å"C ʹ
g2 1DLaH&' 8lCqF 81 AZnQҌUQLqŁ rf
T\ !<SH
5#* "R<Ӹv>LB K-aC2:qÅL#ƘSN%am.p>LS8(pō (!(s-$̧@4N5 #$0 ;c:Q#cU @$l*L J,hhWBC0D)՜:c
(Gp
,s= @?8!L&rtd4t7%|PH!*
^+ Ca$#pGBLQXb1`J+JE4v|>d?` 4>> -L=,1 2I ~ E@. b'4CȄ~QXhgeXF0XĢ .lAr ePB I:%&Ր ag/AkH B<6A9C LB * ce( w+0 (A*#SxQdTb :@c 搄*"fxEڴ5- x3h tJ@. rm!n<
%*2 B>t
m l;衑C
\E0D91 Eh4CbOb3qgt3kЁ
ހ aP8UHBVX E,ph[PQg9"!"-tqx!0
JPa(HWrc 2!&$C<Њ'BhbeS$8A<!9ɂa5Y# %ǨG}$^ >&T4#!Q@D
h8LQ
wL?0qMi= *ձ5UF1 |'? Xc=a $}D!
[;$x,b@, |xq"!0zC!w3 OHA d E?j#G "5ap%l#AR891r P 8@؋^
* lX.qU
B@:AJM||&
zj
P!WL#r [
3L y0 !=&A)D LX ;gSa
f}L[ N nd5`l`
r6t!1 ܠoxЇ3k9ȕO6#Ӡԫ
l0 ܐ hNwAd I
3pQ<<1B0.A]A:>!hD w@+@s G^[c #cP**50d:pH"y]
@81f $0 =rLK@@ -v
ruypfd* @G# pS ذ~'Sg u1dB 3W d ~0
U1Z(1PWoWp #@@ W@ hR`ȇ +cTp0 >>D
e eyxB
Ј p =PZp
0 TxJ c
Ac R0DPP}0[E(^ n< ؎3fQ0 !nP$ a H c3pp4! v ǰ 9e0
p 0UHɐ 1
p0p:tgpZPZ@"{
Y@@/C
Ġ İ 05 Y RP
Sb0{$p 2 L @!9p5@0b
p^
w/
q
%\
4 T ~ lD `T!a ) `R>`,
& @di
[0>` 0 cPR@P
~ P ZP
pS
f
B^P po~P8Ep Q S$!`ve hyY``Q;*XW%
# ^719 e ,P
1dh@ ۖh/_:X
PҠj7 @
j @ 6Y`,g
GZ@pSf _dX0^ D
p^( UT j T@Djΐ`аO` d( p v =^#0eHP7d?s: Ho
v@p
P1Q=={ ; g@+&'.@#0@LP~F@N& jِ
@zZ^V
ϳ ZEaP|`
cT8*E F?0 RoJ z
@,p
` @
@RF0`i0>̐ ʠ ~3* Ү;@0YHq
= @ @
0 2^p` \p q 71Yf?NO @ װ|b 0
VЖ 9
3w( pM?SO@T@A`M
-6i k1$i P@ba@3TPZ# 0% v 0P>0 0 Ć0@ P 0 d q 0>0 ah~O
PsH ͔PP
Yu0 P \)E QpT# TB't @]/ sV@5TcP<p#s
*
\{'@
5
XX
z
=fopxP P
YvV`Ԁ*
D p;p _ . .E_7 `# uE
Ub
0` !3Z
y
X0bofN`xL ސ, @
sb
l
9A` 0 uB"Ҥxs
v ۰
c ]Q` '"^C]Yx"N* Pڰ
aK"%Saopo +2P,pYg0
_`q ܐ n$5Ε'"P]K^!-. .Hkpk`$0'x.P[`Ac
=a2I
60%l۠
]ל:"'yr"!gQ -d@\',H-ip:p/|- jI1H4ސ7r1 h`*O}п*aGl
d77wuxpqP'[.@i y$
XO*
'0 (qpwi
jP[)O
DW mP20
]E#h1ˑp-ϐOM4O #M bq 2M} ema ~(! ݠf0Rg*uRJ _
y^R1Noc!@ $2R.8]
]/j:"p<. tN 6X`
bZ"&ob< NB0 Ŝb@Q`Ɉ @
*#0 M
2V
㐋,` 01@ 03bnň .s6.rdwԼ* >
)@epj|P m܈ `
1ՎJP W`P Up `1ފ.Q@#D: ^
pC` J`k pe
``Qg pW@M* @ YJ @R
?) @
mH М
7 B@d
A P ' +S /` ڢ2p ;
R gif GIF89a5 + ~~~}}}|||{{{zzzyyyxxxwwwvvvuuutttsssrrrqqqpppooonnnmmmlllkkkjjjiiihhhgggfffeeedddcccbbbaaa```___^^^]]]\\\[[[ZZZYYYXXXWWWVVVUUUTTTSSSRRRQQQPPPOOONNNMMMLLLKKKJJJIIIHHHGGGFFFEEEDDDCCCBBBAAA@@@???>>>===<<<;;;:::999888777666555444333222111000///...---,,,+++***)))((('''&&&%%%$$$###"""!!!
! ADOBE:IR1.0 ! , 5 + H 0T1IJ29: ŋ *G)]LqЪ()Jc^2I ?jdRA4N}Jι_ d*đ-b ( YafZ8@X,SYh.5e>& @ gQ6x8C6 ؑHkg W2@ (<[`0 Ak2$C$?rC&_\6 4ٓ$0& XRrUB`
\"Gb@XZB N
DnJX( -'cO TЅ(BO*V %DCBF|(Rq H@K,~
[A;P t r0
P!'lP l/! 0P I&;b.Xe"H $<$C>WH)"ASpI:@0P(V``J$A9PB̘}"cf E?tD @з8hR@ U(
C9 t@ \@~ 2C
Ap̠!0@ A 1ޭ@m|-)Ft2Ё 4r2@9L"#\qx42A\ P
U/0R "$J#b PK"%\H 73@lQ 4 D\/IGd`G <"P}C R @,/+ 0H7 vQ
+$g@53@ nD' B @2ՏrO- xI]@ Z3@@TK0ӎ:JΰB5bO7"p pQ % -@[I?h" (OPDS
$J081P@bae 4!F:2ld/|c
`^<50 {@ FFPY4CG H x>D @TH }B?%
hD9 0F?.X
BDZY$!(F%f$ &P` 8ތ6 N 6\b).`a?jY1^
13a> :pbi`'@%@
~Rɖ
ڀp F8gV5 DKq"3# z `E#hl`MBJ - E @+bق9 ыFlL``GHb(%Xq /
D$@+/L0aa/ - Q! 7P)P BB6aW'+
&ah,-,c 4HuCo) ;
R
gif GIF89aH < !!!)))111999BBBJJJRRRZZZccckkksss{{{νƽƽƵZRRssB99911 έkJBƭkcΜ樓! ޥ{k֔{Z1ƵΥ֜Δ{ƌsքccB{JsBsBk9c1Z)Z)J!c)R!Z!Z!ƵkZRΜ{ZJ籠ksZ9)ksRcބZRkBsBk9s9R)k1J!c)RZZ{kcνέεƭבֿ祄֔sƄc{cB1skքZZZ9R{J{JJ{Bs9s9Z)k1s1k)k)Z!c!c!ZZcR!BJJk)Z ﵔ{c֜{ޔksRcބR{Bc1c!cZ{1ֽεΥΜ{פּ֔ksJR1ƭsB!Z)ƥkRƽ{sƵ kcZ֜ ! , H < @ HA.Px4p AB(`8ȱG
T ࡤɓ$Sz % @ >rt挧|t"ԉ','`@+=*'4g@)`@
,TdtT>dCϡQ{ҥ3h~j(ϠgUqJ9
YF"XਓrNi
$*x:0` *Lp!Æ
sXn
"x 2E=7)Dy&>hyF
յ?,MvJp9'P R%`"e4 kQ Kp l tD D H$1aK$ RF!~de>ȑRi`KV
VQu ,ExCqQ
FQ fa `
y, eũ0R`
}}!?4 KXՙP H aTdT6 @ODU|ׇ^9 @8X\o*G9z I)nEUgtAp VTNPŗfUkLy)]`K*pS.ŲA),KAVpyD Hxhݙ`[RK@|xTp$cƀ)9u1g)OltȱyTzQ@`KٙQv:oDA {OV[1 CcNX>paaۯAJ `FD4 LZO|
B@ p@}$! `
Ȗ%dp# 6ʅ|˃0a3)cf(@(WZ@ >Q
H@$x@8>$[E`` )I<0G:K! $ A ~%1 ?zЀ!=F h'AOx,P X ef 0 Z" rт^+ &0a@@R,%
B) 6i$[\p
T X x).vIF AeNOQgg@it5n, $9dR|9S>{ X "8#0A
S pЄLM QsB&0~630 l
Dja P(-]cRQ LMI`B&xP/dvQB
These icons were originally made for Mosaic for X and have been included in the NCSA httpd and Apache server distributions in the past. They are in the public domain and may be freely included in any application. The original icons were done by Kevin Hughes (kevinh@eit.com).
Many thanks to Andy Polyakov for tuning the icon colors and adding a few new images. If you'd like to contribute additions or ideas to this set, please let me know.
The following are a few suggestions, to serve as a starting point for ideas. Please feel free to tweak and rename the icons as you like.
a.gif
This might be used to represent PostScript or text layout languages.
alert.black.gif, alert.red.gif
These can be used to highlight any important items, such as a README file in a directory.
back.gif, forward.gif
These can be used as links to go to previous and next areas.
ball.gray.gif, ball.red.gif
These might be used as bullets.
binary.gif
This can be used to represent binary files.
binhex.gif
This can represent BinHex-encoded data.
blank.gif
This can be used as a placeholder or a spacing element.
bomb.gif
This can be used to repreesnt core files.
box1.gif, box2.gif
These icons can be used to represent generic 3D applications and related files.
000200000DDD00000907 DD7,
broken.gif
This can represent corrupted data.
burst.gif
This can call attention to new and important items.
c.gif
This might represent C source code.
comp.blue.gif, comp.red.gif
These little computer icons can stand for telnet or FTP sessions.
compressed.gif
This may represent compressed data.
continued.gif
This can be a link to a continued listing of a directory.
down.gif, up.gif
These can be used to scroll up, down, left, and right in a listing or can be used to denote items in an outline.
dvi.gif
This can represent DVI files.
f.gif
This might represent FORTRAN or Forth source code.
folder.gif, folder.open.gif, folder.sec.gif
The folder can represent directories. There is also a version that can represent secure directories or directories that cannot be viewed.
generic.gif, generic.sec.gif, generic.red.gif
These can represent generic files, secure files, and important files, respectively.
hand.right.gif, hand.up.gif
These can point out important items (pun intended).
image1.gif, image2.gif, image3.gif
These can represent image formats of various types.
index.gif
This might represent a WAIS index or search facility.
layout.gif
This might represent files and formats that contain graphics as well as text layout, such as HTML and PDF files.
link.gif
This might represent files that are symbolic links.
movie.gif
This can represent various movie formats.
p.gif
This may stand for Perl or Python source code.
pie0.gif ... pie8.gif
These icons can be used in applications where a list of documents is returned from a search. The little pie chart images can denote how relevant the documents may be to your search query.
patch.gif
This may stand for patches and diff files.
portal.gif
This might be a link to an online service or a 3D world.
ps.gif, quill.gif
These may represent PostScript files.
screw1.gif, screw2.gif
These may represent CAD or engineering data and formats.
script.gif
This can represent any of various interpreted languages, such as Perl, python, TCL, and shell scripts, as well as server configuration files.
sound1.gif, sound2.gif
These can represent sound files.
sphere1.gif, sphere2.gif
These can represent 3D worlds or rendering applications and formats.
tex.gif
This can represent TeX files.
text.gif
This can represent generic (plain) text files.
transfer.gif
This can represent FTP transfers or uploads/downloads.
unknown.gif
This may represent a file of an unknown type.
uuencoded.gif
This can stand for uuencoded data.
world1.gif, world2.gif
These can represent 3D worlds or other 3D formats.
's.
1/6/02; 4:00:15 AM by JES
Added table css classes.
12/19/01; 11:04:58 AM by JES
If user.radio.prefs.flNewsPageReturnAfterPost is true, add the referer to the searchArgs on the link for the Post button. This causes the weblog post form to redirect back to the News page after posting an item.
12/18/01; 3:43:14 PM by JES
Don't add the referer to the searchArgs on the link for the Post button. This prevents you from being redirected back to the News page after posting an item.
12/8/01; 11:56:49 AM by DW
Intro text says "uncheck those you want to keep" if the preference is set to have checkboxes turned on by default.
12/1/01; 3:00:09 PM by JES
Fixed a macro error when the user has hit the Back button after deleting a story, and tries to delete the story again. Added a Delete button to the bottom of the page. Decode entities and untaint channel titles and news items' text.
11/24/01; 3:31:11 PM by DW
Linked into help system.
11/23/01; 4:41:15 PM by JES
Changed user.radio.prefs.newsPageDeleteCheckboxesDefault to user.radio.prefs.flNewsPageDeleteCheckboxesDefault.
11/21/01; 3:31:33 PM by JES
Fixed macro error: "[Macro error: Can't find a sub-table named "system.verbs.builtins.radio.html.viewNewsItems".]", when deleting items while a scan is in progress.
if defined (adrcache^)
...references to adrincache^ are ok
11/3/01; 10:51:00 PM by JES
Fixed the url on the redirect searchArg, so that the page will load to the last-posted news item.
10/22/01; 1:55:35 PM by JES
Fixed a bug where news items could not be deleted because an address was improperly dereferenced.
10/20/01; 12:38:03 AM by JES
Added the menu searcharg to the mag-glass links, and to the redirect url for the Unsubscribe button, which appears on single-channel pages.
8/14/01; 11:50:02 PM by JES
If storyText is not defined for a given story, skip it. This averts "storyText hasn't been defined" errors.
8/14/01; 1:58:42 AM by JES
Add the post number to the path-part of the referer searchArg, so the page will reload to the same news item after posting.
Archive:
1/8/01; 8:53:17 AM by DW
Added support for the viewStories cache.
1/8/01; 10:55:56 AM by DW
Factored calls to myUserLandSuite.images.imageRef.
1/11/01; 4:40:45 PM by PBS
If displaying a category page, add the attributes at the top. The title and description of the category can be edited. This is actually handled in another script: radio.html.editCategory
Commented out some debugging code (a scratchpad reference) that had been left in place.
If displaying a category page, use the displayName for the category.
Make sure the title of the page changes when the category name has changed.
1/12/01; 1:48:52 PM by PBS
When editing a category, title and description appear at the end.
1/13/01; 6:08:33 PM by DW
Only show items with enclosures after the enclosure has been downloaded.
1/19/01; 5:03:23 PM by DW
Undo the last change, items with enclosures are visible. Items with enclosures have a media icon, if it's been downloaded, the icon points into the local file system, otherwise it points onto the Web.
1/21/01; 3:47:55 PM by DW
Link the EDIT button to myBlog.wsf, instead of addRemove.wsf.
1/24/01; 4:29:55 PM by DW
Show a checkmark if the item has an adrBlogPost in its table.
1/27/01; 5:01:03 PM by DW
Change the EDIT button to POST.
2/12/01; 4:21:06 PM by PBS
Link title for the magnifying glass: "View all stories in the [channel title] channel."
2/12/01; 4:34:35 PM by PBS
Fixed bug where quotes and carets in a channel description would mess up rendering -- an example was Dave Winer: Two-Way Web, which has a description of You're soaking in it! ";->"
2/12/01; 5:25:25 PM by PBS
Terminology fix -- when viewing one channel, refer to it as a channel, not as a service.
Also, use different text at the top of the page when viewing one channel, since the page is *not* showing you the recent stories from all the channels you're subscribed to.
Skip empty stories.
2/15/01; 2:49:58 PM by PBS
Cleaned up. Mostly removed single-category stuff that was no longer used. Stories that are just images get displayed again.
2/23/01; 10:55:23 AM by PBS
Terminology: weblog, not blog.
2/23/01; 4:04:47 PM by PBS
Slight change to punctuation in the description at the top of the page.
2/23/01; 10:53:19 PM by JES
Linked the Post button to weblog.wsf, instead of myBlog.wsf.
2/24/01; 9:40:04 PM by PBS
Help link.
2/24/01; 11:35:08 PM by JES
Bug fix: the default cache was not deleted when deleting stories while viewing a single channel.
2/24/01; 11:52:11 PM by JES
Fixed cache deletion logic: When deleting an item via either the home page or a service page, delete both the default cache, and the service's cache.
2/25/01; 1:31:32 PM by PBS
Set up a second cache for when it's not the same machine.
2/25/01; 2:26:50 PM by JES
Separate cache for viewing single channels when it's not the same machine.
3/4/01; 6:11:10 PM by JES
Reality check: Don't add the magnifying glass if the service's table is not defined.
3/5/01; 2:14:08 AM by JES
Fixed bug where "default" is undefined when deleting a story while accessing the home page remotely.
2 :D
changes VGeneva | =XJ t , Geneva II p LAND mac on postToWeblog (adrargs)
Changes
12/29/05; 7:58:20 PM by DW
Add a "created" attribute to the posts, so permalinks work properly. Tom Morris caught this one.
scratchpad.ptwargs = adrargs^
edit (@scratchpad.ptwargs)
local (adrdata = newsRiverSuite.init ())
local (adrstory = @adrdata^.stories.[string.padwithzeros (number (adrargs^.idStory), 8)])
local (adrsource = @adrdata^.services.[adrstory^.url])
local (viatext = " [" + adrstory^.channeltitle + "]")
local (initialtext = adrstory^.storytext + viatext)
wp.newtextobject (initialtext, @scratchpad.initialtext)
edit (@scratchpad.initialtext)
dotOpmlSuite.blog.openTodaysOutline ()
op.firstsummit ()
op.insert (initialtext, up)
op.attributes.setOne ("created", date.netStandardString (clock.now ())) //12/29/05; 7:58:20 PM by DW
frontier .bringtofront ()
if adrdata^.newsRiver.flNewsPageReturnAfterPost
if defined (adrargs^.referer)
adrargs^.redirect = adrargs^.referer
if defined (args.idstory)
local (adrstory = radio.aggregator.getStoryAddress (args.idstory))
local (adrsource = @adraggregatordata^.services.[adrstory^.url])
bundle //link the globe to the HTML rendering of the channel
with adrsource^.compilation
msg (adrsource)
globe = "" + globeimg + ""
add (globe + " Source: " + adrstory^.channeltitle + "; " + adrstory^.time + ".
")
add (adrstory^.storytext + "
")
add ("")
add ("")
add ("")
add ("")
add ("")
edit (adrstory)
return ("")
bundle //test code
postToWeblog (@scratchpad.ptwargs)
Wdatatabl G XX created Fri, 30 Dec 2005 03:58:16 GMT Wdatatabl G ZZ created Fri, 30 Dec 2005 03:58:18 GMT Wdatatabl G ]] created Fri, 30 Dec 2005 03:58:21 GMT Wdatatabl G ~L~L created Fri, 21 Oct 2005 14:45:02 GMT Wdatatabl G ~M~M created Fri, 21 Oct 2005 14:45:26 GMT Wdatatabl G ~O~O created Fri, 21 Oct 2005 14:56:20 GMT Wdatatabl G ~O~O created Fri, 21 Oct 2005 14:56:20 GMT Wdatatabl G ~Pm~Pm created Fri, 21 Oct 2005 14:59:41 GMT Wdatatabl G ~Rҿ~R created Fri, 21 Oct 2005 15:09:54 GMT Wdatatabl G ~R~R created Fri, 21 Oct 2005 15:10:08 GMT Wdatatabl G ~S7~S7 created Fri, 21 Oct 2005 15:11:35 GMT Wdatatabl G ~[w~[w created Fri, 21 Oct 2005 15:46:47 GMT Wdatatabl G ~[;~[; created Fri, 21 Oct 2005 15:45:47 GMT Wdatatabl G ~[B~[B created Fri, 21 Oct 2005 15:45:54 GMT Wdatatabl G ~O~O created Fri, 21 Oct 2005 14:56:21 GMT Wdatatabl G ~ND~ND created Fri, 21 Oct 2005 14:50:28 GMT Wdatatabl G ~\2~\2 created Fri, 21 Oct 2005 15:49:54 GMT Wdatatabl G ~\7~\7 created Fri, 21 Oct 2005 15:49:59 GMT Geneva ~ƿ~ LAND mac on unsub (adrargs)
scratchpad.unsubargs = adrargs^
edit (@scratchpad.unsubargs)
local (adrdata = newsRiverSuite.init ())
xml.aggregator.unsubscribeService (adrargs^.xmlUrl, adrdata)
adrargs^.redirect = newsRiverData.systemUrls.news
return ("")
Wdatatabl G ~~ created Fri, 21 Oct 2005 18:39:50 GMT Wdatatabl G ~D~D created Fri, 21 Oct 2005 18:40:52 GMT Wdatatabl G ~~ created Fri, 21 Oct 2005 18:42:35 GMT Wdatatabl G ~~ created Fri, 21 Oct 2005 18:42:42 GMT _ Geneva xT~ '?LAND mac on viewNews (adrargs)
adrargs^.returnedvalue = newsRiverSuite.viewNewsItems (adrargs:adrargs)
T Geneva QӿR LAND mac on viewSubs (adrargs)
adrargs^.returnedvalue = newsRiverSuite.viewSubscriptions ()
8 m'.C
+
4 @
I postToWeblog ?unsub @viewNews C viewSubs C VGeneva | =@8 I = t Geneva P3P3 N qLAND mac on cleanFilename (fname)
Changes
9/19/05; 5:45:19 PM by DW
Legal characters for DOS file names include the following:
Upper case letters A-Z
Numbers 0-9
Space (though trailing spaces are considered to be padding and not a part of the file name)
! # $ % & ( ) - @ ^ _ ` { } ~ '
Values 128-255
if system.environment.isWindows
local (i, ch, fllegal, s="")
for i = 1 to sizeof (fname)
ch = fname [i]
fllegal = true
if not string.isalpha (ch)
if not string.isnumeric (ch)
if (number (char (ch)) < 128)
if not ({' ', '!', '#', '%', '.', ',', '&', '(', ')', '-', '@', '_', '`', '{', '}', '~', "'"} contains ch)
fllegal = false
if fllegal
s = s + ch
return (s)
else
fname = string.replaceall (fname, ":", "-")
fname = string.replaceall (fname, "!", "")
fname = string.replaceall (fname, "|", "")
return (fname)
"@ E
&
5 Geneva x<pLAND mac on downloadEnclosure (adrq)
Changes
1/21/06; 11:45:30 AM by DW
Callbacks, after download.
1/19/06; 5:29:55 AM by DW
Respect flOutlineEnclosures pref.
1/18/06; 4:56:45 PM by DW
Adapted for newsRiver.root.
9/19/05; 10:50:03 AM by DW
If the feed doesn't have a title, store its podcasts in a folder named "Untitled feed."
http://archive.scripting.com/2005/09/19#When:1:41:22PM
local (adrdata = newsRiverSuite.init (), feedtitle, foldername)
try
feedtitle = adrq^.adrservice^.compilation.channeltitle
foldername = newsRiverSuite.podcatcher.cleanFilename (feedtitle)
else
feedtitle = "Untitled feed"
foldername = "Untitled feeds"
adrq^.feedtitle = feedtitle //for the log outline
local (folder = adrdata^.newsRiver.podcatcher.prefs.folder + foldername + file.getpathchar ())
bundle //see if we can access the folder
try
file.surefilepath (folder + "xxx")
else //nope
if system.environment.isMac
if sizeof (foldername) >= 32 //too long!
foldername = string.mid (foldername, 1, 31)
folder = adrdata^.newsRiver.podcatcher.prefs.folder + foldername + file.getpathchar ()
local (url = adrq^.url)
local (fname = string.nthfield (url, "/", string.countfields (url, "/")))
fname = string.nthfield (fname, "?", 1)
fname = string.urlDecode (fname)
fname = newsRiverSuite.podcatcher.cleanFilename (fname)
local (f = folder + fname)
bundle //do some checking on the filename
local (extension = string.nthfield (fname, ".", string.countfields (fname, ".")))
local (fnamedefault = "podcast" + nameof (adrq^) + "." + extension)
if system.environment.isMac
if sizeof (fname) > 32 //too long!
fname = fnamedefault
f = folder + fname
if file.exists (f) //don't overwrite existing file
fname = fnamedefault
f = folder + fname
adrq^.f = f
file.surefilepath (f)
local (s)
bundle //read the url
local (urllist = string.urlsplit (url))
s = string.httpResultSplit (tcp.httpClient (server:urllist [2], path:urllist [3], ctFollowRedirects:5))
file.writewholefile (f, s)
bundle //if we have a pubdate, set the file dates to that
try
if adrq^.pubdate != date (0)
file.setcreated (f, adrq^.pubdate)
file.setmodified (f, adrq^.pubdate)
adrq^.whenDownload = clock.now ()
if adrdata^.newsRiver.podcatcher.prefs.flOutlineEnclosures
newsRiverSuite.podcatcher.logDownload (adrq)
bundle //callbacks, 1/21/06 by DW
local (adrscript)
for adrscript in @adrdata^.newsRiver.callbacks.afterEnclosureDownload
try
adrscript^ (adrq)
bundle //test code
downloadEnclosure (@aggregatorData.newsRiver.podcatcher.queue.["00066"])
Wdatatabl G YY created Sat, 21 Jan 2006 19:45:29 GMT Wdatatabl G [[ created Sat, 21 Jan 2006 19:45:31 GMT Wdatatabl G SS created Thu, 19 Jan 2006 13:29:55 GMT Wdatatabl G TT created Thu, 19 Jan 2006 13:29:56 GMT Wdatatabl G #̿# created Thu, 19 Jan 2006 00:56:44 GMT Wdatatabl G #ο# created Thu, 19 Jan 2006 00:56:46 GMT Wdatatabl G % % created Thu, 19 Jan 2006 01:02:03 GMT Wdatatabl G % % created Thu, 19 Jan 2006 01:02:04 GMT Wdatatabl G %+%+ created Thu, 19 Jan 2006 01:02:35 GMT Wdatatabl G 11 created Thu, 19 Jan 2006 01:55:39 GMT Wdatatabl G %% created Thu, 19 Jan 2006 01:05:58 GMT Wdatatabl G pp created Mon, 28 Nov 2005 21:57:20 GMT Wdatatabl G zz created Mon, 28 Nov 2005 21:57:30 GMT Wdatatabl G }} created Mon, 28 Nov 2005 21:57:33 GMT Wdatatabl G 燿 created Mon, 28 Nov 2005 21:57:43 GMT Wdatatabl G 狿 created Mon, 28 Nov 2005 21:57:47 GMT Wdatatabl G 穿 created Mon, 28 Nov 2005 21:58:17 GMT Wdatatabl G 緿 created Mon, 28 Nov 2005 21:58:31 GMT Wdatatabl G mm created Mon, 28 Nov 2005 21:57:17 GMT Wdatatabl G MM created Mon, 28 Nov 2005 22:01:01 GMT Wdatatabl G created Mon, 28 Nov 2005 22:02:56 GMT Wdatatabl G created Mon, 28 Nov 2005 22:03:43 GMT Wdatatabl G 狿 created Mon, 28 Nov 2005 21:57:47 GMT Wdatatabl G 穿 created Mon, 28 Nov 2005 21:58:17 GMT Wdatatabl G xx created Mon, 28 Nov 2005 22:01:44 GMT Wdatatabl G BB created Mon, 28 Nov 2005 22:05:06 GMT Wdatatabl G xx created Mon, 28 Nov 2005 22:01:44 GMT Wdatatabl G && created Thu, 19 Jan 2006 01:08:36 GMT Wdatatabl G DD created Thu, 19 Jan 2006 13:29:40 GMT Wdatatabl G mm created Sat, 21 Jan 2006 19:45:49 GMT Wdatatabl G tt created Sat, 21 Jan 2006 19:45:56 GMT Wdatatabl G ρρ created Sat, 21 Jan 2006 19:46:09 GMT Wdatatabl G ϠϠ created Sat, 21 Jan 2006 19:46:40 GMT Wdatatabl G ϤϤ created Sat, 21 Jan 2006 19:46:44 GMT Ӏ
a E+ Geneva u LAND mac on downloadQueue (flOvernightDownload)
Changes
1/19/06; 5:31:34 AM by DW
Add parameter, flOvernightDownload, if true, we don't start a download after the stop time.
1/18/06; 7:19:21 PM by DW
Updated for newsRiver.root.
9/19/05; 10:09:50 AM by DW
If there's an error, record it and move to the next element.
Don't try to read items with errors.
To clear the error to try again, delete the error sub-table.
12/2/04; 7:30:21 AM by DW
Created.
local (adrdata = newsRiverSuite.init (), i, adrq)
for i = sizeof (adrdata^.newsRiver.podcatcher.queue) downto 1
adrq = @adrdata^.newsRiver.podcatcher.queue [i]
try
if not defined (adrq^.error)
if flOvernightDownload
if date.hour () >= adrdata^.newsRiver.podcatcher.prefs.hourToStopDownloads
break
newsRiverSuite.podcatcher.downloadEnclosure (adrq)
adrdata^.newsRiver.podcatcher.downloads.[nameof (adrq^)] = adrq^
delete (adrq)
else
new (tabletype, @adrq^.error)
adrq^.error.message = tryerror
adrq^.error.when = clock.now ()
if flOvernightDownload
if adrdata^.newsRiver.podcatcher.prefs.flOutlineEnclosures
newsRiverSuite.podcatcher.openLogOutline ()
bundle //test code
downloadQueue (false)
Wdatatabl G ԞԞ created Thu, 19 Jan 2006 13:31:10 GMT Wdatatabl G ԶԶ created Thu, 19 Jan 2006 13:31:34 GMT Wdatatabl G ԷԷ created Thu, 19 Jan 2006 13:31:35 GMT Wdatatabl G E9E9 created Thu, 19 Jan 2006 03:19:21 GMT Wdatatabl G E:E: created Thu, 19 Jan 2006 03:19:22 GMT Wdatatabl G created Thu, 19 Jan 2006 13:32:16 GMT Wdatatabl G FF created Thu, 19 Jan 2006 13:33:58 GMT Wdatatabl G created Thu, 19 Jan 2006 13:36:50 GMT Wdatatabl G created Thu, 19 Jan 2006 13:41:05 GMT Wdatatabl G created Thu, 19 Jan 2006 13:41:08 GMT Wdatatabl G DD created Thu, 19 Jan 2006 13:42:28 GMT Wdatatabl G created Sun, 05 Feb 2006 18:44:49 GMT Wdatatabl G created Sun, 05 Feb 2006 18:44:52 GMT & V Geneva P3P3 xsLAND mac local (adrdata = newsRiverSuite.init (), f, ct = 0)
fileloop (f in adrdata^.newsRiver.podcatcher.prefs.folder, infinity)
ct = ct + file.size (f)
msg (string.megabytestring (ct))
return (ct)
(< E i Geneva P3P3 LAND mac on logDownload (adrq)
Changes
9/19/05; 10:18:24 AM by DW
Strip markup from stuff we insert into the outline.
on stripmarkup (s)
if typeof (s) == tabletype
table.assign (@s, xml.decompile (@s))
s = searchengine.stripmarkup (s)
s = string.replaceall (s, "]]>", "")
s = xml.entitydecode (s, flAlphaEntities:true)
return (s)
local (adrdata = newsRiverSuite.init ())
local (oldtarget = target.set (@adrdata^.newsRiver.podcatcher.log))
op.firstsummit ()
op.insert (clock.now (), up)
op.insert (stripmarkup (adrq^.feedtitle), right)
op.insert (stripmarkup (adrq^.description), right)
bundle //link to the podcast
local (atts)
new (tabletype, @atts)
atts.type = "link"
atts.url = html.getFileURL (adrq^.f)
op.attributes.addgroup (@atts)
op.firstsummit ()
target.set (oldtarget)
bundle //test code
logDownload (@iPodderData.queue.["01138"])
Wdatatabl G NN created Mon, 28 Nov 2005 21:09:50 GMT Wdatatabl G VV created Mon, 28 Nov 2005 21:09:58 GMT Wdatatabl G yy created Mon, 28 Nov 2005 21:19:05 GMT V E r Geneva P3P3 pfLAND mac local (adrdata = newsRiverSuite.init ())
if adrdata^.newsRiver.podcatcher.prefs.flReclaimBytes
local (ctbytes = newsRiverSuite.podcatcher.howMuchSpaceUsed ())
if ctbytes > adrdata^.prefs.ctBytesForEnclosures //we're going to delete some stuff!
local (f, sorttable)
new (tabletype, @sorttable)
fileloop (f in adrdata^.prefs.folder, infinity)
sorttable.[f] = file.created (f)
local (oldtarget = target.set (@sorttable))
table.sortby ("Value")
target.set (oldtarget)
scratchpad.sorttable = sorttable
while ctbytes > adrdata^.prefs.ctBytesForEnclosures
local (f = nameof (sorttable [1]))
delete (@sorttable [1])
ctbytes = ctbytes - file.size (f)
file.delete (f)
if sizeof (sorttable) < 1
break
Ā E i Geneva ̿ &nLAND mac if dialog.confirm ("Download enclosures now?")
newsRiverSuite.podcatcher.openLogOutline ()
newsRiverSuite.podcatcher.downloadQueue (false)
Wdatatabl G DD created Thu, 19 Jan 2006 13:42:28 GMT n E Geneva %% &LAND mac Changes
1/19/06; 8:51:19 AM by DW
If the folder doesn't exist, create it.
local (adrdata = newsRiverSuite.init ())
local (folder = adrdata^.newsRiver.podcatcher.prefs.folder)
if not file.exists (folder)
file.surefilepath (folder + "xxx")
file.openfolder (folder)
Wdatatabl G created Thu, 19 Jan 2006 16:51:15 GMT Wdatatabl G created Thu, 19 Jan 2006 16:51:17 GMT Wdatatabl G created Thu, 19 Jan 2006 16:51:19 GMT Wdatatabl G ^^ created Thu, 19 Jan 2006 16:50:38 GMT Wdatatabl G cc created Thu, 19 Jan 2006 16:50:43 GMT Wdatatabl G ii created Thu, 19 Jan 2006 16:50:49 GMT Wdatatabl G ee created Thu, 19 Jan 2006 14:42:45 GMT
= $ I%
"
7downloadEnclosuresNow wopenEnclosuresFolder x VGeneva | =XJ ŀ
= : Geneva ˿ tLAND mac on openLogOutline ()
Changes
1/19/06; 5:42:09 AM by DW
Created.
local (adrdata = newsRiverSuite.init ())
edit (@adrdata^.newsRiver.podcatcher.log, windowTitle:"Podcatcher")
bundle //test code
openLogOutline ()
Wdatatabl G -- created Thu, 19 Jan 2006 13:42:05 GMT Wdatatabl G // created Thu, 19 Jan 2006 13:42:07 GMT Wdatatabl G 11 created Thu, 19 Jan 2006 13:42:09 GMT Wdatatabl G ww created Thu, 19 Jan 2006 13:43:19 GMT Wdatatabl G {{ created Thu, 19 Jan 2006 13:43:23 GMT Wdatatabl G created Thu, 19 Jan 2006 13:43:27 GMT = Geneva P3P3 tLAND mac on storyArrivedCallback (adrservice, adrItem)
Changes
1/18/06; 2:15:03 PM by DW
Created.
edit (@aggregatorData.services.["http://www.morningcoffeenotes.com/rss.xml"].compilation.items.["00022"])
true
local (adrdata = newsRiverSuite.init ())
if adrdata^.newsRiver.podcatcher.prefs.enabled
if defined (adritem^.enclosure)
local (serialnum = adrdata^.newsRiver.podcatcher.prefs.queueSerialNum++)
local (adrq = @adrdata^.newsRiver.podcatcher.queue.[string.padwithzeros (serialnum, 5)])
new (tabletype, adrq)
adrq^.url = adritem^.enclosure.url
adrq^.length = adritem^.enclosure.length
adrq^.type = adritem^.enclosure.type
adrq^.description = adritem^.title
adrq^.adrservice = adrservice
try
adrq^.pubDate = adritem^.data.pubDate
else
adrq^.pubDate = date (0)
return (true)
bundle //test code
storyArrivedCallback (@aggregatorData.services.["http://www.morningcoffeenotes.com/rss.xml"], @aggregatorData.services.["http://www.morningcoffeenotes.com/rss.xml"].compilation.items.["00022"])
Wdatatabl G created Wed, 18 Jan 2006 22:14:59 GMT Wdatatabl G created Wed, 18 Jan 2006 22:15:02 GMT Wdatatabl G created Wed, 18 Jan 2006 22:15:03 GMT Wdatatabl G xx created Wed, 18 Jan 2006 22:17:28 GMT Wdatatabl G created Wed, 18 Jan 2006 22:27:09 GMT Wdatatabl G TT created Wed, 18 Jan 2006 22:16:52 GMT Wdatatabl G -- created Thu, 19 Jan 2006 01:39:06 GMT Wdatatabl G -- created Thu, 19 Jan 2006 01:40:08 GMT Wdatatabl G .. created Thu, 19 Jan 2006 01:40:18 GMT Wdatatabl G -- created Thu, 19 Jan 2006 01:40:08 GMT Wdatatabl G created Wed, 18 Jan 2006 22:45:34 GMT Wdatatabl G `` created Wed, 18 Jan 2006 22:34:08 GMT Wdatatabl G cc created Wed, 18 Jan 2006 22:34:11 GMT E2 N ? j ſ
, 8
F R
c o
{
cleanFilename EdownloadEnclosure Jp
downloadQueue bOhowMuchSpaceUsed l logDownload n makeSpaceOnDisk s menuCommands } openLogOutline }storyArrivedCallback VGeneva | =XJ LH ?" ' Geneva ULAND mac Changes
1/15/06; 1:54:58 PM by DW
Get title from head, maintain list-level stats for Subscriptions page.
1/14/06; 12:21:50 PM by DW
Detailed code review and testing.
Using PT's reading list as a guinea pig.
http://downloads.oreilly.com/make/philliptorrone.opml
11/8/05; 1:42:07 PM by DW
Created. This is what we do before a scan.
We read each of the reading lists and make sure we're subscribed I J) Q 0s r Geneva n n '.FW G % , mhLAND mac on viewSubscriptions ()
Changes:
1/17/06; 7:03:36 PM by DW
More defensive driving around missing channeltitles.
3/20/02; 9:43:09 AM by DW
Don't try to work with channels that don't have channelTitles. In theory this is never supposed to happen. But enough users are getting broken by this, I felt it was time to work around the problem.
3/19/02; 5:27:30 PM by DW
Support for partnerFeed attribute on GET request.
1/24/02; 7:26:51 PM by DW
Minor tweaks and reworks to make the page work better. Moved the Unsubscribe button to the bottom of the page.
1/13/02; 11:18:05 PM by JES
If a searchArg named url is present, use its value for the value of the URL-entry box. This makes it possible to create a link on your website, which allows people to subscribe their copy of Radio to your RSS feed.
1/9/02; 12:52:03 AM by JES
Decode entities in the channel name in the success message, which appears after subscribing to a new channel.
1/9/02; 12:47:39 AM by JES
Moved the Delete button to a similar location to where it is on the News page -- it's no longer on its own, to the right of the subscriptions table. Added tags to the date field in the subscriptions table, so that the dates won't wrap to multiple lines.
1/6/02; 4:25:04 AM by JES
Added table css classes.
1/4/02; 3:32:20 PM by JES
Commented out some debugging code.
12/12/01; 11:16:32 AM by DW
Workaround crashing bug in kernel.
12/10/01; 1:38:16 AM by JES
Decode entities in the channel title -- no more ' in the page.
12/8/01; 12:50:36 PM by DW
Adding a new subscription should provide feedback. "You are now subscribed to the blah blah feed."
Improved the error message when a subscription doesn't work.
11/24/01; 3:55:33 PM by DW
Added help link.
11/14/01; 10:00:27 AM by DW
Localized.
1/23/01; 3:12:53 PM by DW
Created.
2/12/01; 10:00:38 AM by DW
Clean up and debug.
Add headers to columns.
Fixed a major bug in unsubscribing. If you unsubscribed from more than one channel, it would change the indexing and believe it or not it would unsubscribe from the wrong channels. Oy. Now we scan in reverse order and pad the checkbox names with 0's so things get deleted in the correct order.
2/12/01; 4:40:42 PM by PBS
Channels with quotes and angle brackets in the description would message up the rendering. Fixed.
Link title for the XML button, so it's consistent with other pages.
2/24/01; 6:16:29 PM by PBS
Help links.
3/4/01; 5:05:00 PM by JES
Toss the HotList cache when subscribing or unsubscribing to/from a channel.
3/4/01; 6:13:06 PM by JES
Toss the homepage cache when unsubscribing from a channel.
3/5/01; 8:47:23 PM by PBS
Fixed a typo when tossing the hot list cache.
7/26/01; 4:04:24 PM by JES
Don't error if a channel's channeldescription or channellink aren't defined.
local (pta = html.getpagetableaddress ())
scratchpad.vsparams = pta^
pta^.title = newsRiverSuite.getString ("subscriptions.title")
local (adrdata = xml.aggregator.init ())
local (xmlImg = dotOpmlSuite.mdiWindow.imageRef ("newsRiver/icons/xml"))
local (htmltext = "", indentlevel = 0)
on add (s)
htmltext = htmltext + string.filledstring ("\t", indentlevel) + s + "\r\n"
local (errorstring = "", initialurl = "http://", adrnewservice = nil, flopmlsub = false, opmltitle = "")
if pta^.method == "POST"
local (args)
new (tabletype, @args)
webserver.parseargs (pta^.requestbody, @args)
if defined (args.subscribe)
if sizeof (args.url) > sizeof (initialurl)
bundle //set flopmlsub
local (xmltext = tcp.httpreadurl (args.url), xstruct)
xml.compile (xmltext, @xstruct)
try
xml.getaddress (@xstruct, "opml")
opmltitle = string.nthfield (args.url, "/", string.countfields (args.url, "/"))
flopmlsub = true
if flopmlsub
try
local (adrlist = @adrdata^.newsRiver.readingLists.[args.url])
if defined (adrlist^)
errorstring = "Can't subscribe because you are already subscribed to the list."
else
new (tabletype, adrlist)
newsRiverSuite.readingList.beforeScan ()
adrnewservice = adrlist
else
errorstring = tryerror
else
if not xml.aggregator.subscribeService (args.url, @errorstring, @adrnewservice)
initialurl = args.url
if defined (args.unsubscribe)
delete (@args.unsubscribe)
try {delete (@args.url)}
local (i, adr, ix)
for i = sizeof (args) downto 1
adr = @args [i]
ix = number (nameof (adr^))
if ix > 100000 //it's a reading list
local (adrlist = @adrdata^.newsriver.readinglists [ix - 100000])
newsRiverSuite.readingList.unsubscribe (nameof (adrlist^))
else //it's a feed
local (adrservice = @adrdata^.services [ix])
xml.aggregator.unsubscribeService (nameof (adrservice^))
local (sortedtable)
bundle //fill sorted table
local (adrsort)
new (tabletype, @sortedtable)
for adr in @adrdata^.services
bundle //don't show feeds that come from reading lists
if defined (adr^.flManualSub)
if not adr^.flManualSub
continue
if defined (adr^.compilation)
if sizeof (adr^.compilation) > 0
try //missing channeltitle doesn't stop us -- 3/20/02 DW
local (channeltitle = adr^.compilation.channeltitle)
if sizeof (channeltitle) > 0
adrsort = @sortedtable.[adr^.compilation.channeltitle]
if defined (adrsort^) //collision
local (ct = 1)
loop
adrsort = @sortedtable.[adr^.compilation.channeltitle + "." + ct++]
if not defined (adrsort^)
break
adrsort^ = nameof (adr^)
local (oldtarget = target.set (@sortedtable))
table.sortby ("Value")
target.set (oldtarget)
scratchpad.sortedtable = sortedtable; edit (@scratchpad.sortedtable)
add ("
")
on addrow (idForCheckbox, title, channeldescription, channellink, timeLastChange, ctChanges, xmlUrl)
local (link)
add ("
"); indentlevel++
bundle //add checkbox
local (name = nameof (adr^))
local (checkboxval = "xxx ")
if false
checkboxval = checkboxval + "checked"
add ("
")
if sizeof (title) > 50
title = string.mid (title, 1, 50) + ".."
bundle //set link
if sizeof (channellink) > 0
3/4/06; 18:42:49 by TM
Added 'spyglass' option. See opml-newbies for full details
link = "" + newsRiverSuite.decodeEntities (title) + ""
else
link = newsRiverSuite.decodeEntities (title)
add ("
"); indentlevel--
bundle //add reading list subscriptions
if sizeof (adrdata^.newsriver.readinglists) > 0
local (adrlist)
add ("
R E A D I N G L I S T S
")
for adrlist in @adrdata^.newsriver.readinglists
addrow (indexOf (adrlist^) + 100000, adrlist^.title, "", "", adrlist^.stats.timeLastChange, adrlist^.stats.ctChanges, nameof (adrlist^))
add ("
F E E D S
")
for adrsort in @sortedtable
adr = @adrdata^.services.[adrsort^]
if defined (adr^.compilation)
if sizeof (adr^.compilation) > 0
local (title = "Untitled feed")
if defined (adr^.compilation.channeltitle)
title = adr^.compilation.channeltitle
local (channeldescription = "", channellink = "")
if defined (adr^.compilation.channeldescription)
channeldescription = newsRiverSuite.decodeEntities (adr^.compilation.channeldescription)
if defined (adr^.compilation.channellink)
channellink = adr^.compilation.channellink
addrow (indexOf (adr^), title, channeldescription, channellink, adr^.timeLastChange, adr^.ctChanges, nameof (adr^))
add ("
"); indentlevel--
add ("
"); indentlevel--
add ("
"); indentlevel--
add ("
"); indentlevel--
add ("
"); indentlevel--
add (" ")
add (""); indentlevel--
return (htmltext)
bundle //test code
html.setpagetableaddress (@scratchpad.vsparams)
viewSubscriptions ()
Wdatatabl G created Wed, 18 Jan 2006 03:03:36 GMT Wdatatabl G created Wed, 18 Jan 2006 03:03:37 GMT $datatabl 77 Wdatatabl G @G@G created Mon, 16 Jan 2006 02:09:11 GMT Wdatatabl G @K@K created Mon, 16 Jan 2006 02:09:15 GMT Wdatatabl G @k@k created Mon, 16 Jan 2006 02:09:47 GMT Wdatatabl G @z@z created Mon, 16 Jan 2006 02:10:02 GMT Wdatatabl G @@ created Mon, 16 Jan 2006 02:10:07 GMT Wdatatabl G BB created Mon, 16 Jan 2006 02:19:35 GMT Wdatatabl G @@ created Mon, 16 Jan 2006 02:10:20 GMT Wdatatabl G @@ created Mon, 16 Jan 2006 02:10:42 GMT Wdatatabl G @@ created Mon, 16 Jan 2006 02:10:44 GMT Wdatatabl G VV created Tue, 08 Nov 2005 21:20:01 GMT Wdatatabl G WjWj created Tue, 08 Nov 2005 21:23:54 GMT Wdatatabl G WoWo created Tue, 08 Nov 2005 21:23:59 GMT Wdatatabl G WW created Tue, 08 Nov 2005 21:24:23 GMT Wdatatabl G WW created Tue, 08 Nov 2005 21:24:25 GMT Wdatatabl G DlDl created Mon, 16 Jan 2006 02:26:52 GMT Wdatatabl G B\B\ created Mon, 16 Jan 2006 02:18:04 GMT Wdatatabl G DbDb created Mon, 16 Jan 2006 02:26:42 GMT Wdatatabl G DdDd created Mon, 16 Jan 2006 02:26:44 GMT Wdatatabl G @@ created Mon, 16 Jan 2006 02:10:46 GMT Wdatatabl G :: created Mon, 16 Jan 2006 01:46:11 GMT Wdatatabl G :: created Mon, 16 Jan 2006 01:46:19 GMT Wdatatabl G :: created Mon, 16 Jan 2006 01:46:33 GMT Wdatatabl G ;?;? created Mon, 16 Jan 2006 01:47:43 GMT Wdatatabl G :: created Mon, 16 Jan 2006 01:46:35 GMT Wdatatabl G == created Mon, 16 Jan 2006 01:57:33 GMT Wdatatabl G == created Mon, 16 Jan 2006 01:57:45 GMT Wdatatabl G =Ŀ= created Mon, 16 Jan 2006 01:58:28 GMT Wdatatabl G =ѿ= created Mon, 16 Jan 2006 01:58:41 GMT $datatabl << $datatabl << Wdatatabl G BsBs created Mon, 16 Jan 2006 02:18:27 GMT Wdatatabl G BxBx created Mon, 16 Jan 2006 02:18:32 GMT Wdatatabl G B{B{ created Mon, 16 Jan 2006 02:18:35 GMT Wdatatabl G created Wed, 18 Jan 2006 03:01:52 GMT $datatabl << Wdatatabl G created Wed, 18 Jan 2006 03:01:54 GMT Wdatatabl G 錄 created Wed, 18 Jan 2006 03:01:56 GMT $datatabl << Wdatatabl G 00 created Mon, 16 Jan 2006 01:02:11 GMT Wdatatabl G <"<" created Mon, 16 Jan 2006 01:51:30 GMT Wdatatabl G < < created Mon, 16 Jan 2006 01:51:24 GMT Wdatatabl G <.<. created Mon, 16 Jan 2006 01:51:42 GMT Wdatatabl G W 'W ' created Mon, 03 Apr 2006 17:42:47 GMT Wdatatabl G W )W ) created Mon, 03 Apr 2006 17:42:49 GMT Wdatatabl G <8<8 created Mon, 16 Jan 2006 01:51:52 GMT Wdatatabl G
*
5 condition handler
subscriber VGeneva | =XJ X } Geneva w߿w '?LAND mac This script returns a string which appears in the Status Center on the Radio UserLand home page.
return ("I'm a cool Tool!")
C 0 Geneva [; a 2LAND mac on translateToEntities (s)
Before putting some text in an input field or textarea, translating certain entities will ensure that the HTML on the page won't get messed up.
01/10/01; 4:49:47 PM by PBS
s = string.replaceAll (s, "&", "&")
s = string.replaceAll (s, "<", "<")
s = string.replaceAll (s, "\"", """)
s = string.replaceAll (s, "{", "{") //no macros in these locations
return (s)
C Հ v Z Arial
٠٠ {m LAND mac on untaint (s, flNeuterJavaScript=true, macroStartChars="<%")
Changes:
11/8/01; 9:32:26 PM by JES
Changed default startMacroChars from "{" to "<%".
8/14/01; 4:31:29 PM by JES
New optional parameter, macroStartChars, used to specify which macro characters to neuter. The first character is converted to a numerical HTML entity.
2/20/01; 4:05:30 PM by PBS
Neuter JavaScript if flNeuterJavaScript is true.
2/15/01; 3:11:35 PM by PBS
Created. Prevent macros and JavaScript from being executed.
local (replaceWith = "&#" + number (macroStartChars[1]) + ";" + string.delete (macroStartChars, 1, 1))
s = string.replaceAll (s, macroStartChars, replaceWith)
if flNeuterJavaScript
s = html.neuterJavaScript (s)
return (s)
Geneva II gLAND mac newsRiverSuite.updateTool ()
\ d & I Geneva && Z3toLAND mac Changes
1/11/06; 5:11:30 PM by DW
Ooops, can't set it true, it's called whenever we do a scan.
1/11/06; 4:35:46 PM by DW
Set dialogs to true,
12/29/05; 1:59:46 PM by DW
Created.
local (adrtable = @user.rootUpdates.servers.newsRiver)
if not defined (adrtable^)
new (tabletype, adrtable)
if not defined (adrtable^.autobackup)
adrtable^.autobackup = false
if not defined (adrtable^.dbName)
adrtable^.dbName = "newsRiver.root"
if not defined (adrtable^.dialogs)
adrtable^.dialogs = true
if not defined (adrtable^.lastupdate)
adrtable^.lastupdate = date (0)
if not defined (adrtable^.method)
adrtable^.method = "nirvanaServer.subscriptions.update"
if not defined (adrtable^.port)
adrtable^.port = 80
if not defined (adrtable^.serialnum)
adrtable^.serialnum = 0
if not defined (adrtable^.server)
adrtable^.server = "communityserverhome.opml.org"
if not defined (adrtable^.url)
adrtable^.url = ""
local (ctnewparts)
adrtable^.dialogs = false //1/11/06 by DW
rootUpdates.update (@newsRiverSuite, adrCtNewParts:@ctnewparts)
msg (ctnewparts + " new part(s) installed in newsRiver.root.")
Wdatatabl G ٜNٜN created Thu, 29 Dec 2005 21:59:42 GMT Wdatatabl G ¿ created Thu, 12 Jan 2006 01:11:30 GMT Wdatatabl G ÿ created Thu, 12 Jan 2006 01:11:31 GMT Wdatatabl G aa created Thu, 12 Jan 2006 00:35:45 GMT Wdatatabl G cc created Thu, 12 Jan 2006 00:35:47 GMT Wdatatabl G ٜPٜP created Thu, 29 Dec 2005 21:59:44 GMT Wdatatabl G ٜRٜR created Thu, 29 Dec 2005 21:59:46 GMT Wdatatabl G Ϳ created Mon, 14 Nov 2005 16:22:37 GMT Wdatatabl G W^W^ created Wed, 04 Jan 2006 15:43:42 GMT Wdatatabl G WgWg created Wed, 04 Jan 2006 15:43:51 GMT q ( Geneva V b LAND mac Changes
1/4/06; 10:38:28 AM by DW
Created. Copy it into the system.temp table and then run from there, so we can update all the parts here, including the update script itself.
system.temp.newsRiverUpdateCode = newsRiverSuite.updateCode
thread.callscript (@system.temp.newsRiverUpdateCode, {})
Wdatatabl G V V created Wed, 04 Jan 2006 15:38:22 GMT Wdatatabl G V#V# created Wed, 04 Jan 2006 15:38:27 GMT Wdatatabl G V%V% created Wed, 04 Jan 2006 15:38:29 GMT Wdatatabl G VPVP created Wed, 04 Jan 2006 15:39:12 GMT Wdatatabl G VtVt created Wed, 04 Jan 2006 15:39:48 GMT ̀ 7 à s Geneva ?#?S ?ALAND mac for adrservice in @aggregatorData.services
if defined (adrservice^.flmanualsub)
adrservice^.flmanualsub = false
Wdatatabl G ?2?2 created Mon, 16 Jan 2006 02:04:34 GMT Wdatatabl G ?
")
local (xstruct)
xml.compile (op.outlinetoxml (adroutline), @xstruct)
scratchpad.xstruct = xstruct
local (adropml = xml.getaddress (@xstruct, "opml"))
local (adrbody = xml.getaddress (adropml, "body"), adrhour, adritem, adratts)
for adrhour in adrbody
if nameof (adrhour^) contains "outline"
for adritem in adrhour
if nameof (adritem^) contains "outline"
adratts = @adritem^.["/atts"]
local (text = adratts^.text)
local (eventType = string.nthfield (text, ":", 1))
text = string.delete (text, 1, sizeof (eventType + 2))
local (what)
bundle //set what
local (ix = string.patternmatch (" at ", text))
what = string.mid (text, 1, ix)
text = string.delete (text, 1, ix + 3)
if string.trimwhitespace (what) endswith ")" //remove substring " (xxx)"
for ix = sizeof (what) downto 1
if what [ix] == "("
what = string.mid (what, 1, ix-1)
if defined (adratts^.url)
what = "" + what + ""
local (when = string.nthfield (text, ",", 1))
local (secs = string.nthfield (text, ",", 2) - " secs.")
local (s)
s = s + "
"
s = s + "
" + eventType + "
"
s = s + "
" + what + "
"
s = s + "
" + when + "
"
s = s + "
" + secs + "
"
s = s + "
"
add (s)
add ("
"); indentlevel--
add (""); indentlevel--
bundle //cache
if not defined (system.temp.newsRiver.logHtmlCache)
new (tabletype, @system.temp.newsRiver.logHtmlCache)
system.temp.newsRiver.logHtmlCache.htmltext = htmltext
system.temp.newsRiver.logHtmlCache.when = clock.now ()
return (htmltext)
bundle //test code
local (pt)
new (tabletype, @pt)
html.setpagetableaddress (@pt)
webbrowser.displaytext (viewLog ())
Wdatatabl G created Sun, 15 Jan 2006 15:48:50 GMT Wdatatabl G created Sun, 15 Jan 2006 15:48:51 GMT Wdatatabl G created Sun, 15 Jan 2006 15:48:53 GMT Wdatatabl G ﮍﮍ created Sun, 15 Jan 2006 15:47:25 GMT Wdatatabl G ss created Sun, 15 Jan 2006 14:55:47 GMT Wdatatabl G || created Sun, 15 Jan 2006 14:55:56 GMT Wdatatabl G && created Sun, 15 Jan 2006 15:45:42 GMT Wdatatabl G
created Sun, 15 Jan 2006 15:45:14 GMT Wdatatabl G rr created Sun, 15 Jan 2006 15:46:58 GMT Wdatatabl G || created Sun, 15 Jan 2006 15:47:08 GMT Wdatatabl G created Sun, 15 Jan 2006 14:57:04 GMT Wdatatabl G created Sun, 15 Jan 2006 14:56:22 GMT Wdatatabl G ſ created Sun, 15 Jan 2006 14:57:09 GMT Wdatatabl G created Sun, 15 Jan 2006 14:58:15 GMT Wdatatabl G created Sun, 15 Jan 2006 14:58:31 GMT Wdatatabl G %% created Sun, 15 Jan 2006 14:58:45 GMT Wdatatabl G ,, created Sun, 15 Jan 2006 14:58:52 GMT Wdatatabl G 44 created Sun, 15 Jan 2006 14:59:00 GMT Wdatatabl G 99 created Sun, 15 Jan 2006 14:59:05 GMT Wdatatabl G EE created Sun, 15 Jan 2006 14:59:17 GMT Wdatatabl G ii created Sun, 15 Jan 2006 15:16:57 GMT Wdatatabl G created Sun, 15 Jan 2006 15:15:33 GMT Wdatatabl G ~~ created Sun, 15 Jan 2006 15:17:18 GMT Wdatatabl G 履履 created Sun, 15 Jan 2006 15:17:51 GMT Wdatatabl G 藺藺 created Sun, 15 Jan 2006 15:18:08 GMT Wdatatabl G 麟麟 created Sun, 15 Jan 2006 15:18:11 GMT Wdatatabl G ѿ created Sun, 15 Jan 2006 15:18:41 GMT Wdatatabl G ߿ created Sun, 15 Jan 2006 15:18:55 GMT Wdatatabl G created Sun, 15 Jan 2006 15:23:20 GMT Wdatatabl G created Sun, 15 Jan 2006 15:24:06 GMT Wdatatabl G $$ created Sun, 15 Jan 2006 15:24:20 GMT Wdatatabl G ,, created Sun, 15 Jan 2006 15:24:28 GMT Wdatatabl G ff created Sun, 15 Jan 2006 15:25:26 GMT Wdatatabl G 祈祈 created Sun, 15 Jan 2006 15:26:06 GMT Wdatatabl G created Sun, 15 Jan 2006 15:19:13 GMT Wdatatabl G created Sun, 15 Jan 2006 15:19:13 GMT Wdatatabl G && created Sun, 15 Jan 2006 15:45:42 GMT Wdatatabl G
created Sun, 15 Jan 2006 15:45:14 GMT Wdatatabl G created Sun, 15 Jan 2006 15:45:30 GMT Wdatatabl G 11 created Sun, 15 Jan 2006 15:45:53 GMT Wdatatabl G GG created Sun, 15 Jan 2006 15:46:15 GMT Wdatatabl G UU created Sun, 15 Jan 2006 14:55:17 GMT Wdatatabl G YY created Sun, 15 Jan 2006 14:55:21 GMT Wdatatabl G Կ created Sun, 15 Jan 2006 14:57:24 GMT Wdatatabl G created Sun, 15 Jan 2006 14:57:27 GMT Wdatatabl G ݿ created Sun, 15 Jan 2006 14:57:33 GMT Wdatatabl G ]] created Sun, 15 Jan 2006 14:55:25 GMT & = 0D ' 0g Y Geneva K JJ
LAND mac on viewNewsItems (adrargs=nil, ctStoriesToList=nil)
Changes:
10/16/05; 10:58:30 AM by DW
Began work on this code after a long hiatus.
Make it work inside the OPML Editor.
local (pta = html.getpagetableaddress ())
scratchpad.newsparams = pta^
pta^.title = newsRiverSuite.getString ("aggregator.title")
local (uri = pta^.uri)
local (adrdata = newsRiverSuite.init ())
if ctStoriesToList == nil
ctStoriesToList = adrdata^.newsRiver.ctStoriesOnNewsPage
local (htmltext = "", indentlevel = 0)
on add (s)
htmltext = htmltext + (string.filledstring ("\t", indentlevel) + s + "\r\n");
on decodeEntities (s)
s = string.replaceAll (s, "\r\n", "\r")
s = string.replaceAll (s, "\n", "\r")
return (newsRiverSuite.decodeEntities (s, flNeuterJavaScript:false))
local (flOneService = false, xmlUrl = "", adrservice)
bundle //parse args
local (args)
new (tabletype, @args)
webserver.parseArgs (pta^.searchArgs, @args)
if defined (args.xmlUrl)
flOneService = true
xmlurl = args.xmlUrl
adrservice = @adrdata^.services.[xmlurl]
if defined (adrservice^.compilation.channeltitle) //avoid errors for non-compliant channels
add ("Channel: " + decodeEntities (adrservice^.compilation.channeltitle) + "
")
pta^.title = "Channel: " + decodeEntities (adrservice^.compilation.channeltitle)
local (adrcache = @adrdata^.cache.[this], adrincache, defaultcachename = "default")
if not defined (adrcache^) //make sure the cache table is defined
new (tabletype, adrcache)
bundle //set adrincache
if adrdata^.newsRiver.flCacheNewsItemsPage
local (cachename = defaultcachename)
if sizeof (xmlUrl) > 0
cachename = xmlUrl
adrincache = @adrcache^.[cachename]
bundle //catch post
if pta^.method == "POST"
local (args)
new (tabletype, @args)
webserver.parseArgs (pta^.requestBody, @args)
scratchpad.args = args; edit (@scratchpad.args)
if defined (args.formName)
if string.lower (args.formName) == "editstories"
delete (@args.formName)
if defined (args.unsubscribe)
local (args)
new (tabletype, @args)
args.xmlUrl = xmlUrl
if defined (adrdata^.services.[xmlUrl])
adrargs^.redirect = newsRiverData.systemUrls.unsub + "?" + webserver.encodeargs (@args)
return ("")
local (adrdefaultcache = @adrcache^.[defaultcachename])
for adrarg in @args
try
local (name = string.padwithzeros (number (nameof (adrarg^)), 8))
local (adrstory = @adrdata^.stories.[name])
if defined (adrstory^)
adrdata^.trash.[name] = adrstory^
delete (adrstory)
if adrdata^.newsRiver.flCacheNewsItemsPage
if defined (adrcache^)
if defined (adrincache^) //posting invalidates the cache
delete (adrincache)
if adrdefaultcache == adrincache //02/24/2001 JES: delete the cache for the service
if defined (adrstory^)
local (adrservicecache = @adrcache^.["xmlUrl=" + string.urlEncode (adrstory^.url)])
if defined (adrservicecache^)
delete (adrservicecache)
else //02/24/2001 JES: we're on the service page -- delete the default cache
if defined (adrdefaultcache^)
delete (adrdefaultcache)
bundle //see if we can serve from the cache
if defined (adrcache^)
if defined (adrincache^)
return (adrincache^)
local (globeimg, xmlimg, searchimg, checkmarkimg, mediaimg, commentimg, postbuttonimg, permalinkimg)
bundle //precalc img refs
globeimg = dotOpmlSuite.mdiWindow.imageRef ("newsRiver/qbullet/remote")
xmlimg = dotOpmlSuite.mdiWindow.imageRef ("newsRiver/icons/xml")
searchimg = dotOpmlSuite.mdiWindow.imageRef ("newsRiver/qbullet/search")
checkmarkimg = dotOpmlSuite.mdiWindow.imageRef ("newsRiver/icons/checkmark")
postbuttonimg = dotOpmlSuite.mdiWindow.imageRef ("newsRiver/icons/post")
mediaimg = dotOpmlSuite.mdiWindow.imageRef ("newsRiver/qbullet/sound")
commentimg = dotOpmlSuite.mdiWindow.imageRef ("newsRiver/icons/pencil")
permalinkimg = dotOpmlSuite.mdiWindow.imageRef ("newsRiver/icons/itemPermalink")
add ("
"); indentlevel--
if adrdata^.newsRiver.flCacheNewsItemsPage
adrincache^ = htmltext
return (htmltext)
bundle //test code
html.setpagetableaddress (@scratchpad.newsparams)
webbrowser.displaytext (viewNewsItems ())
webbrowser.bringtofront ()
Wdatatabl G wԿw created Sun, 16 Oct 2005 17:58:28 GMT Wdatatabl G ww created Sun, 16 Oct 2005 17:58:31 GMT Wdatatabl G ww created Sun, 16 Oct 2005 17:58:58 GMT Wdatatabl G xx created Mon, 17 Oct 2005 13:06:32 GMT Wdatatabl G xx created Mon, 17 Oct 2005 13:06:37 GMT Wdatatabl G zz created Tue, 18 Oct 2005 19:36:01 GMT Wdatatabl G zz created Tue, 18 Oct 2005 18:35:54 GMT Wdatatabl G ~~ created Fri, 21 Oct 2005 18:25:32 GMT Wdatatabl G created Fri, 30 Dec 2005 22:03:37 GMT Wdatatabl G uu created Tue, 08 Nov 2005 17:03:49 GMT Wdatatabl G << created Tue, 08 Nov 2005 01:14:59 GMT Wdatatabl G yKyK created Mon, 17 Oct 2005 16:07:23 GMT Wdatatabl G yUyU created Mon, 17 Oct 2005 16:07:33 GMT Wdatatabl G yXyX created Mon, 17 Oct 2005 16:07:36 GMT Wdatatabl G yLyL created Mon, 17 Oct 2005 16:07:24 GMT Wdatatabl G wgwg created Sun, 16 Oct 2005 18:00:55 GMT Wdatatabl G xx created Sun, 16 Oct 2005 20:27:04 GMT Wdatatabl G wkwk created Sun, 16 Oct 2005 18:00:59 GMT Wdatatabl G xrxr created Sun, 16 Oct 2005 20:21:54 GMT r H8 3 / Geneva Q zLAND mac on viewSubscriptions ()
Changes:
1/17/06; 7:03:36 PM by DW
More defensive driving around missing channeltitles.
3/20/02; 9:43:09 AM by DW
Don't try to work with channels that don't have channelTitles. In theory this is never supposed to happen. But enough users are getting broken by this, I felt it was time to work around the problem.
3/19/02; 5:27:30 PM by DW
Support for partnerFeed attribute on GET request.
1/24/02; 7:26:51 PM by DW
Minor tweaks and reworks to make the page work better. Moved the Unsubscribe button to the bottom of the page.
1/13/02; 11:18:05 PM by JES
If a searchArg named url is present, use its value for the value of the URL-entry box. This makes it possible to create a link on your website, which allows people to subscribe their copy of Radio to your RSS feed.
1/9/02; 12:52:03 AM by JES
Decode entities in the channel name in the success message, which appears after subscribing to a new channel.
1/9/02; 12:47:39 AM by JES
Moved the Delete button to a similar location to where it is on the News page -- it's no longer on its own, to the right of the subscriptions table. Added tags to the date field in the subscriptions table, so that the dates won't wrap to multiple lines.
1/6/02; 4:25:04 AM by JES
Added table css classes.
1/4/02; 3:32:20 PM by JES
Commented out some debugging code.
12/12/01; 11:16:32 AM by DW
Workaround crashing bug in kernel.
12/10/01; 1:38:16 AM by JES
Decode entities in the channel title -- no more ' in the page.
12/8/01; 12:50:36 PM by DW
Adding a new subscription should provide feedback. "You are now subscribed to the blah blah feed."
Improved the error message when a subscription doesn't work.
11/24/01; 3:55:33 PM by DW
Added help link.
11/14/01; 10:00:27 AM by DW
Localized.
1/23/01; 3:12:53 PM by DW
Created.
2/12/01; 10:00:38 AM by DW
Clean up and debug.
Add headers to columns.
Fixed a major bug in unsubscribing. If you unsubscribed from more than one channel, it would change the indexing and believe it or not it would unsubscribe from the wrong channels. Oy. Now we scan in reverse order and pad the checkbox names with 0's so things get deleted in the correct order.
2/12/01; 4:40:42 PM by PBS
Channels with quotes and angle brackets in the description would message up the rendering. Fixed.
Link title for the XML button, so it's consistent with other pages.
2/24/01; 6:16:29 PM by PBS
Help links.
3/4/01; 5:05:00 PM by JES
Toss the HotList cache when subscribing or unsubscribing to/from a channel.
3/4/01; 6:13:06 PM by JES
Toss the homepage cache when unsubscribing from a channel.
3/5/01; 8:47:23 PM by PBS
Fixed a typo when tossing the hot list cache.
7/26/01; 4:04:24 PM by JES
Don't error if a channel's channeldescription or channellink aren't defined.
local (pta = html.getpagetableaddress ())
scratchpad.vsparams = pta^
pta^.title = newsRiverSuite.getString ("subscriptions.title")
local (adrdata = xml.aggregator.init ())
local (xmlImg = dotOpmlSuite.mdiWindow.imageRef ("newsRiver/icons/xml"))
local (htmltext = "", indentlevel = 0)
on add (s)
htmltext = htmltext + string.filledstring ("\t", indentlevel) + s + "\r\n"
local (errorstring = "", initialurl = "http://", adrnewservice = nil, flopmlsub = false, opmltitle = "")
if pta^.method == "POST"
local (args)
new (tabletype, @args)
webserver.parseargs (pta^.requestbody, @args)
if defined (args.subscribe)
if sizeof (args.url) > sizeof (initialurl)
bundle //set flopmlsub
local (xmltext = tcp.httpreadurl (args.url), xstruct)
xml.compile (xmltext, @xstruct)
try
xml.getaddress (@xstruct, "opml")
opmltitle = string.nthfield (args.url, "/", string.countfields (args.url, "/"))
flopmlsub = true
if flopmlsub
try
local (adrlist = @adrdata^.newsRiver.readingLists.[args.url])
if defined (adrlist^)
errorstring = "Can't subscribe because you are already subscribed to the list."
else
new (tabletype, adrlist)
newsRiverSuite.readingList.beforeScan ()
adrnewservice = adrlist
else
errorstring = tryerror
else
if not xml.aggregator.subscribeService (args.url, @errorstring, @adrnewservice)
initialurl = args.url
if defined (args.unsubscribe)
delete (@args.unsubscribe)
try {delete (@args.url)}
local (i, adr, ix)
for i = sizeof (args) downto 1
adr = @args [i]
ix = number (nameof (adr^))
if ix > 100000 //it's a reading list
local (adrlist = @adrdata^.newsriver.readinglists [ix - 100000])
newsRiverSuite.readingList.unsubscribe (nameof (adrlist^))
else //it's a feed
local (adrservice = @adrdata^.services [ix])
xml.aggregator.unsubscribeService (nameof (adrservice^))
local (sortedtable)
bundle //fill sorted table
local (adrsort)
new (tabletype, @sortedtable)
for adr in @adrdata^.services
bundle //don't show feeds that come from reading lists
if defined (adr^.flManualSub)
if not adr^.flManualSub
continue
if defined (adr^.compilation)
if sizeof (adr^.compilation) > 0
try //missing channeltitle doesn't stop us -- 3/20/02 DW
local (channeltitle = adr^.compilation.channeltitle)
if sizeof (channeltitle) > 0
adrsort = @sortedtable.[adr^.compilation.channeltitle]
if defined (adrsort^) //collision
local (ct = 1)
loop
adrsort = @sortedtable.[adr^.compilation.channeltitle + "." + ct++]
if not defined (adrsort^)
break
adrsort^ = nameof (adr^)
local (oldtarget = target.set (@sortedtable))
table.sortby ("Value")
target.set (oldtarget)
scratchpad.sortedtable = sortedtable; edit (@scratchpad.sortedtable)
add (""); indentlevel--
return (htmltext)
bundle //test code
html.setpagetableaddress (@scratchpad.vsparams)
viewSubscriptions ()
Wdatatabl G created Wed, 18 Jan 2006 03:03:36 GMT Wdatatabl G created Wed, 18 Jan 2006 03:03:37 GMT $datatabl 77 Wdatatabl G @G@G created Mon, 16 Jan 2006 02:09:11 GMT Wdatatabl G @K@K created Mon, 16 Jan 2006 02:09:15 GMT Wdatatabl G @k@k created Mon, 16 Jan 2006 02:09:47 GMT Wdatatabl G @z@z created Mon, 16 Jan 2006 02:10:02 GMT Wdatatabl G @@ created Mon, 16 Jan 2006 02:10:07 GMT Wdatatabl G BB created Mon, 16 Jan 2006 02:19:35 GMT Wdatatabl G @@ created Mon, 16 Jan 2006 02:10:20 GMT Wdatatabl G @@ created Mon, 16 Jan 2006 02:10:42 GMT Wdatatabl G @@ created Mon, 16 Jan 2006 02:10:44 GMT Wdatatabl G VV created Tue, 08 Nov 2005 21:20:01 GMT Wdatatabl G WjWj created Tue, 08 Nov 2005 21:23:54 GMT Wdatatabl G WoWo created Tue, 08 Nov 2005 21:23:59 GMT Wdatatabl G WW created Tue, 08 Nov 2005 21:24:23 GMT Wdatatabl G WW created Tue, 08 Nov 2005 21:24:25 GMT Wdatatabl G DlDl created Mon, 16 Jan 2006 02:26:52 GMT Wdatatabl G B\B\ created Mon, 16 Jan 2006 02:18:04 GMT Wdatatabl G DbDb created Mon, 16 Jan 2006 02:26:42 GMT Wdatatabl G DdDd created Mon, 16 Jan 2006 02:26:44 GMT Wdatatabl G @@ created Mon, 16 Jan 2006 02:10:46 GMT Wdatatabl G :: created Mon, 16 Jan 2006 01:46:11 GMT Wdatatabl G :: created Mon, 16 Jan 2006 01:46:19 GMT Wdatatabl G :: created Mon, 16 Jan 2006 01:46:33 GMT Wdatatabl G ;?;? created Mon, 16 Jan 2006 01:47:43 GMT Wdatatabl G :: created Mon, 16 Jan 2006 01:46:35 GMT Wdatatabl G == created Mon, 16 Jan 2006 01:57:33 GMT Wdatatabl G == created Mon, 16 Jan 2006 01:57:45 GMT Wdatatabl G =Ŀ= created Mon, 16 Jan 2006 01:58:28 GMT Wdatatabl G =ѿ= created Mon, 16 Jan 2006 01:58:41 GMT $datatabl << $datatabl << Wdatatabl G BsBs created Mon, 16 Jan 2006 02:18:27 GMT Wdatatabl G BxBx created Mon, 16 Jan 2006 02:18:32 GMT Wdatatabl G B{B{ created Mon, 16 Jan 2006 02:18:35 GMT Wdatatabl G created Wed, 18 Jan 2006 03:01:52 GMT $datatabl << Wdatatabl G created Wed, 18 Jan 2006 03:01:54 GMT Wdatatabl G 錄 created Wed, 18 Jan 2006 03:01:56 GMT $datatabl << Wdatatabl G 00 created Mon, 16 Jan 2006 01:02:11 GMT Wdatatabl G <"<" created Mon, 16 Jan 2006 01:51:30 GMT Wdatatabl G < < created Mon, 16 Jan 2006 01:51:24 GMT Wdatatabl G <.<. created Mon, 16 Jan 2006 01:51:42 GMT Wdatatabl G <8<8 created Mon, 16 Jan 2006 01:51:52 GMT Wdatatabl G = 0 and x <= 31
return (true)
if myIp beginsWith "192.168." //192.168.x.x is ok. (Class C)
return (true)
scriptError ("Access denied.")
else
pta^.responseBody = webserver.util.buildErrorPage ("403 Forbidden", "Access denied.")
pta^.code = 403
return (true) //we handled the wsf request
Wdatatabl G )) created Wed, 25 Jan 2006 16:15:37 GMT Wdatatabl G JJ created Wed, 25 Jan 2006 16:33:14 GMT Wdatatabl G ;; created Wed, 25 Jan 2006 16:15:55 GMT Wdatatabl G 縿 created Wed, 25 Jan 2006 16:30:48 GMT $datatabl ss $datatabl ss $datatabl ss $datatabl ss $datatabl ss $datatabl ss $datatabl ss $datatabl ss $datatabl ss $datatabl ss $datatabl ss $datatabl ss $datatabl ss $datatabl ss Wdatatabl G created Wed, 25 Jan 2006 16:31:54 GMT $datatabl ss $datatabl ss $datatabl ss $datatabl ss $datatabl ss $datatabl ss $datatabl ss $datatabl ss $datatabl ss $datatabl ss Wdatatabl G 뻿 created Wed, 25 Jan 2006 16:47:55 GMT $datatabl ss $datatabl ss $datatabl ss $datatabl ss $datatabl ss $datatabl ss $datatabl ss $datatabl ss $datatabl ss $datatabl ss Wdatatabl G created Wed, 25 Jan 2006 16:30:57 GMT $datatabl ss $datatabl ss Wdatatabl G ҿ created Wed, 25 Jan 2006 16:31:14 GMT n < w'.K
*
4 @
O [
e q
- 9
? K
T `
f r
}
'
2 >
I U
_ k
s
background backup { callbacks decodeEntities P doScanNow S
getDateString Y`getHomePageAddress \ getString FimportDefaultSubscriptions
importOpml init `menu D menuCommands ?notes oldstuff /pages D
podcatcher ] readingList responder lstatusCenterMessage YtranslateToEntities funtaint mupdateAfterScan qP
updateCode q
updateTool z utilities viewLog
viewNewsItems viewSubscriptions wsfMasterControl %1 VGeneva S OXJ Հ Geneva w߿w '?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
T P . w߿z
ctenabledscript ` A T t Geneva
F 2 LAND mac on finalFilter (pta)
pta^.renderedText = string.replace (pta^.renderedText, "[[title]]", "")
return (true)
- Geneva
Eu
2
LAND mac on firstFilter (adrPageTable)
return (true)
* [ Geneva
Eu
r } 2'LAND 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 . E7
$ 0
; finalFilter firstFilter
pagefilter Г VGeneva
G N ) A 7w url http://127.0.0.1/newsRiver/ VGeneva
A ' L H $ >*>* linetext path prefs.wsf L $ ll y ~linetext l["Macintosh HD:Users:davewiner:Desktop:OPML:Guest Databases:apps:Tools:newsRiver.root"].newsRiverWebsite.logpath log.wsf $ qq linetext u["Macintosh HD:Users:davewiner:Desktop:OPML:Guest Databases:apps:Tools:newsRiver.root"].newsRiverWebsite.postToWeblogpath postToWeblog.wsf R N $ linetext Event logpath log.wsf R O $ >> linetext Homepath index.wsf O Z V $ !linetext News Aggregatorpath index.wsf Z V X $ 00 linetext Homepath index.wsf V T P $ linetext Salon.compath index.wsf T " l $ &i&i " 2 . ww
any F 2 S O $ ꪿ linetext Test pagepath test.wsf S ] U $ VV linetext plasticbag.orgpath index.wsf ] n j $ VV 0 5linetext #Scobleizer - Microsoft Geek Bloggerpath index.wsf n j R $ VV linetext Newsome.Orgpath index.wsfloggerpath index j Y U $ VV linetext Ask MetaFilterpath index.wsf Y R N $ VV linetext Joystiqpath index.wsf R ` U $ W;W; linetext Scripting Newspath index.wsfons.wsf ` W space /GIFfGIF89a ! , D ; VArial 6 Geneva JJ LAND mac Changes
1/7/06; 10:17:21 PM by DW
This is where we try to work around the problem with Firefox on Windows, explained in #2 of this post.
http://support.opml.org/2006/01/05#a539
If the object wasn't found (that's how we got here) see if there is something that matches the path supplied with one extra character. If so, redirect there.
bundle //workaround for Firefox on Windows
local (pta = html.getpagetableaddress ())
local (path = pta^.path, adr, s, newuri)
local (name = string.lower (string.nthfield (path, "/", string.countfields (path, "/"))))
for adr in @newsRiverWebsite
s = nameof (adr^)
if string.lower (string.delete (s, sizeof (s), 1)) == name
newuri = string.delete (pta^.uri, sizeof (pta^.uri) - sizeof (name) + 1, sizeof (name)) + s
scratchpad.onfparams = pta^
pta^.code = 302 //non-permanent redirect
pta^.responseBody = webserver.util.buildErrorPage ("302 FOUND", "Found the page.")
pta^.responseHeaders.location = newuri
pta^.responseHeaders.URI = newuri
Wdatatabl G :: created Fri, 06 Jan 2006 15:17:30 GMT Wdatatabl G >> created Fri, 06 Jan 2006 15:17:34 GMT Wdatatabl G YY created Fri, 06 Jan 2006 15:18:01 GMT Wdatatabl G [[ created Fri, 06 Jan 2006 15:18:03 GMT Wdatatabl G created Fri, 06 Jan 2006 15:19:11 GMT Wdatatabl G created Fri, 06 Jan 2006 15:19:33 GMT Wdatatabl G vv created Sun, 08 Jan 2006 03:08:54 GMT Wdatatabl G PP created Sun, 08 Jan 2006 03:08:16 GMT Wdatatabl G 쌿 created Sun, 08 Jan 2006 03:09:16 GMT Wdatatabl G created Sun, 08 Jan 2006 03:10:47 GMT Wdatatabl G 왿 created Sun, 08 Jan 2006 03:09:29 GMT Wdatatabl G BB created Sun, 08 Jan 2006 03:12:18 GMT Wdatatabl G Ϳ created Fri, 06 Jan 2006 15:19:57 GMT 6 g
j '.C " + 0 : M S h n w alink 008000bgcolor FFFFFFflRenderlink 0000FFmacroEndCharacters %>macroStartCharacters <%spaceGif spacetext 000000vlink 800080 VArial g 0D Geneva JJ m LAND mac <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>NewsRiver: <%title%>
<%metaTags ()%>
<%bodyTag ()%>