From 4e21af767175cdf19143b0b0776e111de3253103 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 25 Jan 2009 19:45:56 -0500
Subject: [PATCH] sort comment queue by time, newest first

---
 IkiWiki/Plugin/comments.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/IkiWiki/Plugin/comments.pm b/IkiWiki/Plugin/comments.pm
index c95f77a42..f0b67a9eb 100644
--- a/IkiWiki/Plugin/comments.pm
+++ b/IkiWiki/Plugin/comments.pm
@@ -598,7 +598,7 @@ sub commentmoderation ($$) {
 	}
 
 	my @comments=map {
-		my $id=$_;
+		my ($id, $ctime)=@{$_};
 		my $file="$config{wikistatedir}/comments_pending/$id";
 		my $content=readfile($file);
 		my $ctime=(stat($file))[10];
@@ -607,7 +607,7 @@ sub commentmoderation ($$) {
 			view => previewcomment($content, $id,
 					IkiWiki::dirname($_), $ctime),
 		} 
-	} comments_pending();
+	} sort { $b->[1] <=> $a->[1] } comments_pending();
 
 	my $template=template("commentmoderation.tmpl");
 	$template->param(
@@ -649,8 +649,9 @@ sub comments_pending () {
 				$File::Find::prune=0;
 				my ($f)=/$config{wiki_file_regexp}/; # untaint
 				if (defined $f && $f =~ /\Q._comment\E$/) {
+					my $ctime=(stat($f))[10];
 					$f=~s/^\Q$dir\E\/?//;
-                                        push @ret, $f;
+                                        push @ret, [$f, $ctime];
 				}
 			}
 		}
-- 
2.39.5