2 // Message base functions
4 // Copyright (c) 1996-2022 by the citadel.org team
6 // This program is open source software. Use, duplication, or
7 // disclosure are subject to the GNU General Public License v3.
12 // Given an encoded UID, translate that to an unencoded Citadel EUID and
13 // then search for it in the current room. Return a message number or -1
15 long locate_message_by_uid(struct ctdlsession *c, char *uid) {
18 ctdl_printf(c, "EUID %s", uid);
19 ctdl_readline(c, buf, sizeof buf);
21 return (atol(&buf[4]));
25 // Ugly hack to handle Mozilla Thunderbird, try stripping ".ics" if present
26 if (!strcasecmp(&uid[strlen(uid) - 4], ".ics")) {
27 safestrncpy(buf, uid, sizeof buf);
28 buf[strlen(buf) - 4] = 0;
29 ctdl_printf(c, "EUID %s", buf);
30 ctdl_readline(c, buf, sizeof buf);
32 return (atol(&buf[4]));
41 // DAV delete an object in a room.
42 void dav_delete_message(struct http_transaction *h, struct ctdlsession *c, long msgnum) {
43 ctdl_delete_msgs(c, &msgnum, 1);
44 h->response_code = 204;
45 h->response_string = strdup("no content");
49 // DAV move or copy an object in a room.
50 void dav_move_or_copy_message(struct http_transaction *h, struct ctdlsession *c, long msgnum, int move_or_copy) {
55 // GET method directly on a message in a room
56 void dav_get_message(struct http_transaction *h, struct ctdlsession *c, long msgnum) {
62 ctdl_printf(c, "MSG2 %ld", msgnum);
63 ctdl_readline(c, buf, sizeof buf);
69 char *etag = malloc(20);
71 sprintf(etag, "%ld", msgnum);
72 add_response_header(h, strdup("ETag"), etag); // http_transaction now owns this memory
75 while (ctdl_readline(c, buf, sizeof buf), strcmp(buf, "000")) {
76 if (IsEmptyStr(buf) && (in_body == 0)) {
80 else if (in_body == 0) {
82 char *v = strchr(buf, ':');
86 string_trim(v); // we now have a key (k) and a value (v)
87 if ((!strcasecmp(k, "content-type")) // fields which can be passed from RFC822 to HTTP as-is
88 || (!strcasecmp(k, "date"))
90 add_response_header(h, strdup(k), strdup(v));
92 else if (!strcasecmp(k, "content-transfer-encoding")) {
93 if (!strcasecmp(v, "base64")) {
96 else if (!strcasecmp(v, "quoted-printable")) {
102 else if ((in_body == 1) && (Body != NULL)) {
103 StrBufAppendPrintf(Body, "%s\n", buf);
107 h->response_code = 200;
108 h->response_string = strdup("OK");
111 if (encoding == 'q') {
112 h->response_body = malloc(StrLength(Body));
113 if (h->response_body != NULL) {
114 h->response_body_length =
115 CtdlDecodeQuotedPrintable(h->response_body, (char *) ChrPtr(Body), StrLength(Body));
119 else if (encoding == 'b') {
120 h->response_body = malloc(StrLength(Body));
121 if (h->response_body != NULL) {
122 h->response_body_length = CtdlDecodeBase64(h->response_body, ChrPtr(Body), StrLength(Body));
127 h->response_body_length = StrLength(Body);
128 h->response_body = SmashStrBuf(&Body);
134 // PUT a message into a room
135 void dav_put_message(struct http_transaction *h, struct ctdlsession *c, char *euid, long old_msgnum) {
137 char *content_type = NULL;
141 char response_string[1024];
143 if ((h->request_body == NULL) || (h->request_body_length < 1)) {
144 do_404(h); // Refuse to post a null message
148 // Extract metadata from the URL
149 char *wefw = get_url_param(h, "wefw"); // References:
150 if (!wefw) wefw = "";
151 char *subj = get_url_param(h, "subj"); // Subject:
152 if (!subj) subj = "";
153 char *mailto = get_url_param(h, "mailto"); // To:
154 if (!mailto) mailto = "";
155 char *mailcc = get_url_param(h, "mailcc"); // Cc:
156 if (!mailcc) mailcc = "";
157 char *mailbcc = get_url_param(h, "mailbcc"); // Bcc:
158 if (!mailbcc) mailbcc = "";
160 // Mode 4 will give us metadata back after upload
161 ctdl_printf(c, "ENT0 1|%s||4|%s||1|%s|%s|||%s|", mailto, subj, mailcc, mailbcc, wefw);
162 ctdl_readline(c, buf, sizeof buf);
164 h->response_code = 502;
165 h->response_string = strdup("bad gateway");
166 add_response_header(h, strdup("Content-type"), strdup("text/plain"));
167 h->response_body = strdup(buf);
168 h->response_body_length = strlen(h->response_body);
172 // Remember, ctdl_printf() appends \n on its own, so when adding a CRLF newline, only use \r
173 // Or for a blank line, use ctdl_write() with \r\n
175 content_type = header_val(h, "Content-type");
176 ctdl_printf(c, "Content-type: %s\r", (content_type ? content_type : "application/octet-stream"));
177 ctdl_write(c, HKEY("\r\n"));
178 ctdl_write(c, h->request_body, h->request_body_length);
179 if (h->request_body[h->request_body_length] != '\n') {
180 ctdl_write(c, HKEY("\r\n"));
182 ctdl_printf(c, "000");
184 // Now handle the response from the Citadel server.
188 strcpy(new_euid, "");
189 strcpy(response_string, "");
191 while (ctdl_readline(c, buf, sizeof buf), strcmp(buf, "000"))
194 new_msgnum = atol(buf);
197 safestrncpy(response_string, buf, sizeof response_string);
198 syslog(LOG_DEBUG, "new_msgnum=%ld (%s)\n", new_msgnum, buf);
201 safestrncpy(new_euid, buf, sizeof new_euid);
207 // Tell the client what happened.
209 // Citadel failed in some way?
210 char *new_location = malloc(1024);
211 if ((new_msgnum < 0L) || (new_location == NULL)) {
212 h->response_code = 502;
213 h->response_string = strdup("bad gateway");
214 add_response_header(h, strdup("Content-type"), strdup("text/plain"));
215 h->response_body = strdup(response_string);
216 h->response_body_length = strlen(h->response_body);
220 char *etag = malloc(20);
222 sprintf(etag, "%ld", new_msgnum);
223 add_response_header(h, strdup("ETag"), etag); // http_transaction now owns this memory
228 urlesc(esc_room, sizeof esc_room, c->room);
229 urlesc(esc_euid, sizeof esc_euid, new_euid);
230 snprintf(new_location, 1024, "/ctdl/r/%s/%s", esc_room, esc_euid);
231 add_response_header(h, strdup("Location"), new_location); // http_transaction now owns this memory
233 if (old_msgnum <= 0) {
234 h->response_code = 201; // We created this item for the first time.
235 h->response_string = strdup("created");
238 h->response_code = 204; // We modified an existing item.
239 h->response_string = strdup("no content");
241 // The item we replaced has probably already been deleted by
242 // the Citadel server, but we'll do this anyway, just in case.
243 ctdl_delete_msgs(c, &old_msgnum, 1);
249 // Download a single component of a MIME-encoded message
250 void download_mime_component(struct http_transaction *h, struct ctdlsession *c, long msgnum, char *partnum) {
252 char content_type[1024];
254 ctdl_printf(c, "DLAT %ld|%s", msgnum, partnum);
255 ctdl_readline(c, buf, sizeof buf);
257 do_404(h); // too bad, so sad, go away
259 // Server response is going to be: 6XX length|-1|filename|content-type|charset
260 h->response_body_length = extract_int(&buf[4], 0);
261 extract_token(content_type, buf, 3, '|', sizeof content_type);
263 h->response_body = malloc(h->response_body_length + 1);
267 thisblock = read(c->sock, &h->response_body[bytes], (h->response_body_length - bytes));
269 syslog(LOG_DEBUG, "Bytes read: %d of %d", (int) bytes, (int) h->response_body_length);
270 } while ((bytes < h->response_body_length) && (thisblock >= 0));
271 h->response_body[h->response_body_length] = 0; // null terminate it just for good measure
272 syslog(LOG_DEBUG, "content type: %s", content_type);
274 add_response_header(h, strdup("Content-type"), strdup(content_type));
275 h->response_code = 200;
276 h->response_string = strdup("OK");