Subscribe to a Flickr tag
New in version 0.37.
It was always possible to subscribe to a Flickr tag, if you knew the syntax for RSS feeds that do that, but this new page makes it as easy as entering a tag into a web form.
It may take a minute to fix the database so the Feeds page correctly displays.
See also: Subscribe to Flickr tag feeds.
Wdatatabl P G á0á0 created Wed, 02 Jan 2008 20:14:35 GMT Wdatatabl P G q q created Tue, 27 Nov 2007 07:45:28 GMT Wdatatabl P G rA-rA- created Wed, 28 Nov 2007 05:48:29 GMT Wdatatabl P G ÌXÌX created Tue, 18 Dec 2007 00:48:33 GMT Wdatatabl P G ÌXÌX created Tue, 18 Dec 2007 00:48:34 GMT Wdatatabl P G q q created Tue, 27 Nov 2007 07:45:33 GMT Wdatatabl P G á0á0 created Wed, 02 Jan 2008 20:14:44 GMT Wdatatabl P G á0Pá0P created Wed, 02 Jan 2008 20:13:04 GMT Wdatatabl P G á1 á1 created Wed, 02 Jan 2008 20:16:12 GMT & Geneva é3?éG ?@LAND mac
Copy/paste this text into a blog post or web page.
| Image preview |
| <%imagehtml%> |
How to set up <%productname%> |
What can <%productname%> do?
- View photos from your Flickr account, selected contacts, tags and high-res AP wire photos.
- Pictures can be transferred to the screen saver or viewed in the browser.
- Upload pictures you drop in a special folder.
- Automatically back up all the pictures in your Flickr account on a local disk.
- Archive or delete old pictures, keeping the content of your screen saver fresh.
- Share pictures using Twitter or RSS.
Wdatatabl P G yy created Mon, 03 Dec 2007 23:52:32 GMT Wdatatabl P G q q created Tue, 27 Nov 2007 07:45:28 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 23:09:53 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 07:22:40 GMT Wdatatabl P G q#q# created Tue, 27 Nov 2007 07:24:19 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 23:08:50 GMT Wdatatabl P G tt created Fri, 30 Nov 2007 03:01:23 GMT Wdatatabl P G q q created Tue, 27 Nov 2007 07:45:33 GMT Wdatatabl P G y`y` created Mon, 03 Dec 2007 23:59:28 GMT Wdatatabl G ÓOÓO created Sun, 23 Dec 2007 19:00:31 GMT Wdatatabl G ÓÓ created Sun, 23 Dec 2007 19:02:14 GMT Wdatatabl P G yy created Tue, 04 Dec 2007 00:01:08 GMT Wdatatabl P G y؊y؊ created Tue, 04 Dec 2007 00:00:10 GMT Wdatatabl P G yy created Tue, 04 Dec 2007 00:01:41 GMT Wdatatabl P G yy created Tue, 04 Dec 2007 00:01:41 GMT Wdatatabl P G yy created Tue, 04 Dec 2007 00:01:15 GMT Wdatatabl P G y?y? created Mon, 03 Dec 2007 23:58:55 GMT Geneva qs ^LAND mac Wdatatabl P G q q created Tue, 27 Nov 2007 07:45:28 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 23:09:53 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 07:22:40 GMT Wdatatabl P G qzqz created Tue, 27 Nov 2007 16:57:30 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 22:32:17 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 07:24:01 GMT Wdatatabl G )) created Sun, 20 Aug 2006 22:01:04 GMT Wdatatabl P G q#q# created Tue, 27 Nov 2007 07:24:19 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 23:08:50 GMT Wdatatabl P G q q created Tue, 27 Nov 2007 07:45:33 GMT W I Geneva v 5y > LLAND mac Wdatatabl P G v v created Sat, 01 Dec 2007 02:57:24 GMT Wdatatabl P G v v created Sat, 01 Dec 2007 02:57:24 GMT Wdatatabl P G y_y_ created Mon, 03 Dec 2007 15:25:02 GMT Wdatatabl P G y_y_ created Mon, 03 Dec 2007 15:25:08 GMT Wdatatabl P G y_y_ created Mon, 03 Dec 2007 15:25:20 GMT W : Geneva áá' mLAND mac
You can subscribe to new Flickr pictures tagged with the word snowstorm for example, by entering it into the form below, and click on Submit.
Wdatatabl P G yy created Mon, 03 Dec 2007 23:52:32 GMT Wdatatabl P G q q created Tue, 27 Nov 2007 07:45:28 GMT Wdatatabl P G á)á) created Wed, 02 Jan 2008 18:34:17 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 07:22:40 GMT Wdatatabl P G q q created Tue, 27 Nov 2007 07:45:33 GMT Wdatatabl P G áá created Wed, 02 Jan 2008 18:36:31 GMT ] Geneva û%Mû' 3TLAND mac
Please enter a date in the form and click Submit. We'll install all FlickrFan parts that were created or updated since that date. This is a way to be sure that you have all the latest updates.
Wdatatabl P G û'û' created Tue, 22 Jan 2008 12:52:24 GMT Wdatatabl P G û'û' created Tue, 22 Jan 2008 12:54:23 GMT Wdatatabl P G û%qû%q created Tue, 22 Jan 2008 12:45:37 GMT Wdatatabl P G û%sû%s created Tue, 22 Jan 2008 12:45:39 GMT Wdatatabl P G û%û% created Tue, 22 Jan 2008 12:47:19 GMT Wdatatabl P G û%û% created Tue, 22 Jan 2008 12:46:53 GMT Wdatatabl P G q q created Tue, 27 Nov 2007 07:45:33 GMT Wdatatabl P G û'û' created Tue, 22 Jan 2008 12:54:38 GMT Wdatatabl P G û&û& created Tue, 22 Jan 2008 12:51:34 GMT 3 ` qʨ $ 0 C O Y e r ~ feedsPage imageHtmlPage picViewerShareForm { setupPage setupPageOld sharePicForm QtagSubscribePage updateWhenPage Y VGeneva 2 ; FFFF000000060001001777AA000000000071000000001001710000001-7FFF6FBE1800000480048062A200-175797579062A222FFFF01037B00001000000370000000107E4084062A22243048C0001862A1A2000020000008300000000 7E,
00040000000A00000002018010005000000090000000208000006000000630000000210A210FFFF0A00000
10 E310FFFF0E00000
10 0007000000190000000102018000080000009700000001 40,Geneva 40, 4030 10000900000015000000023B02F73B02F7000A000000150000000262A22262A222000B00000005000000020000C0000001B000000017B757922168118910000F0000005200000000400 10 4, 4, 4, 4, >6 4,~ 4, 4, 00130000007E00000000DA91F8CE1C1D1E1F7F1B0 44,- . . ' " FFFF0FFFF0FFFE000000060001001777AA Gr ~ ; 1 FFFF000000060001001777AA00000000006D000000001001710000001-7FFF6FBE1800000480048062A200-1ADAD062A222FFFF01032800001000000370000000107D4084062A2223F048C0001862A199000020000008200000000 7D,
00040000000A00000002017F10005000000090000000207F00006000000630000000210A210FFFF0A00000
10 E310FFFF0E00000
10 0007000000190000000102018000080000009700000001 40,Geneva 40, 4030 10000900000015000000023B02F73B02F7000A000000150000000262A22262A222000B00000005000000020000C00000016000000012820EF3012B0000F0000005200000000400 10 4, 4, 4, 4, >6 4,~ 4, 4, 00130000007E00000000DA91F8CE1C1D1E1F7F1B0 44,- . . ' " FFFF0FFFF0FFFE000000060001001777AA GrZ } 1 Q $ r"r
folderimg ʹxmlimg VGeneva
2@8 8: u %M Geneva Jtʫ, ]}LAND mac Basic stuff
Who are you?
Please enter your name and mail address below. We'll use the name for default text in messages, the title of your RSS feed (for example). The mail address is used for password recovery.<%radio.prefs.stringPref ("Name", @user.prefs.name, size:25)%> <%radio.prefs.stringPref ("Email", @user.prefs.mailaddress, size:25)%>
Choose a password, below, to protect your RSS feed (see the next page), so that only you can update it.
<%if html.getpagetableaddress ()^.method != "POST" {system.temp.newsRiver.repeatedPassword = user.photoFan.prefs.myFeed.password}; ""%> <%radio.prefs.stringPref ("Password", @system.temp.newsRiver.repeatedPassword, type:"password", size:25)%> <%radio.prefs.stringPref ("Repeat", @user.photoFan.prefs.myFeed.password, type:"password", size:25)%> <%try {delete (@system.temp.newsRiver.repeatedPassword)}; ""%>
If you've forgotten your password, click this link, and we'll mail it to you.
<%radio.prefs.checkboxPref ("Check this box if it's OK to include your name and link to your Flickr page in the public list of users.", @user.photoFan.prefs.flPubliclyListUser)%> Your RSS Feed When viewing a picture, you can click the Share button at the bottom of the page to add it to your RSS feed. This page allows you to set the title and description of the <%photoFanSuite.website.prefsSnippets.seeMyRssFeed ("feed")%>.
<%radio.prefs.stringPref ("Title", @user.photoFan.prefs.myFeed.title, size:65)%> <%radio.prefs.textAreaPref ("Description", @user.photoFan.prefs.myFeed.description, cols:60, rows:5)%> Sharing with Twitter Please enter your Twitter username and password here if you want to share pointers to pictures with your Twitter followers.
<%radio.prefs.stringPref ("Twitter username", @user.photoFan.prefs.twitter.username, size:25)%> <%if html.getpagetableaddress ()^.method != "POST" {system.temp.newsRiver.repeatedPassword = user.photoFan.prefs.twitter.password}; ""%> <%radio.prefs.stringPref ("Password", @system.temp.newsRiver.repeatedPassword, type:"password", size:25)%> <%radio.prefs.stringPref ("Repeat", @user.photoFan.prefs.twitter.password, type:"password", size:25)%> <%try {delete (@system.temp.newsRiver.repeatedPassword)}; ""%>
Flickr-to-Twitter
We can watch your Flickr account and when a new picture shows up, automatically post it to Twitter. Docs for this feature, and a place to ask questions are here.<%radio.prefs.checkboxPref ("Check this box if you want to automatically post links to your pictures to Twitter.", @user.photoFan.prefs.flickrToTwitter.enabled)%>
If you want all your Flickr pictures to flow to Twitter, leave the "Special tag" empty. If you only want some of them to, enter a tag, something like twitter or sentFromMyPhone.
<%radio.prefs.stringPref ("Special tag", @user.photoFan.prefs.flickrToTwitter.specialTag, size:25)%>
<%radio.prefs.numberPref ("Check for new pics every", @user.photoFan.prefs.flickrToTwitter.minutesBetweenChecks, lowerbound:1, upperbound:10000, textToRight:" minute(s).")%> Archiving pictures It's nice to have a lot of pictures for the screen saver to display, but once you reach a certain level, you may prefer to have old ones removed. This keeps the amount of space used by this app from expanding indefinitely, and assures that the pictures you see are fresh.
<%radio.prefs.checkboxPref ("Check this box to limit the number of pictures in the screen saver folder.", @user.photoFan.prefs.archive.enabled)%>
How many pictures is the maximum?
<%radio.prefs.numberPref ("Number", @user.photoFan.prefs.archive.maxPics, lowerbound:100, upperbound:10000)%>
<%radio.prefs.checkboxPref ("Check this box if you want to copy the pictures to an archive folder.", @user.photoFan.prefs.archive.flCopyToArchiveFolder)%>
And where would you like the archived pictures to be stored?
<%radio.prefs.stringPref ("Folder", @user.photoFan.prefs.archive.folder, size:65)%> Advanced This page has settings we think most users won't need to change...
<%productName%> can download more than one picture at a time, and that keeps a slow server from blocking faster ones. However, if you notice that your network bogs down at the top of the hour, you may want to decrease this number; or increase it if you have a fast net connection.
<%radio.prefs.numberPref ("Maximum", @user.photoFan.prefs.maxConcurrentDownloads, lowerbound:1, upperbound:25, textToRight:" concurrent downloads.")%>
If you're displaying pictures on a large high-definition screen, small images can look grainy, and you may want to limit the size of the smallest image we'll keep.
<%radio.prefs.numberPref ("Smallest image", @user.photoFan.prefs.sizeSmallestImage, lowerbound:1024, upperbound:1024*1024, textToRight:" bytes.")%> Flickr backups Backup basics We can keep a backup copy of the pictures in your Flickr account on your local computer, and keep it current by downloading new pictures every night when you're not using your computer.
<%radio.prefs.checkboxPref ("Check this box if you'd like to do a backup right now.", @user.photoFan.prefs.backup.flImmediateBackup)%>
Important: If you want us to download the original pictures, you must authorize us to access the full-size versions of your pictures. Otherwise we'll only be able to access smaller versions of your pictures. Overnight backups Once you've done a full backup, it's a good idea to keep the backup current, by checking every night, and downloading new pictures that have been uploaded since the last backup. This usually takes much less time.
<%radio.prefs.checkboxPref ("Check this box if you'd like to back up every night.", @user.photoFan.prefs.backup.enabled)%>
At what hour each day should we begin the backup? (We use a 24-hour clock, so 2PM is 14, 10PM is 22.)
<%radio.prefs.numberPref ("Hour", @user.photoFan.prefs.backup.hourToStart, lowerbound:0, upperbound:23)%> Flickr uploads Drop folder <%flickr.folderwatcher.init ();""%>If you check the box below, we'll periodically look in a special folder. When a picture shows up, a GIF or JPEG, we'll upload the picture to your Flickr account, and delete it from the folder.
<%radio.prefs.checkboxPref ("Check this box to enable Flickr uploading through the drop folder.", @user.flickr.folderWatcher.enabled)%>
If you set the number of seconds to 10 (the default) then on average it will take five seconds before we notice a new picture. Scanning is very quick on today's computers, so you can set this number pretty low.
<%radio.prefs.numberPref ("Seconds", @user.flickr.folderWatcher.ctSecondsBetwScans, lowerbound:5, upperbound:60, textToRight:" between scans.")%>
By default the folder is on your desktop, but you can put it anywhere. It may make sense to put it in a place that's shared between all the computers on your network.
<%radio.prefs.stringPref ("Folder", @user.flickr.folderWatcher.folder, size:60)%>
<%radio.prefs.checkboxPref ("Check this box if you want the speaker to beep after a file is uploaded.", @user.flickr.folderWatcher.flBeepAfterUpload)%> <%radio.prefs.checkboxPref ("Check this box if you want a preview page to open in the browser after images are uploaded.", @user.photoFan.prefs.flViewImageHtml)%>
Important: You must authorize us to upload to your account. Upload defaults We use these values when uploading pictures from the drop folder. They are just defaults, you can change them for any individual picture with the Flickr user interface.
<%radio.prefs.textAreaPref ("Description", @user.flickr.folderWatcher.defaults.description, 65, 4)%>
Separate tags by spaces. If a tag contains one or more spaces enclose it in "double quotes."
<%radio.prefs.textAreaPref ("Tags", @user.flickr.folderWatcher.defaults.tags, 65, 4)%>
Access controls
The following prefs determine who can view the photo. <%radio.prefs.checkboxPref ("Uploaded pictures are, by default, public (anyone can view them).", @user.flickr.folderWatcher.defaults.flpublic)%> <%radio.prefs.checkboxPref ("Uploaded pictures can be viewed by friends.", @user.flickr.folderWatcher.defaults.flfriends)%> <%radio.prefs.checkboxPref ("Uploaded pictures can be viewed by family.", @user.flickr.folderWatcher.defaults.flfamily)%> <%radio.prefs.checkboxPref ("Uploaded pictures are included in global search results.", @user.flickr.folderWatcher.defaults.flnothidden)%>Content categories
The following prefs set default categories for uploaded photos. <%radio.prefs.numberPref ("Safety level", @user.flickr.folderWatcher.defaults.safetyLevel, lowerbound:1, upperbound:3, textToRight:" 1 for Safe, 2 for Moderate, or 3 for Restricted.")%> <%radio.prefs.numberPref ("Content type", @user.flickr.folderWatcher.defaults.contentType, lowerbound:1, upperbound:3, textToRight:" 1 for Photo, 2 for Screenshot, or 3 for Other.")%>For more information on the defaults see the docs on the Flickr website. Wdatatabl P G xx created Sun, 02 Dec 2007 15:36:13 GMT Wdatatabl G OAOA created Thu, 01 Nov 2007 15:41:23 GMT Wdatatabl P G x@x@ created Sun, 02 Dec 2007 18:59:28 GMT $datatabl (+l(+l $datatabl (+l(+l $datatabl (+l(+l $datatabl (+l(+l Wdatatabl P G xDxD created Sun, 02 Dec 2007 19:17:41 GMT $datatabl (+l(+l Wdatatabl P G xx created Sun, 02 Dec 2007 15:35:14 GMT Wdatatabl P G xx created Sun, 02 Dec 2007 15:35:18 GMT Wdatatabl P G ynyn created Tue, 04 Dec 2007 00:29:34 GMT Wdatatabl P G yqyq created Tue, 04 Dec 2007 00:29:37 GMT $datatabl (+l(+l $datatabl (+l(+l $datatabl (+l(+l $datatabl (+l(+l Wdatatabl 0 G 3~ 3~ created Mon, 24 Mar 2008 17:31:26 GMT $datatabl (+l(+l Wdatatabl 0 G z z created Sun, 23 Mar 2008 18:16:10 GMT $datatabl (+l(+l Wdatatabl G J J created Sun, 28 Oct 2007 16:57:26 GMT Wdatatabl P G KR8KR8 created Mon, 29 Oct 2007 16:02:48 GMT $datatabl (+l(+l Wdatatabl G J J created Sun, 28 Oct 2007 16:58:00 GMT $datatabl (+l(+l $datatabl (+l(+l Wdatatabl G JJ created Sun, 28 Oct 2007 16:32:53 GMT Wdatatabl P G yhEyhE created Mon, 03 Dec 2007 16:01:09 GMT Wdatatabl P G yhGyhG created Mon, 03 Dec 2007 16:01:11 GMT $datatabl (+l(+l Wdatatabl P G yhyh created Mon, 03 Dec 2007 16:03:46 GMT $datatabl (+l(+l Wdatatabl P G ]] created Mon, 12 Nov 2007 18:02:00 GMT Wdatatabl P G ]] created Mon, 12 Nov 2007 18:06:11 GMT Wdatatabl P G ]] created Mon, 12 Nov 2007 17:10:12 GMT $datatabl (+l(+l Wdatatabl P G ]ץ]ץ created Mon, 12 Nov 2007 18:12:53 GMT Wdatatabl P G ]] created Mon, 12 Nov 2007 18:13:58 GMT Wdatatabl P G ];]; created Mon, 12 Nov 2007 18:15:23 GMT $datatabl (+l(+l $datatabl (+l(+l Wdatatabl P G yUyU created Mon, 03 Dec 2007 19:00:37 GMT Wdatatabl P G y y created Mon, 03 Dec 2007 19:03:37 GMT Wdatatabl P G y*y* created Mon, 03 Dec 2007 19:04:10 GMT $datatabl (+l(+l Wdatatabl P G yy created Mon, 03 Dec 2007 19:06:00 GMT $datatabl (+l(+l Wdatatabl P G y y created Mon, 03 Dec 2007 19:07:57 GMT $datatabl (+l(+l $datatabl (+l(+l Wdatatabl P G y!y! created Mon, 03 Dec 2007 19:21:05 GMT Wdatatabl P G æ8æ8 created Sun, 06 Jan 2008 21:50:48 GMT Wdatatabl P G ææ created Sun, 06 Jan 2008 22:10:50 GMT Wdatatabl P G æ>æ> created Sun, 06 Jan 2008 21:50:54 GMT Wdatatabl G æ>æ> created Mon, 07 Jan 2008 02:58:06 GMT Wdatatabl P G æ>æ> created Sun, 06 Jan 2008 21:50:54 GMT Wdatatabl P G æSæS created Sun, 06 Jan 2008 22:12:35 GMT $datatabl (+l(+l $datatabl (+l(+l $datatabl (+l(+l $datatabl (+l(+l Wdatatabl G æijæij created Mon, 07 Jan 2008 01:47:31 GMT $datatabl (+l(+l $datatabl (+l(+l Wdatatabl P G ææ created Sun, 06 Jan 2008 22:11:20 GMT 8: 0 uƆʫ prefs VGeneva 2 Q oE * - R a C K n | & N \ afp "http://feeds.flickrfan.org/afp.xmlap !http://feeds.flickrfan.org/ap.xmlchangesOutline ,http://codecasting.org/photoFan/changes.opmldefaultReadingList 6http://xml.flickrfan.org/river/defaultReadingList.opml flickrTagFeed Shttp://api.flickr.com/services/feeds/photos_public.gne?lang=en-us&format=rss2&tags=homeUrl http://127.0.0.1:5337/photoFan/ openFolderUrl 1http://127.0.0.1:5337/photoFan/openFolder?folder= picViewer http://127.0.0.1:5337/pfi/ picViewerPage 0http://127.0.0.1:5337/photoFan/viewPicture?file= pingServer $xmlrpc://rpc.flickrfan.org:5337/RPC2 publishServer $xmlrpc://rpc.flickrfan.org:5337/RPC2 viewImageHtml /http://127.0.0.1:5337/photofan/viewImageHtml?s= VGeneva RCz8& . ` o4ûj % * 6 F w colors p forms p html p =linkProductName -FlickrFanlogName photoFanoutlines : productName FlickrFanurls VGeneva 2 Geneva qEq) wLAND mac on disableFeed (url) Changes 11/27/07; 10:13:40 AM by DW Created. if url != "" user.photoFan.feeds.[url].enabled = false bundle //test code disableFeed ("http://api.flickr.com/services/feeds/photos_public.gne?lang=en-us&format=rss_200&id=22221172@N00") Wdatatabl P G o'o' created Sun, 25 Nov 2007 21:23:11 GMT Wdatatabl P G q q created Tue, 27 Nov 2007 18:12:25 GMT Wdatatabl P G qVqV created Tue, 27 Nov 2007 18:13:42 GMT Wdatatabl P G q q created Tue, 27 Nov 2007 18:12:16 GMT Wdatatabl P G o%9o%9 created Sun, 25 Nov 2007 21:12:25 GMT Wdatatabl P G q|q| created Tue, 27 Nov 2007 18:14:20 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 18:14:25 GMT : $ Geneva Q! v tLTLAND mac on downloadImage (url, adrimg, adrfeed) Changes 2/20/08; 6:26:52 PM by DW Don't let the created and modified dates be in the future. 2/2/08; 4:55:09 PM by DW Set the created and modified dates of the image files using the pubdate in the image table, if provided. 11/30/07; 12:12:59 PM by DW Convert to using the new photo viewer page in the logging code. 11/29/07; 12:42:32 PM by DW Upgrade logging to use the info passed from adrfeed. 11/23/07; 1:45:21 PM by DW startticks was being set before we enter the wait loop, so the total time elapsed in the log would reflect (mostly) the amount of time we had to wait to start downloading. 11/23/07; 1:30:27 PM by DW Change "Image download" to "Download" in the log. 11/21/07; 10:18:55 AM by DW Hot-up the domain in the log html text so it points at the picture we downloaded. Should help to debug. 11/21/07; 6:19:49 AM by DW Link the small version of the image to the full one. 11/21/07; 6:06:50 AM by DW Pass the image html to the log. 11/20/07; 9:26:17 PM by DW Include a thumb of the image in the log. 11/20/07; 1:12:21 PM by DW Make sure system.temp.flickrRivr.ctConcurrentDownloads doesn't go above user.flickrRivr.maxThreads. 11/20/07; 12:31:43 PM by DW Log the download of each image. 11/6/07; 9:12:58 AM by DW Add optional param, subfoldername. Don't delete the image sub-table, it's how we keep from reading files twice. 11/3/07; 12:26:41 PM by DW Disable debugging messages on tcp.httpReadUrl call. 10/31/07; 12:39:20 PM by DW No Error Info windows. The user doesn't care if a download results in an error. 5/8/07; 2:12:49 PM by DW If the file is too small to keep, don't write it to disk, and delete the image table. 4/22/07; 8:47:21 PM by DW Log file downloads. 4/22/07; 12:12:27 PM by DW Created. Factored into a separate routine so each download can run in its own thread. local (now = clock.now ()) adrfeed^.ctPicsDownloaded++; adrfeed^.whenLastPicDownloaded = now local (serialnum = user.photoFan.prefs.serialnum++, folder = adrfeed^.folder) bundle //set folder local (day, month, year, hour, minute, second, pc = file.getpathchar ()) date.get (clock.now (), @day, @month, @year, @hour, @minute, @second) folder = folder + year + pc + string.padwithzeros (month, 2) + pc + string.padwithzeros (day, 2) + pc local (f = folder + "pic" + string.padwithzeros (serialnum, 6) + ".jpg") file.surefilepath (f) local (s = "", secs, startticks) bundle //read the file startticks = clock.ticks () try {s = tcp.httpreadurl (url, flmessages:false)} secs = double (clock.ticks () - startticks) / 60 adrimg^.ctSecsToRead = secs if sizeof (s) >= user.photoFan.prefs.sizeSmallestImage //big enough to keep file.writewholefile (f, s) if defined (adrimg^.pubdate) //2/2/08 by DW local (thedate = adrimg^.pubdate) if thedate > now //2/20/08 by DW thedate = now file.setcreated (f, thedate) file.setmodified (f, thedate) adrimg^.f = f adrimg^.whenRead = now bundle //log the download, 11/29/07 by DW local (htmltext) bundle //set htmltext local (phototitle) if adrimg^.title != "" phototitle = adrimg^.title else phototitle = file.filefrompath (adrimg^.f) local (fileurl = string.delete (adrimg^.f, 1, sizeof (user.photoFan.prefs.screenSaverFolder))) fileurl = photoFanSuite.data.urls.picViewerPage + string.replaceall (fileurl, file.getpathchar (), "/") fileurl = fileurl + "&title=" + string.urlencode (phototitle) local (photolink = "" + phototitle + "") local (feedurl = adrfeed^.link) if feedurl == "" feedurl = nameof (adrfeed^) local (feedlink = "" + adrfeed^.title + "") local (sizestring = string.megabytestring (file.size (adrimg^.f))) htmltext = "
" + photolink + " (" + sizestring + ") downloaded from " + feedlink + ".
" if sizeof (adrimg^.description) > 0 htmltext = htmltext + "" + adrimg^.description + "
" photoFanSuite.addToLog ("Download", htmltext, startticks) bundle //log the download, old version local (sizestring = string.megabytestring (file.size (f))) local (ul = string.urlsplit (url), domain = ul [2]) local (fileurl = string.delete (f, 1, sizeof (user.photoFan.prefs.screenSaverFolder))) fileurl = photoFanSuite.data.urls.picViewer + string.replaceall (fileurl, file.getpathchar (), "/") local (imghtml = " ") try //set imghtml local (hw = html.getJpegHeightWidth (f), h = 50) local (w = hw [2] * (double (h) / double (hw [1]))) imghtml = "" t.twitterCheckbox= s if pta^.method == "POST" local (args) new (tabletype, @args) webserver.parseargs (pta^.requestbody, @args) if defined (args.sendToTwitter) photoFanSuite.sendToTwitter (args.title, adrimg^.url) if defined (args.adritem) scratchpad.args = args; edit (@scratchpad.args) if args.adritem != "nil" adritem = address (string.urldecode (args.adritem)) t.confirmation = "The title and description have been updated. It's very cooool. :-)" else t.confirmation = "The picture has been added to your RSS 2.0 feed, with the title and description you entered. :-)" photoFanSuite.myFeed.add (adrimg, args.title, args.description, @adritem) t.title = args.title t.description = args.description t.adritem = string.urlencode (adritem) t.buttonName = "Update" local (formtext = string (photoFanSuite.data.forms.sharePicForm)) t.f = f formtext = string.multiplereplaceall (formtext, @t, false, "<%", "%>") return (formtext) bundle //test code html.setpagetableaddress (@scratchpad.shareparams) sharePicture (scratchpad.f) Wdatatabl P G vv created Sat, 01 Dec 2007 03:40:52 GMT Wdatatabl P G y0y0 created Tue, 04 Dec 2007 01:06:56 GMT Wdatatabl P G y2y2 created Tue, 04 Dec 2007 01:06:58 GMT Wdatatabl P G v:v: created Sat, 01 Dec 2007 16:26:34 GMT Wdatatabl P G v;v; created Sat, 01 Dec 2007 16:26:35 GMT Wdatatabl P G v2v2 created Sat, 01 Dec 2007 05:36:17 GMT Wdatatabl P G v2v2 created Sat, 01 Dec 2007 05:36:19 GMT Wdatatabl P G vv created Sat, 01 Dec 2007 03:40:55 GMT Wdatatabl P G vv created Sat, 01 Dec 2007 03:40:56 GMT Wdatatabl P G uJuJ created Fri, 30 Nov 2007 19:49:30 GMT Wdatatabl P G v/tv/t created Sat, 01 Dec 2007 05:21:56 GMT Wdatatabl G ¥¥ created Tue, 26 Jun 2007 03:23:34 GMT Wdatatabl P G v.v. created Sat, 01 Dec 2007 05:17:55 GMT Wdatatabl P G v0)v0) created Sat, 01 Dec 2007 05:24:57 GMT Wdatatabl P G pepe created Mon, 26 Nov 2007 19:57:15 GMT Wdatatabl P G pe pe created Mon, 26 Nov 2007 19:57:20 GMT Wdatatabl P G pe(pe( created Mon, 26 Nov 2007 19:57:28 GMT Wdatatabl P G pe/pe/ created Mon, 26 Nov 2007 19:57:35 GMT Wdatatabl P G peEpeE created Mon, 26 Nov 2007 19:57:57 GMT Wdatatabl P G peMpeM created Mon, 26 Nov 2007 19:58:05 GMT Wdatatabl P G peRpeR created Mon, 26 Nov 2007 19:58:10 GMT Wdatatabl P G v gv g created Sat, 01 Dec 2007 04:13:27 GMT Wdatatabl P G vv created Sat, 01 Dec 2007 03:28:21 GMT Wdatatabl P G vv created Sat, 01 Dec 2007 03:28:21 GMT Wdatatabl P G v pv p created Sat, 01 Dec 2007 04:13:36 GMT Wdatatabl P G vv created Sat, 01 Dec 2007 03:28:21 GMT Wdatatabl P G vv created Sat, 01 Dec 2007 03:28:21 GMT Wdatatabl P G yy created Tue, 04 Dec 2007 00:43:10 GMT Wdatatabl P G yy created Tue, 04 Dec 2007 00:44:12 GMT Wdatatabl P G yy created Tue, 04 Dec 2007 00:43:18 GMT Wdatatabl P G yy created Tue, 04 Dec 2007 00:44:18 GMT Wdatatabl P G ynyn created Tue, 04 Dec 2007 00:46:38 GMT Wdatatabl P G yy created Tue, 04 Dec 2007 00:47:21 GMT Wdatatabl P G v v created Sat, 01 Dec 2007 04:18:11 GMT Wdatatabl G RR created Mon, 21 Aug 2006 19:09:32 GMT Wdatatabl G SS created Mon, 21 Aug 2006 19:09:50 GMT Wdatatabl G RR created Mon, 21 Aug 2006 19:09:00 GMT Wdatatabl P G yy created Tue, 04 Dec 2007 00:51:57 GMT Wdatatabl P G yy created Tue, 04 Dec 2007 00:52:13 GMT Wdatatabl P G v/v/ created Sat, 01 Dec 2007 05:23:53 GMT Wdatatabl P G qYqY created Tue, 27 Nov 2007 08:07:53 GMT Wdatatabl P G v.v. created Sat, 01 Dec 2007 05:16:03 GMT Wdatatabl P G v.v. created Sat, 01 Dec 2007 05:16:08 GMT Wdatatabl P G v,v, created Sat, 01 Dec 2007 05:09:50 GMT Wdatatabl P G v2v2 created Sat, 01 Dec 2007 05:33:14 GMT Wdatatabl P G v,v, created Sat, 01 Dec 2007 05:09:50 GMT Wdatatabl P G v,Hv,H created Sat, 01 Dec 2007 05:08:24 GMT Wdatatabl P G v1v1 created Sat, 01 Dec 2007 05:31:49 GMT Wdatatabl P G v1v1 created Sat, 01 Dec 2007 05:31:53 GMT Wdatatabl P G v-v- created Sat, 01 Dec 2007 05:15:29 GMT Wdatatabl P G v0)v0) created Sat, 01 Dec 2007 05:24:57 GMT Wdatatabl G ¥`¥` created Tue, 26 Jun 2007 02:56:16 GMT Wdatatabl P G v v created Sat, 01 Dec 2007 04:15:40 GMT Wdatatabl G ¥¥ created Tue, 26 Jun 2007 03:24:29 GMT Wdatatabl P G v v created Sat, 01 Dec 2007 02:51:05 GMT Wdatatabl P G v/}v/} created Sat, 01 Dec 2007 05:22:05 GMT Wdatatabl P G v/v/ created Sat, 01 Dec 2007 05:22:10 GMT Wdatatabl P G v/v/ created Sat, 01 Dec 2007 05:22:16 GMT a S Geneva qq (LAND mac on viewContactList () Changes 11/27/07; 12:01:13 AM by DW Created. if user.photoFan.prefs.flickr.flShowContacts if user.photoFan.prefs.flickr.username == "" return ("
There are no contacts to view because the Flickr username is empty.")
local (htmltext = "", indentlevel = 0, adr)
on add (s)
htmltext = htmltext + string.filledstring ("\t", indentlevel) + s + "\r"
for adr in @user.photoFan.feeds
if adr^.flcontact
add (adr^.flickrUserId + "") return (htmltext) else return ("") Wdatatabl P G qq created Tue, 27 Nov 2007 08:01:10 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 08:01:13 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 08:01:14 GMT Wdatatabl P G q[q[ created Tue, 27 Nov 2007 22:46:51 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 08:15:11 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 08:01:16 GMT Wdatatabl G ê(ê( created Fri, 05 Jan 2007 15:09:28 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 08:01:16 GMT Wdatatabl P G qީqީ created Tue, 27 Nov 2007 22:48:09 GMT Wdatatabl P G qޯqޯ created Tue, 27 Nov 2007 22:48:15 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 22:48:58 GMT Wdatatabl P G qbqb created Tue, 27 Nov 2007 22:46:58 GMT Wdatatabl P G qdqd created Tue, 27 Nov 2007 22:47:00 GMT S t FG - Geneva ! r@zL E LAND mac on viewFeeds () Changes 2/2/08; 10:49:18 AM by DW Add special section for Agence France-Presse photos. Change "AP" to Associated Press. 1/3/08; 2:25:14 PM by DW Put the body of viewFeed in a try. If the user goes to the Feeds page at startup, we won't fail because the title hasn't been defined. 12/31/07; 4:41:57 AM by DW Improve the error message when we fail to subscribe. Include the text "Can't subscribe." And encode left angle brackets so they don't get swallowed by the browser. 12/30/07; 9:22:37 AM by DW Turn off some debugging code. 12/27/07; 5:52:46 PM by DW Check if adrfeed^.type is defined before using it. Apparently in some circumstances it's not (probably some other error). Dave Sifry reported this problem. 12/18/07; 6:04:02 AM by DW Disable code that blocks display of the page when the contacts are updating. We'll take our chances. 12/17/07; 6:42:33 PM by DW View feeds that are not the users, contacts, the AP feed, or a reading list (basically feeds subscribed to through the box). 12/17/07; 5:14:50 PM by DW Add support for direct subscribing to feeds that are not contacts. 12/17/07; 12:33:48 PM by DW When you subscribe to new feeds, immediately read them instead of waiting until the top of the hour. 11/29/07; 9:36:44 AM by DW Synch contacts if it's been more than five minutes since we last synched, but do it in a separate thread, don't wait around for the results. 11/27/07; 9:45:42 PM by DW Created. bundle //add subscription table add ("
"); indentlevel++
add ("
|
| "); indentlevel++
add (" |
| " + date.longstring (when) + " | " + prevlink + " / " + nextlink + " |
") add ("
"); indentlevel++
add ("
|
" + navtable) filemenu.savemyroot (adrlog) system.temp.photoFan.cache.viewEventsLog = htmlText return (htmlText) bundle //test code webbrowser.displaytext (viewlog ()) Wdatatabl P G created Tue, 05 Feb 2008 20:32:18 GMT Wdatatabl P G created Tue, 05 Feb 2008 20:32:18 GMT Wdatatabl G øcøc created Sun, 20 Jan 2008 13:28:03 GMT Wdatatabl G øcøc created Sun, 20 Jan 2008 13:28:03 GMT Wdatatabl P G onon created Mon, 26 Nov 2007 02:27:10 GMT Wdatatabl P G onon created Mon, 26 Nov 2007 02:27:11 GMT Wdatatabl P G on0on0 created Mon, 26 Nov 2007 02:23:44 GMT Wdatatabl P G on3on3 created Mon, 26 Nov 2007 02:23:47 GMT Wdatatabl P G ll created Fri, 23 Nov 2007 21:23:18 GMT Wdatatabl P G ll created Fri, 23 Nov 2007 21:23:19 GMT Wdatatabl G ø[ø[ created Sun, 20 Jan 2008 13:32:11 GMT Wdatatabl G i}i} created Wed, 21 Nov 2007 14:13:28 GMT Wdatatabl G i}i} created Wed, 21 Nov 2007 14:13:40 GMT Wdatatabl P G hu$hu$ created Tue, 20 Nov 2007 19:27:32 GMT Wdatatabl P G hu*hu* created Tue, 20 Nov 2007 19:27:38 GMT Wdatatabl G ø4ø4 created Sun, 20 Jan 2008 13:31:32 GMT Wdatatabl G øø created Sun, 20 Jan 2008 13:13:14 GMT Wdatatabl G øø created Sun, 20 Jan 2008 13:15:45 GMT Wdatatabl G øXøX created Sun, 20 Jan 2008 13:57:44 GMT Wdatatabl G øiøi created Sun, 20 Jan 2008 13:58:01 GMT Wdatatabl G ø ø created Sun, 20 Jan 2008 14:00:32 GMT Wdatatabl G øø created Sun, 20 Jan 2008 14:00:10 GMT Wdatatabl G øø created Sun, 20 Jan 2008 14:00:18 GMT Wdatatabl G øsøs created Sun, 20 Jan 2008 13:58:11 GMT Wdatatabl G ø ø created Sun, 20 Jan 2008 14:00:45 GMT Wdatatabl P G created Tue, 05 Feb 2008 20:32:03 GMT Wdatatabl G øø created Sun, 20 Jan 2008 14:00:57 GMT Wdatatabl G ø;ø; created Sun, 20 Jan 2008 14:05:47 GMT Wdatatabl G øø created Sun, 20 Jan 2008 14:08:39 GMT Wdatatabl G øø created Sun, 20 Jan 2008 14:08:39 GMT Wdatatabl G øDøD created Sun, 20 Jan 2008 14:05:56 GMT Wdatatabl G øø created Sun, 20 Jan 2008 14:07:28 GMT Wdatatabl P G created Tue, 05 Feb 2008 20:32:05 GMT Wdatatabl P G created Tue, 05 Feb 2008 20:32:07 GMT Wdatatabl G øiøi created Sun, 20 Jan 2008 13:58:01 GMT Wdatatabl G ø ø created Sun, 20 Jan 2008 14:00:32 GMT Wdatatabl G øø created Sun, 20 Jan 2008 14:00:10 GMT Wdatatabl G øsøs created Sun, 20 Jan 2008 13:58:11 GMT Wdatatabl G ø ø created Sun, 20 Jan 2008 14:00:45 GMT Wdatatabl G øø created Sun, 20 Jan 2008 14:00:18 GMT Wdatatabl G øø created Sun, 20 Jan 2008 14:00:57 GMT Wdatatabl G ø;ø; created Sun, 20 Jan 2008 14:05:47 GMT Wdatatabl G øø created Sun, 20 Jan 2008 14:08:39 GMT Wdatatabl G øø created Sun, 20 Jan 2008 14:08:39 GMT Wdatatabl G øDøD created Sun, 20 Jan 2008 14:05:56 GMT Wdatatabl G øø created Sun, 20 Jan 2008 14:07:28 GMT Wdatatabl G øvøv created Sun, 20 Jan 2008 15:36:22 GMT Wdatatabl G øø created Sun, 20 Jan 2008 14:16:38 GMT Wdatatabl P G ll created Fri, 23 Nov 2007 21:24:33 GMT Wdatatabl G s!gs!g created Wed, 28 Nov 2007 21:45:11 GMT Wdatatabl G s!rs!r created Wed, 28 Nov 2007 21:45:22 GMT Wdatatabl G s!{s!{ created Wed, 28 Nov 2007 21:45:31 GMT Wdatatabl G i{i{ created Wed, 21 Nov 2007 14:08:50 GMT Wdatatabl G i| i| created Wed, 21 Nov 2007 14:09:14 GMT Wdatatabl G i|i| created Wed, 21 Nov 2007 14:09:19 GMT Wdatatabl G øø created Sun, 20 Jan 2008 13:33:04 GMT Wdatatabl G s!gs!g created Wed, 28 Nov 2007 21:45:11 GMT Wdatatabl G s!rs!r created Wed, 28 Nov 2007 21:45:22 GMT Wdatatabl G s!{s!{ created Wed, 28 Nov 2007 21:45:31 GMT Wdatatabl G i{i{ created Wed, 21 Nov 2007 14:08:50 GMT Wdatatabl G i| i| created Wed, 21 Nov 2007 14:09:14 GMT Wdatatabl G i|i| created Wed, 21 Nov 2007 14:09:19 GMT Wdatatabl G øø created Sun, 20 Jan 2008 14:16:38 GMT Wdatatabl G øvøv created Sun, 20 Jan 2008 15:36:22 GMT Wdatatabl G ø4ø4 created Sun, 20 Jan 2008 13:14:28 GMT Wdatatabl G ø8ø8 created Sun, 20 Jan 2008 13:14:32 GMT 2e Geneva u>v* LAND mac on viewPicture (f) Changes 11/30/07; 6:42:42 PM by DW Changed maxpicwidth to 640 from 750. Add Share button. 11/30/07; 11:49:25 AM by DW Created. local (maxpicwidth = 640) local (pta = html.getpagetableaddress (), adrimg=nil) local (htmltext = "", indentlevel = 0, now = clock.now ()) on add (s) htmltext = htmltext + string.filledstring ("\t", indentlevel) + s + "\r" bundle //set adrimg local (adr) for adr in @user.photofan.images if defined (adr^.f) if adr^.f == f adrimg = adr break local (fileurl = string.delete (f, 1, sizeof (user.photoFan.prefs.screenSaverFolder))) fileurl = string.replaceall (fileurl, " ", "%20") fileurl = photoFanSuite.data.urls.picViewer + string.replaceall (fileurl, file.getpathchar (), "/") local (hw = html.getJpegHeightWidth (f), w = hw [2], h = hw [1]) if w > maxpicwidth h = number (h * (double (maxpicwidth) / double (w))) w = maxpicwidth local (imghtml = "
" + imghtml + "
") local (fldescadded = false) //did we add a description? bundle //add the description, if there is one if adrimg != nil if defined (adrimg^.description) if adrimg^.description != "" add ("" + searchengine.stripmarkup (adrimg^.description) + "
") fldescadded = true if not fldescadded add ("" + f + "
") bundle //add share button local (formtext = string (photoFanSuite.data.forms.picViewerShareForm), t) new (tabletype, @t) t.f = string.urlencode (f) formtext = string.multiplereplaceall (formtext, @t, false, "<%", "%>") add (formtext) return (htmltext) Wdatatabl P G uCuC created Fri, 30 Nov 2007 19:49:23 GMT Wdatatabl P G v !v ! created Sat, 01 Dec 2007 02:42:41 GMT Wdatatabl P G v "v " created Sat, 01 Dec 2007 02:42:42 GMT Wdatatabl P G uDuD created Fri, 30 Nov 2007 19:49:24 GMT Wdatatabl P G uEuE created Fri, 30 Nov 2007 19:49:25 GMT Wdatatabl P G v v created Sat, 01 Dec 2007 02:42:30 GMT Wdatatabl P G uJuJ created Fri, 30 Nov 2007 19:49:30 GMT Wdatatabl G ê(ê( created Fri, 05 Jan 2007 15:09:28 GMT Wdatatabl P G pepe created Mon, 26 Nov 2007 19:57:15 GMT Wdatatabl P G pe pe created Mon, 26 Nov 2007 19:57:20 GMT Wdatatabl P G pe(pe( created Mon, 26 Nov 2007 19:57:28 GMT Wdatatabl P G pe/pe/ created Mon, 26 Nov 2007 19:57:35 GMT Wdatatabl P G peEpeE created Mon, 26 Nov 2007 19:57:57 GMT Wdatatabl P G peMpeM created Mon, 26 Nov 2007 19:58:05 GMT Wdatatabl P G peRpeR created Mon, 26 Nov 2007 19:58:10 GMT Wdatatabl P G hh created Tue, 20 Nov 2007 20:25:35 GMT Wdatatabl P G ococ created Mon, 26 Nov 2007 01:38:17 GMT Wdatatabl P G hh created Tue, 20 Nov 2007 20:26:02 GMT Wdatatabl G hh created Wed, 21 Nov 2007 05:06:20 GMT Wdatatabl G nn created Sun, 25 Nov 2007 16:32:27 GMT Wdatatabl G nn created Sun, 25 Nov 2007 16:33:15 GMT Wdatatabl G nn created Sun, 25 Nov 2007 16:34:02 GMT Wdatatabl G hh created Wed, 21 Nov 2007 05:05:14 GMT Wdatatabl G nn created Sun, 25 Nov 2007 16:24:07 GMT Wdatatabl P G pepe created Mon, 26 Nov 2007 20:01:00 GMT Wdatatabl P G pespes created Mon, 26 Nov 2007 19:58:43 GMT Wdatatabl P G pepe created Mon, 26 Nov 2007 19:58:57 GMT Wdatatabl P G pepe created Mon, 26 Nov 2007 19:59:06 GMT Wdatatabl P G pepe created Mon, 26 Nov 2007 19:59:14 GMT Wdatatabl G nn created Sun, 25 Nov 2007 16:24:07 GMT Wdatatabl P G pepe created Mon, 26 Nov 2007 20:00:36 GMT Wdatatabl P G pepe created Mon, 26 Nov 2007 20:00:45 GMT Wdatatabl G nn created Sun, 25 Nov 2007 16:24:07 GMT Wdatatabl P G v v created Sat, 01 Dec 2007 02:50:52 GMT Wdatatabl G ¥`¥` created Tue, 26 Jun 2007 02:56:16 GMT Wdatatabl G ¥¥ created Tue, 26 Jun 2007 03:23:34 GMT Wdatatabl P G vv created Sat, 01 Dec 2007 03:28:21 GMT Wdatatabl G ¥¥ created Tue, 26 Jun 2007 03:24:29 GMT Wdatatabl P G v v created Sat, 01 Dec 2007 02:51:05 GMT Wdatatabl P G u]u] created Fri, 30 Nov 2007 19:49:49 GMT 0 M , Geneva qt I dLAND mac on viewSetupPage () Changes 11/29/07; 7:13:49 PM by DW Allow the user to enter an email address instead of a username. Confirm when the username was correctly set. 11/29/07; 9:02:36 AM by DW In call to photoFanSuite.addFeed pass flickrUserId to photoFanSite.addFeed. 11/26/07; 11:26:08 PM by DW Created. local (pta = html.getpagetableaddress ()) scratchpad.params = pta^ photoFanSuite.init () local (htmltext = "", indentlevel = 0) on add (s) htmltext = htmltext + string.filledstring ("\t", indentlevel) + s + "\r" on errorhtml (s) if not (s endswith ".") s = s + "." return ("" + s + "") on coooolhtml (s) if not (s endswith ".") s = s + "." return ("" + s + "") local (setUsernameResult= "") if pta^.method == "POST" local (args) new (tabletype, @args) webserver.parseargs (pta^.requestbody, @args) scratchpad.args = args; edit (@scratchpad.args) bundle //set username if args.flickrUsername == "" user.photoFan.prefs.flickr.username = "" user.photoFan.prefs.flickr.id = "" user.photoFan.prefs.flickr.feed = "" user.photoFan.prefs.flickr.flSubscribeToOwnPhotos = false else if args.flickrUsername != user.photoFan.prefs.flickr.username //changed user.photoFan.prefs.flickr.username = args.flickrUsername try if args.flickrUsername contains "@" Flickr.people.findByEmail (args.flickrUsername, @user.photoFan.prefs.flickr.id, @user.photoFan.prefs.flickr.username) else user.photoFan.prefs.flickr.id = Flickr.people.findByUsername (args.flickrUsername) user.photoFan.prefs.flickr.feed = Flickr.people.getUsersFeed ("", user.photoFan.prefs.flickr.id) photoFanSuite.addFeed (user.photoFan.prefs.flickr.feed, flickrUserId:user.photofan.prefs.flickr.id) //11/29/07 thread.callscript (@photoFanSuite.addContactFeeds, {}) setUsernameResult = coooolhtml ("Thanks! That's a good username, you can advance to step 2, below.") else setUsernameResult = errorhtml (tryerror) user.photoFan.prefs.flickr.id = "" bundle //flSubscribeToOwnPhotos local (flsubscribe = defined (args.flSubscribeOwnPhotos)) if user.photoFan.prefs.flickr.username == "" flsubscribe = false if flsubscribe photoFanSuite.addFeed (user.photoFan.prefs.flickr.feed) else try {photoFanSuite.disableFeed (user.photoFan.prefs.flickr.feed)} user.photoFan.prefs.flickr.flSubscribeToOwnPhotos = flsubscribe bundle //flShowContacts local (flshow = defined (args.flShowContacts)) if user.photoFan.prefs.flickr.username == "" flshow = false if flshow if not user.photoFan.prefs.flickr.flShowContacts //changing thread.callscript (@photoFanSuite.addContactFeeds, {}) user.photoFan.prefs.flickr.flShowContacts = flshow filemenu.save () bundle //do string processing local (formtext = string (photoFanSuite.data.forms.setupPage)) local (t) new (tabletype, @t) t.productName = photoFanSuite.data.productName t.flickrUsername = user.photoFan.prefs.flickr.username t.screenSaverFolder = user.photoFan.prefs.screenSaverFolder t.flickrContactList = photoFanSuite.website.viewContactList () bundle //t.flSubscribeToOwnPhotos if user.photoFan.prefs.flickr.flSubscribeToOwnPhotos and (t.flickrUsername != "") t.flSubscribeToOwnPhotos = "xxx checked" else t.flSubscribeToOwnPhotos = "xxx" bundle //setUsernameResult t.setUsernameResult = setUsernameResult bundle //t.flShowContacts if user.photoFan.prefs.flickr.flShowContacts and (t.flickrUsername != "") t.flShowContacts = "xxx checked" else t.flShowContacts = "xxx" scratchpad.t = t; edit (@scratchpad.t) formtext = string.multiplereplaceall (formtext, @t, false, "<%", "%>") add (formtext) return (htmltext) bundle //test code html.setpagetableaddress (@scratchpad.params) viewSetupPage () Wdatatabl P G qq created Tue, 27 Nov 2007 07:26:05 GMT Wdatatabl P G tt created Fri, 30 Nov 2007 03:13:48 GMT Wdatatabl P G tt created Fri, 30 Nov 2007 03:13:49 GMT Wdatatabl P G t0t0 created Thu, 29 Nov 2007 17:02:35 GMT Wdatatabl P G t0t0 created Thu, 29 Nov 2007 17:02:36 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 07:26:07 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 07:26:08 GMT Wdatatabl G ¥¥ created Tue, 26 Jun 2007 02:41:10 GMT Wdatatabl G ss created Wed, 28 Nov 2007 19:43:28 GMT Wdatatabl P G q gq g created Tue, 27 Nov 2007 07:51:03 GMT Wdatatabl G ê(ê( created Fri, 05 Jan 2007 15:09:28 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 16:58:50 GMT Wdatatabl P G qdqd created Tue, 27 Nov 2007 17:01:24 GMT Wdatatabl P G qkqk created Tue, 27 Nov 2007 17:01:31 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 16:58:54 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 16:58:50 GMT Wdatatabl P G qdqd created Tue, 27 Nov 2007 17:01:24 GMT Wdatatabl P G qkqk created Tue, 27 Nov 2007 17:01:31 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 16:58:54 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 16:55:55 GMT Wdatatabl P G qQqQ created Tue, 27 Nov 2007 08:07:45 GMT Wdatatabl G RR created Mon, 21 Aug 2006 19:09:32 GMT Wdatatabl G SS created Mon, 21 Aug 2006 19:09:50 GMT Wdatatabl G RR created Mon, 21 Aug 2006 19:09:00 GMT Wdatatabl P G qYqY created Tue, 27 Nov 2007 08:07:53 GMT Wdatatabl P G qkqk created Tue, 27 Nov 2007 16:27:23 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 17:14:54 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 17:32:36 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 16:28:14 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 17:07:31 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 17:15:00 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 16:27:50 GMT Wdatatabl P G q2q2 created Tue, 27 Nov 2007 08:11:30 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 16:53:50 GMT Wdatatabl P G tmtm created Fri, 30 Nov 2007 02:50:21 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 16:28:14 GMT Wdatatabl P G tutu created Fri, 30 Nov 2007 02:50:29 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 16:28:14 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 17:07:31 GMT Wdatatabl P G o'o' created Sun, 25 Nov 2007 21:22:44 GMT Wdatatabl P G o'o' created Sun, 25 Nov 2007 21:22:44 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 16:54:27 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 16:54:25 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 16:54:27 GMT Wdatatabl P G qzqz created Tue, 27 Nov 2007 17:01:46 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 17:16:36 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 17:17:10 GMT Wdatatabl P G qIqI created Tue, 27 Nov 2007 18:04:57 GMT Wdatatabl P G qNqN created Tue, 27 Nov 2007 18:05:02 GMT Wdatatabl P G qZqZ created Tue, 27 Nov 2007 17:31:06 GMT Wdatatabl P G o'o' created Sun, 25 Nov 2007 21:22:44 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 18:11:40 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 18:11:43 GMT Wdatatabl P G q|q| created Tue, 27 Nov 2007 15:49:23 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 17:16:36 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 17:17:10 GMT Wdatatabl P G qIqI created Tue, 27 Nov 2007 18:04:57 GMT Wdatatabl P G qNqN created Tue, 27 Nov 2007 18:05:02 GMT Wdatatabl P G qZqZ created Tue, 27 Nov 2007 17:31:06 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 22:44:36 GMT Wdatatabl P G o'o' created Sun, 25 Nov 2007 21:22:44 GMT Wdatatabl P G q|q| created Tue, 27 Nov 2007 15:49:23 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 18:03:34 GMT Wdatatabl G ¥Ժ¥Ժ created Tue, 26 Jun 2007 03:23:22 GMT Wdatatabl G ¥`¥` created Tue, 26 Jun 2007 02:56:16 GMT Wdatatabl G ¥¥ created Tue, 26 Jun 2007 03:23:29 GMT Wdatatabl G ¥¥ created Tue, 26 Jun 2007 03:23:34 GMT Wdatatabl G ¥¥ created Tue, 26 Jun 2007 03:23:59 GMT Wdatatabl P G q sq s created Tue, 27 Nov 2007 07:46:59 GMT Wdatatabl P G q sq s created Tue, 27 Nov 2007 07:46:59 GMT Wdatatabl P G qq created Tue, 27 Nov 2007 08:00:41 GMT Wdatatabl P G q| q| created Tue, 27 Nov 2007 15:47:42 GMT Wdatatabl G created Thu, 09 Aug 2007 17:08:28 GMT Wdatatabl G created Thu, 09 Aug 2007 17:08:30 GMT Wdatatabl G ,, created Thu, 09 Aug 2007 17:08:44 GMT Wdatatabl G .. created Thu, 09 Aug 2007 17:08:46 GMT Wdatatabl P G q+q+ created Tue, 27 Nov 2007 16:56:11 GMT Wdatatabl P G qFqF created Tue, 27 Nov 2007 16:56:38 GMT Wdatatabl P G q| q| created Tue, 27 Nov 2007 15:47:42 GMT Wdatatabl G created Thu, 09 Aug 2007 17:08:28 GMT Wdatatabl G created Thu, 09 Aug 2007 17:08:30 GMT Wdatatabl G ,, created Thu, 09 Aug 2007 17:08:44 GMT Wdatatabl G .. created Thu, 09 Aug 2007 17:08:46 GMT Wdatatabl P G q q created Tue, 27 Nov 2007 16:59:56 GMT Wdatatabl G ¥¥ created Tue, 26 Jun 2007 03:24:29 GMT Wdatatabl G ¥Z¥Z created Tue, 26 Jun 2007 02:56:10 GMT Wdatatabl P G r@r@ created Wed, 28 Nov 2007 05:46:21 GMT Wdatatabl G ss created Wed, 28 Nov 2007 19:43:44 GMT Wdatatabl G ss created Wed, 28 Nov 2007 19:43:49 GMT Wdatatabl G ss created Wed, 28 Nov 2007 19:43:58 GMT 0 X U Geneva átá' LAND mac on viewTagSubscribe () Changes 1/2/08; 10:22:51 AM by DW Created. The logic for the Tag Subscribe page. local (pta = html.getpagetableaddress ()) local (htmltext = "", indentlevel = 0, subscriberesult = "") on add (s) htmltext = htmltext + string.filledstring ("\t", indentlevel) + s + "\r" if pta^.method == "POST" local (args) new (tabletype, @args) webserver.parseargs (pta^.requestbody, @args) scratchpad.args = args; edit (@scratchpad.args) if defined (args.tag) if args.tag != "" //user edited it try local (t, tags) new (tabletype, @t) t.[" or "] = "+or+" tags = string.multiplereplaceall (args.tag, @t, false, "<%", "%>") local (tags = string.replaceall (args.tag, " ", "+")) local (url = photoFanSuite.data.urls.flickrTagFeed + string.urlencode (tags)) photoFanSuite.addFeed (url) subscriberesult = "It worked! We were able to subscribe to the feed." else subscriberesult = "Can't subscribe. \"" + xml.entityencode (tryerror, true) + "\"" bundle //do string processing local (formtext = string (photoFanSuite.data.forms.tagSubscribePage)) local (t) new (tabletype, @t) t.subscriberesult = subscriberesult formtext = string.multiplereplaceall (formtext, @t, false, "<%", "%>") add (formtext) return (htmltext) Wdatatabl P G áxáx created Wed, 02 Jan 2008 18:22:48 GMT Wdatatabl P G ázáz created Wed, 02 Jan 2008 18:22:50 GMT Wdatatabl P G á{á{ created Wed, 02 Jan 2008 18:22:51 GMT Wdatatabl P G á Aá A created Wed, 02 Jan 2008 18:47:29 GMT Wdatatabl G ê(ê( created Fri, 05 Jan 2007 15:09:28 GMT Wdatatabl P G á Oá O created Wed, 02 Jan 2008 18:47:43 GMT Wdatatabl G RR created Mon, 21 Aug 2006 19:09:32 GMT Wdatatabl G SS created Mon, 21 Aug 2006 19:09:50 GMT Wdatatabl G RR created Mon, 21 Aug 2006 19:09:00 GMT Wdatatabl P G qYqY created Tue, 27 Nov 2007 08:07:53 GMT Wdatatabl P G ÌZÌZ created Tue, 18 Dec 2007 00:53:45 GMT Wdatatabl P G ÌZ!ÌZ! created Tue, 18 Dec 2007 00:53:53 GMT Wdatatabl P G ÌZÌZ created Tue, 18 Dec 2007 00:56:30 GMT Wdatatabl P G á$á$ created Wed, 02 Jan 2008 19:24:46 GMT Wdatatabl P G á%á% created Wed, 02 Jan 2008 19:24:51 GMT Wdatatabl P G á% á% created Wed, 02 Jan 2008 19:24:59 GMT Wdatatabl G ¥¥ created Tue, 26 Jun 2007 03:24:29 GMT Wdatatabl P G á%á% created Wed, 02 Jan 2008 19:27:04 GMT Wdatatabl P G á#á# created Wed, 02 Jan 2008 19:18:36 GMT Wdatatabl P G o'o' created Sun, 25 Nov 2007 21:22:44 GMT Wdatatabl P G ÌZÌZ created Tue, 18 Dec 2007 00:57:11 GMT Wdatatabl P G ÌZÌZ created Tue, 18 Dec 2007 00:57:09 GMT Wdatatabl P G ÌZÌZ created Tue, 18 Dec 2007 00:57:11 GMT Wdatatabl G ¥Ժ¥Ժ created Tue, 26 Jun 2007 03:23:22 GMT Wdatatabl G ¥`¥` created Tue, 26 Jun 2007 02:56:16 GMT Wdatatabl G ¥¥ created Tue, 26 Jun 2007 03:23:29 GMT Wdatatabl G ¥¥ created Tue, 26 Jun 2007 03:23:34 GMT Wdatatabl P G á 0á 0 created Wed, 02 Jan 2008 18:47:12 GMT Wdatatabl G ¥¥ created Tue, 26 Jun 2007 03:24:29 GMT Wdatatabl G ¥Z¥Z created Tue, 26 Jun 2007 02:56:10 GMT Wdatatabl P G á1á1 created Wed, 02 Jan 2008 18:25:53 GMT X , ` o^ûq ' 3 C O Y e m y prefsSnippets S sharePicture T,viewContactList r viewFeeds yviewLog viewPicture ! viewSetupPage 6viewTagSubscribe g VGeneva 2 x o&. $ 0 9 E Y e n z & + 7 C O ] i y & 2 ? K P \ f r + 7 A M UaddContactFeeds ` addFeed ` $addToLog ` '9afterUploadCallback ` 5archiver ` 91authFlickrThread ` Y background ` VbackupFlickrPics ` callbacks ` K changeNotes ` checkFeed ` c checkFeeds ` |Pdata ` disableFeed ` downloadImage ` 7flickrToTwitter ` O freshStart ` getFeedInfo ` getRandomPicture ` httpClient ` init ` ւinitFeed ` PYmenu ` dmyFeed ` parseXstruct ` ping ` responder ` sendToTwitter ` statusCenterMessage ` synchFlickrContacts ` systemTrayIconCallback ` [testing ` updateEverything ` updateTool ` % utilities ` Mwebsite ` x ' Geneva o&ʨ % |LAND mac Changes 8/15/08; 3:28:19 AM by DW Wired off, it no longer, under any circumstances, will open the home page of the FlickrFan site on launch. 8/14/08; 1:50:42 PM by DW Don't try if user.photoFan.prefs.flOpenHomePageOnStartup isn't defined. 7/26/08; 10:33:27 PM by DW Support new pref, user.photoFan.prefs.flOpenHomePageOnStartup. If false, we just do the stuff that has to do with initializing photoFan.root, we don't do anything with the web browser. 3/15/08; 8:42:55 PM by DW Call checkFeeds to do a scan at startup, we had changed everyHour so it didn't do a scan, so that not every installation would scan at the same time. This broke the scanning at startup. Oy. 1/6/08; 10:40:02 AM by DW Support a new pref, user.photoFan.prefs.flMacDefaultBrower, that allows user to disable automatic launching of Firefox or Safari to display the desktop website. 12/4/07; 11:20:11 AM by DW Call photoFanSuite.init after networking is initialized, otherwise on the first run it won't successfully read the initial feeds and they won't work. 11/25/07; 3:29:34 PM by DW Ported from FlickrRivr. Big diff, we do a scan on startup with no user prefs required. return //wired off -- 8/15/08 by DW if not defined (system.temp.photoFan.flStarted) if defined (user.photoFan.prefs.flOpenHomePageOnStartup) if user.photoFan.prefs.flOpenHomePageOnStartup local (homeurl = photoFanSuite.data.urls.homeUrl) window.about () loop try tcp.httpreadurl (homeurl, flMessages:false) break photoFanSuite.init () if system.environment.ismac and (not user.photoFan.prefs.flMacDefaultBrower) webbrowser.launchMacBrowser () system.temp.photoFan.flStarted = true if user.photoFan.prefs.flMacDefaultBrower sys.unixShellCommand("open " + homeurl) else webbrowser.openurl (homeurl) webbrowser.bringtofront () else photoFanSuite.init () system.temp.photoFan.flStarted = true photoFanSuite.checkFeeds () //do a scan on startup, 3/15/08 by DW photoFanSuite.background.everyHour () //do a scan on startup Wdatatabl P G oEVoEV created Sun, 25 Nov 2007 23:29:26 GMT Wdatatabl G created Thu, 14 Aug 2008 20:50:42 GMT Wdatatabl G created Thu, 14 Aug 2008 20:50:43 GMT Wdatatabl G OO created Sun, 16 Mar 2008 03:42:55 GMT Wdatatabl G PP created Sun, 16 Mar 2008 03:42:56 GMT Wdatatabl P G æ`æ` created Sun, 06 Jan 2008 18:40:01 GMT Wdatatabl P G æ`æ` created Sun, 06 Jan 2008 18:40:02 GMT Wdatatabl P G zjzj created Tue, 04 Dec 2007 19:20:10 GMT Wdatatabl P G zlzl created Tue, 04 Dec 2007 19:20:12 GMT Wdatatabl P G oE]oE] created Sun, 25 Nov 2007 23:29:33 GMT Wdatatabl P G oE_oE_ created Sun, 25 Nov 2007 23:29:35 GMT Wdatatabl P G LSLS created Tue, 30 Oct 2007 19:51:31 GMT Wdatatabl G created Thu, 14 Aug 2008 20:50:30 GMT Wdatatabl P G OLLOLL created Thu, 01 Nov 2007 16:26:36 GMT Wdatatabl P G LذLذ created Tue, 30 Oct 2007 19:48:48 GMT Wdatatabl P G LL created Tue, 30 Oct 2007 19:45:49 GMT Wdatatabl P G L L created Tue, 30 Oct 2007 19:45:52 GMT Wdatatabl P G LL created Tue, 30 Oct 2007 19:45:54 GMT Wdatatabl P G L"L" created Tue, 30 Oct 2007 19:46:26 GMT Wdatatabl P G MM created Wed, 31 Oct 2007 16:38:18 GMT Wdatatabl P G M`M` created Wed, 31 Oct 2007 16:37:36 GMT Wdatatabl P G alal created Thu, 15 Nov 2007 19:39:24 GMT Wdatatabl P G æ_æ_ created Sun, 06 Jan 2008 18:36:37 GMT Wdatatabl P G æ_æ_ created Sun, 06 Jan 2008 18:36:43 GMT Wdatatabl P G æ_æ_ created Sun, 06 Jan 2008 18:36:44 GMT datata Wdatatabl P G alal created Thu, 15 Nov 2007 19:39:24 GMT Wdatatabl P G N(iN(i created Wed, 31 Oct 2007 19:41:13 GMT T P . o&ʫ ctenabledscript ` c T / B Geneva F q 2y LAND mac on finalFilter (pta) Changes 11/26/07; 11:43:21 PM by DW Add call to html.processMacros, for some reason macros weren't getting processed. This took care of it. pta^.renderedText = html.processmacros (pta^.renderedText) pta^.renderedText = string.replace (pta^.renderedText, "[[title]]", "|
<%version%> |
<%menu (flhorizontal:true)%> | |
| <%showTitle ()%> <%bodytext%> | ||