diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-03-30 09:49:58 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-03-30 09:49:58 -0400 |
| commit | fde763f60465b28d33260479b64d9555abc5bcbb (patch) | |
| tree | cd7691013d8538ac47567675b933b939979ec28b /captain/config.f90 | |
| parent | 342df3430218d5fd3be8ceca606330964b6f098b (diff) | |
| download | levitating-fde763f60465b28d33260479b64d9555abc5bcbb.tar.gz levitating-fde763f60465b28d33260479b64d9555abc5bcbb.zip | |
Reworked requests and responses with some derived types so that things make sense.
Diffstat (limited to 'captain/config.f90')
| -rw-r--r-- | captain/config.f90 | 13 |
1 files changed, 13 insertions, 0 deletions
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 |