1 /* NOCW */
2 /* demos/bio/sconnect.c */
3 
4 /* A minimal program to do SSL to a passed host and port.
5  * It is actually using non-blocking IO but in a very simple manner
6  * sconnect host:port - it does a 'GET / HTTP/1.0'
7  *
8  * cc -I../../include sconnect.c -L../.. -lssl -lcrypto
9  */
10 #include <stdio.h>
11 #include <stdlib.h>
12 #include <unistd.h>
13 #include <openssl/err.h>
14 #include <openssl/ssl.h>
15 
16 extern int errno;
17 
18 int main(argc,argv)
19 int argc;
20 char *argv[];
21 	{
22 	char *host;
23 	BIO *out;
24 	char buf[1024*10],*p;
25 	SSL_CTX *ssl_ctx=NULL;
26 	SSL *ssl;
27 	BIO *ssl_bio;
28 	int i,len,off,ret=1;
29 
30 	if (argc <= 1)
31 		host="localhost:4433";
32 	else
33 		host=argv[1];
34 
35 #ifdef WATT32
36 	dbug_init();
37 	sock_init();
38 #endif
39 
40 	/* Lets get nice error messages */
41 	SSL_load_error_strings();
42 
43 	/* Setup all the global SSL stuff */
44 	OpenSSL_add_ssl_algorithms();
45 	ssl_ctx=SSL_CTX_new(SSLv23_client_method());
46 
47 	/* Lets make a SSL structure */
48 	ssl=SSL_new(ssl_ctx);
49 	SSL_set_connect_state(ssl);
50 
51 	/* Use it inside an SSL BIO */
52 	ssl_bio=BIO_new(BIO_f_ssl());
53 	BIO_set_ssl(ssl_bio,ssl,BIO_CLOSE);
54 
55 	/* Lets use a connect BIO under the SSL BIO */
56 	out=BIO_new(BIO_s_connect());
57 	BIO_set_conn_hostname(out,host);
58 	BIO_set_nbio(out,1);
59 	out=BIO_push(ssl_bio,out);
60 
61 	p="GET / HTTP/1.0\r\n\r\n";
62 	len=strlen(p);
63 
64 	off=0;
65 	for (;;)
66 		{
67 		i=BIO_write(out,&(p[off]),len);
68 		if (i <= 0)
69 			{
70 			if (BIO_should_retry(out))
71 				{
72 				fprintf(stderr,"write DELAY\n");
73 				sleep(1);
74 				continue;
75 				}
76 			else
77 				{
78 				goto err;
79 				}
80 			}
81 		off+=i;
82 		len-=i;
83 		if (len <= 0) break;
84 		}
85 
86 	for (;;)
87 		{
88 		i=BIO_read(out,buf,sizeof(buf));
89 		if (i == 0) break;
90 		if (i < 0)
91 			{
92 			if (BIO_should_retry(out))
93 				{
94 				fprintf(stderr,"read DELAY\n");
95 				sleep(1);
96 				continue;
97 				}
98 			goto err;
99 			}
100 		fwrite(buf,1,i,stdout);
101 		}
102 
103 	ret=1;
104 
105 	if (0)
106 		{
107 err:
108 		if (ERR_peek_error() == 0) /* system call error */
109 			{
110 			fprintf(stderr,"errno=%d ",errno);
111 			perror("error");
112 			}
113 		else
114 			ERR_print_errors_fp(stderr);
115 		}
116 	BIO_free_all(out);
117 	if (ssl_ctx != NULL) SSL_CTX_free(ssl_ctx);
118 	exit(!ret);
119 	return(ret);
120 	}
121 
122