diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-14 11:18:49 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-14 11:18:49 -0400 |
| commit | 137bcd5810c49fcecd75f4d51f2043f55c3a96f2 (patch) | |
| tree | 01d13c6d614a3fd95527795a3a5f9838e7dbdcfe /player | |
| parent | 05b91a7ca0aace044621d8db1e82f4772181d893 (diff) | |
| download | levitating-137bcd5810c49fcecd75f4d51f2043f55c3a96f2.tar.gz levitating-137bcd5810c49fcecd75f4d51f2043f55c3a96f2.zip | |
Added Windows support for getting directory and file listings
Diffstat (limited to 'player')
| -rw-r--r-- | player/tasks.f90 | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/player/tasks.f90 b/player/tasks.f90 index 2487e73..451bc5a 100644 --- a/player/tasks.f90 +++ b/player/tasks.f90 @@ -109,7 +109,7 @@ contains end function upload_glob - recursive function upload(url, source_filename) result(res) + function upload(url, source_filename) result(res) use config, only: token, captain use gemini_protocol, only: titan_post_url, STATUS_SUCCESS implicit none @@ -123,14 +123,6 @@ contains integer(kind=8)::file_size integer::unit_number, istatus, url_length, i - ! Check for globbing - sloppy, but still... - if(index(source_filename, "*") > 0 .or. index(source_filename, "?") > 0) then - - res = upload_glob(url, source_filename) - return - - end if - ! If we're here, we have a single filename to upload inquire(file=source_filename, size=file_size) |