/* NOCW *//* demos/bio/sconnect.c *//* A minimal program to do SSL to a passed host and port. * It is actually using non-blocking IO but in a very simple manner * sconnect host:port - it does a 'GET / HTTP/1.0' * * cc -I../../include sconnect.c -L../.. -lssl -lcrypto */#include <stdio.h>#include <stdlib.h>#include <unistd.h>#include <openssl/err.h>#include <openssl/ssl.h>extern int errno;int main(argc,argv)int argc;char *argv[];	{	char *host;	BIO *out;	char buf[1024*10],*p;	SSL_CTX *ssl_ctx=NULL;	SSL *ssl;	BIO *ssl_bio;	int i,len,off,ret=1;	if (argc <= 1)		host="localhost:4433";	else		host=argv[1];#ifdef WATT32	dbug_init();	sock_init();#endif	/* Lets get nice error messages */	SSL_load_error_strings();	/* Setup all the global SSL stuff */	OpenSSL_add_ssl_algorithms();	ssl_ctx=SSL_CTX_new(SSLv23_client_method());	/* Lets make a SSL structure */	ssl=SSL_new(ssl_ctx);	SSL_set_connect_state(ssl);	/* Use it inside an SSL BIO */	ssl_bio=BIO_new(BIO_f_ssl());	BIO_set_ssl(ssl_bio,ssl,BIO_CLOSE);	/* Lets use a connect BIO under the SSL BIO */	out=BIO_new(BIO_s_connect());	BIO_set_conn_hostname(out,host);	BIO_set_nbio(out,1);	out=BIO_push(ssl_bio,out);	p="GET / HTTP/1.0\r\n\r\n";	len=strlen(p);	off=0;	for (;;)		{		i=BIO_write(out,&(p[off]),len);		if (i <= 0)			{			if (BIO_should_retry(out))				{				fprintf(stderr,"write DELAY\n");				sleep(1);				continue;				}			else				{				goto err;				}			}		off+=i;		len-=i;		if (len <= 0) break;		}	for (;;)		{		i=BIO_read(out,buf,sizeof(buf));		if (i == 0) break;		if (i < 0)			{			if (BIO_should_retry(out))				{				fprintf(stderr,"read DELAY\n");				sleep(1);				continue;				}			goto err;			}		fwrite(buf,1,i,stdout);		}	ret=1;	if (0)		{err:		if (ERR_peek_error() == 0) /* system call error */			{			fprintf(stderr,"errno=%d ",errno);			perror("error");			}		else			ERR_print_errors_fp(stderr);		}	BIO_free_all(out);	if (ssl_ctx != NULL) SSL_CTX_free(ssl_ctx);	exit(!ret);	return(ret);	}