diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-13 08:58:10 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-13 08:58:10 -0400 |
| commit | b52aa3bf2b9cbb529b861566f6dbed24483c0b67 (patch) | |
| tree | 817c51f4d321f5ec31bf13ec3650c198dc46ee9a /captain | |
| parent | 7c4ad319cf21f75b51aae83d025be4cdd07a2a06 (diff) | |
| download | levitating-b52aa3bf2b9cbb529b861566f6dbed24483c0b67.tar.gz levitating-b52aa3bf2b9cbb529b861566f6dbed24483c0b67.zip | |
Temporary directory is now configurable.
Diffstat (limited to 'captain')
| -rw-r--r-- | captain/config.f90 | 7 | ||||
| -rw-r--r-- | captain/example/levitating.conf | 2 |
2 files changed, 9 insertions, 0 deletions
diff --git a/captain/config.f90 b/captain/config.f90 index 2e3ccaa..f3c9bd1 100644 --- a/captain/config.f90 +++ b/captain/config.f90 @@ -65,6 +65,9 @@ implicit none character(*), parameter::SCRIPT_DIRECTORY_VARIABLE = "script-directory" character(1024)::script_dir + character(*), parameter::TEMP_DIRECTORY_VARIABLE = "temp-directory" + character(1024)::temp_dir = "/tmp" + contains subroutine get_variable(str, v) @@ -104,6 +107,7 @@ contains end subroutine get_value subroutine assign_config(cvariable, cvalue) + use utilities, only: set_temporary_directory implicit none character(*), intent(in)::cvariable, cvalue @@ -150,6 +154,9 @@ contains else if(cvariable == LOGLEVEL_VARIABLE) then read(cvalue, '(I3)') loglevel + else if(cvariable == TEMP_DIRECTORY_VARIABLE) then + call set_temporary_directory(cvalue) + end if end subroutine assign_config diff --git a/captain/example/levitating.conf b/captain/example/levitating.conf index 127c6e6..34dc683 100644 --- a/captain/example/levitating.conf +++ b/captain/example/levitating.conf @@ -26,3 +26,5 @@ script-directory = /home/jeff/Workspace/levitating/captain/sql instructions-directory = /home/jeff/Workspace/levitating/captain/example/instructions release-directory = /home/jeff/Workspace/levitating/captain/example/releases + +temp-directory = /tmp/levitating |