static PetscErrorCode PetscHTTPBuildRequest(const char type[],const char url[],const char header[],const char ctype[],const char body[],char **outrequest)
{
char *request=0;
char contentlength[40],contenttype[80],*path,*host;
size_t request_len,headlen,bodylen,contentlen,pathlen,hostlen,typelen,contenttypelen = 0;
PetscErrorCode ierr;
PetscBool flg;
PetscFunctionBegin;
ierr = PetscStrallocpy(url,&host);CHKERRQ(ierr);
ierr = PetscStrchr(host,'/',&path);CHKERRQ(ierr);
if (!path) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONGSTATE,"url must contain / it is %s",url);
*path = 0;
ierr = PetscStrlen(host,&hostlen);CHKERRQ(ierr);
ierr = PetscStrchr(url,'/',&path);CHKERRQ(ierr);
ierr = PetscStrlen(path,&pathlen);CHKERRQ(ierr);
if (header) {
ierr = PetscStrendswith(header,"\r\n",&flg);CHKERRQ(ierr);
if (!flg) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONG,"header must end with \\r\\n");
}
ierr = PetscStrlen(type,&typelen);CHKERRQ(ierr);
if (ctype) {
ierr = PetscSNPrintf(contenttype,80,"Content-Type: %s\r\n",ctype);CHKERRQ(ierr);
ierr = PetscStrlen(contenttype,&contenttypelen);CHKERRQ(ierr);
}
ierr = PetscStrlen(header,&headlen);CHKERRQ(ierr);
ierr = PetscStrlen(body,&bodylen);CHKERRQ(ierr);
ierr = PetscSNPrintf(contentlength,40,"Content-Length: %d\r\n\r\n",(int)bodylen);CHKERRQ(ierr);
ierr = PetscStrlen(contentlength,&contentlen);CHKERRQ(ierr);
/* Now construct our HTTP request */
request_len = typelen + 1 + pathlen + hostlen + 100 + headlen + contenttypelen + contentlen + bodylen + 1;
ierr = PetscMalloc1(request_len,&request);CHKERRQ(ierr);
ierr = PetscStrcpy(request,type);CHKERRQ(ierr);
ierr = PetscStrcat(request," ");CHKERRQ(ierr);
ierr = PetscStrcat(request,path);CHKERRQ(ierr);
ierr = PetscStrcat(request," HTTP/1.1\r\nHost: ");CHKERRQ(ierr);
ierr = PetscStrcat(request,host);CHKERRQ(ierr);
ierr = PetscFree(host);CHKERRQ(ierr);
ierr = PetscStrcat(request,"\r\nUser-Agent:PETScClient\r\n");CHKERRQ(ierr);
ierr = PetscStrcat(request,header);CHKERRQ(ierr);
if (ctype) {
ierr = PetscStrcat(request,contenttype);CHKERRQ(ierr);
}
ierr = PetscStrcat(request,contentlength);CHKERRQ(ierr);
ierr = PetscStrcat(request,body);CHKERRQ(ierr);
ierr = PetscStrlen(request,&request_len);CHKERRQ(ierr);
ierr = PetscInfo1(NULL,"HTTPS request follows: \n%s\n",request);CHKERRQ(ierr);
*outrequest = request;
PetscFunctionReturn(0);
}
/*
Removes all zeros but one from .0000
*/
PetscErrorCode PetscStripe0(char *buf)
{
PetscErrorCode ierr;
size_t n;
PetscBool flg;
char *str;
PetscFunctionBegin;
ierr = PetscStrlen(buf,&n);CHKERRQ(ierr);
ierr = PetscStrendswith(buf,"e00",&flg);CHKERRQ(ierr);
if (flg) buf[n-3] = 0;
ierr = PetscStrstr(buf,"e0",&str);CHKERRQ(ierr);
if (str) {
buf[n-2] = buf[n-1];
buf[n-1] = 0;
}
ierr = PetscStrstr(buf,"e-0",&str);CHKERRQ(ierr);
if (str) {
buf[n-2] = buf[n-1];
buf[n-1] = 0;
}
PetscFunctionReturn(0);
}
