157 lines
4.6 KiB
C
157 lines
4.6 KiB
C
/*****************************************************************************
|
|
*
|
|
* $Id$
|
|
* Purpose ...............: RFC msg
|
|
*
|
|
*****************************************************************************
|
|
* Copyright (C) 1997-2003
|
|
*
|
|
* Michiel Broek FIDO: 2:280/2802
|
|
* Beekmansbos 10
|
|
* 1971 BV IJmuiden
|
|
* the Netherlands
|
|
*
|
|
* This file is part of MBSE BBS.
|
|
*
|
|
* This BBS 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 2, or (at your option) any
|
|
* later version.
|
|
*
|
|
* MBSE BBS 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 MBSE BBS; see the file COPYING. If not, write to the Free
|
|
* Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
*****************************************************************************/
|
|
|
|
#include "../config.h"
|
|
#include "libs.h"
|
|
#include "memwatch.h"
|
|
#include "structs.h"
|
|
#include "users.h"
|
|
#include "records.h"
|
|
#include "common.h"
|
|
#include "clcomm.h"
|
|
|
|
|
|
|
|
#ifndef BUFSIZ
|
|
#define BUFSIZ 512
|
|
#endif
|
|
|
|
#define KWDCHARS "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_."
|
|
|
|
|
|
|
|
/*
|
|
* Parse RFC message, extract headers and do some sanity checks.
|
|
*/
|
|
rfcmsg *parsrfc(FILE *fp)
|
|
{
|
|
int linecont=FALSE,newcont,firstline;
|
|
rfcmsg *start=NULL, *cur=NULL;
|
|
char buffer[BUFSIZ], *p;
|
|
|
|
while (bgets(buffer, BUFSIZ-1, fp) && strcmp(buffer,"\n")) {
|
|
newcont = (buffer[strlen(buffer)-1] != '\n');
|
|
Syslog('M', "Line read: \"%s\" - %s continued", buffer,newcont?"to be":"not to be");
|
|
if (linecont) {
|
|
Syslog('M', "this is a continuation of a long line");
|
|
cur->val=xstrcat(cur->val,buffer);
|
|
} else {
|
|
if (isspace(buffer[0])) {
|
|
if (strspn(buffer," \t\n") == strlen(buffer)) {
|
|
Syslog('M', "breaking with blank-only line");
|
|
break;
|
|
}
|
|
Syslog('M', "this is a continuation line");
|
|
if (!cur) {
|
|
Syslog('M', "Wrong first line: \"%s\"",buffer);
|
|
cur = (rfcmsg *)malloc(sizeof(rfcmsg));
|
|
start = cur;
|
|
cur->next = NULL;
|
|
cur->key = xstrcpy((char *)"X-Body-Start");
|
|
cur->val = xstrcpy(buffer);
|
|
break;
|
|
} else
|
|
cur->val = xstrcat(cur->val,buffer);
|
|
} else {
|
|
// Syslog('M', "this is a header line");
|
|
if (cur) {
|
|
firstline=FALSE;
|
|
(cur->next) = (rfcmsg *)malloc(sizeof(rfcmsg));
|
|
cur = cur->next;
|
|
} else {
|
|
firstline = TRUE;
|
|
cur = (rfcmsg *)malloc(sizeof(rfcmsg));
|
|
start = cur;
|
|
}
|
|
cur->next = NULL;
|
|
cur->key = NULL;
|
|
cur->val = NULL;
|
|
if (firstline && !strncmp(buffer,"From ",5)) {
|
|
Syslog('M', "This is a uucpfrom line");
|
|
cur->key=xstrcpy((char *)"X-UUCP-From");
|
|
cur->val=xstrcpy(buffer+4);
|
|
} else if ((p=strchr(buffer,':')) && (p > buffer) && /* ':' isn't 1st chr */
|
|
isspace(*(p+1)) && /* space past ':' */
|
|
/* at least one non blank char */
|
|
(strspn(p+2, " \t\n") < strlen(p+2)) && (strspn(buffer,KWDCHARS) == (p-buffer))) {
|
|
*p='\0';
|
|
// Syslog('M', "This is a regular header");
|
|
cur->key = xstrcpy(buffer);
|
|
cur->val = xstrcpy(p+1);
|
|
} else if ((p=strchr(buffer,':')) && (!strncasecmp(buffer, (char *)"X-MS-", 5))) {
|
|
/*
|
|
* It looks like M$ invented their own internet standard, these
|
|
* are header lines without a key. This one will be stored here
|
|
* and junked in the rfc2ftn function.
|
|
*/
|
|
cur->key = xstrcpy(buffer);
|
|
cur->val = xstrcpy((char *)" ");
|
|
} else if ((p=strchr(buffer,':')) && (p > buffer)) {
|
|
/*
|
|
* Header line without information, don't add this one but log.
|
|
*/
|
|
Syslog('!', "Header line \"%s\" without key value", buffer);
|
|
cur->key = xstrcpy(buffer);
|
|
cur->val = xstrcpy((char *)" ");
|
|
} else if ((p=strchr(buffer,':')) && (p > buffer) && isspace(*(p+1))) { /* space past ':' */
|
|
Syslog('!', "Header line \"%s\" without key value (but with a Space)", buffer);
|
|
cur->key = xstrcpy(buffer);
|
|
cur->val = xstrcpy((char *)" ");
|
|
} else {
|
|
Syslog('M', "Non-header line: \"%s\"",buffer);
|
|
cur->key = xstrcpy((char *)"X-Body-Start");
|
|
cur->val = xstrcpy(buffer);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
linecont = newcont;
|
|
}
|
|
return(start);
|
|
}
|
|
|
|
|
|
|
|
void tidyrfc(rfcmsg *msg)
|
|
{
|
|
rfcmsg *nxt;
|
|
|
|
for (; msg; msg=nxt) {
|
|
nxt = msg->next;
|
|
if (msg->key)
|
|
free(msg->key);
|
|
if (msg->val)
|
|
free(msg->val);
|
|
free(msg);
|
|
}
|
|
return;
|
|
}
|
|
|