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