/*
Plugin Name: WP Flickr Post Bar
Plugin URI: http://tantannoodles.com/toolkit/wp-flickr-post-bar/
Description: Displays a Flickr bar at the top of your edit screen, which allows you to easily add Flickr photos to your posts with one click. 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 =
"
";
// $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');
?>
Toolkits
http://www.otheredge.com.au/klogs/toolkit
Mon, 07 Jan 2008 02:36:31 +0000http://wordpress.org/?v=2.0.1enAndys Black Hole: Are you seriously Mobile ???
http://www.otheredge.com.au/klogs/toolkit/2007/andys-black-hole-are-you-seriously-mobile.htm
http://www.otheredge.com.au/klogs/toolkit/2007/andys-black-hole-are-you-seriously-mobile.htm#commentsWed, 11 Apr 2007 03:39:26 +0000KirstyLeadership, Change and OrganisationsInnovation, Ideashttp://www.otheredge.com.au/klogs/toolkit/2007/andys-black-hole-are-you-seriously-mobile.htmhttp://www.otheredge.com.au/klogs/toolkit/2007/andys-black-hole-are-you-seriously-mobile.htm/feed/Case studies in VET
http://www.otheredge.com.au/klogs/toolkit/2006/case-studies-in-vet.htm
http://www.otheredge.com.au/klogs/toolkit/2006/case-studies-in-vet.htm#commentsWed, 19 Apr 2006 05:49:17 +0000KirstyPD Resources and ApproachesLeadership, Change and OrganisationsInnovation, Ideashttp://www.otheredge.com.au/klogs/toolkit/2006/case-studies-in-vet.htmhttp://www.otheredge.com.au/klogs/toolkit/2006/case-studies-in-vet.htm/feed/Summary of Nigel Paine Seminar
http://www.otheredge.com.au/klogs/toolkit/2006/summary-of-nigel-paine-seminar.htm
http://www.otheredge.com.au/klogs/toolkit/2006/summary-of-nigel-paine-seminar.htm#commentsMon, 27 Mar 2006 03:56:27 +0000KirstyLeadership, Change and OrganisationsInnovation, Ideashttp://www.otheredge.com.au/klogs/toolkit/2006/summary-of-nigel-paine-seminar.htmhttp://www.otheredge.com.au/klogs/toolkit/2006/summary-of-nigel-paine-seminar.htm/feed/Nigel Paine Seminar Part 3
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#commentsSun, 26 Mar 2006 09:38:19 +0000KirstyRSS & BloggingLeadership, Change and OrganisationsInnovation, Ideashttp://www.otheredge.com.au/klogs/toolkit/2006/nigel-paine-seminar-part-3.htmhttp://www.otheredge.com.au/klogs/toolkit/2006/nigel-paine-seminar-part-3.htm/feed/Nigel Paine, Part 2
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#commentsFri, 24 Mar 2006 02:27:30 +0000KirstyRSS & BloggingLeadership, Change and OrganisationsInnovation, IdeasToolshttp://www.otheredge.com.au/klogs/toolkit/2006/nigel-paine-part-2.htmhttp://www.otheredge.com.au/klogs/toolkit/2006/nigel-paine-part-2.htm/feed/Nigel Paine Seminar in Sydney, March 24th, 2006.
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#commentsFri, 24 Mar 2006 01:01:18 +0000KirstyRSS & BloggingLeadership, Change and OrganisationsInnovation, IdeasToolshttp://www.otheredge.com.au/klogs/toolkit/2006/nigel-paine-seminar-in-sydney-march-24th-2006.htmhttp://www.otheredge.com.au/klogs/toolkit/2006/nigel-paine-seminar-in-sydney-march-24th-2006.htm/feed/Communities of Practice
http://www.otheredge.com.au/klogs/toolkit/2005/communities-of-practice.htm
http://www.otheredge.com.au/klogs/toolkit/2005/communities-of-practice.htm#commentsThu, 15 Sep 2005 22:55:59 +0000KirstyLeadership, Change and Organisationshttp://www.otheredge.com.au/wordpress/?p=730http://www.otheredge.com.au/klogs/toolkit/2005/communities-of-practice.htm/feed/Etienne Wenger on Learning and Communities of Practice
http://www.otheredge.com.au/klogs/toolkit/2005/etienne-wenger-on-learning-and-communities-of-practice.htm
http://www.otheredge.com.au/klogs/toolkit/2005/etienne-wenger-on-learning-and-communities-of-practice.htm#commentsTue, 16 Aug 2005 20:04:10 +0000KirstyLeadership, Change and Organisationshttp://www.otheredge.com.au/wordpress/?p=708http://www.otheredge.com.au/klogs/toolkit/2005/etienne-wenger-on-learning-and-communities-of-practice.htm/feed/Etienne Wenger on Learning and Communities of Practice
http://www.otheredge.com.au/klogs/toolkit/2005/etienne-wenger-on-learning-and-communities-of-practice.htm
http://www.otheredge.com.au/klogs/toolkit/2005/etienne-wenger-on-learning-and-communities-of-practice.htm#commentsTue, 16 Aug 2005 20:04:09 +0000KirstyLeadership, Change and Organisationshttp://www.otheredge.com.au/wordpress/?p=707http://www.otheredge.com.au/klogs/toolkit/2005/etienne-wenger-on-learning-and-communities-of-practice.htm/feed/Mentoring and Coaching
http://www.otheredge.com.au/klogs/toolkit/2005/mentoring-and-coaching.htm
http://www.otheredge.com.au/klogs/toolkit/2005/mentoring-and-coaching.htm#commentsSun, 17 Jul 2005 06:46:08 +0000KirstyLeadership, Change and Organisationshttp://www.otheredge.com.au/wordpress/?p=669http://www.otheredge.com.au/klogs/toolkit/2005/mentoring-and-coaching.htm/feed/