Actual source code: google.c
2: #include <petscwebclient.h>
3: #pragma clang diagnostic ignored "-Wdeprecated-declarations"
4: #pragma gcc diagnostic ignored "-Wdeprecated-declarations"
6: /*
7: These variables identify the code as a PETSc application to Google.
9: See - https://stackoverflow.com/questions/4616553/using-oauth-in-free-open-source-software
10: Users can get their own application IDs - https://code.google.com/p/google-apps-manager/wiki/GettingAnOAuthConsoleKey
12: */
13: #define PETSC_GOOGLE_CLIENT_ID "521429262559-i19i57eek8tnt9ftpp4p91rcl0bo9ag5.apps.googleusercontent.com"
14: #define PETSC_GOOGLE_CLIENT_ST "vOds_A71I3_S_aHMq_kZAI0t"
15: #define PETSC_GOOGLE_API_KEY "AIzaSyDRZsOcySpWVzsUvIBL2UG3J2tcg-MXbyk"
17: /*@C
18: PetscGoogleDriveRefresh - Get a new authorization token for accessing Google drive from PETSc from a refresh token
20: Not collective, only the first process in the `MPI_Comm` does anything
22: Input Parameters:
23: + comm - MPI communicator
24: . refresh token - obtained with `PetscGoogleDriveAuthorize()`, if NULL PETSc will first look for one in the options data
25: if not found it will call `PetscGoogleDriveAuthorize()`
26: - tokensize - size of the output string access_token
28: Output Parameter:
29: . access_token - token that can be passed to `PetscGoogleDriveUpload()`
31: Options Database Key:
32: . -google_refresh_token XXX - where XXX was obtained from `PetscGoogleDriveAuthorize()`
34: Level: intermediate
36: .seealso: `PetscURLShorten()`, `PetscGoogleDriveAuthorize()`, `PetscGoogleDriveUpload()`
37: @*/
38: PetscErrorCode PetscGoogleDriveRefresh(MPI_Comm comm, const char refresh_token[], char access_token[], size_t tokensize)
39: {
40: SSL_CTX *ctx;
41: SSL *ssl;
42: int sock;
43: char buff[8 * 1024], body[1024];
44: PetscMPIInt rank;
45: char *refreshtoken = (char *)refresh_token;
46: PetscBool found;
48: PetscFunctionBegin;
49: PetscCallMPI(MPI_Comm_rank(comm, &rank));
50: if (rank == 0) {
51: if (!refresh_token) {
52: PetscBool set;
53: PetscCall(PetscMalloc1(512, &refreshtoken));
54: PetscCall(PetscOptionsGetString(NULL, NULL, "-google_refresh_token", refreshtoken, sizeof(refreshtoken), &set));
55: if (!set) {
56: PetscCall(PetscGoogleDriveAuthorize(comm, access_token, refreshtoken, 512 * sizeof(char)));
57: PetscCall(PetscFree(refreshtoken));
58: PetscFunctionReturn(PETSC_SUCCESS);
59: }
60: }
61: PetscCall(PetscSSLInitializeContext(&ctx));
62: PetscCall(PetscHTTPSConnect("accounts.google.com", 443, ctx, &sock, &ssl));
63: PetscCall(PetscStrcpy(body, "client_id="));
64: PetscCall(PetscStrcat(body, PETSC_GOOGLE_CLIENT_ID));
65: PetscCall(PetscStrcat(body, "&client_secret="));
66: PetscCall(PetscStrcat(body, PETSC_GOOGLE_CLIENT_ST));
67: PetscCall(PetscStrcat(body, "&refresh_token="));
68: PetscCall(PetscStrcat(body, refreshtoken));
69: if (!refresh_token) PetscCall(PetscFree(refreshtoken));
70: PetscCall(PetscStrcat(body, "&grant_type=refresh_token"));
72: PetscCall(PetscHTTPSRequest("POST", "accounts.google.com/o/oauth2/token", NULL, "application/x-www-form-urlencoded", body, ssl, buff, sizeof(buff)));
73: PetscCall(PetscSSLDestroyContext(ctx));
74: close(sock);
76: PetscCall(PetscPullJSONValue(buff, "access_token", access_token, tokensize, &found));
77: PetscCheck(found, PETSC_COMM_SELF, PETSC_ERR_LIB, "Google drive did not return access_token");
78: }
79: PetscFunctionReturn(PETSC_SUCCESS);
80: }
82: #include <sys/stat.h>
84: /*@C
85: PetscGoogleDriveUpload - Loads a file to the Google Drive
87: Not collective, only the first process in the `MPI_Comm` uploads the file
89: Input Parameters:
90: + comm - MPI communicator
91: . access_token - obtained with PetscGoogleDriveRefresh(), pass NULL to have PETSc generate one
92: - filename - file to upload; if you upload multiple times it will have different names each time on Google Drive
94: Options Database Key:
95: . -google_refresh_token XXX - pass the access token for the operation
97: Usage Patterns:
98: .vb
99: With PETSc option -google_refresh_token XXX given
100: PetscGoogleDriveUpload(comm,NULL,filename); will upload file with no user interaction
102: Without PETSc option -google_refresh_token XXX given
103: PetscGoogleDriveUpload(comm,NULL,filename); for first use will prompt user to authorize access to Google Drive with their browser
105: With PETSc option -google_refresh_token XXX given
106: PetscGoogleDriveRefresh(comm,NULL,access_token,sizeof(access_token));
107: PetscGoogleDriveUpload(comm,access_token,filename);
109: With refresh token entered in some way by the user
110: PetscGoogleDriveRefresh(comm,refresh_token,access_token,sizeof(access_token));
111: PetscGoogleDriveUpload(comm,access_token,filename);
113: PetscGoogleDriveAuthorize(comm,access_token,refresh_token,sizeof(access_token));
114: PetscGoogleDriveUpload(comm,access_token,filename);
115: .ve
117: Level: intermediate
119: .seealso: `PetscURLShorten()`, `PetscGoogleDriveAuthorize()`, `PetscGoogleDriveRefresh()`
120: @*/
121: PetscErrorCode PetscGoogleDriveUpload(MPI_Comm comm, const char access_token[], const char filename[])
122: {
123: SSL_CTX *ctx;
124: SSL *ssl;
125: int sock;
126: char head[1024], buff[8 * 1024], *body, *title;
127: PetscMPIInt rank;
128: struct stat sb;
129: size_t len, blen, rd;
130: FILE *fd;
131: int err;
133: PetscFunctionBegin;
134: PetscCallMPI(MPI_Comm_rank(comm, &rank));
135: if (rank == 0) {
136: PetscCall(PetscStrcpy(head, "Authorization: Bearer "));
137: PetscCall(PetscStrcat(head, access_token));
138: PetscCall(PetscStrcat(head, "\r\n"));
139: PetscCall(PetscStrcat(head, "uploadType: multipart\r\n"));
141: err = stat(filename, &sb);
142: PetscCheck(!err, PETSC_COMM_SELF, PETSC_ERR_FILE_OPEN, "Unable to stat file: %s", filename);
143: len = 1024 + sb.st_size;
144: PetscCall(PetscMalloc1(len, &body));
145: PetscCall(PetscStrcpy(body, "--foo_bar_baz\r\n"
146: "Content-Type: application/json\r\n\r\n"
147: "{"));
148: PetscCall(PetscPushJSONValue(body, "title", filename, len));
149: PetscCall(PetscStrcat(body, ","));
150: PetscCall(PetscPushJSONValue(body, "mimeType", "text.html", len));
151: PetscCall(PetscStrcat(body, ","));
152: PetscCall(PetscPushJSONValue(body, "description", "a file", len));
153: PetscCall(PetscStrcat(body, "}\r\n\r\n"
154: "--foo_bar_baz\r\n"
155: "Content-Type: text/html\r\n\r\n"));
156: PetscCall(PetscStrlen(body, &blen));
157: fd = fopen(filename, "r");
158: PetscCheck(fd, PETSC_COMM_SELF, PETSC_ERR_FILE_OPEN, "Unable to open file: %s", filename);
159: rd = fread(body + blen, sizeof(unsigned char), sb.st_size, fd);
160: PetscCheck(rd == (size_t)sb.st_size, PETSC_COMM_SELF, PETSC_ERR_FILE_OPEN, "Unable to read entire file: %s %d %d", filename, (int)rd, (int)sb.st_size);
161: fclose(fd);
162: body[blen + rd] = 0;
163: PetscCall(PetscStrcat(body, "\r\n\r\n"
164: "--foo_bar_baz\r\n"));
165: PetscCall(PetscSSLInitializeContext(&ctx));
166: PetscCall(PetscHTTPSConnect("www.googleapis.com", 443, ctx, &sock, &ssl));
167: PetscCall(PetscHTTPSRequest("POST", "www.googleapis.com/upload/drive/v2/files/", head, "multipart/related; boundary=\"foo_bar_baz\"", body, ssl, buff, sizeof(buff)));
168: PetscCall(PetscFree(body));
169: PetscCall(PetscSSLDestroyContext(ctx));
170: close(sock);
171: PetscCall(PetscStrstr(buff, "\"title\"", &title));
172: PetscCheck(title, PETSC_COMM_SELF, PETSC_ERR_LIB, "Upload of file %s failed", filename);
173: }
174: PetscFunctionReturn(PETSC_SUCCESS);
175: }
177: #if defined(PETSC_HAVE_UNISTD_H)
178: #include <unistd.h>
179: #endif
181: /*@C
182: PetscGoogleDriveAuthorize - Get authorization and refresh token for accessing Google drive from PETSc
184: Not collective, only the first process in `MPI_Comm` does anything
186: Input Parameters:
187: + comm - the MPI communicator
188: - tokensize - size of the token arrays
190: Output Parameters:
191: + access_token - can be used with `PetscGoogleDriveUpload()` for this one session
192: - refresh_token - can be used for ever to obtain new access_tokens with `PetscGoogleDriveRefresh()`, guard this like a password
193: it gives access to your Google Drive
195: Notes:
196: This call requires stdout and stdin access from process 0 on the MPI communicator
198: You can run src/sys/webclient/tutorials/googleobtainrefreshtoken to get a refresh token and then in the future pass it to
199: PETSc programs with -google_refresh_token XXX
201: Level: intermediate
203: .seealso: `PetscGoogleDriveRefresh()`, `PetscGoogleDriveUpload()`, `PetscURLShorten()`
204: @*/
205: PetscErrorCode PetscGoogleDriveAuthorize(MPI_Comm comm, char access_token[], char refresh_token[], size_t tokensize)
206: {
207: SSL_CTX *ctx;
208: SSL *ssl;
209: int sock;
210: char buff[8 * 1024], *ptr, body[1024];
211: PetscMPIInt rank;
212: size_t len;
213: PetscBool found;
215: PetscFunctionBegin;
216: PetscCallMPI(MPI_Comm_rank(comm, &rank));
217: if (rank == 0) {
218: PetscCheck(isatty(fileno(PETSC_STDOUT)), PETSC_COMM_SELF, PETSC_ERR_USER, "Requires users input/output");
219: PetscCall(PetscPrintf(comm, "Cut and paste the following into your browser:\n\n"
220: "https://accounts.google.com/o/oauth2/auth?"
221: "scope=https%%3A%%2F%%2Fwww.googleapis.com%%2Fauth%%2Fdrive.file&"
222: "redirect_uri=urn:ietf:wg:oauth:2.0:oob&"
223: "response_type=code&"
224: "client_id=" PETSC_GOOGLE_CLIENT_ID "\n\n"));
225: PetscCall(PetscPrintf(comm, "Paste the result here:"));
226: ptr = fgets(buff, 1024, stdin);
227: PetscCheck(ptr, PETSC_COMM_SELF, PETSC_ERR_FILE_READ, "Error reading from stdin: %d", errno);
228: PetscCall(PetscStrlen(buff, &len));
229: buff[len - 1] = 0; /* remove carriage return at end of line */
231: PetscCall(PetscSSLInitializeContext(&ctx));
232: PetscCall(PetscHTTPSConnect("accounts.google.com", 443, ctx, &sock, &ssl));
233: PetscCall(PetscStrcpy(body, "code="));
234: PetscCall(PetscStrcat(body, buff));
235: PetscCall(PetscStrcat(body, "&client_id="));
236: PetscCall(PetscStrcat(body, PETSC_GOOGLE_CLIENT_ID));
237: PetscCall(PetscStrcat(body, "&client_secret="));
238: PetscCall(PetscStrcat(body, PETSC_GOOGLE_CLIENT_ST));
239: PetscCall(PetscStrcat(body, "&redirect_uri=urn:ietf:wg:oauth:2.0:oob&"));
240: PetscCall(PetscStrcat(body, "grant_type=authorization_code"));
242: PetscCall(PetscHTTPSRequest("POST", "accounts.google.com/o/oauth2/token", NULL, "application/x-www-form-urlencoded", body, ssl, buff, sizeof(buff)));
243: PetscCall(PetscSSLDestroyContext(ctx));
244: close(sock);
246: PetscCall(PetscPullJSONValue(buff, "access_token", access_token, tokensize, &found));
247: PetscCheck(found, PETSC_COMM_SELF, PETSC_ERR_LIB, "Google drive did not return access_token");
248: PetscCall(PetscPullJSONValue(buff, "refresh_token", refresh_token, tokensize, &found));
249: PetscCheck(found, PETSC_COMM_SELF, PETSC_ERR_LIB, "Google drive did not return refresh_token");
251: PetscCall(PetscPrintf(comm, "Here is your Google refresh token, save it in a save place, in the future you can run PETSc\n"));
252: PetscCall(PetscPrintf(comm, "programs with the option -google_refresh_token %s\n", refresh_token));
253: PetscCall(PetscPrintf(comm, "to access Google Drive automatically\n"));
254: }
255: PetscFunctionReturn(PETSC_SUCCESS);
256: }
258: /*@C
259: PetscURLShorten - Uses Google's service to get a short url for a long url
261: Input Parameters:
262: + url - long URL you want shortened
263: - lenshorturl - length of buffer to contain short URL
265: Output Parameter:
266: . shorturl - the shortened URL
268: Level: intermediate
270: Note:
271: Google no longer provides this service so this routine will no longer function
273: .seealso: `PetscGoogleDriveRefresh()`, `PetscGoogleDriveUpload()`, `PetscGoogleDriveAuthorize()`
274: @*/
275: PetscErrorCode PetscURLShorten(const char url[], char shorturl[], size_t lenshorturl)
276: {
277: SSL_CTX *ctx;
278: SSL *ssl;
279: int sock;
280: char buff[1024], body[512], post[1024];
281: PetscBool found;
283: PetscFunctionBegin;
284: PetscCall(PetscSSLInitializeContext(&ctx));
285: PetscCall(PetscHTTPSConnect("www.googleapis.com", 443, ctx, &sock, &ssl));
286: PetscCall(PetscStrcpy(body, "{"));
287: PetscCall(PetscPushJSONValue(body, "longUrl", url, sizeof(body) - 2));
288: PetscCall(PetscStrcat(body, "}"));
289: PetscCall(PetscSNPrintf(post, sizeof(post), "www.googleapis.com/urlshortener/v1/url?key=%s", PETSC_GOOGLE_API_KEY));
290: PetscCall(PetscHTTPSRequest("POST", post, NULL, "application/json", body, ssl, buff, sizeof(buff)));
291: PetscCall(PetscSSLDestroyContext(ctx));
292: close(sock);
294: PetscCall(PetscPullJSONValue(buff, "id", shorturl, lenshorturl, &found));
295: PetscCheck(found, PETSC_COMM_SELF, PETSC_ERR_LIB, "Google drive did not return short URL");
296: PetscFunctionReturn(PETSC_SUCCESS);
297: }