From 137bcd5810c49fcecd75f4d51f2043f55c3a96f2 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Wed, 14 Apr 2021 11:18:49 -0400 Subject: Added Windows support for getting directory and file listings --- player/tasks.f90 | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) (limited to 'player') 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) -- cgit v1.2.3