Actual source code: globusobtaintransfers.c


  2: /*
  3:      Shows any outstanding Globus file requests

  5:      You can run PETSc programs with -globus_access_token XXXX where XXX is the access token to access Globus

  7: */

  9: #include <petscsys.h>

 11: int main(int argc, char **argv)
 12: {
 13:   char buff[4096];

 15:   PetscFunctionBeginUser;
 16:   PetscCall(PetscInitialize(&argc, &argv, NULL, NULL));
 17:   PetscCall(PetscGlobusGetTransfers(PETSC_COMM_WORLD, NULL, buff, sizeof(buff)));
 18:   PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Transfers are %s\n", buff));
 19:   PetscCall(PetscFinalize());
 20:   return 0;
 21: }

 23: /*TEST

 25:    build:
 26:      requires: ssl

 28:    test:
 29:      TODO: determine how to run this test without going through the browser

 31: TEST*/