add: execute openssl fetcher to fetch openssl 1.0.1j

[cassiopeia.git] / lib / openssl / demos / bio / sconnect.c

diff --git a/lib/openssl/demos/bio/sconnect.c b/lib/openssl/demos/bio/sconnect.c
new file mode 100644 (file)
index 0000000..880344e
--- /dev/null
+++ b/lib/openssl/demos/bio/sconnect.c
@@ -0,0 +1,121 @@
+/* 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);
+       }
+