Added post handling to the captain. Improved the query utilities for extracting values from a query string. Added a redirect template for html.

1 files changed, 45 insertions, 0 deletions

diff --git a/captain/postutils.f90 b/captain/postutils.f90
new file mode 100644
index 0000000..c5af8bd
--- /dev/null
+++ b/captain/postutils.f90
@@ -0,0 +1,45 @@
+module http_post_utilities
+implicit none
+
+    character(*), parameter::content_type_required = "application/x-www-form-urlencoded"
+
+contains
+
+    function read_post_contents() result(res)
+    use query_utilities, only: query
+    implicit none
+    
+        type(query)::res
+        
+        character(len=:), allocatable::transfered
+        character(256)::header_info
+        integer::content_length, istat, i
+        
+        call get_environment_variable("CONTENT_LENGTH", header_info, status=istat)
+        if(istat == 0) then
+            read(header_info, '(I8)') content_length
+        else 
+            content_length = 0
+        end if
+        
+        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
+        
+            allocate(character(len=content_length) :: transfered)
+            
+            do i = 1, content_length
+                read(*, '(A1)', advance='no') transfered(i:i)
+            end do
+        
+            call res%init(transfered)
+        
+            deallocate(transfered)
+            
+        end if
+    
+    end function read_post_contents
+
+end module http_post_utilities
\ No newline at end of file