From fde763f60465b28d33260479b64d9555abc5bcbb Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Tue, 30 Mar 2021 09:49:58 -0400
Subject: Reworked requests and responses with some derived types so that
 things make sense.

---
 captain/config.f90 | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'captain/config.f90')

diff --git a/captain/config.f90 b/captain/config.f90
index dc26ef4..a56f757 100644
--- a/captain/config.f90
+++ b/captain/config.f90
@@ -22,6 +22,13 @@ implicit none
     character(*), parameter::PRIVATE_CERT_VARIABLE = "private-cert"
     character(1024)::privcert
     
+    character(*), parameter::RELEASE_DIRECTORY_VARIABLE = "release-directory"
+    character(1024)::release_dir
+    
+    character(*), parameter::UPLOAD_DIRECTORY_VARIABLE = "upload-directory"
+    character(1024)::upload_dir
+    
+    
 contains
     
     subroutine get_variable(str, v)
@@ -85,6 +92,12 @@ contains
         
         else if(cvariable == LOGFILE_VARIABLE) then
             log_filename = cvalue
+            
+        else if(cvariable == RELEASE_DIRECTORY_VARIABLE) then
+            release_dir = cvalue
+            
+        else if(cvariable == UPLOAD_DIRECTORY_VARIABLE) then
+            upload_dir = cvalue
         
         end if
         
-- 
cgit v1.2.3