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*/