The R Project SVN – R – Diff – /trunk/src/modules/internet/nanohttp.c



    }
    /*if (proxyPort != 0) {
	proxyPort = 0;
	}*/
    if (URL == NULL)
	RxmlMessage(0, _("removing HTTP proxy info"));
    else
	RxmlMessage(1, _("using HTTP proxy '%s'"), URL);
    if (URL == NULL) return;
    buf[indx] = 0;
    while (*cur != 0) {
        if ((cur[0] == ':') && (cur[1] == '/') && (cur[2] == '/')) {
	    buf[indx] = 0;

    }
#endif
 
    if ((ctxt->location != NULL) && (ctxt->returnValue >= 300) &&
        (ctxt->returnValue < 400)) {
	RxmlMessage(1, _("redirect to: '%s'"), ctxt->location);
	while (RxmlNanoHTTPRecv(ctxt)) ;
        if (nbRedirects < XML_NANO_HTTP_MAX_REDIR) {
	    nbRedirects++;
	    redirURL = xmlMemStrdup(ctxt->location);
	    RxmlNanoHTTPFreeCtxt(ctxt);
	    goto retry;
	}
	RxmlNanoHTTPFreeCtxt(ctxt);
	RxmlMessage(2, _("too many redirects, aborting ..."));
	return(NULL);
 
    }
 
    if (contentType != NULL) {

Rev 32886	Rev 33297
Line 402...	Line 402...
402	`}`	402	`}`
403	`/*if (proxyPort != 0) {`	403	`/*if (proxyPort != 0) {`
404	`proxyPort = 0;`	404	`proxyPort = 0;`
405	`}*/`	405	`}*/`
406	`if (URL == NULL)`	406	`if (URL == NULL)`
407	`RxmlMessage(0, _("Removing HTTP proxy info"));`	407	`RxmlMessage(0, _("removing HTTP proxy info"));`
408	`else`	408	`else`
409	`RxmlMessage(1, _("Using HTTP proxy %s"), URL);`	409	`RxmlMessage(1, _("using HTTP proxy '%s'"), URL);`
410	`if (URL == NULL) return;`	410	`if (URL == NULL) return;`
411	`buf[indx] = 0;`	411	`buf[indx] = 0;`
412	`while (*cur != 0) {`	412	`while (*cur != 0) {`
413	`if ((cur[0] == ':') && (cur[1] == '/') && (cur[2] == '/')) {`	413	`if ((cur[0] == ':') && (cur[1] == '/') && (cur[2] == '/')) {`
414	`buf[indx] = 0;`	414	`buf[indx] = 0;`
Line 1271...	Line 1271...
1271	`}`	1271	`}`
1272	`#endif`	1272	`#endif`
1273		1273
1274	`if ((ctxt->location != NULL) && (ctxt->returnValue >= 300) &&`	1274	`if ((ctxt->location != NULL) && (ctxt->returnValue >= 300) &&`
1275	`(ctxt->returnValue < 400)) {`	1275	`(ctxt->returnValue < 400)) {`
1276	`RxmlMessage(1, _("Redirect to: %s"), ctxt->location);`	1276	`RxmlMessage(1, _("redirect to: '%s'"), ctxt->location);`
1277	`while (RxmlNanoHTTPRecv(ctxt)) ;`	1277	`while (RxmlNanoHTTPRecv(ctxt)) ;`
1278	`if (nbRedirects < XML_NANO_HTTP_MAX_REDIR) {`	1278	`if (nbRedirects < XML_NANO_HTTP_MAX_REDIR) {`
1279	`nbRedirects++;`	1279	`nbRedirects++;`
1280	`redirURL = xmlMemStrdup(ctxt->location);`	1280	`redirURL = xmlMemStrdup(ctxt->location);`
1281	`RxmlNanoHTTPFreeCtxt(ctxt);`	1281	`RxmlNanoHTTPFreeCtxt(ctxt);`
1282	`goto retry;`	1282	`goto retry;`
1283	`}`	1283	`}`
1284	`RxmlNanoHTTPFreeCtxt(ctxt);`	1284	`RxmlNanoHTTPFreeCtxt(ctxt);`
1285	`RxmlMessage(2, _("Too many redirects, aborting ..."));`	1285	`RxmlMessage(2, _("too many redirects, aborting ..."));`
1286	`return(NULL);`	1286	`return(NULL);`
1287		1287
1288	`}`	1288	`}`
1289		1289
1290	`if (contentType != NULL) {`	1290	`if (contentType != NULL) {`

The R Project SVN R

(root)/trunk/src/modules/internet/nanohttp.c @ 34412 – Rev 32886 → 33297