Commit b18df968 authored by Matthias Redies's avatar Matthias Redies

catch if curl fails

parent 0e8ba9cb
...@@ -83,7 +83,7 @@ CONTAINS ...@@ -83,7 +83,7 @@ CONTAINS
use m_juDFT_args use m_juDFT_args
use m_juDFT_string use m_juDFT_string
IMPLICIT NONE IMPLICIT NONE
INTEGER :: i,ierr,pid,dt(8) INTEGER :: i,ierr(2),pid,dt(8)
CHARACTER(len=200) :: model, modelname, VmPeak, VmSize, VmData, VmStk, VmExe, VmSwap CHARACTER(len=200) :: model, modelname, VmPeak, VmSize, VmData, VmStk, VmExe, VmSwap
INTEGER(8) :: r INTEGER(8) :: r
#ifdef CPP_MPI #ifdef CPP_MPI
...@@ -136,8 +136,8 @@ CONTAINS ...@@ -136,8 +136,8 @@ CONTAINS
!Send using curl !Send using curl
call execute_command_line(& call execute_command_line(&
'curl -X POST -H "Content-Type: application/json" -d @usage.json https://docker.iff.kfa-juelich.de/fleur-usage-stats/',& 'curl -X POST -H "Content-Type: application/json" -d @usage.json https://docker.iff.kfa-juelich.de/fleur-usage-stats/',&
exitstat=ierr) exitstat=ierr(1), cmdstat=ierr(2))
if(ierr == 0) then if(all(ierr == 0)) then
write (*,*) "Usage data send using curl: usage.json" write (*,*) "Usage data send using curl: usage.json"
else else
write (*,*) "Usage data sending failed" 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