") add ("
00040000000A00000002018110005000000090000000208100006000000630000000210A210FFFF0A00000
10 E310FFFF0E00000
10 0007000000190000000102018000080000009700000001 40,Geneva 40, 4030 10000900000015000000023B02F73B02F7000A000000150000000262A22262A222000B00000005000000020000C0000002600000002AB5204B039A19A01940000F0000002100000000400 10 00130000007E00000000DA91F8CE1C1D1E1F7F1B0 44,- . . ' " FFFF0FFFF0FFFE000000060001001777AA GG 1 GG
xmlimg VGeneva | =c ? Geneva Gu3Gv* vLAND mac Changes
4/13/07; 12:45:47 PM by DW
Only open the about window if there are deletions.
12/17/06; 11:40:08 AM by DW
Delete all image table entries that are more than a week old.
local (oneweek = 7 * 24 * 60 * 60, flfirstdeletion = true)
local (i, adr, marktime = clock.now () - oneweek, ct = 0)
for i = sizeof (user.flickrRivr.images) downto 1
adr = @user.flickrRivr.images [i]
if timecreated (adr) < marktime
delete (adr)
if flfirstdeletion
window.about ()
flfirstdeletion = false
msg (++ct + " tables deleted.")
if not flfirstdeletion
filemenu.save ()
Wdatatabl G created Sun, 17 Dec 2006 19:40:03 GMT Wdatatabl G E+E+ created Fri, 13 Apr 2007 19:45:47 GMT Wdatatabl G E+E+ created Fri, 13 Apr 2007 19:45:48 GMT Wdatatabl G created Sun, 17 Dec 2006 19:40:07 GMT Wdatatabl G created Sun, 17 Dec 2006 19:40:10 GMT Wdatatabl G created Sun, 17 Dec 2006 19:39:30 GMT Wdatatabl G created Sun, 17 Dec 2006 19:39:06 GMT Wdatatabl G ܴܴ created Sun, 17 Dec 2006 19:38:28 GMT Wdatatabl G created Sun, 17 Dec 2006 19:38:48 GMT Wdatatabl G created Sun, 17 Dec 2006 19:39:03 GMT Wdatatabl G E+E+ created Fri, 13 Apr 2007 19:45:23 GMT Wdatatabl G E+E+ created Fri, 13 Apr 2007 19:45:25 GMT Wdatatabl G E+E+ created Fri, 13 Apr 2007 19:45:29 GMT Wdatatabl G 55 created Sun, 17 Dec 2006 19:40:37 GMT Wdatatabl G GvGv created Sun, 15 Apr 2007 13:26:32 GMT Wdatatabl G Gv Gv created Sun, 15 Apr 2007 13:26:36 GMT
Geneva QEF P/'LAND mac Changes
4/13/07; 10:16:35 PM by DW
Don't fail if you can't delete one of the files.
Only open the about window if something is deleted.
local (f, ct = 0, flfirstdeletion = true)
flickrRivrSuite.init ()
fileloop (f in user.flickrRivr.folder)
try
if file.size (f) < user.flickrRivr.smallestImageSize
file.delete (f)
if flfirstdeletion
window.about ()
flfirstdeletion = false
msg (ct++ + " files deleted.")
Wdatatabl G EE created Sat, 14 Apr 2007 05:16:30 GMT Wdatatabl G EE created Sat, 14 Apr 2007 05:16:33 GMT Wdatatabl G EE created Sat, 14 Apr 2007 05:16:35 GMT Wdatatabl G EE created Sat, 14 Apr 2007 05:17:15 GMT Wdatatabl G bb created Sun, 17 Dec 2006 19:24:18 GMT Wdatatabl G ff created Sun, 17 Dec 2006 19:24:22 GMT Wdatatabl G EE created Sat, 14 Apr 2007 05:16:57 GMT Wdatatabl G mm created Sun, 17 Dec 2006 19:24:29 GMT Wdatatabl G لل created Sun, 17 Dec 2006 19:24:52 GMT Wdatatabl G E E created Sat, 14 Apr 2007 05:18:05 GMT Wdatatabl G created Sun, 17 Dec 2006 19:26:02 GMT Wdatatabl G E,E, created Sat, 14 Apr 2007 05:18:20 GMT Wdatatabl G ٵٵ created Sun, 17 Dec 2006 19:25:41 GMT 9 c ^ Geneva 6 LAND mac fileloop (f in user.flickrRivr.folder)
file.rename (f, file.filefrompath (f) - "flickrPics")
Wdatatabl G created Sun, 04 Mar 2007 14:32:35 GMT 9
Geneva FG &,LAND mac on getFeedInfo (url, adrfeedinfo)
Changes
4/14/07; 7:55:05 PM by DW
Created.
local (xstruct, adr, nameitem)
local (xmltext = tcp.httpreadurl (url))
xml.compile (xmltext, @xstruct)
scratchpad.flickrxstruct = xstruct
local (adrrss = xml.getaddress (@xstruct, "rss"))
local (adrchannel = xml.getaddress (adrrss, "channel"))
adrfeedinfo^.title = xml.getvalue (adrchannel, "title")
adrfeedinfo^.link = xml.getvalue (adrchannel, "link")
adrfeedinfo^.description = xml.getvalue (adrchannel, "description")
adrfeedinfo^.xstruct = xstruct
bundle //test code
getfeedinfo ("http://rss.news.yahoo.com/imgrss/441", @scratchpad.feedinfo)
getfeedinfo ("http://rss.news.yahoo.com/imgrss/1617", @scratchpad.feedinfo)
Wdatatabl G FF created Sun, 15 Apr 2007 02:55:01 GMT Wdatatabl G FF created Sun, 15 Apr 2007 02:55:03 GMT Wdatatabl G FF created Sun, 15 Apr 2007 02:55:05 GMT Wdatatabl G 00 created Sun, 01 Jan 2006 15:10:39 GMT Wdatatabl G 0ǿ0 created Sun, 01 Jan 2006 15:09:59 GMT Wdatatabl G 00 created Sun, 01 Jan 2006 15:10:50 GMT Wdatatabl G 11 created Sun, 01 Jan 2006 15:10:58 GMT Wdatatabl G 1212 created Sun, 01 Jan 2006 15:11:46 GMT Wdatatabl G 1K1K created Sun, 01 Jan 2006 15:12:11 GMT Wdatatabl G FrFr created Sun, 15 Apr 2007 03:00:50 GMT Wdatatabl G FrFr created Sun, 15 Apr 2007 03:00:50 GMT Wdatatabl G FrFr created Sun, 15 Apr 2007 03:00:50 GMT Wdatatabl G FF created Sun, 15 Apr 2007 03:07:32 GMT Wdatatabl G F%F% created Sun, 15 Apr 2007 02:55:17 GMT Wdatatabl G F-F- created Sun, 15 Apr 2007 02:55:25 GMT Wdatatabl G F-F- created Sun, 15 Apr 2007 02:55:25 GMT x Geneva .{Nn i LAND mac if not defined (user.flickrRivr)
new (tabletype, @user.flickrRivr)
bundle //do transition, 4/20/07 by DW
local (adr)
if defined (user.flickrRivr.feeds) and (not defined (user.flickrRivr.feedInfo))
new (tabletype, @user.flickrRivr.feedInfo)
for adr in @user.flickrRivr.feeds
flickrRivrSuite.addSubscription (adr^)
bundle //delete obsolete stuff, 4/20/07 by DW
try {delete (@user.flickrRivr.lasurl)} //fixed old typo
try {delete (@user.flickrRivr.feeds)} //unnecessary structure
bundle //init feeds table
if not defined (user.flickrRivr.feedInfo)
new (tabletype, @user.flickrRivr.feedInfo)
flickrRivrSuite.addSubscription ("http://rss.news.yahoo.com/imgrss/441")
if not defined (user.flickrRivr.folder)
user.flickrRivr.folder = frontier.pathstring + "flickrPics" + file.getpathchar ()
if not defined (user.flickrRivr.serialnum)
user.flickrRivr.serialnum = 0
if not defined (user.flickrRivr.ctChecks)
user.flickrRivr.ctChecks = 0
if not defined (user.flickrRivr.whenLastCheck)
user.flickrRivr.whenLastCheck = date (0)
if not defined (user.flickrRivr.smallestImageSize)
user.flickrRivr.smallestImageSize = 100 * 1024 //100K
if not defined (user.flickrRivr.images)
new (tabletype, @user.flickrRivr.images)
Wdatatabl G /v/v created Sun, 01 Jan 2006 15:04:22 GMT Wdatatabl G // created Sun, 01 Jan 2006 15:04:31 GMT Wdatatabl G NmNm created Fri, 20 Apr 2007 20:17:00 GMT Wdatatabl G Nn Nn created Fri, 20 Apr 2007 20:18:03 GMT Wdatatabl G NmNm created Fri, 20 Apr 2007 20:17:07 GMT Wdatatabl G NmNm created Fri, 20 Apr 2007 20:17:20 GMT Wdatatabl G NmNm created Fri, 20 Apr 2007 20:17:49 GMT Wdatatabl G NnNn created Fri, 20 Apr 2007 20:18:09 GMT Wdatatabl G NioNio created Fri, 20 Apr 2007 19:58:23 GMT Wdatatabl G Ng$Ng$ created Fri, 20 Apr 2007 19:48:36 GMT Wdatatabl G Ng$Ng$ created Fri, 20 Apr 2007 19:48:36 GMT Wdatatabl G NiNi created Fri, 20 Apr 2007 19:59:38 GMT Wdatatabl G G!G! created Sun, 15 Apr 2007 14:09:21 GMT Wdatatabl G G*G* created Sun, 15 Apr 2007 14:09:30 GMT Wdatatabl G xx created Mon, 17 Oct 2005 13:04:53 GMT Wdatatabl G xx created Mon, 17 Oct 2005 13:05:03 GMT Wdatatabl G xx created Mon, 17 Oct 2005 13:04:53 GMT Wdatatabl G xx created Mon, 17 Oct 2005 13:05:03 GMT Wdatatabl G xx created Mon, 17 Oct 2005 13:04:53 GMT Wdatatabl G xx created Mon, 17 Oct 2005 13:05:03 GMT Wdatatabl G xx created Mon, 17 Oct 2005 13:04:53 GMT Wdatatabl G xx created Mon, 17 Oct 2005 13:05:03 GMT Wdatatabl G created Sun, 17 Dec 2006 19:52:08 GMT Wdatatabl G created Sun, 17 Dec 2006 19:52:13 GMT Wdatatabl G xx created Mon, 17 Oct 2005 13:04:53 GMT Wdatatabl G xx created Mon, 17 Oct 2005 13:05:03 GMT * Geneva 6Nh$ _cLAND mac flickrRivrSuite.menucommands.addRssUrl ()
m Geneva T 7
73 _cLAND mac flickrRivrSuite.init ()
file.getfolderdialog ("Choose folder for Flickr pictures:", @user.flickrRivr.folder)
datata U Geneva 7K _cLAND mac if dialog.confirm ("Check with Flickr for new pics?")
flickrRivrSuite.checkFeeds ()
datata ) Geneva T 44 _cLAND mac file.openfolder (user.flickrRivr.folder)
R P Geneva .Mec { _cLAND mac FlickrRivr
Add RSS Url...
Choose folder...
-
Do scan now...
-
Open folder
JP
K
L
L p M `~ R Geneva e p s Geneva NhNj DLAND mac flickrRivrSuite.init ()
if dialog.ask ("Enter URL of a photo feed:", @user.flickrRivr.lasturl)
flickrRivrSuite.addSubscription (user.flickrRivr.lasturl)
datata Wdatatabl G NjwNjw created Fri, 20 Apr 2007 20:02:47 GMT 9 Geneva G|G| VLAND mac webbrowser.openurl ("http://127.0.0.1:5337/flickrRivr/")
Z V $ G|Nh
" addRssUrl OO preferences P Z 6 ` Geneva ٔ? rLAND mac local (adrdata = dotOpmlSuite.init ())
local (folder = adrdata^.folderWatcher.prefs.folder)
folder = folder + "newsRiver" + file.getpathchar ()
local (f = folder + "flickrRivr.root")
target.set (this)
fileMenu.saveCopy (f)
dotOpmlSuite.folderWatcher.thread.wake ()
dialog.alert (file.filefrompath (f) + " is " + string.megabytestring (file.size (f)))
} Geneva .. _cLAND mac This script returns a string which appears in the Status Center on the Radio UserLand home page.
return ("I'm a cool Tool!")
f ] Geneva EG
ZLAND mac if not defined (scratchpad.flickrRivrBackupNum)
scratchpad.flickrRivrBackupNum = 0
scratchpad.flickrRivrBackupNum++
local (num = string.padwithzeros (scratchpad.flickrRivrBackupNum, 4))
local (f = "Macintosh HD:Don't Back Up:backups:flickrRivr" + num + ".root")
file.surefilepath (f)
filemenu.saveCopy (f)
file.openfolder (file.folderfrompath (f))
Wdatatabl G E-E- created Sat, 14 Apr 2007 05:39:41 GMT Wdatatabl G E