aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--protocol.f9045
-rw-r--r--request.f9029
2 files changed, 72 insertions, 2 deletions
diff --git a/protocol.f90 b/protocol.f90
index fa36fe7..bd109c1 100644
--- a/protocol.f90
+++ b/protocol.f90
@@ -8,11 +8,14 @@ implicit none
integer, parameter::STATUS_PERMFAIL = 5
integer, parameter::STATUS_CERTREQ = 6
integer, parameter::STATUS_LOCALFAIL = -1
-
+
+ integer, parameter::BUFFER_SIZE = 256
+
contains
function request_url(url, unit_number, server_name) result(returncode)
use request
+ use iso_c_binding
implicit none
character(*), intent(in)::url
@@ -23,7 +26,13 @@ contains
character(:), allocatable::server
+ type(connection)::conn
+
+ integer::bytes_received, i
+ character, dimension(BUFFER_SIZE)::buffer
+
returncode = -1
+ rewind(unit_number)
if(present(server_name)) then
allocate(character(len=len_trim(server_name)) :: server)
@@ -32,8 +41,40 @@ contains
server = get_server_from_url(url)
end if
+ conn = open_connection(server)
-
+ if(conn%code == CONNECTION_OPEN) then
+ if(send_string(conn%ssl, url//c_carriage_return//c_new_line, trimming=.false.)) then
+
+ bytes_received = retrieve_characters(conn%ssl, buffer)
+
+ do while(bytes_received > 0)
+
+ do i=1, bytes_received
+ write(unit_number, '(A1)', advance='no') buffer(i)
+ end do
+
+ bytes_received = retrieve_characters(conn%ssl, buffer)
+ end do
+
+ rewind(unit_number)
+ read(unit_number, '(I1)') returncode
+
+ else
+
+ returncode = -1
+ write(unit_number, *) "Send Error: Could Not Send Request"
+
+ end if
+
+ else
+
+ returncode = -1
+ write(unit_number, *) "Connection Error: "//trim(translate_connection_code(conn%code))
+
+ end if
+
+ call close_connection(conn)
end function request_url
diff --git a/request.f90 b/request.f90
index 3cc8cbf..67cc4f7 100644
--- a/request.f90
+++ b/request.f90
@@ -13,6 +13,16 @@ implicit none
integer, parameter::CONNECTION_SSL_CONN_FAILURE = 5
integer, parameter::CONNECTION_OPEN = 6
+ character(23), dimension(0:6), parameter:: connection_code_str = &
+ ["No Connection ", &
+ "Connection Closed ", &
+ "Server Not Found ", &
+ "Local Socket Failure ", &
+ "SSL Configuration Error", &
+ "SSL Connection Failure ", &
+ "SSL Connection Open " ]
+
+
type :: connection
integer::code
@@ -26,6 +36,25 @@ implicit none
contains
+ function translate_connection_code(code)
+ implicit none
+
+ integer, intent(in)::code
+ character(23)::translate_connection_code
+
+ if(code >= lbound(connection_code_str, 1) .and. &
+ code <= ubound(connection_code_str, 1)) then
+
+ translate_connection_code = connection_code_str(code)
+
+ else
+
+ translate_connection_code = "Unknown Error"
+
+ end if
+
+ end function translate_connection_code
+
function open_connection(server, port) result(conn)
use jessl
use network