]> code.citadel.org Git - citadel.git/blobdiff - citadel/modules/nntp/serv_nntp.c
NNTP ARTICLE/HEAD/BODY/STAT now return the message-id associated with the message...
[citadel.git] / citadel / modules / nntp / serv_nntp.c
index 398e63dcc6ab14df66e837486a8142f65cee13a0..6a75c622a5cd0e9c5b7845e7327b7f940171a9da 100644 (file)
@@ -1,16 +1,16 @@
-/*
- * NNTP server module FIXME THIS IS NOT FINISHED
- *
- * Copyright (c) 2014 by the citadel.org team
- *
- * This program is open source software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License version 3.
- *  
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- */
+//
+// NNTP server module FIXME THIS IS NOT FINISHED
+//
+// Copyright (c) 2014 by the citadel.org team
+//
+// This program is open source software; you can redistribute it and/or modify
+// it under the terms of the GNU General Public License version 3.
+//  
+// This program is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+// GNU General Public License for more details.
+//
 
 #include "sysdep.h"
 #include <stdlib.h>
 
 extern long timezone;
 
-/****************** BEGIN UTILITY FUNCTIONS THAT COULD BE MOVED ELSEWHERE LATER **************/
+//     ***************** BEGIN UTILITY FUNCTIONS THAT COULD BE MOVED ELSEWHERE LATER **************
 
 
-/*
- * Tests whether the supplied string is a valid newsgroup name
- * Returns true (nonzero) or false (0)
- */
+//
+// Tests whether the supplied string is a valid newsgroup name
+// Returns true (nonzero) or false (0)
+//
 int is_valid_newsgroup_name(char *name) {
        char *ptr = name;
        int has_a_letter = 0;
@@ -100,9 +100,9 @@ int is_valid_newsgroup_name(char *name) {
 
 
 
-/*
- * Convert a Citadel room name to a valid newsgroup name
- */
+//
+// Convert a Citadel room name to a valid newsgroup name
+//
 void room_to_newsgroup(char *target, char *source, size_t target_size) {
 
        if (!target) return;
@@ -137,10 +137,10 @@ void room_to_newsgroup(char *target, char *source, size_t target_size) {
 }
 
 
-/*
- * Convert a newsgroup name to a Citadel room name.
- * This function recognizes names converted with room_to_newsgroup() and restores them with full fidelity.
- */
+//
+// Convert a newsgroup name to a Citadel room name.
+// This function recognizes names converted with room_to_newsgroup() and restores them with full fidelity.
+//
 void newsgroup_to_room(char *target, char *source, size_t target_size) {
 
        if (!target) return;
@@ -173,13 +173,13 @@ void newsgroup_to_room(char *target, char *source, size_t target_size) {
 }
 
 
-/******************  END  UTILITY FUNCTIONS THAT COULD BE MOVED ELSEWHERE LATER **************/
+//     *****************  END  UTILITY FUNCTIONS THAT COULD BE MOVED ELSEWHERE LATER **************
 
 
 
-/*
- * Here's where our NNTP session begins its happy day.
- */
+//
+// Here's where our NNTP session begins its happy day.
+//
 void nntp_greeting(void)
 {
        strcpy(CC->cs_clientname, "NNTP session");
@@ -195,16 +195,16 @@ void nntp_greeting(void)
                return;
        }
 
-       /* Note: the FQDN *must* appear as the first thing after the 220 code.
-        * Some clients (including citmail.c) depend on it being there.
-        */
+       // Note: the FQDN *must* appear as the first thing after the 220 code.
+       // Some clients (including citmail.c) depend on it being there.
+       //
        cprintf("200 %s NNTP Citadel server is not finished yet\r\n", config.c_fqdn);
 }
 
 
-/*
- * NNTPS is just like NNTP, except it goes crypto right away.
- */
+//
+// NNTPS is just like NNTP, except it goes crypto right away.
+//
 void nntps_greeting(void) {
        CtdlModuleStartCryptoMsgs(NULL, NULL, NULL);
 #ifdef HAVE_OPENSSL
@@ -215,9 +215,9 @@ void nntps_greeting(void) {
 
 
 
-/*
- * implements the STARTTLS command
- */
+//
+// implements the STARTTLS command
+//
 void nntp_starttls(void)
 {
        char ok_response[SIZ];
@@ -231,13 +231,17 @@ void nntp_starttls(void)
 }
 
 
+//
+// Implements the CAPABILITY command
+//
 void nntp_capabilities(void)
 {
        cprintf("101 Capability list:\r\n");
+       cprintf("IMPLEMENTATION Citadel v%d.%02d\r\n", (REV_LEVEL/100), (REV_LEVEL%100));
        cprintf("VERSION 2\r\n");
        cprintf("READER\r\n");
+       cprintf("MODE-READER\r\n");
        cprintf("LIST ACTIVE NEWSGROUPS\r\n");
-       cprintf("IMPLEMENTATION Citadel v%d.%02d\r\n", (REV_LEVEL/100), (REV_LEVEL%100));
 #ifdef HAVE_OPENSSL
        cprintf("STARTTLS\r\n");
 #endif
@@ -248,6 +252,9 @@ void nntp_capabilities(void)
 }
 
 
+// 
+// Implements the QUIT command
+//
 void nntp_quit(void)
 {
        cprintf("221 Goodbye...\r\n");
@@ -255,6 +262,9 @@ void nntp_quit(void)
 }
 
 
+//
+// Cleanup hook for this module
+//
 void nntp_cleanup(void)
 {
        /* nothing here yet */
@@ -262,9 +272,9 @@ void nntp_cleanup(void)
 
 
 
-/*
- * Implements the AUTHINFO USER command (RFC 4643)
- */
+//
+// Implements the AUTHINFO USER command (RFC 4643)
+//
 void nntp_authinfo_user(const char *username)
 {
        int a = CtdlLoginExistingUser(NULL, username);
@@ -287,9 +297,9 @@ void nntp_authinfo_user(const char *username)
 }
 
 
-/*
- * Implements the AUTHINFO PASS command (RFC 4643)
- */
+//
+// Implements the AUTHINFO PASS command (RFC 4643)
+//
 void nntp_authinfo_pass(const char *buf)
 {
        int a;
@@ -314,9 +324,9 @@ void nntp_authinfo_pass(const char *buf)
 
 
 
-/*
- * Implements the AUTHINFO extension (RFC 4643) in USER/PASS mode
- */
+//
+// Implements the AUTHINFO extension (RFC 4643) in USER/PASS mode
+//
 void nntp_authinfo(const char *cmd) {
 
        if (!strncasecmp(cmd, "authinfo user ", 14)) {
@@ -333,9 +343,9 @@ void nntp_authinfo(const char *cmd) {
 }
 
 
-/*
- * Utility function to fetch the current list of message numbers in a room
- */
+//
+// Utility function to fetch the current list of message numbers in a room
+//
 struct nntp_msglist nntp_fetch_msglist(struct ctdlroom *qrbuf) {
        struct nntp_msglist nm;
        struct cdbdata *cdbfr;
@@ -356,9 +366,9 @@ struct nntp_msglist nntp_fetch_msglist(struct ctdlroom *qrbuf) {
 
 
 
-/*
- * Various output formats for the LIST commands
- */
+//
+// Various output formats for the LIST commands
+//
 enum {
        NNTP_LIST_ACTIVE,
        NNTP_LIST_ACTIVE_TIMES,
@@ -369,9 +379,9 @@ enum {
 };
 
 
-/*
- * Output a room name (newsgroup name) in formats required for LIST and NEWGROUPS command
- */
+//
+// Output a room name (newsgroup name) in formats required for LIST and NEWGROUPS command
+//
 void output_roomname_in_list_format(struct ctdlroom *qrbuf, int which_format, char *wildmat_pattern) {
        char n_name[1024];
        struct nntp_msglist nm;
@@ -410,9 +420,9 @@ void output_roomname_in_list_format(struct ctdlroom *qrbuf, int which_format, ch
 
 
 
-/*
- * Called once per room by nntp_newgroups() to qualify and possibly output a single room
- */
+//
+// Called once per room by nntp_newgroups() to qualify and possibly output a single room
+//
 void nntp_newgroups_backend(struct ctdlroom *qrbuf, void *data)
 {
        int ra;
@@ -436,9 +446,9 @@ void nntp_newgroups_backend(struct ctdlroom *qrbuf, void *data)
 }
 
 
-/*
- * Implements the NEWGROUPS command
- */
+//
+// Implements the NEWGROUPS command
+//
 void nntp_newgroups(const char *cmd) {
        /*
         * HACK: this works because the 5XX series error codes from citadel
@@ -483,9 +493,9 @@ void nntp_newgroups(const char *cmd) {
 }
 
 
-/*
- * Called once per room by nntp_list() to qualify and possibly output a single room
- */
+//
+// Called once per room by nntp_list() to qualify and possibly output a single room
+//
 void nntp_list_backend(struct ctdlroom *qrbuf, void *data)
 {
        int ra;
@@ -499,14 +509,14 @@ void nntp_list_backend(struct ctdlroom *qrbuf, void *data)
 }
 
 
-/*
- * Implements the LIST commands
- */
+//
+// Implements the LIST commands
+//
 void nntp_list(const char *cmd) {
-       /*
-        * HACK: this works because the 5XX series error codes from citadel
-        * protocol will also be considered error codes by an NNTP client
-        */
+       //
+       // HACK: this works because the 5XX series error codes from citadel
+       // protocol will also be considered error codes by an NNTP client
+       //
        if (CtdlAccessCheck(ac_logged_in_or_guest)) return;
 
        char list_format[64];
@@ -534,16 +544,16 @@ void nntp_list(const char *cmd) {
                return;
        }
 
-       cprintf("231 list of newsgroups follows\r\n");
+       cprintf("215 list of newsgroups follows\r\n");
        CtdlGetUser(&CC->user, CC->curr_user);
        CtdlForEachRoom(nntp_list_backend, &nld);
        cprintf(".\r\n");
 }
 
 
-/*
- * Implement HELP command.
- */
+//
+// Implement HELP command.
+//
 void nntp_help(void) {
        cprintf("100 This is the Citadel NNTP service.\r\n");
        cprintf("RTFM http://www.ietf.org/rfc/rfc3977.txt\r\n");
@@ -551,17 +561,9 @@ void nntp_help(void) {
 }
 
 
-
-struct listgroup_range {
-       long lo;
-       long hi;
-};
-
-
-
-/*
- * back end for the LISTGROUP command , called for each message number
- */
+//
+// back end for the LISTGROUP command , called for each message number
+//
 void nntp_listgroup_backend(long msgnum, void *userdata) {
 
        struct listgroup_range *lr = (struct listgroup_range *)userdata;
@@ -574,14 +576,14 @@ void nntp_listgroup_backend(long msgnum, void *userdata) {
 }
 
 
-/*
- * Implements the GROUP and LISTGROUP commands
- */
+//
+// Implements the GROUP and LISTGROUP commands
+//
 void nntp_group(const char *cmd) {
-       /*
-        * HACK: this works because the 5XX series error codes from citadel
-        * protocol will also be considered error codes by an NNTP client
-        */
+       //
+       // HACK: this works because the 5XX series error codes from citadel
+       // protocol will also be considered error codes by an NNTP client
+       //
        if (CtdlAccessCheck(ac_logged_in_or_guest)) return;
 
        char verb[16];
@@ -662,9 +664,150 @@ void nntp_group(const char *cmd) {
 }
 
 
-/* 
- * Main command loop for NNTP server sessions.
- */
+//
+// Implements the MODE command
+//
+void nntp_mode(const char *cmd) {
+
+       char which_mode[16];
+
+       extract_token(which_mode, cmd, 1, ' ', sizeof which_mode);
+
+       if (!strcasecmp(which_mode, "reader")) {
+               cprintf("201 Reader mode FIXME implement posting and change to 200\r\n");
+       }
+       else {
+               cprintf("501 unknown mode\r\n");
+       }
+}
+
+
+
+//
+// Implements the ARTICLE, HEAD, BODY, and STAT commands.
+// (These commands all accept the same parameters; they differ only in how they output the retrieved message.)
+//
+void nntp_article(const char *cmd) {
+
+       // We're going to store one of these values in the variable 'acmd' so that
+       enum {
+               ARTICLE,
+               HEAD,
+               BODY,
+               STAT
+       };
+
+       char which_command[16];
+       int acmd = 0;
+       extract_token(which_command, cmd, 0, ' ', sizeof which_command);
+
+       if (!strcasecmp(which_command, "article")) {
+               acmd = ARTICLE;
+       }
+       else if (!strcasecmp(which_command, "head")) {
+               acmd = HEAD;
+       }
+       else if (!strcasecmp(which_command, "body")) {
+               acmd = BODY;
+       }
+       else if (!strcasecmp(which_command, "stat")) {
+               acmd = STAT;
+       }
+       else {
+               cprintf("500 I'm afraid I can't do that.\r\n");
+               return;
+       }
+
+       // Which NNTP command was issued, determines whether we will fetch headers, body, or both.
+       int                     headers_only = HEADERS_ALL;
+       if (acmd == HEAD)       headers_only = HEADERS_FAST;
+       else if (acmd == BODY)  headers_only = HEADERS_NONE;
+       else if (acmd == STAT)  headers_only = HEADERS_FAST;
+
+       // now figure out what the client is asking for.
+       char requested_article[256];
+       long requested_msgnum = 0;
+       char *lb, *rb = NULL;
+       extract_token(requested_article, cmd, 1, ' ', sizeof requested_article);
+       lb = strchr(requested_article, '<');
+       rb = strchr(requested_article, '>');
+       requested_msgnum = atol(requested_article);
+
+       // If no article number or message-id is specified, the client wants the "next" article.
+       // We don't know how to do that yet.
+       if (IsEmptyStr(requested_article)) {
+               cprintf("500 FIXME I don't know how to fetch next yet.\r\n");
+               return;
+       }
+
+       // If the requested article is numeric, it maps directly to a message number.  Good.
+       else if (requested_msgnum > 0) {
+               // good -- fall through and keep going
+       }
+
+       // If the requested article has angle brackets, the client wants a specific message-id.
+       // We don't know how to do that yet.
+       else if ( (lb != NULL) && (rb != NULL) && (lb < rb) ) {
+               cprintf("500 FIXME I don't know how to fetch by message-id yet.\r\n");
+               return;
+       }
+
+       // Anything else is noncompliant gobbledygook and should die in a car fire.
+       // Also, the weasel who is spreading untrue rumors about me at work should die in a slow and painful car fire.
+       else {
+               cprintf("500 syntax error\r\n");
+               return;
+       }
+
+       // At this point we know the message number of the "article" being requested.
+       // We have an awesome API call that does all the heavy lifting for us.
+       char *fetched_message_id = NULL;
+       CC->redirect_buffer = NewStrBufPlain(NULL, SIZ);
+       int fetch = CtdlOutputMsg(requested_msgnum,
+                       MT_RFC822,              // output in RFC822 format ... sort of
+                       headers_only,           // headers, body, or both?
+                       0,                      // don't do Citadel protocol responses
+                       1,                      // CRLF newlines
+                       NULL,                   // teh whole thing, not just a section
+                       0,                      // no flags yet ... maybe new ones for Path: etc ?
+                       NULL,
+                       NULL,
+                       &fetched_message_id     // extract the message ID from the message as we go...
+       );
+       StrBuf *msgtext = CC->redirect_buffer;
+       CC->redirect_buffer = NULL;
+
+       if (fetch != om_ok) {
+               cprintf("423 no article with that number\r\n");
+               FreeStrBuf(&msgtext);
+               return;
+       }
+
+       if (acmd == ARTICLE) {
+               cprintf("220 %ld <%s>\r\n", requested_msgnum, fetched_message_id);
+       }
+       if (acmd == HEAD) {
+               cprintf("221 %ld <%s>\r\n", requested_msgnum, fetched_message_id);
+       }
+       if (acmd == BODY) {
+               cprintf("222 %ld <%s>\r\n", requested_msgnum, fetched_message_id);
+       }
+       if (acmd == STAT) {
+               cprintf("223 %ld <%s>\r\n", requested_msgnum, fetched_message_id);
+               FreeStrBuf(&msgtext);
+               return;
+       }
+
+       client_write(SKEY(msgtext));
+       cprintf(".\r\n");                       // this protocol uses a dot terminator
+       FreeStrBuf(&msgtext);
+       if (fetched_message_id) free(fetched_message_id);
+}
+
+
+// 
+// Main command loop for NNTP server sessions.
+//
 void nntp_command_loop(void)
 {
        StrBuf *Cmd = NewStrBuf();
@@ -677,12 +820,10 @@ void nntp_command_loop(void)
                FreeStrBuf(&Cmd);
                return;
        }
-       syslog(LOG_DEBUG, "NNTP server: %s\n", ChrPtr(Cmd));
+       syslog(LOG_DEBUG, "NNTP: %s\n", ((!strncasecmp(ChrPtr(Cmd), "AUTHINFO", 8)) ? "AUTHINFO ..." : ChrPtr(Cmd)));
        extract_token(cmdname, ChrPtr(Cmd), 0, ' ', sizeof cmdname);
 
-       /*
-        * Rumpelstiltskin lookups are awesome
-        */
+       // Rumpelstiltskin lookups are *awesome*
 
        if (!strcasecmp(cmdname, "quit")) {
                nntp_quit();
@@ -720,6 +861,19 @@ void nntp_command_loop(void)
                nntp_group(ChrPtr(Cmd));
        }
 
+       else if (!strcasecmp(cmdname, "mode")) {
+               nntp_mode(ChrPtr(Cmd));
+       }
+
+       else if (
+                       (!strcasecmp(cmdname, "article"))
+                       || (!strcasecmp(cmdname, "head"))
+                       || (!strcasecmp(cmdname, "body"))
+                       || (!strcasecmp(cmdname, "stat"))
+               ) {
+               nntp_article(ChrPtr(Cmd));
+       }
+
        else {
                cprintf("500 I'm afraid I can't do that.\r\n");
        }
@@ -728,15 +882,15 @@ void nntp_command_loop(void)
 }
 
 
-/*****************************************************************************/
-/*                   MODULE INITIALIZATION STUFF                         */
-/*****************************************************************************/
+//     ****************************************************************************
+//                           MODULE INITIALIZATION STUFF
+//     ****************************************************************************
 
 
-/*
- * This cleanup function blows away the temporary memory used by
- * the NNTP server.
- */
+//
+// This cleanup function blows away the temporary memory used by
+// the NNTP server.
+//
 void nntp_cleanup_function(void)
 {
        /* Don't do this stuff if this is not an NNTP session! */
@@ -774,9 +928,3 @@ CTDL_MODULE_INIT(nntp)
        /* return our module name for the log */
        return "nntp";
 }
-
-
-
-
-
-