1 /***************************************************************************
2 * _ _ ____ _
3 * Project ___| | | | _ \| |
4 * / __| | | | |_) | |
5 * | (__| |_| | _ <| |___
6 * \___|\___/|_| \_\_____|
7 *
8 * Copyright (C) 1998 - 2015, Daniel Stenberg, <daniel@haxx.se>, et al.
9 *
10 * This software is licensed as described in the file COPYING, which
11 * you should have received as part of this distribution. The terms
12 * are also available at http://curl.haxx.se/docs/copyright.html.
13 *
14 * You may opt to use, copy, modify, merge, publish, distribute and/or sell
15 * copies of the Software, and permit persons to whom the Software is
16 * furnished to do so, under the terms of the COPYING file.
17 *
18 * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
19 * KIND, either express or implied.
20 *
21 *
22 ***************************************************************************/
23
24 /* CCSID API wrappers for OS/400. */
25
26 #include <iconv.h>
27 #include <string.h>
28 #include <stdlib.h>
29 #include <errno.h>
30 #include <stdarg.h>
31
32 #pragma enum(int)
33
34 #include "curl.h"
35 #include "mprintf.h"
36 #include "slist.h"
37 #include "urldata.h"
38 #include "url.h"
39 #include "getinfo.h"
40 #include "ccsidcurl.h"
41
42 #include "os400sys.h"
43
44 #ifndef SIZE_MAX
45 #define SIZE_MAX ((size_t) ~0) /* Is unsigned on OS/400. */
46 #endif
47
48
49 #define ASCII_CCSID 819 /* Use ISO-8859-1 as ASCII. */
50 #define NOCONV_CCSID 65535 /* No conversion. */
51 #define ICONV_ID_SIZE 32 /* Size of iconv_open() code identifier. */
52 #define ICONV_OPEN_ERROR(t) ((t).return_value == -1)
53
54 #define ALLOC_GRANULE 8 /* Alloc. granule for curl_formadd_ccsid(). */
55
56
57 static void
makeOS400IconvCode(char buf[ICONV_ID_SIZE],unsigned int ccsid)58 makeOS400IconvCode(char buf[ICONV_ID_SIZE], unsigned int ccsid)
59
60 {
61 /**
62 *** Convert a CCSID to the corresponding IBM iconv_open() character
63 *** code identifier.
64 *** This code is specific to the OS400 implementation of the iconv library.
65 *** CCSID 65535 (no conversion) is replaced by the ASCII CCSID.
66 *** CCSID 0 is interpreted by the OS400 as the job's CCSID.
67 **/
68
69 ccsid &= 0xFFFF;
70
71 if(ccsid == NOCONV_CCSID)
72 ccsid = ASCII_CCSID;
73
74 memset(buf, 0, ICONV_ID_SIZE);
75 curl_msprintf(buf, "IBMCCSID%05u0000000", ccsid);
76 }
77
78
79 static iconv_t
iconv_open_CCSID(unsigned int ccsidout,unsigned int ccsidin,unsigned int cstr)80 iconv_open_CCSID(unsigned int ccsidout, unsigned int ccsidin,
81 unsigned int cstr)
82
83 {
84 char fromcode[ICONV_ID_SIZE];
85 char tocode[ICONV_ID_SIZE];
86
87 /**
88 *** Like iconv_open(), but character codes are given as CCSIDs.
89 *** If `cstr' is non-zero, conversion is set up to stop whenever a
90 *** null character is encountered.
91 *** See iconv_open() IBM description in "National Language Support API".
92 **/
93
94 makeOS400IconvCode(fromcode, ccsidin);
95 makeOS400IconvCode(tocode, ccsidout);
96 memset(tocode + 13, 0, sizeof tocode - 13); /* Dest. code id format. */
97
98 if(cstr)
99 fromcode[18] = '1'; /* Set null-terminator flag. */
100
101 return iconv_open(tocode, fromcode);
102 }
103
104
105 static int
convert(char * d,size_t dlen,int dccsid,const char * s,int slen,int sccsid)106 convert(char * d, size_t dlen, int dccsid,
107 const char * s, int slen, int sccsid)
108
109 {
110 int i;
111 iconv_t cd;
112 size_t lslen;
113
114 /**
115 *** Convert `sccsid'-coded `slen'-data bytes at `s' into `dccsid'-coded
116 *** data stored in the `dlen'-byte buffer at `d'.
117 *** If `slen' < 0, source string is null-terminated.
118 *** CCSID 65535 (no conversion) is replaced by the ASCII CCSID.
119 *** Return the converted destination byte count, or -1 if error.
120 **/
121
122 if(sccsid == 65535)
123 sccsid = ASCII_CCSID;
124
125 if(dccsid == 65535)
126 dccsid = ASCII_CCSID;
127
128 if(sccsid == dccsid) {
129 lslen = slen >= 0? slen: strlen(s) + 1;
130 i = lslen < dlen? lslen: dlen;
131
132 if(s != d && i > 0)
133 memcpy(d, s, i);
134
135 return i;
136 }
137
138 if(slen < 0) {
139 lslen = 0;
140 cd = iconv_open_CCSID(dccsid, sccsid, 1);
141 }
142 else {
143 lslen = (size_t) slen;
144 cd = iconv_open_CCSID(dccsid, sccsid, 0);
145 }
146
147 if(ICONV_OPEN_ERROR(cd))
148 return -1;
149
150 i = dlen;
151
152 if((int) iconv(cd, (char * *) &s, &lslen, &d, &dlen) < 0)
153 i = -1;
154 else
155 i -= dlen;
156
157 iconv_close(cd);
158 return i;
159 }
160
161
162 static char *
dynconvert(int dccsid,const char * s,int slen,int sccsid)163 dynconvert(int dccsid, const char * s, int slen, int sccsid)
164
165 {
166 char * d;
167 char * cp;
168 size_t dlen;
169 int l;
170 static const char nullbyte = 0;
171
172 /* Like convert, but the destination is allocated and returned. */
173
174 dlen = (size_t) (slen < 0? strlen(s): slen) + 1;
175 dlen *= MAX_CONV_EXPANSION; /* Allow some expansion. */
176 d = malloc(dlen);
177
178 if(!d)
179 return (char *) NULL;
180
181 l = convert(d, dlen, dccsid, s, slen, sccsid);
182
183 if(l < 0) {
184 free(d);
185 return (char *) NULL;
186 }
187
188 if(slen < 0) {
189 /* Need to null-terminate even when source length is given.
190 Since destination code size is unknown, use a conversion to generate
191 terminator. */
192
193 int l2 = convert(d + l, dlen - l, dccsid, &nullbyte, -1, ASCII_CCSID);
194
195 if(l2 < 0) {
196 free(d);
197 return (char *) NULL;
198 }
199
200 l += l2;
201 }
202
203 if((size_t) l < dlen) {
204 cp = realloc(d, l); /* Shorten to minimum needed. */
205
206 if(cp)
207 d = cp;
208 }
209
210 return d;
211 }
212
213
214 static struct curl_slist *
slist_convert(int dccsid,struct curl_slist * from,int sccsid)215 slist_convert(int dccsid, struct curl_slist * from, int sccsid)
216
217 {
218 struct curl_slist * to = (struct curl_slist *) NULL;
219
220 for(; from; from = from->next) {
221 char * cp = dynconvert(dccsid, from->data, -1, sccsid);
222
223 if(!cp) {
224 curl_slist_free_all(to);
225 return (struct curl_slist *) NULL;
226 }
227 to = Curl_slist_append_nodup(to, cp);
228 }
229 return to;
230 }
231
232
233 char *
curl_version_ccsid(unsigned int ccsid)234 curl_version_ccsid(unsigned int ccsid)
235
236 {
237 int i;
238 char * aversion;
239 char * eversion;
240
241 aversion = curl_version();
242
243 if(!aversion)
244 return aversion;
245
246 i = strlen(aversion) + 1;
247 i *= MAX_CONV_EXPANSION;
248
249 if(!(eversion = Curl_thread_buffer(LK_CURL_VERSION, i)))
250 return (char *) NULL;
251
252 if(convert(eversion, i, ccsid, aversion, -1, ASCII_CCSID) < 0)
253 return (char *) NULL;
254
255 return eversion;
256 }
257
258
259 char *
curl_easy_escape_ccsid(CURL * handle,const char * string,int length,unsigned int sccsid,unsigned int dccsid)260 curl_easy_escape_ccsid(CURL * handle, const char * string, int length,
261 unsigned int sccsid, unsigned int dccsid)
262
263 {
264 char * s;
265 char * d;
266
267 if(!string) {
268 errno = EINVAL;
269 return (char *) NULL;
270 }
271
272 s = dynconvert(ASCII_CCSID, string, length? length: -1, sccsid);
273
274 if(!s)
275 return (char *) NULL;
276
277 d = curl_easy_escape(handle, s, 0);
278 free(s);
279
280 if(!d)
281 return (char *) NULL;
282
283 s = dynconvert(dccsid, d, -1, ASCII_CCSID);
284 free(d);
285 return s;
286 }
287
288
289 char *
curl_easy_unescape_ccsid(CURL * handle,const char * string,int length,int * outlength,unsigned int sccsid,unsigned int dccsid)290 curl_easy_unescape_ccsid(CURL * handle, const char * string, int length,
291 int * outlength,
292 unsigned int sccsid, unsigned int dccsid)
293
294 {
295 char * s;
296 char * d;
297
298 if(!string) {
299 errno = EINVAL;
300 return (char *) NULL;
301 }
302
303 s = dynconvert(ASCII_CCSID, string, length? length: -1, sccsid);
304
305 if(!s)
306 return (char *) NULL;
307
308 d = curl_easy_unescape(handle, s, 0, outlength);
309 free(s);
310
311 if(!d)
312 return (char *) NULL;
313
314 s = dynconvert(dccsid, d, -1, ASCII_CCSID);
315 free(d);
316
317 if(s && outlength)
318 *outlength = strlen(s);
319
320 return s;
321 }
322
323
324 struct curl_slist *
curl_slist_append_ccsid(struct curl_slist * list,const char * data,unsigned int ccsid)325 curl_slist_append_ccsid(struct curl_slist * list,
326 const char * data, unsigned int ccsid)
327
328 {
329 char * s;
330
331 s = (char *) NULL;
332
333 if(!data)
334 return curl_slist_append(list, data);
335
336 s = dynconvert(ASCII_CCSID, data, -1, ccsid);
337
338 if(!s)
339 return (struct curl_slist *) NULL;
340
341 list = curl_slist_append(list, s);
342 free(s);
343 return list;
344 }
345
346
347 time_t
curl_getdate_ccsid(const char * p,const time_t * unused,unsigned int ccsid)348 curl_getdate_ccsid(const char * p, const time_t * unused, unsigned int ccsid)
349
350 {
351 char * s;
352 time_t t;
353
354 if(!p)
355 return curl_getdate(p, unused);
356
357 s = dynconvert(ASCII_CCSID, p, -1, ccsid);
358
359 if(!s)
360 return (time_t) -1;
361
362 t = curl_getdate(s, unused);
363 free(s);
364 return t;
365 }
366
367
368 static int
convert_version_info_string(const char ** stringp,char ** bufp,int * left,unsigned int ccsid)369 convert_version_info_string(const char * * stringp,
370 char * * bufp, int * left, unsigned int ccsid)
371
372 {
373 /* Helper for curl_version_info_ccsid(): convert a string if defined.
374 Result is stored in the `*left'-byte buffer at `*bufp'.
375 `*bufp' and `*left' are updated accordingly.
376 Return 0 if ok, else -1. */
377
378 if(*stringp) {
379 int l = convert(*bufp, *left, ccsid, *stringp, -1, ASCII_CCSID);
380
381 if(l <= 0)
382 return -1;
383
384 *stringp = *bufp;
385 *bufp += l;
386 *left -= l;
387 }
388
389 return 0;
390 }
391
392
393 curl_version_info_data *
curl_version_info_ccsid(CURLversion stamp,unsigned int ccsid)394 curl_version_info_ccsid(CURLversion stamp, unsigned int ccsid)
395
396 {
397 curl_version_info_data * p;
398 char * cp;
399 int n;
400 int nproto;
401 curl_version_info_data * id;
402
403 /* The assertion below is possible, because although the second operand
404 is an enum member, the first is a #define. In that case, the OS/400 C
405 compiler seems to compare string values after substitution. */
406
407 #if CURLVERSION_NOW != CURLVERSION_FOURTH
408 #error curl_version_info_data structure has changed: upgrade this procedure.
409 #endif
410
411 /* If caller has been compiled with a new version, error. */
412
413 if(stamp > CURLVERSION_NOW)
414 return (curl_version_info_data *) NULL;
415
416 p = curl_version_info(stamp);
417
418 if(!p)
419 return p;
420
421 /* Measure thread space needed. */
422
423 n = 0;
424 nproto = 0;
425
426 if(p->protocols) {
427 while(p->protocols[nproto])
428 n += strlen(p->protocols[nproto++]);
429
430 n += nproto++;
431 }
432
433 if(p->version)
434 n += strlen(p->version) + 1;
435
436 if(p->host)
437 n += strlen(p->host) + 1;
438
439 if(p->ssl_version)
440 n += strlen(p->ssl_version) + 1;
441
442 if(p->libz_version)
443 n += strlen(p->libz_version) + 1;
444
445 if(p->ares)
446 n += strlen(p->ares) + 1;
447
448 if(p->libidn)
449 n += strlen(p->libidn) + 1;
450
451 if(p->libssh_version)
452 n += strlen(p->libssh_version) + 1;
453
454 /* Allocate thread space. */
455
456 n *= MAX_CONV_EXPANSION;
457
458 if(nproto)
459 n += nproto * sizeof(const char *);
460
461 cp = Curl_thread_buffer(LK_VERSION_INFO_DATA, n);
462 id = (curl_version_info_data *) Curl_thread_buffer(LK_VERSION_INFO,
463 sizeof *id);
464
465 if(!id || !cp)
466 return (curl_version_info_data *) NULL;
467
468 /* Copy data and convert strings. */
469
470 memcpy((char *) id, (char *) p, sizeof *p);
471
472 if(id->protocols) {
473 int i = nproto * sizeof id->protocols[0];
474
475 id->protocols = (const char * const *) cp;
476 memcpy(cp, (char *) p->protocols, i);
477 cp += i;
478 n -= i;
479
480 for(i = 0; id->protocols[i]; i++)
481 if(convert_version_info_string(((const char * *) id->protocols) + i,
482 &cp, &n, ccsid))
483 return (curl_version_info_data *) NULL;
484 }
485
486 if(convert_version_info_string(&id->version, &cp, &n, ccsid))
487 return (curl_version_info_data *) NULL;
488
489 if(convert_version_info_string(&id->host, &cp, &n, ccsid))
490 return (curl_version_info_data *) NULL;
491
492 if(convert_version_info_string(&id->ssl_version, &cp, &n, ccsid))
493 return (curl_version_info_data *) NULL;
494
495 if(convert_version_info_string(&id->libz_version, &cp, &n, ccsid))
496 return (curl_version_info_data *) NULL;
497
498 if(convert_version_info_string(&id->ares, &cp, &n, ccsid))
499 return (curl_version_info_data *) NULL;
500
501 if(convert_version_info_string(&id->libidn, &cp, &n, ccsid))
502 return (curl_version_info_data *) NULL;
503
504 if(convert_version_info_string(&id->libssh_version, &cp, &n, ccsid))
505 return (curl_version_info_data *) NULL;
506
507 return id;
508 }
509
510
511 const char *
curl_easy_strerror_ccsid(CURLcode error,unsigned int ccsid)512 curl_easy_strerror_ccsid(CURLcode error, unsigned int ccsid)
513
514 {
515 int i;
516 const char * s;
517 char * buf;
518
519 s = curl_easy_strerror(error);
520
521 if(!s)
522 return s;
523
524 i = MAX_CONV_EXPANSION * (strlen(s) + 1);
525
526 if(!(buf = Curl_thread_buffer(LK_EASY_STRERROR, i)))
527 return (const char *) NULL;
528
529 if(convert(buf, i, ccsid, s, -1, ASCII_CCSID) < 0)
530 return (const char *) NULL;
531
532 return (const char *) buf;
533 }
534
535
536 const char *
curl_share_strerror_ccsid(CURLSHcode error,unsigned int ccsid)537 curl_share_strerror_ccsid(CURLSHcode error, unsigned int ccsid)
538
539 {
540 int i;
541 const char * s;
542 char * buf;
543
544 s = curl_share_strerror(error);
545
546 if(!s)
547 return s;
548
549 i = MAX_CONV_EXPANSION * (strlen(s) + 1);
550
551 if(!(buf = Curl_thread_buffer(LK_SHARE_STRERROR, i)))
552 return (const char *) NULL;
553
554 if(convert(buf, i, ccsid, s, -1, ASCII_CCSID) < 0)
555 return (const char *) NULL;
556
557 return (const char *) buf;
558 }
559
560
561 const char *
curl_multi_strerror_ccsid(CURLMcode error,unsigned int ccsid)562 curl_multi_strerror_ccsid(CURLMcode error, unsigned int ccsid)
563
564 {
565 int i;
566 const char * s;
567 char * buf;
568
569 s = curl_multi_strerror(error);
570
571 if(!s)
572 return s;
573
574 i = MAX_CONV_EXPANSION * (strlen(s) + 1);
575
576 if(!(buf = Curl_thread_buffer(LK_MULTI_STRERROR, i)))
577 return (const char *) NULL;
578
579 if(convert(buf, i, ccsid, s, -1, ASCII_CCSID) < 0)
580 return (const char *) NULL;
581
582 return (const char *) buf;
583 }
584
585
586 void
curl_certinfo_free_all(struct curl_certinfo * info)587 curl_certinfo_free_all(struct curl_certinfo *info)
588
589 {
590 /* Free all memory used by certificate info. */
591 if(info) {
592 if(info->certinfo) {
593 int i;
594
595 for(i = 0; i < info->num_of_certs; i++)
596 curl_slist_free_all(info->certinfo[i]);
597 free((char *) info->certinfo);
598 }
599 free((char *) info);
600 }
601 }
602
603
604 CURLcode
curl_easy_getinfo_ccsid(CURL * curl,CURLINFO info,...)605 curl_easy_getinfo_ccsid(CURL * curl, CURLINFO info, ...)
606
607 {
608 va_list arg;
609 void * paramp;
610 CURLcode ret;
611 unsigned int ccsid;
612 char * * cpp;
613 struct SessionHandle * data;
614 struct curl_slist * * slp;
615 struct curl_certinfo * cipf;
616 struct curl_certinfo * cipt;
617
618 /* WARNING: unlike curl_easy_get_info(), the strings returned by this
619 procedure have to be free'ed. */
620
621 data = (struct SessionHandle *) curl;
622 va_start(arg, info);
623 paramp = va_arg(arg, void *);
624 ret = Curl_getinfo(data, info, paramp);
625
626 if(ret == CURLE_OK)
627 switch ((int) info & CURLINFO_TYPEMASK) {
628
629 case CURLINFO_STRING:
630 ccsid = va_arg(arg, unsigned int);
631 cpp = (char * *) paramp;
632
633 if(*cpp) {
634 *cpp = dynconvert(ccsid, *cpp, -1, ASCII_CCSID);
635
636 if(!*cpp)
637 ret = CURLE_OUT_OF_MEMORY;
638 }
639
640 break;
641
642 case CURLINFO_SLIST:
643 ccsid = va_arg(arg, unsigned int);
644 switch (info) {
645 case CURLINFO_CERTINFO:
646 cipf = *(struct curl_certinfo * *) paramp;
647 if(cipf) {
648 if(!(cipt = (struct curl_certinfo *) malloc(sizeof *cipt)))
649 ret = CURLE_OUT_OF_MEMORY;
650 else {
651 cipt->certinfo = (struct curl_slist * *)
652 calloc(cipf->num_of_certs +
653 1, sizeof(struct curl_slist *));
654 if(!cipt->certinfo)
655 ret = CURLE_OUT_OF_MEMORY;
656 else {
657 int i;
658
659 cipt->num_of_certs = cipf->num_of_certs;
660 for(i = 0; i < cipf->num_of_certs; i++)
661 if(cipf->certinfo[i])
662 if(!(cipt->certinfo[i] = slist_convert(ccsid,
663 cipf->certinfo[i],
664 ASCII_CCSID))) {
665 ret = CURLE_OUT_OF_MEMORY;
666 break;
667 }
668 }
669 }
670
671 if(ret != CURLE_OK) {
672 curl_certinfo_free_all(cipt);
673 cipt = (struct curl_certinfo *) NULL;
674 }
675
676 *(struct curl_certinfo * *) paramp = cipt;
677 }
678
679 break;
680
681 case CURLINFO_TLS_SESSION:
682 break;
683
684 default:
685 slp = (struct curl_slist * *) paramp;
686 if(*slp)
687 if(!(*slp = slist_convert(ccsid, *slp, ASCII_CCSID)))
688 ret = CURLE_OUT_OF_MEMORY;
689 break;
690 }
691 }
692
693 va_end(arg);
694 return ret;
695 }
696
697
698 static int
Curl_is_formadd_string(CURLformoption option)699 Curl_is_formadd_string(CURLformoption option)
700
701 {
702 switch (option) {
703
704 case CURLFORM_FILENAME:
705 case CURLFORM_CONTENTTYPE:
706 case CURLFORM_BUFFER:
707 case CURLFORM_FILE:
708 case CURLFORM_FILECONTENT:
709 case CURLFORM_COPYCONTENTS:
710 case CURLFORM_COPYNAME:
711 return 1;
712 }
713
714 return 0;
715 }
716
717
718 static void
Curl_formadd_release_local(struct curl_forms * forms,int nargs,int skip)719 Curl_formadd_release_local(struct curl_forms * forms, int nargs, int skip)
720
721 {
722 while(nargs--)
723 if(nargs != skip)
724 if(Curl_is_formadd_string(forms[nargs].option))
725 if(forms[nargs].value)
726 free((char *) forms[nargs].value);
727
728 free((char *) forms);
729 }
730
731
732 static int
Curl_formadd_convert(struct curl_forms * forms,int formx,int lengthx,unsigned int ccsid)733 Curl_formadd_convert(struct curl_forms * forms,
734 int formx, int lengthx, unsigned int ccsid)
735
736 {
737 int l;
738 char * cp;
739 char * cp2;
740
741 if(formx < 0 || !forms[formx].value)
742 return 0;
743
744 if(lengthx >= 0)
745 l = (int) forms[lengthx].value;
746 else
747 l = strlen(forms[formx].value) + 1;
748
749 cp = malloc(MAX_CONV_EXPANSION * l);
750
751 if(!cp)
752 return -1;
753
754 l = convert(cp, MAX_CONV_EXPANSION * l, ASCII_CCSID,
755 forms[formx].value, l, ccsid);
756
757 if(l < 0) {
758 free(cp);
759 return -1;
760 }
761
762 cp2 = realloc(cp, l); /* Shorten buffer to the string size. */
763
764 if(cp2)
765 cp = cp2;
766
767 forms[formx].value = cp;
768
769 if(lengthx >= 0)
770 forms[lengthx].value = (char *) l; /* Update length after conversion. */
771
772 return l;
773 }
774
775
776 CURLFORMcode
curl_formadd_ccsid(struct curl_httppost ** httppost,struct curl_httppost ** last_post,...)777 curl_formadd_ccsid(struct curl_httppost * * httppost,
778 struct curl_httppost * * last_post, ...)
779
780 {
781 va_list arg;
782 CURLformoption option;
783 CURLFORMcode result;
784 struct curl_forms * forms;
785 struct curl_forms * lforms;
786 struct curl_forms * tforms;
787 unsigned int lformlen;
788 const char * value;
789 unsigned int ccsid;
790 int nargs;
791 int namex;
792 int namelengthx;
793 int contentx;
794 int lengthx;
795 unsigned int contentccsid;
796 unsigned int nameccsid;
797
798 /* A single curl_formadd() call cannot be splitted in several calls to deal
799 with all parameters: the original parameters are thus copied to a local
800 curl_forms array and converted to ASCII when needed.
801 CURLFORM_PTRNAME is processed as if it were CURLFORM_COPYNAME.
802 CURLFORM_COPYNAME and CURLFORM_NAMELENGTH occurrence order in
803 parameters is not defined; for this reason, the actual conversion is
804 delayed to the end of parameter processing. The same applies to
805 CURLFORM_COPYCONTENTS/CURLFORM_CONTENTSLENGTH, but these may appear
806 several times in the parameter list; the problem resides here in knowing
807 which CURLFORM_CONTENTSLENGTH applies to which CURLFORM_COPYCONTENTS and
808 when we can be sure to have both info for conversion: end of parameter
809 list is such a point, but CURLFORM_CONTENTTYPE is also used here as a
810 natural separator between content data definitions; this seems to be
811 in accordance with FormAdd() behavior. */
812
813 /* Allocate the local curl_forms array. */
814
815 lformlen = ALLOC_GRANULE;
816 lforms = malloc(lformlen * sizeof *lforms);
817
818 if(!lforms)
819 return CURL_FORMADD_MEMORY;
820
821 /* Process the arguments, copying them into local array, latching conversion
822 indexes and converting when needed. */
823
824 result = CURL_FORMADD_OK;
825 nargs = 0;
826 contentx = -1;
827 lengthx = -1;
828 namex = -1;
829 namelengthx = -1;
830 forms = (struct curl_forms *) NULL;
831 va_start(arg, last_post);
832
833 for(;;) {
834 /* Make sure there is still room for an item in local array. */
835
836 if(nargs >= lformlen) {
837 lformlen += ALLOC_GRANULE;
838 tforms = realloc(lforms, lformlen * sizeof *lforms);
839
840 if(!tforms) {
841 result = CURL_FORMADD_MEMORY;
842 break;
843 }
844
845 lforms = tforms;
846 }
847
848 /* Get next option. */
849
850 if(forms) {
851 /* Get option from array. */
852
853 option = forms->option;
854 value = forms->value;
855 forms++;
856 }
857 else {
858 /* Get option from arguments. */
859
860 option = va_arg(arg, CURLformoption);
861
862 if(option == CURLFORM_END)
863 break;
864 }
865
866 /* Dispatch by option. */
867
868 switch (option) {
869
870 case CURLFORM_END:
871 forms = (struct curl_forms *) NULL; /* Leave array mode. */
872 continue;
873
874 case CURLFORM_ARRAY:
875 if(!forms) {
876 forms = va_arg(arg, struct curl_forms *);
877 continue;
878 }
879
880 result = CURL_FORMADD_ILLEGAL_ARRAY;
881 break;
882
883 case CURLFORM_COPYNAME:
884 option = CURLFORM_PTRNAME; /* Static for now. */
885
886 case CURLFORM_PTRNAME:
887 if(namex >= 0)
888 result = CURL_FORMADD_OPTION_TWICE;
889
890 namex = nargs;
891
892 if(!forms) {
893 value = va_arg(arg, char *);
894 nameccsid = (unsigned int) va_arg(arg, long);
895 }
896 else {
897 nameccsid = (unsigned int) forms->value;
898 forms++;
899 }
900
901 break;
902
903 case CURLFORM_COPYCONTENTS:
904 if(contentx >= 0)
905 result = CURL_FORMADD_OPTION_TWICE;
906
907 contentx = nargs;
908
909 if(!forms) {
910 value = va_arg(arg, char *);
911 contentccsid = (unsigned int) va_arg(arg, long);
912 }
913 else {
914 contentccsid = (unsigned int) forms->value;
915 forms++;
916 }
917
918 break;
919
920 case CURLFORM_PTRCONTENTS:
921 case CURLFORM_BUFFERPTR:
922 if(!forms)
923 value = va_arg(arg, char *); /* No conversion. */
924
925 break;
926
927 case CURLFORM_CONTENTSLENGTH:
928 lengthx = nargs;
929
930 if(!forms)
931 value = (char *) va_arg(arg, long);
932
933 break;
934
935 case CURLFORM_NAMELENGTH:
936 namelengthx = nargs;
937
938 if(!forms)
939 value = (char *) va_arg(arg, long);
940
941 break;
942
943 case CURLFORM_BUFFERLENGTH:
944 if(!forms)
945 value = (char *) va_arg(arg, long);
946
947 break;
948
949 case CURLFORM_CONTENTHEADER:
950 if(!forms)
951 value = (char *) va_arg(arg, struct curl_slist *);
952
953 break;
954
955 case CURLFORM_STREAM:
956 if(!forms)
957 value = (char *) va_arg(arg, void *);
958
959 break;
960
961 case CURLFORM_CONTENTTYPE:
962 /* If a previous content has been encountered, convert it now. */
963
964 if(Curl_formadd_convert(lforms, contentx, lengthx, contentccsid) < 0) {
965 result = CURL_FORMADD_MEMORY;
966 break;
967 }
968
969 contentx = -1;
970 lengthx = -1;
971 /* Fall into default. */
972
973 default:
974 /* Must be a convertible string. */
975
976 if(!Curl_is_formadd_string(option)) {
977 result = CURL_FORMADD_UNKNOWN_OPTION;
978 break;
979 }
980
981 if(!forms) {
982 value = va_arg(arg, char *);
983 ccsid = (unsigned int) va_arg(arg, long);
984 }
985 else {
986 ccsid = (unsigned int) forms->value;
987 forms++;
988 }
989
990 /* Do the conversion. */
991
992 lforms[nargs].value = value;
993
994 if(Curl_formadd_convert(lforms, nargs, -1, ccsid) < 0) {
995 result = CURL_FORMADD_MEMORY;
996 break;
997 }
998
999 value = lforms[nargs].value;
1000 }
1001
1002 if(result != CURL_FORMADD_OK)
1003 break;
1004
1005 lforms[nargs].value = value;
1006 lforms[nargs++].option = option;
1007 }
1008
1009 va_end(arg);
1010
1011 /* Convert the name and the last content, now that we know their lengths. */
1012
1013 if(result == CURL_FORMADD_OK && namex >= 0) {
1014 if(Curl_formadd_convert(lforms, namex, namelengthx, nameccsid) < 0)
1015 result = CURL_FORMADD_MEMORY;
1016 else
1017 lforms[namex].option = CURLFORM_COPYNAME; /* Force copy. */
1018 }
1019
1020 if(result == CURL_FORMADD_OK) {
1021 if(Curl_formadd_convert(lforms, contentx, lengthx, contentccsid) < 0)
1022 result = CURL_FORMADD_MEMORY;
1023 else
1024 contentx = -1;
1025 }
1026
1027 /* Do the formadd with our converted parameters. */
1028
1029 if(result == CURL_FORMADD_OK) {
1030 lforms[nargs].option = CURLFORM_END;
1031 result = curl_formadd(httppost, last_post,
1032 CURLFORM_ARRAY, lforms, CURLFORM_END);
1033 }
1034
1035 /* Terminate. */
1036
1037 Curl_formadd_release_local(lforms, nargs, contentx);
1038 return result;
1039 }
1040
1041
1042 typedef struct {
1043 curl_formget_callback append;
1044 void * arg;
1045 unsigned int ccsid;
1046 } cfcdata;
1047
1048
1049 static size_t
Curl_formget_callback_ccsid(void * arg,const char * buf,size_t len)1050 Curl_formget_callback_ccsid(void * arg, const char * buf, size_t len)
1051
1052 {
1053 cfcdata * p;
1054 char * b;
1055 int l;
1056 size_t ret;
1057
1058 p = (cfcdata *) arg;
1059
1060 if((long) len <= 0)
1061 return (*p->append)(p->arg, buf, len);
1062
1063 b = malloc(MAX_CONV_EXPANSION * len);
1064
1065 if(!b)
1066 return (size_t) -1;
1067
1068 l = convert(b, MAX_CONV_EXPANSION * len, p->ccsid, buf, len, ASCII_CCSID);
1069
1070 if(l < 0) {
1071 free(b);
1072 return (size_t) -1;
1073 }
1074
1075 ret = (*p->append)(p->arg, b, l);
1076 free(b);
1077 return ret == l? len: -1;
1078 }
1079
1080
1081 int
curl_formget_ccsid(struct curl_httppost * form,void * arg,curl_formget_callback append,unsigned int ccsid)1082 curl_formget_ccsid(struct curl_httppost * form, void * arg,
1083 curl_formget_callback append, unsigned int ccsid)
1084
1085 {
1086 cfcdata lcfc;
1087
1088 lcfc.append = append;
1089 lcfc.arg = arg;
1090 lcfc.ccsid = ccsid;
1091 return curl_formget(form, (void *) &lcfc, Curl_formget_callback_ccsid);
1092 }
1093
1094
1095 CURLcode
curl_easy_setopt_ccsid(CURL * curl,CURLoption tag,...)1096 curl_easy_setopt_ccsid(CURL * curl, CURLoption tag, ...)
1097
1098 {
1099 CURLcode result;
1100 va_list arg;
1101 struct SessionHandle * data;
1102 char * s;
1103 char * cp;
1104 unsigned int ccsid;
1105 curl_off_t pfsize;
1106 static char testwarn = 1;
1107
1108 /* Warns if this procedure has not been updated when the dupstring enum
1109 changes.
1110 We (try to) do it only once: there is no need to issue several times
1111 the same message; but since threadsafeness is not handled here,
1112 this may occur (and we don't care!). */
1113
1114 if(testwarn) {
1115 testwarn = 0;
1116
1117 if((int) STRING_LASTZEROTERMINATED != (int) STRING_UNIX_SOCKET_PATH + 1 ||
1118 (int) STRING_LAST != (int) STRING_COPYPOSTFIELDS + 1)
1119 curl_mfprintf(stderr,
1120 "*** WARNING: curl_easy_setopt_ccsid() should be reworked ***\n");
1121 }
1122
1123 data = (struct SessionHandle *) curl;
1124 va_start(arg, tag);
1125
1126 switch (tag) {
1127
1128 case CURLOPT_CAINFO:
1129 case CURLOPT_CAPATH:
1130 case CURLOPT_COOKIE:
1131 case CURLOPT_COOKIEFILE:
1132 case CURLOPT_COOKIEJAR:
1133 case CURLOPT_COOKIELIST:
1134 case CURLOPT_CRLFILE:
1135 case CURLOPT_CUSTOMREQUEST:
1136 case CURLOPT_DNS_SERVERS:
1137 case CURLOPT_EGDSOCKET:
1138 case CURLOPT_ENCODING:
1139 case CURLOPT_FTP_ACCOUNT:
1140 case CURLOPT_FTP_ALTERNATIVE_TO_USER:
1141 case CURLOPT_FTPPORT:
1142 case CURLOPT_INTERFACE:
1143 case CURLOPT_ISSUERCERT:
1144 case CURLOPT_KEYPASSWD:
1145 case CURLOPT_KRBLEVEL:
1146 case CURLOPT_LOGIN_OPTIONS:
1147 case CURLOPT_MAIL_FROM:
1148 case CURLOPT_MAIL_AUTH:
1149 case CURLOPT_NETRC_FILE:
1150 case CURLOPT_NOPROXY:
1151 case CURLOPT_PASSWORD:
1152 case CURLOPT_PINNEDPUBLICKEY:
1153 case CURLOPT_PROXY:
1154 case CURLOPT_PROXYPASSWORD:
1155 case CURLOPT_PROXYUSERNAME:
1156 case CURLOPT_PROXYUSERPWD:
1157 case CURLOPT_PROXY_SERVICE_NAME:
1158 case CURLOPT_RANDOM_FILE:
1159 case CURLOPT_RANGE:
1160 case CURLOPT_REFERER:
1161 case CURLOPT_RTSP_SESSION_ID:
1162 case CURLOPT_RTSP_STREAM_URI:
1163 case CURLOPT_RTSP_TRANSPORT:
1164 case CURLOPT_SERVICE_NAME:
1165 case CURLOPT_SOCKS5_GSSAPI_SERVICE:
1166 case CURLOPT_SSH_HOST_PUBLIC_KEY_MD5:
1167 case CURLOPT_SSH_KNOWNHOSTS:
1168 case CURLOPT_SSH_PRIVATE_KEYFILE:
1169 case CURLOPT_SSH_PUBLIC_KEYFILE:
1170 case CURLOPT_SSLCERT:
1171 case CURLOPT_SSLCERTTYPE:
1172 case CURLOPT_SSL_CIPHER_LIST:
1173 case CURLOPT_SSLENGINE:
1174 case CURLOPT_SSLKEY:
1175 case CURLOPT_SSLKEYTYPE:
1176 case CURLOPT_TLSAUTH_PASSWORD:
1177 case CURLOPT_TLSAUTH_TYPE:
1178 case CURLOPT_TLSAUTH_USERNAME:
1179 case CURLOPT_UNIX_SOCKET_PATH:
1180 case CURLOPT_URL:
1181 case CURLOPT_USERAGENT:
1182 case CURLOPT_USERNAME:
1183 case CURLOPT_USERPWD:
1184 case CURLOPT_XOAUTH2_BEARER:
1185 s = va_arg(arg, char *);
1186 ccsid = va_arg(arg, unsigned int);
1187
1188 if(s) {
1189 s = dynconvert(ASCII_CCSID, s, -1, ccsid);
1190
1191 if(!s) {
1192 result = CURLE_OUT_OF_MEMORY;
1193 break;
1194 }
1195 }
1196
1197 result = curl_easy_setopt(curl, tag, s);
1198 free(s);
1199 break;
1200
1201 case CURLOPT_COPYPOSTFIELDS:
1202 /* Special case: byte count may have been given by CURLOPT_POSTFIELDSIZE
1203 prior to this call. In this case, convert the given byte count and
1204 replace the length according to the conversion result. */
1205 s = va_arg(arg, char *);
1206 ccsid = va_arg(arg, unsigned int);
1207
1208 pfsize = data->set.postfieldsize;
1209
1210 if(!s || !pfsize || ccsid == NOCONV_CCSID || ccsid == ASCII_CCSID) {
1211 result = curl_easy_setopt(curl, CURLOPT_COPYPOSTFIELDS, s);
1212 break;
1213 }
1214
1215 if(pfsize == -1) {
1216 /* Data is null-terminated. */
1217 s = dynconvert(ASCII_CCSID, s, -1, ccsid);
1218
1219 if(!s) {
1220 result = CURLE_OUT_OF_MEMORY;
1221 break;
1222 }
1223 }
1224 else {
1225 /* Data length specified. */
1226 size_t len;
1227
1228 if(pfsize < 0 || pfsize > SIZE_MAX) {
1229 result = CURLE_OUT_OF_MEMORY;
1230 break;
1231 }
1232
1233 len = pfsize;
1234 pfsize = len * MAX_CONV_EXPANSION;
1235
1236 if(pfsize > SIZE_MAX)
1237 pfsize = SIZE_MAX;
1238
1239 cp = malloc(pfsize);
1240
1241 if(!cp) {
1242 result = CURLE_OUT_OF_MEMORY;
1243 break;
1244 }
1245
1246 pfsize = convert(cp, pfsize, ASCII_CCSID, s, len, ccsid);
1247
1248 if(pfsize < 0) {
1249 free(cp);
1250 result = CURLE_OUT_OF_MEMORY;
1251 break;
1252 }
1253
1254 data->set.postfieldsize = pfsize; /* Replace data size. */
1255 s = cp;
1256 }
1257
1258 result = curl_easy_setopt(curl, CURLOPT_POSTFIELDS, s);
1259 data->set.str[STRING_COPYPOSTFIELDS] = s; /* Give to library. */
1260 break;
1261
1262 case CURLOPT_ERRORBUFFER: /* This is an output buffer. */
1263 default:
1264 result = Curl_setopt(data, tag, arg);
1265 break;
1266 }
1267
1268 va_end(arg);
1269 return result;
1270 }
1271
1272
1273 char *
curl_form_long_value(long value)1274 curl_form_long_value(long value)
1275
1276 {
1277 /* ILE/RPG cannot cast an integer to a pointer. This procedure does it. */
1278
1279 return (char *) value;
1280 }
1281