Commit ec22ca6c authored by Matthias Redies's avatar Matthias Redies

implement curl command in fleur

parent f16ccb37
...@@ -134,9 +134,15 @@ CONTAINS ...@@ -134,9 +134,15 @@ CONTAINS
WRITE (*,*) "usage.json not send, because this is a debugging run." WRITE (*,*) "usage.json not send, because this is a debugging run."
#else #else
!Send using curl !Send using curl
!CALL system('curl -H "Content-Type: application/json" --data @usage.json '\\URL_STRING) call execute_command_line(&
WRITE (*,*) "CURL call not yet implemented" 'curl -X POST -H "Content-Type: application/json" -d @usage.json https://docker.iff.kfa-juelich.de/fleur-usage-stats/',&
PRINT *,"Usage data send using curl: usage.json" exitstat=ierr)
if(ierr == 0) then
write (*,*) "Usage data send using curl: usage.json"
else
write (*,*) "Usage data sending failed"
endif
#endif #endif
ENDIF ENDIF
!#else !#else
......
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