From c5a514ac0d29a58a79a708771fe4b2a16d400031 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Wed, 12 May 2021 14:21:05 -0400 Subject: Added some CSS styling. Fixed checks for zero-length pointers since it seems to freak out Fortran. --- captain/postutils.f90 | 4 ---- 1 file changed, 4 deletions(-) (limited to 'captain/postutils.f90') 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 -- cgit v1.2.3