int psgi_response(struct wsgi_request *wsgi_req, AV *response) { SV **status_code, **hitem ; AV *headers, *body =NULL; STRLEN hlen; struct http_status_codes *http_sc; int i,vi, base; char *chitem; SV **harakiri; #ifdef UWSGI_ASYNC if (wsgi_req->async_status == UWSGI_AGAIN) { wsgi_req->async_force_again = 0; wsgi_req->switches++; SV *chunk = uwsgi_perl_obj_call(wsgi_req->async_placeholder, "getline"); if (!chunk) { internal_server_error(wsgi_req, "exception raised"); return UWSGI_OK; } if (wsgi_req->async_force_again) { SvREFCNT_dec(chunk); return UWSGI_AGAIN; } chitem = SvPV( chunk, hlen); if (hlen <= 0) { SvREFCNT_dec(chunk); SV *closed = uwsgi_perl_obj_call(wsgi_req->async_placeholder, "close"); if (closed) { SvREFCNT_dec(closed); } // check for psgix.harakiri harakiri = hv_fetch((HV*)SvRV( (SV*)wsgi_req->async_environ), "psgix.harakiri.commit", 21, 0); if (harakiri) { if (SvTRUE(*harakiri)) wsgi_req->async_plagued = 1; } SvREFCNT_dec(wsgi_req->async_environ); SvREFCNT_dec(wsgi_req->async_result); return UWSGI_OK; } wsgi_req->response_size += wsgi_req->socket->proto_write(wsgi_req, chitem, hlen); SvREFCNT_dec(chunk); return UWSGI_AGAIN; } #endif status_code = av_fetch(response, 0, 0); if (!status_code) { uwsgi_log("invalid PSGI status code\n"); return UWSGI_OK;} wsgi_req->hvec[0].iov_base = "HTTP/1.1 "; wsgi_req->hvec[0].iov_len = 9; wsgi_req->hvec[1].iov_base = SvPV(*status_code, hlen); wsgi_req->hvec[1].iov_len = 3; wsgi_req->status = atoi(wsgi_req->hvec[1].iov_base); wsgi_req->hvec[2].iov_base = " "; wsgi_req->hvec[2].iov_len = 1; wsgi_req->hvec[3].iov_len = 0; // get the status code for (http_sc = hsc; http_sc->message != NULL; http_sc++) { if (!strncmp(http_sc->key, wsgi_req->hvec[1].iov_base, 3)) { wsgi_req->hvec[3].iov_base = (char *) http_sc->message; wsgi_req->hvec[3].iov_len = http_sc->message_size; break; } } if (wsgi_req->hvec[3].iov_len == 0) { wsgi_req->hvec[3].iov_base = "Unknown"; wsgi_req->hvec[3].iov_len = 7; } wsgi_req->hvec[4].iov_base = "\r\n"; wsgi_req->hvec[4].iov_len = 2; hitem = av_fetch(response, 1, 0); if (!hitem) { uwsgi_log("invalid PSGI headers\n"); return UWSGI_OK;} headers = (AV *) SvRV(*hitem); if (!headers) { uwsgi_log("invalid PSGI headers\n"); return UWSGI_OK;} base = 5; // put them in hvec for(i=0; i<=av_len(headers); i++) { vi = (i*2)+base; hitem = av_fetch(headers,i,0); chitem = SvPV(*hitem, hlen); wsgi_req->hvec[vi].iov_base = chitem; wsgi_req->hvec[vi].iov_len = hlen; wsgi_req->hvec[vi+1].iov_base = ": "; wsgi_req->hvec[vi+1].iov_len = 2; hitem = av_fetch(headers,i+1,0); chitem = SvPV(*hitem, hlen); wsgi_req->hvec[vi+2].iov_base = chitem; wsgi_req->hvec[vi+2].iov_len = hlen; wsgi_req->hvec[vi+3].iov_base = "\r\n"; wsgi_req->hvec[vi+3].iov_len = 2; wsgi_req->header_cnt++; i++; } vi = (i*2)+base; wsgi_req->hvec[vi].iov_base = "\r\n"; wsgi_req->hvec[vi].iov_len = 2; wsgi_req->headers_size += wsgi_req->socket->proto_writev_header(wsgi_req, wsgi_req->hvec, vi+1); hitem = av_fetch(response, 2, 0); if (!hitem) { return UWSGI_OK; } if (!SvRV(*hitem)) { uwsgi_log("invalid PSGI response body\n") ; return UWSGI_OK; } if (SvTYPE(SvRV(*hitem)) == SVt_PVGV || SvTYPE(SvRV(*hitem)) == SVt_PVHV || SvTYPE(SvRV(*hitem)) == SVt_PVMG) { // respond to fileno ? if (uwsgi.async < 2) { // check for fileno() method, IO class or GvIO if (uwsgi_perl_obj_can(*hitem, "fileno", 6) || uwsgi_perl_obj_isa(*hitem, "IO") || (uwsgi_perl_obj_isa(*hitem, "GLOB") && GvIO(SvRV(*hitem))) ) { SV *fn = uwsgi_perl_obj_call(*hitem, "fileno"); if (fn) { if (SvTYPE(fn) == SVt_IV && SvIV(fn) >= 0) { wsgi_req->sendfile_fd = SvIV(fn); SvREFCNT_dec(fn); wsgi_req->response_size += uwsgi_sendfile(wsgi_req); // no need to close here as perl GC will do the close() return UWSGI_OK; } SvREFCNT_dec(fn); } } // check for path method if (uwsgi_perl_obj_can(*hitem, "path", 4)) { SV *p = uwsgi_perl_obj_call(*hitem, "path"); wsgi_req->sendfile_fd = open(SvPV_nolen(p), O_RDONLY); SvREFCNT_dec(p); wsgi_req->response_size += uwsgi_sendfile(wsgi_req); close(wsgi_req->sendfile_fd); return UWSGI_OK; } } for(;;) { wsgi_req->switches++; SV *chunk = uwsgi_perl_obj_call(*hitem, "getline"); if (!chunk) { internal_server_error(wsgi_req, "exception raised"); break; } chitem = SvPV( chunk, hlen); #ifdef UWSGI_ASYNC if (uwsgi.async > 1 && wsgi_req->async_force_again) { SvREFCNT_dec(chunk); wsgi_req->async_status = UWSGI_AGAIN; wsgi_req->async_placeholder = (SV *) *hitem; return UWSGI_AGAIN; } #endif if (hlen <= 0) { SvREFCNT_dec(chunk); break; } wsgi_req->response_size += wsgi_req->socket->proto_write(wsgi_req, chitem, hlen); SvREFCNT_dec(chunk); #ifdef UWSGI_ASYNC if (uwsgi.async > 1) { wsgi_req->async_status = UWSGI_AGAIN; wsgi_req->async_placeholder = (SV *) *hitem; return UWSGI_AGAIN; } #endif } SV *closed = uwsgi_perl_obj_call(*hitem, "close"); if (closed) { SvREFCNT_dec(closed); } } else if (SvTYPE(SvRV(*hitem)) == SVt_PVAV) { body = (AV *) SvRV(*hitem); for(i=0; i<=av_len(body); i++) { hitem = av_fetch(body,i,0); chitem = SvPV(*hitem, hlen); wsgi_req->response_size += wsgi_req->socket->proto_write(wsgi_req, chitem, hlen); } } else { uwsgi_log("unsupported response body type: %d\n", SvTYPE(SvRV(*hitem))); } return UWSGI_OK; }
void client_request(int clientsd, char * timec, char * clientip) { FILE * requestfile; FILE * logfile; char read_output[BUFFER_SIZE] = {0}; char method[80]; char dir[80]; char http[80]; char line[100]; char finaldir[BUFFER_SIZE] = {0}; struct stat buf; int httpint; int readint; int totalsize; char totalsizec[20]; int totalwrite; char totalwritec[20]; char okstr[80]; logfile = fopen(logdir, "a"); readint = read_request(clientsd, read_output); if (readint == -1) { internal_server_error(clientsd, timec); return; } getlinec(read_output, line); httpint = is_http_get(line, method, dir, http); if (httpint == -1) { bad_request(clientsd, timec); write_log(timec, line, "400 Bad Request", logfile, clientip); return; } getdir(docdir, dir, finaldir); requestfile = fopen(finaldir, "r"); if (requestfile == NULL) { file_not_found(clientsd, timec); write_log(timec, line, "404 Not Found", logfile, clientip); return; } if (errno = EACCES) { forbidden(clientsd, timec); write_log(timec, line, "403 Forbidden", logfile, clientip); return; } /* * Gets file size from buffer file to be used as total write size * for ok response * * Code adapted from * http://stackoverflow.com/a/238644 */ fstat(requestfile, &buf); totalsize = buf.st_size; /* * Converts int to char * * Code adapted from * http://stackoverflow.com/a/1114752 */ sprintf(totalsizec, "%d", totalsize); totalwrite = ok(clientsd, timec, requestfile, totalsizec); sprintf(totalwritec, "%d", totalwrite); strncat(okstr, "200 OK ", sizeof(okstr)); strncat(okstr, totalwritec, sizeof(okstr)); strncat(okstr, "/", sizeof(okstr)); strncat(okstr, totalsizec, sizeof(okstr)); write_log(timec, line, okstr, logfile, clientip); return; }