Configure... Version: 0.5 Author: Joe Tan Author URI: http://tantannoodles.com/ Copyright (C) 2005 Joe Tan This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA */ /* ****************************************************************** Front end display functions ****************************************************************** */ /* Prints HTML code where badge should be displayed */ function tantan_fpbFormDisplay() { //$photos = tantan_fpbGetData(); //$tantan_fpbSize = get_option('tantan_fpbSize'); //$tantan_flickrMaxPhotos = get_option('tantan_flickrMaxPhotos'); //if (!$tantan_fpbSize) $tantan_fpbSize = 'Small'; $html = "

". "

Flickr Photos

". "". "

"; // $html .= ""; echo $html; // include(dirname(__FILE__).'/post-bar-form.html'); } /* Retrieve Flickr data */ function tantan_fpbGetData() { // check to see if data is cached $lastTimestamp = get_option('tantan_fpbTimestamp'); $photos = get_option('tantan_fpbPhotos'); $cached = false; if ((is_array($photos) && count($photos) && $lastTimestamp && ((time() - $lastTimestamp) < 60*60))) { // data is cached and still fresh, so don't do anything $cached = true; } if (!$cached) { include_once(dirname(__FILE__).'/lib.flickrBadge.php'); // not cached, so get data from flickr and update $badge = new TanTanBadge(); $badge->setFlickrAPI(get_option('tantan_flickrAPI')); $photos = $badge->getData(get_option('tantan_flickrUser'), get_option('tantan_flickrMaxPhotos')); if (!is_array($photos) || (count($photos) == 0)) { // some sort of error update_option('tantan_fpbPhotos', false); } else { update_option('tantan_fpbPhotos', $photos); update_option('tantan_fpbTimestamp', time()); } } if (is_array($photos)) { return $photos; } else { return array(); } } /* ****************************************************************** Admin options ****************************************************************** */ /* Add hooks for admin page options */ function tantan_fpbAdminOptions() { add_options_page('Flickr Post Bar', 'Flickr Post Bar', 10, __FILE__, 'tantan_fpbAdminPage'); } /* Admin page controller */ function tantan_fpbAdminPage() { if (isset($_POST['tantan_action'])) { update_option('tantan_flickrAPI', $_POST['tantan_flickrAPI']); update_option('tantan_flickrUser', $_POST['tantan_flickrUser']); update_option('tantan_flickrMaxPhotos',$_POST['tantan_flickrMaxPhotos']); update_option('tantan_fpbSize', $_POST['tantan_fpbSize']); update_option('tantan_fbpLinkDest', $_POST['tantan_fbpLinkDest']); update_option('tantan_fbpLinkDestValue', $_POST['tantan_fbpLinkDestValue']); update_option('tantan_fpbAutoLoadDisabled', $_POST['tantan_fpbAutoLoadDisabled']); $status = "Saved settings."; if ($_POST['tantan_clearCache'] == 'yes') { update_option('tantan_fpbPhotos', false); $status .= " Cleared cache."; } } else { $status = ""; } $tantan_flickrAPI = get_option('tantan_flickrAPI'); $tantan_flickrUser = get_option('tantan_flickrUser'); $tantan_flickrMaxPhotos = get_option('tantan_flickrMaxPhotos'); $tantan_fpbSize = get_option('tantan_fpbSize'); $tantan_fbpLinkDest = get_option('tantan_fbpLinkDest'); $tantan_fbpLinkDestValue = get_option('tantan_fbpLinkDestValue'); $tantan_fpbAutoLoadDisabled=get_option('tantan_fpbAutoLoadDisabled'); include(dirname(__FILE__).'/post-bar-admin.html'); } // install hooks add_action('edit_form_advanced', 'tantan_fpbFormDisplay'); add_action('simple_edit_form', 'tantan_fpbFormDisplay'); add_action('edit_page_form', 'tantan_fpbFormDisplay'); add_action('admin_menu', 'tantan_fpbAdminOptions'); ?> http://www.otheredge.com.au/klogs/toolkit Mon, 07 Jan 2008 02:36:31 +0000 http://wordpress.org/?v=2.0.1 en http://www.otheredge.com.au/klogs/toolkit/2006/landrum-middle-school-edublogs-workshop.htm http://www.otheredge.com.au/klogs/toolkit/2006/landrum-middle-school-edublogs-workshop.htm#comments Thu, 18 May 2006 23:54:02 +0000 Kirsty Tech Stuff RSS & Blogging Resources/ LOs Tools http://www.otheredge.com.au/klogs/toolkit/2006/landrum-middle-school-edublogs-workshop.htm http://www.otheredge.com.au/klogs/toolkit/2006/landrum-middle-school-edublogs-workshop.htm/feed/ http://www.otheredge.com.au/klogs/toolkit/2006/students-on-blogging.htm http://www.otheredge.com.au/klogs/toolkit/2006/students-on-blogging.htm#comments Wed, 10 May 2006 23:31:43 +0000 Kirsty Communication & Support RSS & Blogging Learning Design http://www.otheredge.com.au/klogs/toolkit/2006/students-on-blogging.htm http://www.otheredge.com.au/klogs/toolkit/2006/students-on-blogging.htm/feed/ http://www.otheredge.com.au/klogs/toolkit/2006/nigel-paine-in-campus-review.htm http://www.otheredge.com.au/klogs/toolkit/2006/nigel-paine-in-campus-review.htm#comments Fri, 31 Mar 2006 05:10:36 +0000 Kirsty Workplace Learning RSS & Blogging Innovation, Ideas http://www.otheredge.com.au/klogs/toolkit/2006/nigel-paine-in-campus-review.htm http://www.otheredge.com.au/klogs/toolkit/2006/nigel-paine-in-campus-review.htm/feed/ http://www.otheredge.com.au/klogs/toolkit/2006/nigel-paine-seminar-part-3.htm http://www.otheredge.com.au/klogs/toolkit/2006/nigel-paine-seminar-part-3.htm#comments Sun, 26 Mar 2006 09:38:19 +0000 Kirsty RSS & Blogging Leadership, Change and Organisations Innovation, Ideas http://www.otheredge.com.au/klogs/toolkit/2006/nigel-paine-seminar-part-3.htm http://www.otheredge.com.au/klogs/toolkit/2006/nigel-paine-seminar-part-3.htm/feed/ http://www.otheredge.com.au/klogs/toolkit/2006/nigel-paine-part-2.htm http://www.otheredge.com.au/klogs/toolkit/2006/nigel-paine-part-2.htm#comments Fri, 24 Mar 2006 02:27:30 +0000 Kirsty RSS & Blogging Leadership, Change and Organisations Innovation, Ideas Tools http://www.otheredge.com.au/klogs/toolkit/2006/nigel-paine-part-2.htm http://www.otheredge.com.au/klogs/toolkit/2006/nigel-paine-part-2.htm/feed/ http://www.otheredge.com.au/klogs/toolkit/2006/nigel-paine-seminar-in-sydney-march-24th-2006.htm http://www.otheredge.com.au/klogs/toolkit/2006/nigel-paine-seminar-in-sydney-march-24th-2006.htm#comments Fri, 24 Mar 2006 01:01:18 +0000 Kirsty RSS & Blogging Leadership, Change and Organisations Innovation, Ideas Tools http://www.otheredge.com.au/klogs/toolkit/2006/nigel-paine-seminar-in-sydney-march-24th-2006.htm http://www.otheredge.com.au/klogs/toolkit/2006/nigel-paine-seminar-in-sydney-march-24th-2006.htm/feed/ http://www.otheredge.com.au/klogs/toolkit/2006/podpress.htm http://www.otheredge.com.au/klogs/toolkit/2006/podpress.htm#comments Tue, 21 Mar 2006 05:01:29 +0000 Kirsty Tech Stuff RSS & Blogging Tools http://www.otheredge.com.au/klogs/toolkit/2006/podpress.htm http://www.otheredge.com.au/klogs/toolkit/2006/podpress.htm/feed/ http://www.otheredge.com.au/klogs/toolkit/2006/change-to-wordpress.htm http://www.otheredge.com.au/klogs/toolkit/2006/change-to-wordpress.htm#comments Sat, 18 Feb 2006 08:26:19 +0000 Kirsty RSS & Blogging http://www.otheredge.com.au/klogs/toolkit/?p=820 http://www.otheredge.com.au/klogs/toolkit/2006/change-to-wordpress.htm/feed/ http://www.otheredge.com.au/klogs/toolkit/2006/related-entries-in-wordpress.htm http://www.otheredge.com.au/klogs/toolkit/2006/related-entries-in-wordpress.htm#comments Sat, 18 Feb 2006 01:09:43 +0000 Kirsty RSS & Blogging http://www.otheredge.com.au/wordpress/?p=816 http://www.otheredge.com.au/klogs/toolkit/2006/related-entries-in-wordpress.htm/feed/ http://www.otheredge.com.au/klogs/toolkit/2006/50-things-you-can-do-with-rss.htm http://www.otheredge.com.au/klogs/toolkit/2006/50-things-you-can-do-with-rss.htm#comments Tue, 14 Feb 2006 02:43:33 +0000 Kirsty RSS & Blogging http://www.otheredge.com.au/wordpress/?p=815 http://www.otheredge.com.au/klogs/toolkit/2006/50-things-you-can-do-with-rss.htm/feed/