Commit ec22ca6c authored by Matthias Redies's avatar Matthias Redies

implement curl command in fleur

parent f16ccb37
......@@ -134,9 +134,15 @@ CONTAINS
WRITE (*,*) "usage.json not send, because this is a debugging run."
!Send using curl
!CALL system('curl -H "Content-Type: application/json" --data @usage.json '\\URL_STRING)
WRITE (*,*) "CURL call not yet implemented"
PRINT *,"Usage data send using curl: usage.json"
call execute_command_line(&
'curl -X POST -H "Content-Type: application/json" -d @usage.json',&
if(ierr == 0) then
write (*,*) "Usage data send using curl: usage.json"
write (*,*) "Usage data sending failed"
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment