diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-06-29 16:06:44 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-06-29 16:06:44 -0400 |
| commit | cd4a5891b8e2a019fdfda7512d6490e075628292 (patch) | |
| tree | 8012dc7dc52f17632f5b429dea79709e55ab96c4 /player/player.F90 | |
| parent | d282a7e283a1704cdde2649c7caf130fb923051a (diff) | |
| download | levitating-cd4a5891b8e2a019fdfda7512d6490e075628292.tar.gz levitating-cd4a5891b8e2a019fdfda7512d6490e075628292.zip | |
Tokens are now checked for file uploads. Fixed major buffer bugs in status reporting.
Diffstat (limited to 'player/player.F90')
| -rw-r--r-- | player/player.F90 | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/player/player.F90 b/player/player.F90 index 121b441..2233aff 100644 --- a/player/player.F90 +++ b/player/player.F90 @@ -71,6 +71,7 @@ implicit none call get_instruction_name_from_checkin(j_checkin, instruction_name) call get_instruction_url(instruction_name, url) + instr_json_available = request_json(url, j_instructions) if(instr_json_available) then @@ -117,7 +118,8 @@ contains Print *, " -h Display this help" Print *, " -w <dir> Use dir as the working directory" Print *, " -l <log> Use log as the logfile" - Print *, " -i <identity> This players identity" + Print *, " -i <identity> This player's identity" + Print *, " -t <token> This player's security token" end subroutine usage @@ -158,6 +160,10 @@ contains else if(trim(option) == "-i") then i = i + 1 call get_command_argument(i, identity) + + else if(trim(option) == "-t") then + i = i + 1 + call get_command_argument(i, token) end if |