summaryrefslogtreecommitdiff
path: root/pith/rfc2231.c
diff options
context:
space:
mode:
Diffstat (limited to 'pith/rfc2231.c')
-rw-r--r--pith/rfc2231.c313
1 files changed, 313 insertions, 0 deletions
diff --git a/pith/rfc2231.c b/pith/rfc2231.c
new file mode 100644
index 00000000..1aa0752f
--- /dev/null
+++ b/pith/rfc2231.c
@@ -0,0 +1,313 @@
+#if !defined(lint) && !defined(DOS)
+static char rcsid[] = "$Id: rfc2231.c 1012 2008-03-26 00:44:22Z hubert@u.washington.edu $";
+#endif
+
+/*
+ * ========================================================================
+ * Copyright 2006-2008 University of Washington
+ * Copyright 2013 Eduardo Chappa
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ * http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * ========================================================================
+ */
+
+#include "../pith/headers.h"
+#include "../pith/rfc2231.h"
+#include "../pith/mimedesc.h"
+#include "../pith/state.h"
+#include "../pith/conf.h"
+#include "../pith/store.h"
+#include "../pith/status.h"
+#include "../pith/send.h"
+#include "../pith/string.h"
+
+
+/*
+ * * * * * * * * * RFC 2231 support routines * * * * * * * *
+ */
+
+
+/* Useful def's */
+#define RFC2231_MAX 64
+
+
+char *
+rfc2231_get_param(PARAMETER *parms, char *name,
+ char **charset, char **lang)
+{
+ char *buf, *p;
+ int decode = 0, name_len, i;
+ unsigned n;
+
+ name_len = strlen(name);
+ for(; parms ; parms = parms->next)
+ if(!struncmp(name, parms->attribute, name_len)){
+ if(parms->attribute[name_len] == '*'){
+ for(p = &parms->attribute[name_len + 1], n = 0; *(p+n); n++)
+ ;
+
+ decode = *(p + n - 1) == '*';
+
+ if(isdigit((unsigned char) *p)){
+ char *pieces[RFC2231_MAX];
+ int count = 0, len;
+
+ memset(pieces, 0, RFC2231_MAX * sizeof(char *));
+
+ while(parms){
+ n = 0;
+ do
+ n = (n * 10) + (*p - '0');
+ while(isdigit(*++p) && n < RFC2231_MAX);
+
+ if(n < RFC2231_MAX){
+ pieces[n] = parms->value;
+ if(n > count)
+ count = n;
+ }
+ else{
+ q_status_message1(SM_ORDER | SM_DING, 0, 3,
+ "Invalid attachment parameter segment number: %.25s",
+ name);
+ return(NULL); /* Too many segments! */
+ }
+
+ while((parms = parms->next) != NULL)
+ if(!struncmp(name, parms->attribute, name_len)){
+ if(*(p = &parms->attribute[name_len]) == '*'
+ && isdigit((unsigned char) *++p))
+ break;
+ else
+ return(NULL); /* missing segment no.! */
+ }
+ }
+
+ for(i = len = 0; i <= count; i++)
+ if(pieces[i])
+ len += strlen(pieces[i]);
+ else{
+ q_status_message1(SM_ORDER | SM_DING, 0, 3,
+ "Missing attachment parameter sequence: %.25s",
+ name);
+
+ return(NULL); /* hole! */
+ }
+
+ buf = (char *) fs_get((len + 1) * sizeof(char));
+
+ for(i = len = 0; i <= count; i++){
+ if((n = *(p = pieces[i]) == '\"') != 0) /* quoted? */
+ p++;
+
+ while(*p && !(n && *p == '\"' && !*(p+1)))
+ buf[len++] = *p++;
+ }
+
+ buf[len] = '\0';
+ }
+ else
+ buf = cpystr(parms->value);
+
+ /* Do any RFC 2231 decoding? */
+ if(decode){
+ char *converted = NULL, cs[1000];
+
+ cs[0] = '\0';
+ n = 0;
+
+ if((p = strchr(buf, '\'')) != NULL){
+ n = (p - buf) + 1;
+ *p = '\0';
+ strncpy(cs, buf, sizeof(cs));
+ cs[sizeof(cs)-1] = '\0';
+ *p = '\'';
+ if(charset)
+ *charset = cpystr(cs);
+
+ if((p = strchr(&buf[n], '\'')) != NULL){
+ n = (p - buf) + 1;
+ if(lang){
+ *p = '\0';
+ *lang = cpystr(p);
+ *p = '\'';
+ }
+ }
+ }
+
+ if(n){
+ /* Suck out the charset & lang while decoding hex */
+ p = &buf[n];
+ for(i = 0; (buf[i] = *p) != '\0'; i++)
+ if(*p++ == '%' && isxpair(p)){
+ buf[i] = X2C(p);
+ p += 2;
+ }
+ }
+ else
+ fs_give((void **) &buf); /* problems!?! */
+
+ /*
+ * Callers will expect the returned value to be UTF-8
+ * text, so we may need to translate here.
+ */
+ if(buf)
+ converted = convert_to_utf8(buf, cs, 0);
+
+ if(converted && converted != buf){
+ fs_give((void **) &buf);
+ buf = converted;
+ }
+ }
+
+ return(buf);
+ }
+ else
+ return(cpystr(parms->value ? parms->value : ""));
+ }
+
+ return(NULL);
+}
+
+
+int
+rfc2231_output(STORE_S *so, char *attrib, char *value, char *specials, char *charset)
+{
+ int i, line = 0, encode = 0, quote = 0;
+
+ /*
+ * scan for hibit first since encoding clue has to
+ * come on first line if any parms are broken up...
+ */
+ for(i = 0; value && value[i]; i++)
+ if(value[i] & 0x80){
+ encode++;
+ break;
+ }
+
+ for(i = 0; ; i++){
+ if(!(value && value[i]) || i > 80){ /* flush! */
+ if((line++ && !so_puts(so, ";\015\012 "))
+ || !so_puts(so, attrib))
+ return(0);
+
+ if(value){
+ if(((value[i] || line > 1) /* more lines or already lines */
+ && !(so_writec('*', so)
+ && so_puts(so, int2string(line - 1))))
+ || (encode && !so_writec('*', so))
+ || !so_writec('=', so)
+ || (quote && !so_writec('\"', so))
+ || ((line == 1 && encode)
+ && !(so_puts(so, charset ? charset : UNKNOWN_CHARSET)
+ && so_puts(so, "''"))))
+ return(0);
+
+ while(i--){
+ if(*value & 0x80){
+ char tmp[3], *p;
+
+ p = tmp;
+ C2XPAIR(*value, p);
+ *p = '\0';
+ if(!(so_writec('%', so) && so_puts(so, tmp)))
+ return(0);
+ }
+ else if(((*value == '\\' || *value == '\"')
+ && !so_writec('\\', so))
+ || !so_writec(*value, so))
+ return(0);
+
+ value++;
+ }
+
+ if(quote && !so_writec('\"', so))
+ return(0);
+
+ if(*value) /* more? */
+ i = quote = 0; /* reset! */
+ else
+ return(1); /* done! */
+ }
+ else
+ return(1);
+ }
+
+ if(!quote && strchr(specials, value[i]))
+ quote++;
+ }
+}
+
+
+PARMLIST_S *
+rfc2231_newparmlist(PARAMETER *params)
+{
+ PARMLIST_S *p = NULL;
+
+ if(params){
+ p = (PARMLIST_S *) fs_get(sizeof(PARMLIST_S));
+ memset(p, 0, sizeof(PARMLIST_S));
+ p->list = params;
+ }
+
+ return(p);
+}
+
+
+void
+rfc2231_free_parmlist(PARMLIST_S **p)
+{
+ if(*p){
+ if((*p)->value)
+ fs_give((void **) &(*p)->value);
+
+ mail_free_body_parameter(&(*p)->seen);
+ fs_give((void **) p);
+ }
+}
+
+
+int
+rfc2231_list_params(PARMLIST_S *plist)
+{
+ PARAMETER *pp, **ppp;
+ int i;
+
+ if(plist->value)
+ fs_give((void **) &plist->value);
+
+ for(pp = plist->list; pp; pp = pp->next){
+ /* get a name */
+ for(i = 0; i < 32; i++)
+ if(!(plist->attrib[i] = pp->attribute[i]) || pp->attribute[i] == '*'){
+ plist->attrib[i] = '\0';
+
+ for(ppp = &plist->seen;
+ *ppp && strucmp((*ppp)->attribute, plist->attrib);
+ ppp = &(*ppp)->next)
+ ;
+
+ if(!*ppp){
+ plist->list = pp->next;
+ *ppp = mail_newbody_parameter(); /* add to seen list */
+ (*ppp)->attribute = cpystr(plist->attrib);
+ plist->value = parameter_val(pp,plist->attrib);
+ return(TRUE);
+ }
+
+ break;
+ }
+
+ if(i >= 32)
+ q_status_message1(SM_ORDER | SM_DING, 0, 3,
+ "Overly long attachment parameter ignored: %.25s...",
+ pp->attribute);
+ }
+
+
+ return(FALSE);
+}
generated by cgit v1.2.3-70-g09d2 (git 2.47.0) at 2024-11-05 20:05:24 +0000