aboutsummaryrefslogtreecommitdiff
path: root/player/tasks.f90
diff options
context:
space:
mode:
Diffstat (limited to 'player/tasks.f90')
-rw-r--r--player/tasks.f9010
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)