From: Eric Wong <e@80x24.org>
Date: Wed, 30 Sep 2015 21:00:24 +0000 (+0000)
Subject: nntp: implement LIST HEADERS
X-Git-Tag: v1.0.0~816
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=3393117e5ff8faef209bbf4988a59743f00b2a80;p=public-inbox.git

nntp: implement LIST HEADERS

We shall remove slow, unoptimized headers in XHDR/HDR to avoid
becoming an easy DoS target.
---

diff --git a/lib/PublicInbox/NNTP.pm b/lib/PublicInbox/NNTP.pm
index 142bee39..12760394 100644
--- a/lib/PublicInbox/NNTP.pm
+++ b/lib/PublicInbox/NNTP.pm
@@ -25,6 +25,8 @@ sub now () { clock_gettime(CLOCK_MONOTONIC) };
 
 my @OVERVIEW = qw(Subject From Date Message-ID References Bytes Lines);
 my $OVERVIEW_FMT = join(":\r\n", @OVERVIEW) . ":\r\n";
+my $LIST_HEADERS = join("\r\n", qw(Subject From Date Message-ID References
+				  :bytes :lines Xref To Cc)) . "\r\n";
 
 # disable commands with easy DoS potential:
 # LISTGROUP could get pretty bad, too...
@@ -95,6 +97,11 @@ sub list_overview_fmt ($) {
 	do_more($self, $OVERVIEW_FMT);
 }
 
+sub list_headers ($;$) {
+	my ($self) = @_;
+	do_more($self, $LIST_HEADERS);
+}
+
 sub list_active ($;$) {
 	my ($self, $wildmat) = @_;
 	wildmat2re($wildmat);