int apHeaderHandler()

in src/generic/response_ap.c [32:146]

• 92 lines of code
• 17 McCabe index (conditional complexity)

int apHeaderHandler(Tcl_Interp * interp, ResponseObj * responseObj,
		    Tcl_Obj * out)
{

    Tcl_Obj *httpResponse = NULL;
    request_rec *r = NULL;

    /* --------------------------------------------------------------------------
     * sanity
     * ----------------------------------------------------------------------- */
    if ((interp == NULL) || (responseObj == NULL))
	return TCL_ERROR;
    if (responseObj->sendHeader == 1) {

	HashTableIterator iterator;
	char *key;
	Tcl_Obj *headerList;

	r = (request_rec *) Tcl_GetAssocData(interp, WEB_AP_ASSOC_DATA, NULL);
	if (r == NULL) {
	    Tcl_SetResult(interp, "error accessing httpd request object",
			  NULL);
	    return TCL_ERROR;
	}

	httpResponse = responseObj->httpresponse;
	if (httpResponse != NULL) {

	  /* note: looks like this is the only way to set a status line in ap
	   * - still looking for better solutions, though */

	  /* 404 not found */
	  char *response = strchr(Tcl_GetString(httpResponse), (int) ' ');
	  /* _not found */
	  if (response)
#ifndef APACHE2
	      /* not found */
		r->status_line = ap_pstrdup(r->pool, ++response);
#else /* APACHE2 */
		r->status_line = (char *) apr_pstrdup(r->pool, ++response);
		/* as of Apache 2.2.1, r->status_line must be in line with
		   r->status, therefore r->status must be set too */
		if (strlen(response) > 3) {
		  /* status code must be 3 digit numeric, which is supposed
		     to be followed by a blank in the status line */
		  char tmp = response[3];
		  response[3] = 0;
		  Tcl_GetInt(interp, response, &(r->status));
		  response[3] = tmp;
		}
		
#endif /* APACHE2 */
	}
	assignIteratorToHashTable(responseObj->headers, &iterator);
	while (nextFromHashIterator(&iterator) != TCL_ERROR) {
	    key = keyOfCurrent(&iterator);
	    if (key != NULL) {
		headerList = (Tcl_Obj *) valueOfCurrent(&iterator);
		if (headerList != NULL) {
		    int lobjc = -1;
		    Tcl_Obj **lobjv = NULL;
		    int i;
		    if (Tcl_ListObjGetElements(interp, headerList,
					       &lobjc, &lobjv) == TCL_ERROR) {
			LOG_MSG(interp, WRITE_LOG,
				__FILE__, __LINE__,
				"web::put", WEBLOG_ERROR,
				(char *) Tcl_GetStringResult(interp), NULL);
			return TCL_ERROR;
		    }

		    if (lobjc) {
#ifndef APACHE2
		      if (STRCASECMP(key, "Content-Type") == 0) {
			r->content_type =
			  ap_pstrdup(r->pool, Tcl_GetString(lobjv[0]));
		      } else {
			ap_table_set(r->headers_out,
				     key,
				     Tcl_GetString(lobjv[0]));
			for (i = 1; i < lobjc; i++) {
			  ap_table_add(r->headers_out,
				       key,
				       Tcl_GetString(lobjv[i]));
			}
		      }
#else /* APACHE2 */
		      if (STRCASECMP(key, "Content-Type") == 0) {
			r->content_type =
			  (char *) apr_pstrdup(r->pool, Tcl_GetString(lobjv[0]));
		      } else {
			apr_table_set(r->headers_out,
				      key,
				      Tcl_GetString(lobjv[0]));
			for (i = 1; i < lobjc; i++) {
			  apr_table_add(r->headers_out,
					key,
					Tcl_GetString(lobjv[i]));
			}
		      }
#endif /* APACHE2 */
		    }
		}
	    }
	}
#ifndef APACHE2
	ap_send_http_header(r);
#else /* APACHE2 */
	/* not needed in ap 2.0 anymore (according to Justin Erenkrantz) */
	/* ap_send_http_header(r); */
#endif /* APACHE2 */
	responseObj->sendHeader = 0;
    }
    return TCL_OK;
}