diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-08 09:31:55 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-08 09:31:55 -0400 |
| commit | eaf8cf88305640cdaf274504c1cead5e88bf09d4 (patch) | |
| tree | 6aa1814e7172f001c62ad2a15da86970b7e1860f /captain/response.f90 | |
| parent | 26eee62be8820373a61654c51c6f3622fe46d166 (diff) | |
| download | levitating-eaf8cf88305640cdaf274504c1cead5e88bf09d4.tar.gz levitating-eaf8cf88305640cdaf274504c1cead5e88bf09d4.zip | |
Fixed task handling inside the captain. Fixed static file delivery.
Diffstat (limited to 'captain/response.f90')
| -rw-r--r-- | captain/response.f90 | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/captain/response.f90 b/captain/response.f90 index 9cd2d9f..b980f8e 100644 --- a/captain/response.f90 +++ b/captain/response.f90 @@ -435,23 +435,13 @@ contains open(newunit=unum, file=filename, status="unknown", action="write", access="stream", form="formatted") bytes_to_go = self%size - call write_log("Writing!") do while(bytes_to_go > 0) bufread = ssl_read(self%ssl_connection, buf) bytes_to_go = bytes_to_go - bufread - - write(msg, *) "read: ", bufread - call write_log(trim(msg)) - - write(msg, *) "remaining: ", bytes_to_go - call write_log(trim(msg)) - - do i = 1, bufread write(unum, '(A1)', advance='no') buf(i) end do - end do close(unum) |