From 7723e94218a8c526fc8d869086c05dd382268649 Mon Sep 17 00:00:00 2001
From: Francois Marier <francois@debian.org>
Date: Sat, 5 Mar 2011 20:33:07 +1300
Subject: comments: add avatar picture of comment author

Use Libravatar::URL to pull the avatar picture for the comment
author if we have an email address for him/her.
---
 IkiWiki/Plugin/comments.pm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 mode change 100644 => 100755 IkiWiki/Plugin/comments.pm

(limited to 'IkiWiki')

diff --git a/IkiWiki/Plugin/comments.pm b/IkiWiki/Plugin/comments.pm
old mode 100644
new mode 100755
index 8d46ed579..00ab1c8bd
--- a/IkiWiki/Plugin/comments.pm
+++ b/IkiWiki/Plugin/comments.pm
@@ -167,6 +167,7 @@ sub preprocess {
 	my $commentip;
 	my $commentauthor;
 	my $commentauthorurl;
+	my $commentauthoravatar;
 	my $commentopenid;
 	if (defined $params{username}) {
 		$commentuser = $params{username};
@@ -187,6 +188,16 @@ sub preprocess {
 
 			$commentauthor = $commentuser;
 		}
+
+                eval 'use Libravatar::URL';
+
+                if (! $@) {
+                    my $email = IkiWiki::userinfo_get($commentuser, 'email');
+
+                    if (defined $email) {
+                        $commentauthoravatar = libravatar_url(email => $email);
+                    }
+                }
 	}
 	else {
 		if (defined $params{ip}) {
@@ -200,6 +211,7 @@ sub preprocess {
 	$commentstate{$page}{commentip} = $commentip;
 	$commentstate{$page}{commentauthor} = $commentauthor;
 	$commentstate{$page}{commentauthorurl} = $commentauthorurl;
+	$commentstate{$page}{commentauthoravatar} = $commentauthoravatar;
 	if (! defined $pagestate{$page}{meta}{author}) {
 		$pagestate{$page}{meta}{author} = $commentauthor;
 	}
@@ -874,6 +886,11 @@ sub pagetemplate (@) {
 			$commentstate{$page}{commentauthorurl});
 	}
 
+	if ($template->query(name => 'commentauthoravatar')) {
+		$template->param(commentauthoravatar =>
+			$commentstate{$page}{commentauthoravatar});
+	}
+
 	if ($template->query(name => 'removeurl') &&
 	    IkiWiki::Plugin::remove->can("check_canremove") &&
 	    length $config{cgiurl}) {
-- 
cgit v1.2.3