2c90d565c1818ae91154c0c4a45ceca672b5070b
[exim.git] / test / src / client.c
1 /* A little hacked up program that makes a TCP/IP call and reads a script to
2 drive it, for testing Exim server code running as a daemon. It's got a bit
3 messy with the addition of support for either OpenSSL or GnuTLS. The code for
4 those was hacked out of Exim itself, then code for OpenSSL OCSP stapling was
5 ripped from the openssl ocsp and s_client utilities. */
6
7 /* ANSI C standard includes */
8
9 #include <ctype.h>
10 #include <signal.h>
11 #include <stdarg.h>
12 #include <stddef.h>
13 #include <stdio.h>
14 #include <stdlib.h>
15 #include <string.h>
16 #include <time.h>
17
18 /* Unix includes */
19
20 #include <errno.h>
21 #include <dirent.h>
22 #include <sys/types.h>
23
24 #include <netinet/in_systm.h>
25 #include <netinet/in.h>
26 #include <netinet/ip.h>
27 #include <netinet/tcp.h>
28
29 #include <netdb.h>
30 #include <arpa/inet.h>
31 #include <sys/time.h>
32 #include <sys/resource.h>
33 #include <sys/socket.h>
34 #include <sys/stat.h>
35 #include <fcntl.h>
36 #include <unistd.h>
37 #include <utime.h>
38
39 #ifdef AF_INET6
40 #define HAVE_IPV6 1
41 #endif
42
43 #ifndef S_ADDR_TYPE
44 #define S_ADDR_TYPE u_long
45 #endif
46
47 typedef unsigned char uschar;
48
49 #define CS (char *)
50 #define US (unsigned char *)
51
52 #define FALSE 0
53 #define TRUE 1
54
55
56
57 static int sigalrm_seen = 0;
58
59
60 /* TLS support can be optionally included, either for OpenSSL or GnuTLS. The
61 latter needs a whole pile of tables. */
62 #ifdef HAVE_OPENSSL
63 # define HAVE_TLS
64 # include <openssl/crypto.h>
65 # include <openssl/x509.h>
66 # include <openssl/pem.h>
67 # include <openssl/ssl.h>
68 # include <openssl/err.h>
69 # include <openssl/rand.h>
70
71 # if OPENSSL_VERSION_NUMBER < 0x0090806fL && !defined(DISABLE_OCSP) && !defined(OPENSSL_NO_TLSEXT)
72 # warning "OpenSSL library version too old; define DISABLE_OCSP in Makefile"
73 # define DISABLE_OCSP
74 # endif
75 # ifndef DISABLE_OCSP
76 # include <openssl/ocsp.h>
77 # endif
78 #endif
79
80
81 #ifdef HAVE_GNUTLS
82 # define HAVE_TLS
83 # include <gnutls/gnutls.h>
84 # include <gnutls/x509.h>
85 # if GNUTLS_VERSION_NUMBER >= 0x030103
86 # define HAVE_OCSP
87 # include <gnutls/ocsp.h>
88 # endif
89 # ifndef GNUTLS_NO_EXTENSIONS
90 # define GNUTLS_NO_EXTENSIONS 0
91 # endif
92
93 # define DH_BITS 768
94
95 /* Local static variables for GNUTLS */
96
97 static gnutls_dh_params_t dh_params = NULL;
98
99 static gnutls_certificate_credentials_t x509_cred = NULL;
100 static gnutls_session_t tls_session = NULL;
101
102 static int ssl_session_timeout = 200;
103
104 /* Priorities for TLS algorithms to use. */
105
106 #if GNUTLS_VERSION_NUMBER < 0x030400
107 static const int protocol_priority[16] = { GNUTLS_TLS1, GNUTLS_SSL3, 0 };
108
109 static const int kx_priority[16] = {
110 GNUTLS_KX_RSA,
111 GNUTLS_KX_DHE_DSS,
112 GNUTLS_KX_DHE_RSA,
113 0 };
114
115 static int default_cipher_priority[16] = {
116 GNUTLS_CIPHER_AES_256_CBC,
117 GNUTLS_CIPHER_AES_128_CBC,
118 GNUTLS_CIPHER_3DES_CBC,
119 GNUTLS_CIPHER_ARCFOUR_128,
120 0 };
121
122 static const int mac_priority[16] = {
123 GNUTLS_MAC_SHA,
124 GNUTLS_MAC_MD5,
125 0 };
126
127 static const int comp_priority[16] = { GNUTLS_COMP_NULL, 0 };
128 #endif
129
130 #endif /*HAVE_GNUTLS*/
131
132
133
134 #ifdef HAVE_TLS
135 char * ocsp_stapling = NULL;
136 #endif
137
138
139 /*************************************************
140 * SIGALRM handler - crash out *
141 *************************************************/
142
143 static void
144 sigalrm_handler_crash(int sig)
145 {
146 sig = sig; /* Keep picky compilers happy */
147 printf("\nClient timed out\n");
148 exit(99);
149 }
150
151
152 /*************************************************
153 * SIGALRM handler - set flag *
154 *************************************************/
155
156 static void
157 sigalrm_handler_flag(int sig)
158 {
159 sig = sig; /* Keep picky compilers happy */
160 sigalrm_seen = 1;
161 }
162
163
164
165 /****************************************************************************/
166 /****************************************************************************/
167
168 #ifdef HAVE_OPENSSL
169 # ifndef DISABLE_OCSP
170
171 static STACK_OF(X509) *
172 chain_from_pem_file(const uschar * file)
173 {
174 BIO * bp;
175 X509 * x;
176 STACK_OF(X509) * sk;
177
178 if (!(sk = sk_X509_new_null())) return NULL;
179 if (!(bp = BIO_new_file(CS file, "r"))) return NULL;
180 while ((x = PEM_read_bio_X509(bp, NULL, 0, NULL)))
181 sk_X509_push(sk, x);
182 BIO_free(bp);
183 return sk;
184 }
185
186
187
188 static void
189 cert_stack_free(STACK_OF(X509) * sk)
190 {
191 while (sk_X509_num(sk) > 0) (void) sk_X509_pop(sk);
192 sk_X509_free(sk);
193 }
194
195
196 static int
197 tls_client_stapling_cb(SSL *s, void *arg)
198 {
199 const unsigned char *p;
200 int len;
201 OCSP_RESPONSE *rsp;
202 OCSP_BASICRESP *bs;
203 STACK_OF(X509) * sk;
204 int ret = 1;
205
206 len = SSL_get_tlsext_status_ocsp_resp(s, &p);
207 /*BIO_printf(arg, "OCSP response: ");*/
208 if (!p)
209 {
210 BIO_printf(arg, "no response received\n");
211 return 1;
212 }
213 if(!(rsp = d2i_OCSP_RESPONSE(NULL, &p, len)))
214 {
215 BIO_printf(arg, "response parse error\n");
216 BIO_dump_indent(arg, (char *)p, len, 4);
217 return 0;
218 }
219 if(!(bs = OCSP_response_get1_basic(rsp)))
220 {
221 BIO_printf(arg, "error parsing response\n");
222 return 0;
223 }
224
225
226 if (!(sk = chain_from_pem_file(ocsp_stapling)))
227 {
228 BIO_printf(arg, "error in cert setup\n");
229 return 0;
230 }
231
232 /* OCSP_basic_verify takes a "store" arg, but does not
233 use it for the chain verification, which is all we do
234 when OCSP_NOVERIFY is set. The content from the wire
235 (in "bs") and a cert-stack "sk" are all that is used. */
236
237 if(OCSP_basic_verify(bs, sk, NULL, OCSP_NOVERIFY) <= 0)
238 {
239 BIO_printf(arg, "Response Verify Failure\n");
240 ERR_print_errors(arg);
241 ret = 0;
242 }
243 else
244 BIO_printf(arg, "Response verify OK\n");
245
246 cert_stack_free(sk);
247 return ret;
248 }
249 # endif /*DISABLE_OCSP*/
250
251
252 /*************************************************
253 * Start an OpenSSL TLS session *
254 *************************************************/
255
256 int
257 tls_start(int sock, SSL **ssl, SSL_CTX *ctx)
258 {
259 int rc;
260 static const unsigned char *sid_ctx = US"exim";
261
262 RAND_load_file("client.c", -1); /* Not *very* random! */
263
264 *ssl = SSL_new (ctx);
265 SSL_set_session_id_context(*ssl, sid_ctx, strlen(CS sid_ctx));
266 SSL_set_fd (*ssl, sock);
267 SSL_set_connect_state(*ssl);
268
269 #ifndef DISABLE_OCSP
270 if (ocsp_stapling)
271 {
272 SSL_CTX_set_tlsext_status_cb(ctx, tls_client_stapling_cb);
273 SSL_CTX_set_tlsext_status_arg(ctx, BIO_new_fp(stdout, BIO_NOCLOSE));
274 SSL_set_tlsext_status_type(*ssl, TLSEXT_STATUSTYPE_ocsp);
275 }
276 #endif
277
278 signal(SIGALRM, sigalrm_handler_flag);
279 sigalrm_seen = 0;
280 alarm(5);
281 rc = SSL_connect (*ssl);
282 alarm(0);
283
284 if (sigalrm_seen)
285 {
286 printf("SSL_connect timed out\n");
287 return 0;
288 }
289
290 if (rc <= 0)
291 {
292 ERR_print_errors_fp(stdout);
293 return 0;
294 }
295
296 printf("SSL connection using %s\n", SSL_get_cipher (*ssl));
297 return 1;
298 }
299
300
301 /*************************************************
302 * SSL Information callback *
303 *************************************************/
304
305 static void
306 info_callback(SSL *s, int where, int ret)
307 {
308 where = where;
309 ret = ret;
310 printf("SSL info: %s\n", SSL_state_string_long(s));
311 }
312 #endif
313
314
315 /****************************************************************************/
316 /****************************************************************************/
317
318
319 #ifdef HAVE_GNUTLS
320 /*************************************************
321 * Handle GnuTLS error *
322 *************************************************/
323
324 /* Called from lots of places when errors occur before actually starting to do
325 the TLS handshake, that is, while the session is still in clear.
326
327 Argument:
328 prefix prefix text
329 err a GnuTLS error number, or 0 if local error
330
331 Returns: doesn't - it dies
332 */
333
334 static void
335 gnutls_error(uschar *prefix, int err)
336 {
337 fprintf(stderr, "GnuTLS connection error: %s:", prefix);
338 if (err != 0) fprintf(stderr, " %s", gnutls_strerror(err));
339 fprintf(stderr, "\n");
340 exit(98);
341 }
342
343
344
345 /*************************************************
346 * Setup up DH parameters *
347 *************************************************/
348
349 /* For the test suite, the parameters should always be available in the spool
350 directory. */
351
352 static void
353 init_dh(void)
354 {
355 int fd;
356 int ret;
357 gnutls_datum_t m;
358 uschar filename[200];
359 struct stat statbuf;
360
361 /* Initialize the data structures for holding the parameters */
362
363 ret = gnutls_dh_params_init(&dh_params);
364 if (ret < 0) gnutls_error(US"init dh_params", ret);
365
366 /* Open the cache file for reading and if successful, read it and set up the
367 parameters. */
368
369 fd = open("aux-fixed/gnutls-params", O_RDONLY, 0);
370 if (fd < 0)
371 {
372 fprintf(stderr, "Failed to open spool/gnutls-params: %s\n", strerror(errno));
373 exit(97);
374 }
375
376 if (fstat(fd, &statbuf) < 0)
377 {
378 (void)close(fd);
379 return gnutls_error(US"TLS cache stat failed", 0);
380 }
381
382 m.size = statbuf.st_size;
383 m.data = malloc(m.size);
384 if (m.data == NULL)
385 return gnutls_error(US"memory allocation failed", 0);
386 if (read(fd, m.data, m.size) != m.size)
387 return gnutls_error(US"TLS cache read failed", 0);
388 (void)close(fd);
389
390 ret = gnutls_dh_params_import_pkcs3(dh_params, &m, GNUTLS_X509_FMT_PEM);
391 if (ret < 0) return gnutls_error(US"DH params import", ret);
392 free(m.data);
393 }
394
395
396
397
398 /*************************************************
399 * Initialize for GnuTLS *
400 *************************************************/
401
402 /*
403 Arguments:
404 certificate certificate file
405 privatekey private key file
406 */
407
408 static void
409 tls_init(uschar *certificate, uschar *privatekey)
410 {
411 int rc;
412
413 rc = gnutls_global_init();
414 if (rc < 0) gnutls_error(US"gnutls_global_init", rc);
415
416 /* Read D-H parameters from the cache file. */
417
418 init_dh();
419
420 /* Create the credentials structure */
421
422 rc = gnutls_certificate_allocate_credentials(&x509_cred);
423 if (rc < 0) gnutls_error(US"certificate_allocate_credentials", rc);
424
425 /* Set the certificate and private keys */
426
427 if (certificate != NULL)
428 {
429 rc = gnutls_certificate_set_x509_key_file(x509_cred, CS certificate,
430 CS privatekey, GNUTLS_X509_FMT_PEM);
431 if (rc < 0) gnutls_error("gnutls_certificate", rc);
432 }
433
434 /* Associate the parameters with the x509 credentials structure. */
435
436 gnutls_certificate_set_dh_params(x509_cred, dh_params);
437
438 /* set the CA info for server-cert verify */
439 if (ocsp_stapling)
440 gnutls_certificate_set_x509_trust_file(x509_cred, ocsp_stapling,
441 GNUTLS_X509_FMT_PEM);
442 }
443
444
445
446 /*************************************************
447 * Initialize a single GNUTLS session *
448 *************************************************/
449
450 static gnutls_session_t
451 tls_session_init(void)
452 {
453 gnutls_session_t session;
454
455 gnutls_init(&session, GNUTLS_CLIENT | GNUTLS_NO_EXTENSIONS);
456
457 #if GNUTLS_VERSION_NUMBER < 0x030400
458 gnutls_cipher_set_priority(session, default_cipher_priority);
459 gnutls_compression_set_priority(session, comp_priority);
460 gnutls_kx_set_priority(session, kx_priority);
461 gnutls_protocol_set_priority(session, protocol_priority);
462 gnutls_mac_set_priority(session, mac_priority);
463
464 gnutls_cred_set(session, GNUTLS_CRD_CERTIFICATE, x509_cred);
465 #else
466 gnutls_set_default_priority(session);
467 gnutls_credentials_set(session, GNUTLS_CRD_CERTIFICATE, x509_cred);
468 #endif
469
470 gnutls_dh_set_prime_bits(session, DH_BITS);
471 gnutls_db_set_cache_expiration(session, ssl_session_timeout);
472
473 return session;
474 }
475 #endif
476
477
478 /****************************************************************************/
479 /* Turn "\n" and "\r" into the relevant characters. This is a hack. */
480
481 static int
482 unescape_buf(unsigned char * buf, int len)
483 {
484 unsigned char * s;
485 unsigned char c, t;
486 unsigned shift;
487
488 for (s = buf; s < buf+len; s++) if (*s == '\\')
489 {
490 switch (s[1])
491 {
492 default: c = s[1]; shift = 1; break;
493 case 'n': c = '\n'; shift = 1; break;
494 case 'r': c = '\r'; shift = 1; break;
495 case 'x':
496 t = s[2];
497 if (t >= 'A' && t <= 'F') t -= 'A'-'9'-1;
498 else if (t >= 'a' && t <= 'f') t -= 'a'-'9'-1;
499 t -= '0';
500 c = (t<<4) & 0xf0;
501 t = s[3];
502 if (t >= 'A' && t <= 'F') t -= 'A'-'9'-1;
503 else if (t >= 'a' && t <= 'f') t -= 'a'-'9'-1;
504 t -= '0';
505 c |= t & 0xf;
506 shift = 3;
507 break;
508 }
509 *s = c;
510 memmove(s+1, s+shift+1, len-shift);
511 len -= shift;
512 }
513 return len;
514 }
515
516
517 /****************************************************************************/
518 typedef struct {
519 int sock;
520 int tls_active;
521 #ifdef HAVE_OPENSSL
522 SSL_CTX * ctx;
523 SSL * ssl;
524 #endif
525 int sent_starttls;
526 } srv_ctx;
527
528 static void
529 do_file(srv_ctx * srv, FILE * f, int timeout,
530 unsigned char * inbuffer, unsigned bsiz, unsigned char * inptr)
531 {
532 unsigned char outbuffer[1024 * 20];
533
534 while (fgets(CS outbuffer, sizeof(outbuffer), f) != NULL)
535 {
536 int n = (int)strlen(CS outbuffer);
537 int crlf = 1;
538 int rc;
539
540 /* Strip trailing newline */
541 if (outbuffer[n-1] == '\n') outbuffer[--n] = 0;
542
543 /* Expect incoming */
544
545 if ( strncmp(CS outbuffer, "???", 3) == 0
546 && (outbuffer[3] == ' ' || outbuffer[3] == '*')
547 )
548 {
549 unsigned char *lineptr;
550 unsigned exp_eof = outbuffer[3] == '*';
551
552 printf("%s\n", outbuffer);
553 n = unescape_buf(outbuffer, n);
554
555 if (*inptr == 0) /* Refill input buffer */
556 {
557 if (srv->tls_active)
558 {
559 #ifdef HAVE_OPENSSL
560 rc = SSL_read (srv->ssl, inbuffer, bsiz - 1);
561 #endif
562 #ifdef HAVE_GNUTLS
563 rc = gnutls_record_recv(tls_session, CS inbuffer, bsiz - 1);
564 #endif
565 }
566 else
567 {
568 alarm(timeout);
569 rc = read(srv->sock, inbuffer, bsiz);
570 alarm(0);
571 }
572
573 if (rc < 0)
574 {
575 printf("Read error %s\n", strerror(errno));
576 exit(81);
577 }
578 else if (rc == 0)
579 if (exp_eof)
580 {
581 printf("Expected EOF read\n");
582 continue;
583 }
584 else
585 {
586 printf("Unexpected EOF read\n");
587 close(srv->sock);
588 exit(80);
589 }
590 else if (exp_eof)
591 {
592 printf("Expected EOF not read\n");
593 close(srv->sock);
594 exit(74);
595 }
596 else
597 {
598 inbuffer[rc] = 0;
599 inptr = inbuffer;
600 }
601 }
602
603 lineptr = inptr;
604 while (*inptr != 0 && *inptr != '\r' && *inptr != '\n') inptr++;
605 if (*inptr != 0)
606 {
607 *inptr++ = 0;
608 if (*inptr == '\n') inptr++;
609 }
610
611 printf("<<< %s\n", lineptr);
612 if (strncmp(CS lineptr, CS outbuffer + 4, n - 4) != 0)
613 {
614 printf("\n******** Input mismatch ********\n");
615 exit(79);
616 }
617
618 #ifdef HAVE_TLS
619 if (srv->sent_starttls)
620 {
621 if (lineptr[0] == '2')
622 {
623 int rc;
624 unsigned int verify;
625
626 printf("Attempting to start TLS\n");
627 fflush(stdout);
628
629 #ifdef HAVE_OPENSSL
630 srv->tls_active = tls_start(srv->sock, &srv->ssl, srv->ctx);
631 #endif
632
633 #ifdef HAVE_GNUTLS
634 {
635 int rc;
636 sigalrm_seen = FALSE;
637 alarm(timeout);
638 do {
639 rc = gnutls_handshake(tls_session);
640 } while (rc < 0 && gnutls_error_is_fatal(rc) == 0);
641 srv->tls_active = rc >= 0;
642 alarm(0);
643
644 if (!srv->tls_active) printf("%s\n", gnutls_strerror(rc));
645 }
646 #endif
647
648 if (!srv->tls_active)
649 {
650 printf("Failed to start TLS\n");
651 fflush(stdout);
652 }
653 #ifdef HAVE_GNUTLS
654 else if (ocsp_stapling)
655 {
656 if ((rc= gnutls_certificate_verify_peers2(tls_session, &verify)) < 0)
657 {
658 printf("Failed to verify certificate: %s\n", gnutls_strerror(rc));
659 fflush(stdout);
660 }
661 else if (verify & (GNUTLS_CERT_INVALID|GNUTLS_CERT_REVOKED))
662 {
663 printf("Bad certificate\n");
664 fflush(stdout);
665 }
666 #ifdef HAVE_OCSP
667 else if (gnutls_ocsp_status_request_is_checked(tls_session, 0) == 0)
668 {
669 printf("Failed to verify certificate status\n");
670 {
671 gnutls_datum_t stapling;
672 gnutls_ocsp_resp_t resp;
673 gnutls_datum_t printed;
674 if ( (rc= gnutls_ocsp_status_request_get(tls_session, &stapling)) == 0
675 && (rc= gnutls_ocsp_resp_init(&resp)) == 0
676 && (rc= gnutls_ocsp_resp_import(resp, &stapling)) == 0
677 && (rc= gnutls_ocsp_resp_print(resp, GNUTLS_OCSP_PRINT_FULL, &printed)) == 0
678 )
679 {
680 fprintf(stderr, "%.4096s", printed.data);
681 gnutls_free(printed.data);
682 }
683 else
684 (void) fprintf(stderr,"ocsp decode: %s", gnutls_strerror(rc));
685 }
686 fflush(stdout);
687 }
688 #endif
689 }
690 #endif
691 else
692 printf("Succeeded in starting TLS\n");
693 }
694 else printf("Abandoning TLS start attempt\n");
695 }
696 srv->sent_starttls = 0;
697 #endif
698 }
699
700 /* Wait for a bit before proceeding */
701
702 else if (strncmp(CS outbuffer, "+++ ", 4) == 0)
703 {
704 printf("%s\n", outbuffer);
705 sleep(atoi(CS outbuffer + 4));
706 }
707
708 /* Stack new input file */
709
710 else if (strncmp(CS outbuffer, "<<< ", 4) == 0)
711 {
712 FILE * new_f;
713 if (!(new_f = fopen(outbuffer+4 , "r")))
714 {
715 printf("Unable to open '%s': %s", inptr, sys_errlist[errno]);
716 exit(74);
717 }
718 do_file(srv, new_f, timeout, inbuffer, bsiz, inptr);
719 }
720
721
722 /* Send line outgoing, but barf if unconsumed incoming */
723
724 else
725 {
726 unsigned char * out = outbuffer;
727
728 if (strncmp(CS outbuffer, ">>> ", 4) == 0)
729 {
730 crlf = 0;
731 out += 4;
732 n -= 4;
733 }
734
735 if (*inptr != 0)
736 {
737 printf("Unconsumed input: %s", inptr);
738 printf(" About to send: %s\n", out);
739 exit(78);
740 }
741
742 #ifdef HAVE_TLS
743
744 /* Shutdown TLS */
745
746 if (strcmp(CS out, "stoptls") == 0 ||
747 strcmp(CS out, "STOPTLS") == 0)
748 {
749 if (!srv->tls_active)
750 {
751 printf("STOPTLS read when TLS not active\n");
752 exit(77);
753 }
754 printf("Shutting down TLS encryption\n");
755
756 #ifdef HAVE_OPENSSL
757 SSL_shutdown(srv->ssl);
758 SSL_free(srv->ssl);
759 #endif
760
761 #ifdef HAVE_GNUTLS
762 gnutls_bye(tls_session, GNUTLS_SHUT_WR);
763 gnutls_deinit(tls_session);
764 tls_session = NULL;
765 gnutls_global_deinit();
766 #endif
767
768 srv->tls_active = 0;
769 continue;
770 }
771
772 /* Remember that we sent STARTTLS */
773
774 srv->sent_starttls = (strcmp(CS out, "starttls") == 0 ||
775 strcmp(CS out, "STARTTLS") == 0);
776
777 /* Fudge: if the command is "starttls_wait", we send the starttls bit,
778 but we haven't set the flag, so that there is no negotiation. This is for
779 testing the server's timeout. */
780
781 if (strcmp(CS out, "starttls_wait") == 0)
782 {
783 out[8] = 0;
784 n = 8;
785 }
786 #endif
787
788 printf(">>> %s\n", out);
789 if (crlf)
790 {
791 strcpy(CS out + n, "\r\n");
792 n += 2;
793 }
794
795 n = unescape_buf(out, n);
796
797 /* OK, do it */
798
799 alarm(timeout);
800 if (srv->tls_active)
801 {
802 #ifdef HAVE_OPENSSL
803 rc = SSL_write (srv->ssl, out, n);
804 #endif
805 #ifdef HAVE_GNUTLS
806 if ((rc = gnutls_record_send(tls_session, CS out, n)) < 0)
807 {
808 printf("GnuTLS write error: %s\n", gnutls_strerror(rc));
809 exit(76);
810 }
811 #endif
812 }
813 else
814 rc = write(srv->sock, out, n);
815 alarm(0);
816
817 if (rc < 0)
818 {
819 printf("Write error: %s\n", strerror(errno));
820 exit(75);
821 }
822 }
823 }
824 }
825
826
827
828
829 /*************************************************
830 * Main Program *
831 *************************************************/
832
833 const char * const HELP_MESSAGE = "\n\
834 Usage: client\n"
835 #ifdef HAVE_TLS
836 "\
837 [-tls-on-connect]\n\
838 [-ocsp]\n"
839 #endif
840 "\
841 [-tn] n seconds timeout\n\
842 <IP address>\n\
843 <port>\n\
844 [<outgoing interface>]\n\
845 [<cert file>]\n\
846 [<key file>]\n\
847 \n";
848
849 int
850 main(int argc, char **argv)
851 {
852 struct sockaddr *s_ptr;
853 struct sockaddr_in s_in4;
854 char *interface = NULL;
855 char *address = NULL;
856 char *certfile = NULL;
857 char *keyfile = NULL;
858 char *end = NULL;
859 int argi = 1;
860 int host_af, port, s_len, rc, save_errno;
861 int timeout = 5;
862 int tls_on_connect = 0;
863 long tmplong;
864
865 #if HAVE_IPV6
866 struct sockaddr_in6 s_in6;
867 #endif
868
869 srv_ctx srv;
870
871 unsigned char inbuffer[10240];
872 unsigned char *inptr = inbuffer;
873
874 *inptr = 0; /* Buffer empty */
875 srv.tls_active = 0;
876 srv.sent_starttls = 0;
877
878 /* Options */
879
880 while (argc >= argi + 1 && argv[argi][0] == '-')
881 {
882 if (strcmp(argv[argi], "-help") == 0 ||
883 strcmp(argv[argi], "--help") == 0 ||
884 strcmp(argv[argi], "-h") == 0)
885 {
886 puts(HELP_MESSAGE);
887 exit(0);
888 }
889 if (strcmp(argv[argi], "-tls-on-connect") == 0)
890 {
891 tls_on_connect = 1;
892 argi++;
893 }
894 #ifdef HAVE_TLS
895 else if (strcmp(argv[argi], "-ocsp") == 0)
896 {
897 if (argc < ++argi + 1)
898 {
899 fprintf(stderr, "Missing required certificate file for ocsp option\n");
900 exit(96);
901 }
902 ocsp_stapling = argv[argi++];
903 }
904
905 #endif
906 else if (argv[argi][1] == 't' && isdigit(argv[argi][2]))
907 {
908 tmplong = strtol(argv[argi]+2, &end, 10);
909 if (end == argv[argi]+2 || *end)
910 {
911 fprintf(stderr, "Failed to parse seconds from option <%s>\n",
912 argv[argi]);
913 exit(95);
914 }
915 if (tmplong > 10000L)
916 {
917 fprintf(stderr, "Unreasonably long wait of %ld seconds requested\n",
918 tmplong);
919 exit(94);
920 }
921 if (tmplong < 0L)
922 {
923 fprintf(stderr, "Timeout must not be negative (%ld)\n", tmplong);
924 exit(93);
925 }
926 timeout = (int) tmplong;
927 argi++;
928 }
929 else
930 {
931 fprintf(stderr, "Unrecognized option %s\n", argv[argi]);
932 exit(92);
933 }
934 }
935
936 /* Mandatory 1st arg is IP address */
937
938 if (argc < argi+1)
939 {
940 fprintf(stderr, "No IP address given\n");
941 exit(91);
942 }
943
944 address = argv[argi++];
945 host_af = (strchr(address, ':') != NULL)? AF_INET6 : AF_INET;
946
947 /* Mandatory 2nd arg is port */
948
949 if (argc < argi+1)
950 {
951 fprintf(stderr, "No port number given\n");
952 exit(90);
953 }
954
955 port = atoi(argv[argi++]);
956
957 /* Optional next arg is interface */
958
959 if (argc > argi &&
960 (isdigit((unsigned char)argv[argi][0]) || argv[argi][0] == ':'))
961 interface = argv[argi++];
962
963 /* Any more arguments are the name of a certificate file and key file */
964
965 if (argc > argi) certfile = argv[argi++];
966 if (argc > argi) keyfile = argv[argi++];
967
968
969 #if HAVE_IPV6
970 /* For an IPv6 address, use an IPv6 sockaddr structure. */
971
972 if (host_af == AF_INET6)
973 {
974 s_ptr = (struct sockaddr *)&s_in6;
975 s_len = sizeof(s_in6);
976 }
977 else
978 #endif
979
980 /* For an IPv4 address, use an IPv4 sockaddr structure,
981 even on an IPv6 system. */
982
983 {
984 s_ptr = (struct sockaddr *)&s_in4;
985 s_len = sizeof(s_in4);
986 }
987
988 printf("Connecting to %s port %d ... ", address, port);
989
990 srv.sock = socket(host_af, SOCK_STREAM, 0);
991 if (srv.sock < 0)
992 {
993 printf("socket creation failed: %s\n", strerror(errno));
994 exit(89);
995 }
996
997 /* Bind to a specific interface if requested. On an IPv6 system, this has
998 to be of the same family as the address we are calling. On an IPv4 system the
999 test is redundant, but it keeps the code tidier. */
1000
1001 if (interface != NULL)
1002 {
1003 int interface_af = (strchr(interface, ':') != NULL)? AF_INET6 : AF_INET;
1004
1005 if (interface_af == host_af)
1006 {
1007 #if HAVE_IPV6
1008
1009 /* Set up for IPv6 binding */
1010
1011 if (host_af == AF_INET6)
1012 {
1013 memset(&s_in6, 0, sizeof(s_in6));
1014 s_in6.sin6_family = AF_INET6;
1015 s_in6.sin6_port = 0;
1016 if (inet_pton(AF_INET6, interface, &s_in6.sin6_addr) != 1)
1017 {
1018 printf("Unable to parse \"%s\"", interface);
1019 exit(88);
1020 }
1021 }
1022 else
1023 #endif
1024
1025 /* Set up for IPv4 binding */
1026
1027 {
1028 memset(&s_in4, 0, sizeof(s_in4));
1029 s_in4.sin_family = AF_INET;
1030 s_in4.sin_port = 0;
1031 s_in4.sin_addr.s_addr = (S_ADDR_TYPE)inet_addr(interface);
1032 }
1033
1034 /* Bind */
1035
1036 if (bind(srv.sock, s_ptr, s_len) < 0)
1037 {
1038 printf("Unable to bind outgoing SMTP call to %s: %s",
1039 interface, strerror(errno));
1040 exit(87);
1041 }
1042 }
1043 }
1044
1045 /* Set up a remote IPv6 address */
1046
1047 #if HAVE_IPV6
1048 if (host_af == AF_INET6)
1049 {
1050 memset(&s_in6, 0, sizeof(s_in6));
1051 s_in6.sin6_family = AF_INET6;
1052 s_in6.sin6_port = htons(port);
1053 if (inet_pton(host_af, address, &s_in6.sin6_addr) != 1)
1054 {
1055 printf("Unable to parse \"%s\"", address);
1056 exit(86);
1057 }
1058 }
1059 else
1060 #endif
1061
1062 /* Set up a remote IPv4 address */
1063
1064 {
1065 memset(&s_in4, 0, sizeof(s_in4));
1066 s_in4.sin_family = AF_INET;
1067 s_in4.sin_port = htons(port);
1068 s_in4.sin_addr.s_addr = (S_ADDR_TYPE)inet_addr(address);
1069 }
1070
1071 /* SIGALRM handler crashes out */
1072
1073 signal(SIGALRM, sigalrm_handler_crash);
1074 alarm(timeout);
1075 rc = connect(srv.sock, s_ptr, s_len);
1076 save_errno = errno;
1077 alarm(0);
1078
1079 /* A failure whose error code is "Interrupted system call" is in fact
1080 an externally applied timeout if the signal handler has been run. */
1081
1082 if (rc < 0)
1083 {
1084 close(srv.sock);
1085 printf("connect failed: %s\n", strerror(save_errno));
1086 exit(85);
1087 }
1088
1089 printf("connected\n");
1090
1091
1092 /* --------------- Set up for OpenSSL --------------- */
1093
1094 #ifdef HAVE_OPENSSL
1095 SSL_library_init();
1096 SSL_load_error_strings();
1097
1098 if (!(srv.ctx = SSL_CTX_new(SSLv23_method())))
1099 {
1100 printf ("SSL_CTX_new failed\n");
1101 exit(84);
1102 }
1103
1104 if (certfile)
1105 {
1106 if (!SSL_CTX_use_certificate_file(srv.ctx, certfile, SSL_FILETYPE_PEM))
1107 {
1108 printf("SSL_CTX_use_certificate_file failed\n");
1109 exit(83);
1110 }
1111 printf("Certificate file = %s\n", certfile);
1112 }
1113
1114 if (keyfile)
1115 {
1116 if (!SSL_CTX_use_PrivateKey_file(srv.ctx, keyfile, SSL_FILETYPE_PEM))
1117 {
1118 printf("SSL_CTX_use_PrivateKey_file failed\n");
1119 exit(82);
1120 }
1121 printf("Key file = %s\n", keyfile);
1122 }
1123
1124 SSL_CTX_set_session_cache_mode(srv.ctx, SSL_SESS_CACHE_BOTH);
1125 SSL_CTX_set_timeout(srv.ctx, 200);
1126 SSL_CTX_set_info_callback(srv.ctx, (void (*)())info_callback);
1127 #endif
1128
1129
1130 /* --------------- Set up for GnuTLS --------------- */
1131
1132 #ifdef HAVE_GNUTLS
1133 if (certfile != NULL) printf("Certificate file = %s\n", certfile);
1134 if (keyfile != NULL) printf("Key file = %s\n", keyfile);
1135 tls_init(certfile, keyfile);
1136 tls_session = tls_session_init();
1137 #ifdef HAVE_OCSP
1138 if (ocsp_stapling)
1139 gnutls_ocsp_status_request_enable_client(tls_session, NULL, 0, NULL);
1140 #endif
1141 gnutls_transport_set_ptr(tls_session, (gnutls_transport_ptr_t)(intptr_t)srv.sock);
1142
1143 /* When the server asks for a certificate and the client does not have one,
1144 there is a SIGPIPE error in the gnutls_handshake() function for some reason
1145 that is not understood. As luck would have it, this has never hit Exim itself
1146 because it ignores SIGPIPE errors. Doing the same here allows it all to work as
1147 one wants. */
1148
1149 signal(SIGPIPE, SIG_IGN);
1150 #endif
1151
1152 /* ---------------------------------------------- */
1153
1154
1155 /* Start TLS session if configured to do so without STARTTLS */
1156
1157 #ifdef HAVE_TLS
1158 if (tls_on_connect)
1159 {
1160 printf("Attempting to start TLS\n");
1161
1162 #ifdef HAVE_OPENSSL
1163 srv.tls_active = tls_start(srv.sock, &srv.ssl, srv.ctx);
1164 #endif
1165
1166 #ifdef HAVE_GNUTLS
1167 {
1168 int rc;
1169 sigalrm_seen = FALSE;
1170 alarm(timeout);
1171 do {
1172 rc = gnutls_handshake(tls_session);
1173 } while (rc < 0 && gnutls_error_is_fatal(rc) == 0);
1174 srv.tls_active = rc >= 0;
1175 alarm(0);
1176
1177 if (!srv.tls_active) printf("%s\n", gnutls_strerror(rc));
1178 }
1179 #endif
1180
1181 if (!srv.tls_active)
1182 printf("Failed to start TLS\n");
1183 #if defined(HAVE_GNUTLS) && defined(HAVE_OCSP)
1184 else if ( ocsp_stapling
1185 && gnutls_ocsp_status_request_is_checked(tls_session, 0) == 0)
1186 printf("Failed to verify certificate status\n");
1187 #endif
1188 else
1189 printf("Succeeded in starting TLS\n");
1190 }
1191 #endif
1192
1193 do_file(&srv, stdin, timeout, inbuffer, sizeof(inbuffer), inptr);
1194
1195 printf("End of script\n");
1196 shutdown(srv.sock, SHUT_WR);
1197 while (read(srv.sock, inbuffer, sizeof(inbuffer)) > 0) ;
1198 close(srv.sock);
1199
1200 exit(0);
1201 }
1202
1203 /* End of client.c */