diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-12 14:21:05 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-12 14:21:05 -0400 |
| commit | c5a514ac0d29a58a79a708771fe4b2a16d400031 (patch) | |
| tree | 20840ea805ed2c9998575e239c7cb7644fae8531 /captain/postutils.f90 | |
| parent | 9ac19f108c1b69025572bf32e310b332ef098c98 (diff) | |
| download | levitating-c5a514ac0d29a58a79a708771fe4b2a16d400031.tar.gz levitating-c5a514ac0d29a58a79a708771fe4b2a16d400031.zip | |
Added some CSS styling. Fixed checks for zero-length pointers since it seems to freak out Fortran.
Diffstat (limited to 'captain/postutils.f90')
| -rw-r--r-- | captain/postutils.f90 | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/captain/postutils.f90 b/captain/postutils.f90 index 2961f98..1d4c666 100644 --- a/captain/postutils.f90 +++ b/captain/postutils.f90 @@ -22,14 +22,12 @@ contains else content_length = 0 end if - call write_log("Content Length is: "//trim(header_info), LOG_DEBUG) call get_environment_variable("CONTENT_TYPE", header_info, status=istat) if(content_length > 0 .and. & istat == 0 .and. & trim(header_info) == content_type_required) & then - call write_log("Processing post", LOG_DEBUG) allocate(character(len=content_length) :: transfered) @@ -42,8 +40,6 @@ contains deallocate(transfered) end if - - call write_log("Content Type is: "//trim(header_info), LOG_DEBUG) end function read_post_contents |