Fixed bug in IHAVE response.

Added implementation capability.

diff --git a/Net-Server-NNTP/lib/Net/Server/NNTP.pm b/Net-Server-NNTP/lib/Net/Server/NNTP.pm
index 54765487dc4a86ca06d192491670b618f8863a67..3b6eb21eb4fd7d4cec4e78515741b321e6adeab2 100644 (file)
--- a/Net-Server-NNTP/lib/Net/Server/NNTP.pm
+++ b/Net-Server-NNTP/lib/Net/Server/NNTP.pm
@@ -491,7 +491,7 @@ sub ihave {
        my $ok = 0;
 
        return $s->response(501) unless $id =~ /($article_re)/;
        my $ok = 0;
 
        return $s->response(501) unless $id =~ /($article_re)/;

-       return $s->response(430) if $s->fetch_stat($id);
+       return $s->response(435) if $s->fetch_stat($id);

        return $s->response(436) unless $s->permit_posting;
 
        $s->response(335);
        return $s->response(436) unless $s->permit_posting;
 
        $s->response(335);


@@ -548,6 +548,7 @@ our %capabilities = (
        'OVER MSGID'    => '',
        'LIST ACTIVE NEWSGROUPS OVERVIEW.FMT ACTIVE.TIMES HEADERS'      => '',
        STREAMING       => '',
        'OVER MSGID'    => '',
        'LIST ACTIVE NEWSGROUPS OVERVIEW.FMT ACTIVE.TIMES HEADERS'      => '',
        STREAMING       => '',

+       IMPLEMENTATION  => 'if.org newsd',

 );
 
 our %hdrs = (
 );
 
 our %hdrs = (