diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-25 07:49:38 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-25 07:49:38 -0400 |
| commit | 4a2f81c205df8e6e2a90f41e19c552d35cf54ce1 (patch) | |
| tree | ab4dbf8eb369c13995d00a68b512a7c534721c86 /player | |
| parent | 9cfaf50daf1497511315cd5c40ac2b4ed8a54bd1 (diff) | |
| download | levitating-4a2f81c205df8e6e2a90f41e19c552d35cf54ce1.tar.gz levitating-4a2f81c205df8e6e2a90f41e19c552d35cf54ce1.zip | |
Added directory to filename for upload when mask is specified.
Diffstat (limited to 'player')
| -rw-r--r-- | player/tasks.f90 | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/player/tasks.f90 b/player/tasks.f90 index 278a0d0..b0c881e 100644 --- a/player/tasks.f90 +++ b/player/tasks.f90 @@ -102,6 +102,7 @@ contains character(DIR_LIST_STRING_LENGTH), dimension(:), pointer::files logical, dimension(:), allocatable::statuses integer::i + character(len=:), allocatable::dir, fullname ! We can cheat by using the get_files_in_directory function since it ! is merely calling ls/dir, which will resolve the glob @@ -113,15 +114,22 @@ contains if(associated(files)) then + allocate(character(len=len_trim(mask)) :: dir) + allocate(character(len=len_trim(mask)+DIR_LIST_STRING_LENGTH+1) :: fullname) + call path_from_file(mask, dir) + allocate(statuses(size(files))) do i = 1, size(files) - statuses(i) = upload(url, files(i)) + call combine_paths(dir, files(i), fullname) + statuses(i) = upload(url, fullname) end do res = all(statuses) deallocate(statuses) deallocate(files) + deallocate(dir) + deallocate(fullname) else |