Tokens are now checked for file uploads. Fixed major buffer bugs in status reporting.

1 files changed, 15 insertions, 1 deletions

diff --git a/captain/external.f90 b/captain/external.f90
index edbe997..f5ba409 100644
--- a/captain/external.f90
+++ b/captain/external.f90
@@ -685,19 +685,33 @@ contains
     function external_request_titan(req) result(resp)
     use server_response
     use special_filenames
+    use query_utilities
+    use security
     use logging
     implicit none
     
         type(titan_request), intent(in)::req
         type(response)::resp
         
+        type(query)::q
+        
         character(len=:), pointer::fullpath
         character(12)::job_text, task_text
         integer::job_id, task_num
         
+        logical::proceed_to_create_filename
+        
         character(64)::msg
         
-        fullpath => get_full_filename_from_request(req)
+        fullpath => null()
+        
+        proceed_to_create_filename = .false.
+        
+        proceed_to_create_filename = validate_titan_token(req%token)
+        
+        if(proceed_to_create_filename) then
+            fullpath => get_full_filename_from_request(req)
+        end if
         
         if(associated(fullpath)) then