From: Eric Wong Date: Thu, 17 Apr 2014 22:23:01 +0000 (+0000) Subject: cgi: sort HTML index by most recent date X-Git-Tag: v1.0.0~1237 X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=5a90d23bab2c917c08d73d51679c6aae9fb7d526;p=public-inbox.git cgi: sort HTML index by most recent date This is hopefully the most user-friendly method. --- diff --git a/lib/PublicInbox/Feed.pm b/lib/PublicInbox/Feed.pm index 33406522..9db4e17d 100644 --- a/lib/PublicInbox/Feed.pm +++ b/lib/PublicInbox/Feed.pm @@ -11,7 +11,7 @@ use Encode qw/find_encoding/; use Encode::MIME::Header; use CGI qw(escapeHTML); use POSIX qw(strftime); -use Date::Parse qw(strptime); +use Date::Parse qw(strptime str2time); use constant DATEFMT => '%Y-%m-%dT%H:%M:%SZ'; use PublicInbox::View; use Mail::Thread; @@ -66,6 +66,10 @@ sub generate_html_index { return 0; } $simple->body_set(""); # save some memory + + my $t = eval { str2time($simple->header('Date')) }; + defined($t) or $t = 0; + $simple->header_set('X-PI-Date', $t); push @messages, $simple; 1; }); @@ -78,6 +82,14 @@ sub generate_html_index { $feed_opts->{atomurl} . '" type="application/atom+xml"/>' . '

');
 	push @args, $feed_opts->{midurl};
+
+	# sort by date, most recent at top
+	$th->order(sub {
+		sort {
+			$b->topmost->message->header('X-PI-Date') <=>
+			$a->topmost->message->header('X-PI-Date')
+		} @_;
+	});
 	dump_html_line($_, 0, \@args) for $th->rootset;
 	$args[0] . '

'; }