From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on dcvr.yhbt.net X-Spam-Level: X-Spam-ASN: X-Spam-Status: No, score=-2.9 required=3.0 tests=ALL_TRUSTED,AWL,BAYES_00 shortcircuit=no autolearn=unavailable version=3.3.2 X-Original-To: meta@public-inbox.org Received: from localhost (dcvr.yhbt.net [127.0.0.1]) by dcvr.yhbt.net (Postfix) with ESMTP id AB300200F8 for ; Fri, 25 Sep 2015 02:27:59 +0000 (UTC) From: Eric Wong To: meta@public-inbox.org Subject: [PATCH 2/8] nntp: consistently use 501 for unsupported LIST Date: Fri, 25 Sep 2015 02:27:51 +0000 Message-Id: <20150925022757.6915-3-e@80x24.org> In-Reply-To: <20150925022757.6915-1-e@80x24.org> References: <20150925022757.6915-1-e@80x24.org> List-Id: This is required by RFC 3977, section 3.2.1 --- lib/PublicInbox/NNTP.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/PublicInbox/NNTP.pm b/lib/PublicInbox/NNTP.pm index c2f9717..dd033e8 100644 --- a/lib/PublicInbox/NNTP.pm +++ b/lib/PublicInbox/NNTP.pm @@ -123,14 +123,14 @@ sub list_newsgroups ($;$) { } } -# LIST SUBSCRIPTIONS not supported +# LIST SUBSCRIPTIONS, DISTRIB.PATS are not supported sub cmd_list ($;$$) { my ($self, @args) = @_; if (scalar @args) { my $arg = shift @args; $arg =~ tr/A-Z./a-z_/; $arg = "list_$arg"; - return '503 function not performed' if $DISABLED{$arg}; + return r501 if $DISABLED{$arg}; $arg = eval { no strict 'refs'; -- EW