Michael Heilemann.
If you have Dunstan's Time Since installed, this plugin uses it for the title="" attributes on the comments and posts. (For WordPress 1.5) Author: Brian Meidell Author URI: http://meidell.dk/ Version 1.5: Now works without LOCK TABLE and CREATE TEMPORARY TABLE priviledges. Version 1.5.1: Can't remember what I did here Version 1.5.2: Fixed count select statement to not include spammy comments Version 1.5.3: Properly excludes track- and pingbacks Version 1.5.4: Excludes posts that are not published, even if they have comments Version 1.5.5: Fade old comments, fixed bug that wreaked havoc with Time Since Version 1.5.6: Bugfix from Jonas Rabbe (http://www.jonas.rabbe.com/) pertaining to timesince Version 1.5.7: Bugfix so old colors can be darker than new colors (stupid oversight), thanks to http://spiri.dk for spotting it. Bugfix where single digit hex would cause invalid colors, thanks to http://www.wereldkeuken.be/ for the fix. Version 1.5.8: Updated to work with WordPress 2.1 alpha by M. Heilemann. */ function blc_latest_comments($num_posts = 5, $num_comments = 6, $hide_pingbacks_and_trackbacks = true, $prefix = "
  • ", $postfix = "
  • ", $fade_old = true, $range_in_days = 10, $new_col = "#444444", $old_col = "#cccccc") { global $wpdb; function clamp($min, $max, $val) { return max($min,min($max,$val)); } $usetimesince = function_exists('time_since'); // Work nicely with Dunstan's Time Since plugin (adapted by Michael Heilemann) // This is compensating for the lack of subqueries in mysql 3.x // The approach used in previous versions needed the user to // have database lock and create tmp table priviledges. // This uses more queries and manual DISTINCT code, but it works with just select privs. if(!$hide_pingbacks_and_trackbacks) $ping = ""; else $ping = "AND comment_type<>'pingback' AND comment_type<>'trackback'"; $posts = $wpdb->get_results("SELECT comment_post_ID, post_title FROM ($wpdb->comments LEFT JOIN $wpdb->posts ON (comment_post_ID = ID)) WHERE comment_approved = '1' AND $wpdb->posts.post_status='publish' $ping ORDER BY comment_date DESC;"); $seen = array(); $num = 0; if($fade_old) { $max_time = $range_in_days * 24 * 60 * 60 ; $r_new = hexdec(substr($new_col, 1, 2)); $r_old = hexdec(substr($old_col, 1, 2)); //$r_min = min($min, $max); //$r_max = max($min, $max); $r_range = ($r_old-$r_new); $g_new = hexdec(substr($new_col, 3, 2)); $g_old = hexdec(substr($old_col, 3, 2)); //$g_min = min($min, $max); //$g_max = max($min, $max); $g_range = ($g_old-$g_new); $b_new = hexdec(substr($new_col, 5, 2)); $b_old = hexdec(substr($old_col, 5, 2)); //$b_min = min($min, $max); //$b_max = max($min, $max); $b_range = ($b_old-$b_new); } // print "ranges: $r_range, $g_range, $b_range
    "; // print "r: ".(0.5*$r_range+$r_new)."
    "; foreach($posts as $post) { // The following 5 lines is a manual DISTINCT and LIMIT, // since mysql 3.x doesn't allow you to control which way a DISTINCT // select merges multiple entries. if(array_key_exists($post->comment_post_ID, $seen)) continue; $seen[$post->comment_post_ID] = true; if($num++ > $num_posts) break; $commenters = $wpdb->get_results("SELECT *, UNIX_TIMESTAMP(comment_date) AS unixdate FROM $wpdb->comments WHERE comment_approved = '1' AND comment_post_ID = '".$post->comment_post_ID."' $ping ORDER BY comment_date DESC LIMIT $num_comments;"); $count = $wpdb->get_var("SELECT COUNT(comment_ID) AS c FROM $wpdb->comments WHERE comment_post_ID = $post->comment_post_ID AND comment_approved = '1' ".$ping); $i = 0; $link = get_permalink($post->comment_post_ID); if($usetimesince) $title = " title=\"Last comment was ".time_since($comment->unixdate)." ago\""; else $title = ""; echo $prefix."".stripslashes($post->post_title). "  ".$count."
    \n"; foreach($commenters as $commenter) { if($usetimesince) $title = " title=\"Posted ".time_since($commenter->unixdate)." ago\""; if($fade_old) { $diff = time() - $commenter->unixdate; $r = round($diff/$max_time*($r_range))+$r_new; $r = clamp(min($r_new, $r_old), max($r_new, $r_old), $r); $g = round($diff/$max_time*($g_range))+$g_new; $g = clamp(min($g_new, $g_old), max($g_new, $g_old), $g); $b = round($diff/$max_time*($b_range))+$b_new; $b = clamp(min($b_new, $b_old), max($b_new, $b_old), $b); $r_hex = str_pad(dechex($r), 2, '0', STR_PAD_LEFT); $g_hex = str_pad(dechex($g), 2, '0', STR_PAD_LEFT); $b_hex = str_pad(dechex($r), 2, '0', STR_PAD_LEFT); $colstr = " style=\"color: #".$r_hex.$g_hex.$b_hex.";\""; } if($i++ > 0) echo ", "; echo "comment_ID."\"$title>".stripslashes($commenter->comment_author).""; } if($count > $num_comments) echo " [...]"; echo "".$postfix."\n"; } } ?> @YEMblog Twitter Updates for 2010-12-17 | YEMblog
    • Sweet Jane RT @phortin: Pick a #phish song you've only heard twice… which do you want to hear for the 3rd time on the Holiday run? #
    • @manning422 An outfit called JamTV had a free webcast 8/1/98. I had ten friends over, fired up the ISDN, launched Netscape and Rambled On #
    • @d_seidman Are you familiar with 4/30/94? That one's got "good" and "fun" written all over it and is a SBD on the Spreadsheet I believe #
    • Anybody else watch the 8/1/98 & 9/30/00 webcasts back in the day? So glad I got to see 8/1/98 while it was happening if I couldn't be there #
    • Not sure, maybe @nugsnet will have answer RT @nick_rangel do we know what the rules are for public pay-per-view parties? #
    • Lots of parents in the same boat RT @zym999 with three kids, I'm down to local shows only, so I could see shelling out a couple $$ for show #
    • Ha! VERY happy for the West Coasters RT @ReverendJustito As the cry-baby west coast twat, Couch Tour is all I have #
    • While obviously we've all been dreamin' about PH PPV since the '90s, it will be interesting to see the actual effect if they do more in '11 #
    • ME: If I was planning on seeing 20 shows in '11, I would be content to do 15 live and stream 5 rather than spend the money and vacation days #
    • If Phish decides to stream all sold-out shows moving forward, would you ever pick couch tour over traveling to see Phish? #phish #
    • Phish MSG Pay-Per-View FAQ http://www.livephish.com/help.aspx#ppv_top #phish #
    • It took 30 seconds, literally RT @prescribed_ How soon till people start complaining about the price? #
    • Test Out Your Streaming Capabilities By Watching The Alpine Valley 2010 YEM -> Piper http://bit.ly/gr7Tkp #phish #
    • Phish Announces MSG Pay-Per-View Video Broadcasts http://bit.ly/fkeKtR [via Hidden Track] #phish #
    • DVD Files: 07/06/1997 Soundcheck in Italy http://bit.ly/ijRPLF @ The Trader's Den [registration req.] #phish #
    • Today on YEMblog: Rare Video From "Last Show" (10/7/00), AV 2010 DVD Reviews, Podcasts, December Jams & Much More http://yemblog.com #phish #
    • Uncirculated Audio: 02/03/1988 Partial AUD http://bit.ly/ex2Hii Includes Sympathy For The Devil Cover #

    Post a Comment

    You must be logged in to post a comment.