diff options
| -rw-r--r-- | player/tasks.f90 | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/player/tasks.f90 b/player/tasks.f90 index b0c881e..e0eecfd 100644 --- a/player/tasks.f90 +++ b/player/tasks.f90 @@ -120,7 +120,14 @@ contains allocate(statuses(size(files))) do i = 1, size(files) - call combine_paths(dir, files(i), fullname) + + ! On some systems, we're getting subdirectories back... + if(index(files(i), '/') + index(files(i), '\') > 0) then + fullname = files(i) + else + call combine_paths(dir, files(i), fullname) + end if + statuses(i) = upload(url, fullname) end do @@ -157,10 +164,13 @@ contains ! If we're here, we have a single filename to upload inquire(file=source_filename, size=file_size, exist=file_exists) if((.not. file_exists) .or. (file_size == 0)) then + Print *, "File does not exist or size is 0: "//trim(source_filename), file_size res = .false. return end if + Print *, "Opening for upload: "//trim(source_filename) + open(newunit=unit_number, file=trim(source_filename), status='UNKNOWN', & access='STREAM', form='UNFORMATTED', iostat=istatus) |