Actual source code: globusobtaintransfers.c

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

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

      6: */

      8: #include <petscsys.h>

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

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

     22: /*TEST

     24:    build:
     25:      requires: ssl

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

     30: TEST*/