diff options
Diffstat (limited to 'protocol.f90')
| -rw-r--r-- | protocol.f90 | 45 |
1 files changed, 43 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 |