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"

     18: /*@C
     19:      PetscGoogleDriveRefresh - Get a new authorization token for accessing Google drive from PETSc from a refresh token

     21:    Not collective, only the first process in the MPI_Comm does anything

     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

     29:    Output Parameter:
     30: .   access_token - token that can be passed to PetscGoogleDriveUpload()

     32:    Options Database:
     33: .  -google_refresh_token XXX - where XXX was obtained from PetscGoogleDriveAuthorize()

     35:    Level: intermediate

     37: .seealso: PetscURLShorten(), PetscGoogleDriveAuthorize(), PetscGoogleDriveUpload()

     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;
     46:   char           buff[8*1024],body[1024];
     47:   PetscMPIInt    rank;
     48:   char           *refreshtoken = (char*)refresh_token;
     49:   PetscBool      found;

     52:   MPI_Comm_rank(comm,&rank);
     53:   if (!rank) {
     54:     if (!refresh_token) {
     55:       PetscBool set;
     56:       PetscMalloc1(512,&refreshtoken);
     57:       PetscOptionsGetString(NULL,NULL,"-google_refresh_token",refreshtoken,sizeof(refreshtoken),&set);
     58:       if (!set) {
     59:         PetscGoogleDriveAuthorize(comm,access_token,refreshtoken,512*sizeof(char));
     60:         PetscFree(refreshtoken);
     61:         return(0);
     62:       }
     63:     }
     64:     PetscSSLInitializeContext(&ctx);
     65:     PetscHTTPSConnect("accounts.google.com",443,ctx,&sock,&ssl);
     66:     PetscStrcpy(body,"client_id=");
     67:     PetscStrcat(body,PETSC_GOOGLE_CLIENT_ID);
     68:     PetscStrcat(body,"&client_secret=");
     69:     PetscStrcat(body,PETSC_GOOGLE_CLIENT_ST);
     70:     PetscStrcat(body,"&refresh_token=");
     71:     PetscStrcat(body,refreshtoken);
     72:     if (!refresh_token) {PetscFree(refreshtoken);}
     73:     PetscStrcat(body,"&grant_type=refresh_token");

     75:     PetscHTTPSRequest("POST","accounts.google.com/o/oauth2/token",NULL,"application/x-www-form-urlencoded",body,ssl,buff,sizeof(buff));
     76:     PetscSSLDestroyContext(ctx);
     77:     close(sock);

     79:     PetscPullJSONValue(buff,"access_token",access_token,tokensize,&found);
     80:     if (!found) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_LIB,"Google drive did not return access_token");
     81:   }
     82:   return(0);
     83: }

     85: #include <sys/stat.h>

     87: /*@C
     88:      PetscGoogleDriveUpload - Loads a file to the Google Drive

     90:      Not collective, only the first process in the MPI_Comm uploads the file

     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

     97:   Options Database:
     98: .  -google_refresh_token   XXX

    100:   Usage Patterns:
    101:     With PETSc option -google_refresh_token  XXX given
    102:     PetscGoogleDriveUpload(comm,NULL,filename);        will upload file with no user interaction

    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

    107:     With PETSc option -google_refresh_token  XXX given
    108:     PetscGoogleDriveRefresh(comm,NULL,access_token,sizeof(access_token));
    109:     PetscGoogleDriveUpload(comm,access_token,filename);

    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);

    115:     PetscGoogleDriveAuthorize(comm,access_token,refresh_token,sizeof(access_token));
    116:     PetscGoogleDriveUpload(comm,access_token,filename);

    118:    Level: intermediate

    120: .seealso: PetscURLShorten(), PetscGoogleDriveAuthorize(), PetscGoogleDriveRefresh()

    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;
    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;

    137:   MPI_Comm_rank(comm,&rank);
    138:   if (!rank) {
    139:     PetscStrcpy(head,"Authorization: Bearer ");
    140:     PetscStrcat(head,access_token);
    141:     PetscStrcat(head,"\r\n");
    142:     PetscStrcat(head,"uploadType: multipart\r\n");

    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:     PetscMalloc1(len,&body);
    148:     PetscStrcpy(body,"--foo_bar_baz\r\n"
    149:                             "Content-Type: application/json\r\n\r\n"
    150:                             "{");
    151:     PetscPushJSONValue(body,"title",filename,len);
    152:     PetscStrcat(body,",");
    153:     PetscPushJSONValue(body,"mimeType","text.html",len);
    154:     PetscStrcat(body,",");
    155:     PetscPushJSONValue(body,"description","a file",len);
    156:     PetscStrcat(body,"}\r\n\r\n"
    157:                             "--foo_bar_baz\r\n"
    158:                             "Content-Type: text/html\r\n\r\n");
    159:     PetscStrlen(body,&blen);
    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:     PetscStrcat(body,"\r\n\r\n"
    167:                             "--foo_bar_baz\r\n");
    168:     PetscSSLInitializeContext(&ctx);
    169:     PetscHTTPSConnect("www.googleapis.com",443,ctx,&sock,&ssl);
    170:     PetscHTTPSRequest("POST","www.googleapis.com/upload/drive/v2/files/",head,"multipart/related; boundary=\"foo_bar_baz\"",body,ssl,buff,sizeof(buff));
    171:     PetscFree(body);
    172:     PetscSSLDestroyContext(ctx);
    173:     close(sock);
    174:     PetscStrstr(buff,"\"title\"",&title);
    175:     if (!title) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_LIB,"Upload of file %s failed",filename);
    176:   }
    177:   return(0);
    178: }

    180: #if defined(PETSC_HAVE_UNISTD_H)
    181: #include <unistd.h>
    182: #endif

    184: /*@C
    185:      PetscGoogleDriveAuthorize - Get authorization and refresh token for accessing Google drive from PETSc

    187:    Not collective, only the first process in MPI_Comm does anything

    189:    Input Parameters:
    190: +  comm - the MPI communicator
    191: -  tokensize - size of the token arrays

    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

    198:    Notes:
    199:     This call requires stdout and stdin access from process 0 on the MPI communicator

    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

    204:    Level: intermediate

    206: .seealso: PetscGoogleDriveRefresh(), PetscGoogleDriveUpload(), PetscURLShorten()

    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;
    215:   char           buff[8*1024],*ptr,body[1024];
    216:   PetscMPIInt    rank;
    217:   size_t         len;
    218:   PetscBool      found;

    221:   MPI_Comm_rank(comm,&rank);
    222:   if (!rank) {
    223:     if (!isatty(fileno(PETSC_STDOUT))) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_USER,"Requires users input/output");
    224:     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");
    232:     PetscPrintf(comm,"Paste the result here:");
    233:     ptr  = fgets(buff, 1024, stdin);
    234:     if (!ptr) SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_FILE_READ, "Error reading from stdin: %d", errno);
    235:     PetscStrlen(buff,&len);
    236:     buff[len-1] = 0; /* remove carriage return at end of line */

    238:     PetscSSLInitializeContext(&ctx);
    239:     PetscHTTPSConnect("accounts.google.com",443,ctx,&sock,&ssl);
    240:     PetscStrcpy(body,"code=");
    241:     PetscStrcat(body,buff);
    242:     PetscStrcat(body,"&client_id=");
    243:     PetscStrcat(body,PETSC_GOOGLE_CLIENT_ID);
    244:     PetscStrcat(body,"&client_secret=");
    245:     PetscStrcat(body,PETSC_GOOGLE_CLIENT_ST);
    246:     PetscStrcat(body,"&redirect_uri=urn:ietf:wg:oauth:2.0:oob&");
    247:     PetscStrcat(body,"grant_type=authorization_code");

    249:     PetscHTTPSRequest("POST","accounts.google.com/o/oauth2/token",NULL,"application/x-www-form-urlencoded",body,ssl,buff,sizeof(buff));
    250:     PetscSSLDestroyContext(ctx);
    251:     close(sock);

    253:     PetscPullJSONValue(buff,"access_token",access_token,tokensize,&found);
    254:     if (!found) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_LIB,"Google drive did not return access_token");
    255:     PetscPullJSONValue(buff,"refresh_token",refresh_token,tokensize,&found);
    256:     if (!found) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_LIB,"Google drive did not return refresh_token");

    258:     PetscPrintf(comm,"Here is your Google refresh token, save it in a save place, in the future you can run PETSc\n");
    259:     PetscPrintf(comm,"programs with the option -google_refresh_token %s\n",refresh_token);
    260:     PetscPrintf(comm,"to access Google Drive automatically\n");
    261:   }
    262:   return(0);
    263: }

    266: /*@C
    267:      PetscURLShorten - Uses Google's service to get a short url for a long url

    269:     Input Parameters:
    270: +    url - long URL you want shortened
    271: -    lenshorturl - length of buffer to contain short URL

    273:     Output Parameter:
    274: .    shorturl - the shortened URL

    276:    Level: intermediate

    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;
    286:   char           buff[1024],body[512],post[1024];
    287:   PetscBool      found;

    290:   PetscSSLInitializeContext(&ctx);
    291:   PetscHTTPSConnect("www.googleapis.com",443,ctx,&sock,&ssl);
    292:   PetscStrcpy(body,"{");
    293:   PetscPushJSONValue(body,"longUrl",url,sizeof(body)-2);
    294:   PetscStrcat(body,"}");
    295:   PetscSNPrintf(post,sizeof(post),"www.googleapis.com/urlshortener/v1/url?key=%s",PETSC_GOOGLE_API_KEY);
    296:   PetscHTTPSRequest("POST",post,NULL,"application/json",body,ssl,buff,sizeof(buff));
    297:   PetscSSLDestroyContext(ctx);
    298:   close(sock);

    300:   PetscPullJSONValue(buff,"id",shorturl,lenshorturl,&found);
    301:   if (!found) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_LIB,"Google drive did not return short URL");
    302:   return(0);
    303: }