X-Git-Url: https://code.citadel.org/?a=blobdiff_plain;f=citadel%2Fmodules%2Fnetwork%2Fserv_network.c;h=d8227a8815cb31f3530ec381fdfceef34db64731;hb=8c47559cb5ae97ec0fa35660ee16fd61a9451c72;hp=2b20ea7011122b7c0ceb3ed2c65fff71a773a28d;hpb=9cf3bba86c8212a99adc591d75049fd528eba073;p=citadel.git diff --git a/citadel/modules/network/serv_network.c b/citadel/modules/network/serv_network.c index 2b20ea701..d8227a881 100644 --- a/citadel/modules/network/serv_network.c +++ b/citadel/modules/network/serv_network.c @@ -4,8 +4,21 @@ * This module handles shared rooms, inter-Citadel mail, and outbound * mailing list processing. * - * Copyright (C) 2000-2005 by Art Cancro and others. - * This code is released under the terms of the GNU General Public License. + * Copyright (c) 2000-2009 by the citadel.org team + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 3 of the License, or + * (at your option) any later version. + * + * 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. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * * ** NOTE ** A word on the S_NETCONFIGS semaphore: * This is a fairly high-level type of critical section. It ensures that no @@ -306,7 +319,7 @@ int is_valid_node(char *nexthop, char *secret, char *node) { * First try the neighbor nodes */ if (working_ignetcfg == NULL) { - lprintf(CTDL_ERR, "working_ignetcfg is NULL!\n"); + CtdlLogPrintf(CTDL_ERR, "working_ignetcfg is NULL!\n"); if (nexthop != NULL) { strcpy(nexthop, ""); } @@ -354,7 +367,7 @@ int is_valid_node(char *nexthop, char *secret, char *node) { /* * If we get to this point, the supplied node name is bogus. */ - lprintf(CTDL_ERR, "Invalid node name <%s>\n", node); + CtdlLogPrintf(CTDL_ERR, "Invalid node name <%s>\n", node); return(-1); } @@ -363,7 +376,7 @@ int is_valid_node(char *nexthop, char *secret, char *node) { void cmd_gnet(char *argbuf) { - char filename[SIZ]; + char filename[PATH_MAX]; char buf[SIZ]; FILE *fp; @@ -391,8 +404,8 @@ void cmd_gnet(char *argbuf) { void cmd_snet(char *argbuf) { - char tempfilename[SIZ]; - char filename[SIZ]; + char tempfilename[PATH_MAX]; + char filename[PATH_MAX]; char buf[SIZ]; FILE *fp, *newfp; @@ -415,7 +428,7 @@ void cmd_snet(char *argbuf) { } cprintf("%d %s\n", SEND_LISTING, tempfilename); - while (client_getln(buf, sizeof buf), strcmp(buf, "000")) { + while (client_getln(buf, sizeof buf) >= 0 && strcmp(buf, "000")) { fprintf(fp, "%s\n", buf); } fclose(fp); @@ -452,6 +465,7 @@ void network_deliver_digest(SpoolControl *sc) { size_t recps_len = SIZ; struct recptypes *valid; namelist *nptr; + char bounce_to[256]; if (sc->num_msgs_spooled < 1) { fclose(sc->digestfp); @@ -478,6 +492,15 @@ void network_deliver_digest(SpoolControl *sc) { msg->cm_fields['F'] = strdup(buf); msg->cm_fields['R'] = strdup(buf); + /* Set the 'List-ID' header */ + msg->cm_fields['L'] = malloc(1024); + snprintf(msg->cm_fields['L'], 1024, + "%s <%ld.list-id.%s>", + CC->room.QRname, + CC->room.QRnumber, + config.c_fqdn + ); + /* * Go fetch the contents of the digest */ @@ -504,7 +527,7 @@ void network_deliver_digest(SpoolControl *sc) { recps = malloc(recps_len); if (recps == NULL) { - lprintf(CTDL_EMERG, "Cannot allocate %ld bytes for recps...\n", (long)recps_len); + CtdlLogPrintf(CTDL_EMERG, "Cannot allocate %ld bytes for recps...\n", (long)recps_len); abort(); } @@ -518,10 +541,17 @@ void network_deliver_digest(SpoolControl *sc) { strcat(recps, nptr->name); } + /* Where do we want bounces and other noise to be heard? Surely not the list members! */ + snprintf(bounce_to, sizeof bounce_to, "room_aide@%s", config.c_fqdn); + /* Now submit the message */ valid = validate_recipients(recps, NULL, 0); free(recps); - CtdlSubmitMsg(msg, valid, NULL); + if (valid != NULL) { + valid->bounce_to = strdup(bounce_to); + valid->envelope_from = strdup(bounce_to); + CtdlSubmitMsg(msg, valid, NULL, 0); + } CtdlFreeMessage(msg); free_recipients(valid); } @@ -535,6 +565,7 @@ void network_deliver_list(struct CtdlMessage *msg, SpoolControl *sc) { size_t recps_len = SIZ; struct recptypes *valid; namelist *nptr; + char bounce_to[256]; /* Don't do this if there were no recipients! */ if (sc->listrecps == NULL) return; @@ -551,7 +582,7 @@ void network_deliver_list(struct CtdlMessage *msg, SpoolControl *sc) { recps = malloc(recps_len); if (recps == NULL) { - lprintf(CTDL_EMERG, "Cannot allocate %ld bytes for recps...\n", (long)recps_len); + CtdlLogPrintf(CTDL_EMERG, "Cannot allocate %ld bytes for recps...\n", (long)recps_len); abort(); } @@ -565,11 +596,18 @@ void network_deliver_list(struct CtdlMessage *msg, SpoolControl *sc) { strcat(recps, nptr->name); } + /* Where do we want bounces and other noise to be heard? Surely not the list members! */ + snprintf(bounce_to, sizeof bounce_to, "room_aide@%s", config.c_fqdn); + /* Now submit the message */ valid = validate_recipients(recps, NULL, 0); free(recps); - CtdlSubmitMsg(msg, valid, NULL); - free_recipients(valid); + if (valid != NULL) { + valid->bounce_to = strdup(bounce_to); + valid->envelope_from = strdup(bounce_to); + CtdlSubmitMsg(msg, valid, NULL, 0); + free_recipients(valid); + } /* Do not call CtdlFreeMessage(msg) here; the caller will free it. */ } @@ -589,7 +627,7 @@ void network_spool_msg(long msgnum, void *userdata) { maplist *mptr; struct ser_ret sermsg; FILE *fp; - char filename[SIZ]; + char filename[PATH_MAX]; char buf[SIZ]; int bang = 0; int send = 1; @@ -610,6 +648,18 @@ void network_spool_msg(long msgnum, void *userdata) { msg = CtdlFetchMessage(msgnum, 1); if (msg != NULL) { + /* Set the 'List-ID' header */ + if (msg->cm_fields['L'] != NULL) { + free(msg->cm_fields['L']); + } + msg->cm_fields['L'] = malloc(1024); + snprintf(msg->cm_fields['L'], 1024, + "%s <%ld.list-id.%s>", + CC->room.QRname, + CC->room.QRnumber, + config.c_fqdn + ); + /* Prepend "[List name]" to the subject */ if (msg->cm_fields['U'] == NULL) { msg->cm_fields['U'] = strdup("(no subject)"); @@ -670,7 +720,7 @@ void network_spool_msg(long msgnum, void *userdata) { CC->redirect_alloc = SIZ; safestrncpy(CC->preferred_formats, "text/plain", sizeof CC->preferred_formats); - CtdlOutputPreLoadedMsg(msg, MT_CITADEL, HEADERS_NONE, 0, 0); + CtdlOutputPreLoadedMsg(msg, MT_CITADEL, HEADERS_NONE, 0, 0, 0); striplt(CC->redirect_buffer); fprintf(sc->digestfp, "\n%s\n", CC->redirect_buffer); @@ -736,7 +786,7 @@ void network_spool_msg(long msgnum, void *userdata) { msg->cm_fields['R'] = strdup(nptr->name); valid = validate_recipients(nptr->name, NULL, 0); - CtdlSubmitMsg(msg, valid, ""); + CtdlSubmitMsg(msg, valid, "", 0); free_recipients(valid); } @@ -785,18 +835,24 @@ void network_spool_msg(long msgnum, void *userdata) { /* Check for valid node name */ if (is_valid_node(NULL, NULL, mptr->remote_nodename) != 0) { - lprintf(CTDL_ERR, "Invalid node <%s>\n", mptr->remote_nodename); + CtdlLogPrintf(CTDL_ERR, "Invalid node <%s>\n", mptr->remote_nodename); send = 0; } /* Check for split horizon */ - lprintf(CTDL_DEBUG, "Path is %s\n", msg->cm_fields['P']); + CtdlLogPrintf(CTDL_DEBUG, "Path is %s\n", msg->cm_fields['P']); bang = num_tokens(msg->cm_fields['P'], '!'); if (bang > 1) for (i=0; i<(bang-1); ++i) { - extract_token(buf, msg->cm_fields['P'], - i, '!', sizeof buf); + extract_token(buf, msg->cm_fields['P'], i, '!', sizeof buf); + CtdlLogPrintf(CTDL_DEBUG, "Compare <%s> to <%s>\n", + buf, mptr->remote_nodename) ; if (!strcasecmp(buf, mptr->remote_nodename)) { send = 0; + CtdlLogPrintf(CTDL_DEBUG, "Not sending to %s\n", + mptr->remote_nodename); + } + else { + CtdlLogPrintf(CTDL_DEBUG, "Sending to %s\n", mptr->remote_nodename); } } @@ -825,7 +881,7 @@ void network_spool_msg(long msgnum, void *userdata) { snprintf(filename, sizeof filename,"%s/%s", ctdl_netout_dir, mptr->remote_nodename); - lprintf(CTDL_DEBUG, "Appending to %s\n", filename); + CtdlLogPrintf(CTDL_DEBUG, "Appending to %s\n", filename); fp = fopen(filename, "ab"); if (fp != NULL) { fwrite(sermsg.ser, @@ -833,7 +889,7 @@ void network_spool_msg(long msgnum, void *userdata) { fclose(fp); } else { - lprintf(CTDL_ERR, "%s: %s\n", filename, strerror(errno)); + CtdlLogPrintf(CTDL_ERR, "%s: %s\n", filename, strerror(errno)); } /* free the serialized version */ @@ -991,7 +1047,7 @@ int writenfree_spoolcontrol_file(SpoolControl **scc, char *filename) sc = *scc; fp = fopen(filename, "w"); if (fp == NULL) { - lprintf(CTDL_CRIT, "ERROR: cannot open %s: %s\n", + CtdlLogPrintf(CTDL_CRIT, "ERROR: cannot open %s: %s\n", filename, strerror(errno)); free_spoolcontrol_struct(scc); } @@ -1077,7 +1133,7 @@ int is_recipient(SpoolControl *sc, const char *Name) */ void network_spoolout_room(char *room_to_spool) { char buf[SIZ]; - char filename[SIZ]; + char filename[PATH_MAX]; SpoolControl *sc; int i; @@ -1087,22 +1143,20 @@ void network_spoolout_room(char *room_to_spool) { * queued for networking and then deleted before it can happen. */ if (getroom(&CC->room, room_to_spool) != 0) { - lprintf(CTDL_CRIT, "ERROR: cannot load <%s>\n", room_to_spool); + CtdlLogPrintf(CTDL_CRIT, "ERROR: cannot load <%s>\n", room_to_spool); return; } assoc_file_name(filename, sizeof filename, &CC->room, ctdl_netcfg_dir); - - lprintf(CTDL_INFO, "Networking started for <%s>\n", CC->room.QRname); begin_critical_section(S_NETCONFIGS); /* Only do net processing for rooms that have netconfigs */ - if (!read_spoolcontrol_file(&sc, filename)) { end_critical_section(S_NETCONFIGS); return; } + CtdlLogPrintf(CTDL_INFO, "Networking started for <%s>\n", CC->room.QRname); /* If there are digest recipients, we have to build a digest */ if (sc->digestrecps != NULL) { @@ -1153,7 +1207,7 @@ int network_sync_to(char *target_node) { char sc_type[256]; char sc_node[256]; char sc_room[256]; - char filename[256]; + char filename[PATH_MAX]; FILE *fp; /* Grab the configuration line we're looking for */ @@ -1198,7 +1252,7 @@ int network_sync_to(char *target_node) { /* Concise cleanup because we know there's only one node in the sc */ free(sc.ignet_push_shares); - lprintf(CTDL_NOTICE, "Synchronized %d messages to <%s>\n", + CtdlLogPrintf(CTDL_NOTICE, "Synchronized %d messages to <%s>\n", num_spooled, target_node); return(num_spooled); } @@ -1317,7 +1371,7 @@ void network_bounce(struct CtdlMessage *msg, char *reason) { static int serialnum = 0; size_t size; - lprintf(CTDL_DEBUG, "entering network_bounce()\n"); + CtdlLogPrintf(CTDL_DEBUG, "entering network_bounce()\n"); if (msg == NULL) return; @@ -1401,12 +1455,12 @@ void network_bounce(struct CtdlMessage *msg, char *reason) { if ( (valid == NULL) && IsEmptyStr(force_room) ) { strcpy(force_room, config.c_aideroom); } - CtdlSubmitMsg(msg, valid, force_room); + CtdlSubmitMsg(msg, valid, force_room, 0); /* Clean up */ if (valid != NULL) free_recipients(valid); CtdlFreeMessage(msg); - lprintf(CTDL_DEBUG, "leaving network_bounce()\n"); + CtdlLogPrintf(CTDL_DEBUG, "leaving network_bounce()\n"); } @@ -1424,7 +1478,7 @@ void network_process_buffer(char *buffer, long size) { char target_room[ROOMNAMELEN]; struct ser_ret sermsg; char *oldpath = NULL; - char filename[SIZ]; + char filename[PATH_MAX]; FILE *fp; char nexthop[SIZ]; unsigned char firstbyte; @@ -1434,7 +1488,7 @@ void network_process_buffer(char *buffer, long size) { firstbyte = buffer[0]; lastbyte = buffer[size-1]; if ( (firstbyte != 255) || (lastbyte != 0) ) { - lprintf(CTDL_ERR, "Corrupt message ignored. Length=%ld, firstbyte = %d, lastbyte = %d\n", + CtdlLogPrintf(CTDL_ERR, "Corrupt message ignored. Length=%ld, firstbyte = %d, lastbyte = %d\n", size, firstbyte, lastbyte); return; } @@ -1488,7 +1542,7 @@ void network_process_buffer(char *buffer, long size) { "%s/%s", ctdl_netout_dir, nexthop); - lprintf(CTDL_DEBUG, "Appending to %s\n", filename); + CtdlLogPrintf(CTDL_DEBUG, "Appending to %s\n", filename); fp = fopen(filename, "ab"); if (fp != NULL) { fwrite(sermsg.ser, @@ -1496,7 +1550,7 @@ void network_process_buffer(char *buffer, long size) { fclose(fp); } else { - lprintf(CTDL_ERR, "%s: %s\n", filename, strerror(errno)); + CtdlLogPrintf(CTDL_ERR, "%s: %s\n", filename, strerror(errno)); } free(sermsg.ser); CtdlFreeMessage(msg); @@ -1577,7 +1631,7 @@ void network_process_buffer(char *buffer, long size) { /* save the message into a room */ if (PerformNetprocHooks(msg, target_room) == 0) { msg->cm_flags = CM_SKIP_HOOKS; - CtdlSubmitMsg(msg, recp, target_room); + CtdlSubmitMsg(msg, recp, target_room, 0); } CtdlFreeMessage(msg); free_recipients(recp); @@ -1619,12 +1673,12 @@ void network_process_file(char *filename) { fp = fopen(filename, "rb"); if (fp == NULL) { - lprintf(CTDL_CRIT, "Error opening %s: %s\n", filename, strerror(errno)); + CtdlLogPrintf(CTDL_CRIT, "Error opening %s: %s\n", filename, strerror(errno)); return; } fseek(fp, 0L, SEEK_END); - lprintf(CTDL_INFO, "network: processing %ld bytes from %s\n", ftell(fp), filename); + CtdlLogPrintf(CTDL_INFO, "network: processing %ld bytes from %s\n", ftell(fp), filename); rewind(fp); /* Look for messages in the data stream and break them out */ @@ -1658,7 +1712,7 @@ void network_do_spoolin(void) { DIR *dp; struct dirent *d; struct stat statbuf; - char filename[256]; + char filename[PATH_MAX]; static time_t last_spoolin_mtime = 0L; /* @@ -1667,11 +1721,11 @@ void network_do_spoolin(void) { */ if (stat(ctdl_netin_dir, &statbuf)) return; if (statbuf.st_mtime == last_spoolin_mtime) { - lprintf(CTDL_DEBUG, "network: nothing in inbound queue\n"); + CtdlLogPrintf(CTDL_DEBUG, "network: nothing in inbound queue\n"); return; } last_spoolin_mtime = statbuf.st_mtime; - lprintf(CTDL_DEBUG, "network: processing inbound queue\n"); + CtdlLogPrintf(CTDL_DEBUG, "network: processing inbound queue\n"); /* * Ok, there's something interesting in there, so scan it. @@ -1700,7 +1754,7 @@ void network_do_spoolin(void) { void network_purge_spoolout(void) { DIR *dp; struct dirent *d; - char filename[256]; + char filename[PATH_MAX]; char nexthop[256]; int i; @@ -1746,7 +1800,7 @@ void receive_spool(int sock, char *remote_nodename) { CtdlMakeTempFileName(tempfilename, sizeof tempfilename); if (sock_puts(sock, "NDOP") < 0) return; if (sock_getln(sock, buf, sizeof buf) < 0) return; - lprintf(CTDL_DEBUG, "<%s\n", buf); + CtdlLogPrintf(CTDL_DEBUG, "<%s\n", buf); if (buf[0] != '2') { return; } @@ -1755,7 +1809,7 @@ void receive_spool(int sock, char *remote_nodename) { bytes_received = 0L; fp = fopen(tempfilename, "w"); if (fp == NULL) { - lprintf(CTDL_CRIT, "cannot open download file locally: %s\n", + CtdlLogPrintf(CTDL_CRIT, "cannot open download file locally: %s\n", strerror(errno)); return; } @@ -1816,9 +1870,9 @@ void receive_spool(int sock, char *remote_nodename) { return; } if (download_len > 0) { - lprintf(CTDL_NOTICE, "Received %ld octets from <%s>\n", download_len, remote_nodename); + CtdlLogPrintf(CTDL_NOTICE, "Received %ld octets from <%s>\n", download_len, remote_nodename); } - lprintf(CTDL_DEBUG, "%s\n", buf); + CtdlLogPrintf(CTDL_DEBUG, "%s\n", buf); /* Now copy the temp file to its permanent location. * (We copy instead of link because they may be on different filesystems) @@ -1869,7 +1923,7 @@ void transmit_spool(int sock, char *remote_nodename) if (sock_puts(sock, "NUOP") < 0) return; if (sock_getln(sock, buf, sizeof buf) < 0) return; - lprintf(CTDL_DEBUG, "<%s\n", buf); + CtdlLogPrintf(CTDL_DEBUG, "<%s\n", buf); if (buf[0] != '2') { return; } @@ -1881,7 +1935,7 @@ void transmit_spool(int sock, char *remote_nodename) fd = open(sfname, O_RDONLY); if (fd < 0) { if (errno != ENOENT) { - lprintf(CTDL_CRIT, "cannot open upload file locally: %s\n", + CtdlLogPrintf(CTDL_CRIT, "cannot open upload file locally: %s\n", strerror(errno)); } return; @@ -1949,6 +2003,8 @@ ABORTUPL: void network_poll_node(char *node, char *secret, char *host, char *port) { int sock; char buf[SIZ]; + char err_buf[SIZ]; + char connected_to[SIZ]; if (network_talking_to(node, NTT_CHECK)) return; network_talking_to(node, NTT_ADD); @@ -1965,7 +2021,15 @@ void network_poll_node(char *node, char *secret, char *host, char *port) { /* Read the server greeting */ if (sock_getln(sock, buf, sizeof buf) < 0) goto bail; - lprintf(CTDL_DEBUG, ">%s\n", buf); + CtdlLogPrintf(CTDL_DEBUG, ">%s\n", buf); + + /* Check that the remote is who we think it is and warn the Aide if not */ + extract_token (connected_to, buf, 1, ' ', sizeof connected_to); + if (strcmp(connected_to, node)) + { + snprintf (err_buf, sizeof(err_buf), "Connected to node \"%s\" but I was expecting to connect to node \"%s\".", connected_to, node); + aide_message(err_buf, "IGNet Networking error."); + } /* Identify ourselves */ snprintf(buf, sizeof buf, "NETP %s|%s", config.c_nodename, secret); @@ -2069,10 +2133,8 @@ void *network_do_queue(void *args) { struct CitContext networkerCC; /* Give the networker its own private CitContext */ - memset(&networkerCC, 0, sizeof(struct CitContext)); - networkerCC.internal_pgm = 1; - networkerCC.cs_pid = 0; - pthread_setspecific(MyConKey, (void *)&networkerCC ); + CtdlFillSystemContext(&networkerCC, "network"); + citthread_setspecific(MyConKey, (void *)&networkerCC ); /* * Run the full set of processing tasks no more frequently @@ -2182,15 +2244,15 @@ void cmd_netp(char *cmdbuf) char secret[256]; char nexthop[256]; + char err_buf[SIZ]; /* Authenticate */ extract_token(node, cmdbuf, 0, '|', sizeof node); extract_token(pass, cmdbuf, 1, '|', sizeof pass); if (doing_queue) { - lprintf(CTDL_WARNING, "Network node <%s> refused - spooling", node); - cprintf("%d spooling - try again in a few minutes\n", - ERROR + RESOURCE_BUSY); + CtdlLogPrintf(CTDL_WARNING, "Network node <%s> refused - spooling\n", node); + cprintf("%d spooling - try again in a few minutes\n", ERROR + RESOURCE_BUSY); return; } @@ -2199,37 +2261,49 @@ void cmd_netp(char *cmdbuf) v = is_valid_node(nexthop, secret, node); if (v != 0) { - lprintf(CTDL_WARNING, "Unknown node <%s>\n", node); - cprintf("%d authentication failed\n", - ERROR + PASSWORD_REQUIRED); + snprintf(err_buf, sizeof err_buf, + "An unknown Citadel server called \"%s\" attempted to connect from %s [%s].\n", + node, CC->cs_host, CC->cs_addr + ); + CtdlLogPrintf(CTDL_WARNING, err_buf); + cprintf("%d authentication failed\n", ERROR + PASSWORD_REQUIRED); + aide_message(err_buf, "IGNet Networking."); return; } if (strcasecmp(pass, secret)) { - lprintf(CTDL_WARNING, "Bad password for network node <%s>", node); + snprintf(err_buf, sizeof err_buf, + "A Citadel server at %s [%s] failed to authenticate as network node \"%s\".\n", + CC->cs_host, CC->cs_addr, node + ); + CtdlLogPrintf(CTDL_WARNING, err_buf); cprintf("%d authentication failed\n", ERROR + PASSWORD_REQUIRED); + aide_message(err_buf, "IGNet Networking."); return; } if (network_talking_to(node, NTT_CHECK)) { - lprintf(CTDL_WARNING, "Duplicate session for network node <%s>", node); + CtdlLogPrintf(CTDL_WARNING, "Duplicate session for network node <%s>", node); cprintf("%d Already talking to %s right now\n", ERROR + RESOURCE_BUSY, node); return; } safestrncpy(CC->net_node, node, sizeof CC->net_node); network_talking_to(node, NTT_ADD); - lprintf(CTDL_NOTICE, "Network node <%s> logged in\n", CC->net_node); - cprintf("%d authenticated as network node '%s'\n", CIT_OK, - CC->net_node); + CtdlLogPrintf(CTDL_NOTICE, "Network node <%s> logged in from %s [%s]\n", + CC->net_node, CC->cs_host, CC->cs_addr + ); + cprintf("%d authenticated as network node '%s'\n", CIT_OK, CC->net_node); } + int network_room_handler (struct ctdlroom *room) { network_queue_room(room, NULL); return 0; } + /* * Module entry point */