From 537ff39898992c3915bcf01e3840becc6750520f Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Wed, 29 Apr 2020 17:39:05 -0400
Subject: Added some very low-level network code

---
 test_ssl.f90 | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 test_ssl.f90

(limited to 'test_ssl.f90')

diff --git a/test_ssl.f90 b/test_ssl.f90
new file mode 100644
index 0000000..0e169c1
--- /dev/null
+++ b/test_ssl.f90
@@ -0,0 +1,33 @@
+program test_ssl
+use jessl
+use network
+implicit none
+
+    type(sockaddr_in), target::sa
+    integer::s
+    
+    type(simple_hostent)::hent
+    
+    hent = gethostbyname("google.com")
+    if(allocated(hent%h_name)) then
+        !Print *, "host: ", hent%h_name
+        !Print *, "addr: ", hent%h_addr4
+    else
+        Print *, "Failure"
+        stop
+    end if
+    
+    sa%sin_family = AF_INET
+    sa%sin_addr%s_addr = hent%h_addr4 !inet_addr("192.168.2.90")
+    sa%sin_port = htons(80)
+    
+    s = socket(AF_INET, SOCK_STREAM, 0);
+    if(.not. connect(s, sa)) then
+        Print *, "Connection failed", IERRNO()
+        stop
+    end if
+    
+    Print *, "socket opened!"
+    
+
+end program test_ssl
\ No newline at end of file
-- 
cgit v1.2.3