/*
Expand a template with {word} tokens from the given options objects
function template(pattern: String, ...options): Uri
*/
static EjsUri *uri_template(Ejs *ejs, EjsUri *up, int argc, EjsObj **argv)
{
EjsArray *options;
EjsObj *obj, *value;
MprBuf *buf;
cchar *pattern, *cp, *ep, *str;
char *token;
int i, len;
pattern = ejsToMulti(ejs, argv[0]);
options = (EjsArray*) argv[1];
buf = mprCreateBuf(-1, -1);
for (cp = pattern; *cp; cp++) {
if (*cp == '~' && (cp == pattern || cp[-1] != '\\')) {
for (i = 0; i < options->length; i++) {
obj = options->data[i];
if ((value = ejsGetPropertyByName(ejs, obj, N(NULL, "scriptName"))) != 0 && ejsIsDefined(ejs, value)) {
str = ejsToMulti(ejs, value);
if (str && *str) {
mprPutStringToBuf(buf, str);
break;
} else {
value = 0;
}
}
}
} else if (*cp == '{' && (cp == pattern || cp[-1] != '\\')) {
if ((ep = strchr(++cp, '}')) != 0) {
len = (int) (ep - cp);
token = mprMemdup(cp, len + 1);
token[len] = '\0';
value = 0;
for (i = 0; i < options->length; i++) {
obj = options->data[i];
if ((value = ejsGetPropertyByName(ejs, obj, N(NULL, token))) != 0 && ejsIsDefined(ejs, value)) {
str = ejsToMulti(ejs, value);
if (str && *str) {
mprPutStringToBuf(buf, str);
break;
} else {
value = 0;
}
}
}
if (!ejsIsDefined(ejs, value)) {
// MOB - remove this. Should not be erasing the prior "/"
if (cp >= &pattern[2] && cp[-2] == '/') {
mprAdjustBufEnd(buf, -1);
}
}
cp = ep;
}
} else {
mprPutCharToBuf(buf, *cp);
}
}
mprAddNullToBuf(buf);
return ejsCreateUriFromAsc(ejs, mprGetBufStart(buf));
}
/*
Map options to an attribute string. Remove all internal control specific options and transparently handle URI link options.
WARNING: this returns a non-cloned reference and relies on no GC yield until the returned value is used or cloned.
This is done as an optimization to reduce memeory allocations.
*/
static cchar *map(HttpConn *conn, MprHash *options)
{
Esp *esp;
EspReq *req;
MprHash *params;
MprKey *kp;
MprBuf *buf;
cchar *value;
char *pstr;
if (options == 0 || mprGetHashLength(options) == 0) {
return MPR->emptyString;
}
req = conn->data;
if (httpGetOption(options, EDATA("refresh"), 0) && !httpGetOption(options, "id", 0)) {
httpAddOption(options, "id", sfmt("id_%d", req->lastDomID++));
}
esp = MPR->espService;
buf = mprCreateBuf(-1, -1);
for (kp = 0; (kp = mprGetNextKey(options, kp)) != 0; ) {
if (kp->type != MPR_JSON_OBJ && kp->type != MPR_JSON_ARRAY && !mprLookupKey(esp->internalOptions, kp->key)) {
mprPutCharToBuf(buf, ' ');
value = kp->data;
/*
Support link template resolution for these options
*/
if (smatch(kp->key, EDATA("click")) || smatch(kp->key, EDATA("remote")) || smatch(kp->key, EDATA("refresh"))) {
value = httpUriEx(conn, value, options);
if ((params = httpGetOptionHash(options, "params")) != 0) {
pstr = (char*) "";
for (kp = 0; (kp = mprGetNextKey(params, kp)) != 0; ) {
pstr = sjoin(pstr, mprUriEncode(kp->key, MPR_ENCODE_URI_COMPONENT), "=",
mprUriEncode(kp->data, MPR_ENCODE_URI_COMPONENT), "&", NULL);
}
if (pstr[0]) {
/* Trim last "&" */
pstr[strlen(pstr) - 1] = '\0';
}
mprPutToBuf(buf, "%s-params='%s", params);
}
}
mprPutStringToBuf(buf, kp->key);
mprPutStringToBuf(buf, "='");
mprPutStringToBuf(buf, value);
mprPutCharToBuf(buf, '\'');
}
}
mprAddNullToBuf(buf);
return mprGetBufStart(buf);
}
/*
function form(uri: String = null, formData: Object = null): Http
Issue a POST method with form data
*/
static EjsHttp *http_form(Ejs *ejs, EjsHttp *hp, int argc, EjsObj **argv)
{
EjsObj *data;
if (argc == 2 && !ejsIs(ejs, argv[1], Null)) {
/*
Prep here to reset the state. The ensures the current headers will be preserved.
Users may have called setHeader to define custom headers. Users must call reset if they want to clear
prior headers.
*/
httpPrepClientConn(hp->conn, 1);
mprFlushBuf(hp->requestContent);
data = argv[1];
if (ejsGetLength(ejs, data) > 0) {
prepForm(ejs, hp, NULL, data);
} else {
mprPutStringToBuf(hp->requestContent, ejsToMulti(ejs, data));
}
mprAddNullToBuf(hp->requestContent);
httpSetHeader(hp->conn, "Content-Type", "application/x-www-form-urlencoded");
/* Ensure this gets recomputed */
httpRemoveHeader(hp->conn, "Content-Length");
}
return startHttpRequest(ejs, hp, "POST", argc, argv);
}
/*
This replace will replace the given pattern and the next word on the same line with the given replacement.
*/
static char *replace(cchar *str, cchar *pattern, cchar *fmt, ...)
{
va_list args;
MprBuf *buf;
cchar *s, *replacement;
ssize plen;
va_start(args, fmt);
replacement = sfmtv(fmt, args);
buf = mprCreateBuf(-1, -1);
plen = slen(pattern);
for (s = str; *s; s++) {
if (*s == *pattern && sncmp(s, pattern, plen) == 0) {
mprPutStringToBuf(buf, replacement);
for (s += plen; *s && isspace((uchar) *s) && *s != '\n'; s++) ;
for (; *s && !isspace((uchar) *s) && *s != '\n' && *s != '>'; s++) ;
}
#if BIT_WIN_LIKE
if (*s == '\n' && s[-1] != '\r') {
mprPutCharToBuf(buf, '\r');
}
#endif
mprPutCharToBuf(buf, *s);
}
va_end(args);
mprAddNullToBuf(buf);
return sclone(mprGetBufStart(buf));
}
/*
Cast the object operand to a primitive type
*/
static EjsObj *xlCast(Ejs *ejs, EjsXML *vp, EjsType *type)
{
MprBuf *buf;
EjsObj *result;
EjsXML *elt, *item;
int next;
if (type == ESV(XML)) {
return (EjsObj*) vp;
}
switch (type->sid) {
case S_Object:
case S_Boolean:
return (EjsObj*) ejsCreateBoolean(ejs, 1);
case S_Number:
result = xlCast(ejs, vp, ESV(String));
result = (EjsObj*) ejsToNumber(ejs, result);
return result;
case S_String:
buf = mprCreateBuf(MPR_BUFSIZE, -1);
if (mprGetListLength(vp->elements) == 1) {
elt = mprGetFirstItem(vp->elements);
if (elt->kind == EJS_XML_ELEMENT) {
if (elt->elements == 0) {
return (EjsObj*) ESV(empty);
}
if (elt->elements && mprGetListLength(elt->elements) == 1) {
// TODO - what about PI and comments?
item = mprGetFirstItem(elt->elements);
if (item->kind == EJS_XML_TEXT) {
return (EjsObj*) item->value;
}
}
}
}
for (next = 0; (elt = mprGetNextItem(vp->elements, &next)) != 0; ) {
if (ejsXMLToBuf(ejs, buf, elt, -1) < 0) {
return 0;
}
if (next < vp->elements->length) {
mprPutStringToBuf(buf, " ");
}
}
return (EjsObj*) ejsCreateStringFromAsc(ejs, (char*) buf->start);
default:
ejsThrowTypeError(ejs, "Cannot cast to this type");
return 0;
}
}
static char *hashToString(MprHash *hash, cchar *sep)
{
MprBuf *buf;
cchar *data;
char key[8];
int i, len;
len = mprGetHashLength(hash);
buf = mprCreateBuf(0, 0);
mprPutCharToBuf(buf, '{');
for (i = 0; i < len; ) {
data = mprLookupKey(hash, itosbuf(key, sizeof(key), i, 10));
mprPutStringToBuf(buf, data);
if (++i < len) {
mprPutStringToBuf(buf, sep ? sep : ",");
}
}
mprPutCharToBuf(buf, '}');
mprAddNullToBuf(buf);
return mprGetBufStart(buf);
}
/*
* Emit all headers
*/
static void emitHeaders()
{
MprHash *hp;
int len;
hp = mprGetFirstHash(responseHeaders);
while (hp) {
len = strlen(hp->key) + strlen(hp->data) + 4;
if (mprGetBufSpace(headerOutput) < len) {
flushOutput(headerOutput);
}
mprPutStringToBuf(headerOutput, hp->key);
mprPutStringToBuf(headerOutput, ": ");
mprPutStringToBuf(headerOutput, hp->data);
mprPutStringToBuf(headerOutput, "\r\n");
hp = mprGetNextHash(responseHeaders, hp);
}
mprPutStringToBuf(headerOutput, "\r\n");
flushOutput(headerOutput);
headersEmitted = 1;
}
/*
Expand ${token} references in a path or string.
*/
static char *stemplateInner(cchar *str, void *keys, int json)
{
MprBuf *buf;
cchar *value;
char *src, *result, *cp, *tok;
if (str) {
if (schr(str, '$') == 0) {
return sclone(str);
}
buf = mprCreateBuf(0, 0);
for (src = (char*) str; *src; ) {
if (*src == '$') {
if (*++src == '{') {
for (cp = ++src; *cp && *cp != '}'; cp++) ;
tok = snclone(src, cp - src);
} else {
for (cp = src; *cp && (isalnum((uchar) *cp) || *cp == '_'); cp++) ;
tok = snclone(src, cp - src);
}
if (json) {
value = mprGetJson(keys, tok);
} else {
value = mprLookupKey(keys, tok);
}
if (value != 0) {
mprPutStringToBuf(buf, value);
if (src > str && src[-1] == '{') {
src = cp + 1;
} else {
src = cp;
}
} else {
mprPutCharToBuf(buf, '$');
if (src > str && src[-1] == '{') {
mprPutCharToBuf(buf, '{');
}
mprPutCharToBuf(buf, *src++);
}
} else {
mprPutCharToBuf(buf, *src++);
}
}
mprAddNullToBuf(buf);
result = sclone(mprGetBufStart(buf));
} else {
result = MPR->emptyString;
}
return result;
}
/*
* Add a number to the buffer (always null terminated).
*/
int mprPutIntToBuf(MprBuf *bp, int64 i)
{
char numBuf[16];
int rc;
mprItoa(numBuf, sizeof(numBuf), i, 10);
rc = mprPutStringToBuf(bp, numBuf);
if (bp->end < bp->endbuf) {
*((char*) bp->end) = (char) '\0';
}
return rc;
}
static void setChunkPrefix(MaQueue *q, MaPacket *packet)
{
if (packet->prefix) {
return;
}
packet->prefix = mprCreateBuf(packet, 32, 32);
/*
* NOTE: prefixes don't count in the queue length. No need to adjust q->count
*/
if (maGetPacketLength(packet)) {
mprPutFmtToBuf(packet->prefix, "\r\n%x\r\n", maGetPacketLength(packet));
} else {
mprPutStringToBuf(packet->prefix, "\r\n0\r\n\r\n");
}
}
static void setChunkPrefix(MaQueue *q, MaPacket *packet)
{
MaConn *conn;
conn = q->conn;
if (packet->prefix) {
return;
}
packet->prefix = mprCreateBuf(packet, 32, 32);
if (packet->count) {
mprPutFmtToBuf(packet->prefix, "\r\n%x\r\n", packet->count);
} else {
mprPutStringToBuf(packet->prefix, "\r\n0\r\n\r\n");
}
}
PUBLIC int httpApplyUserGroup()
{
#if ME_UNIX_LIKE
Http *http;
http = HTTP;
if (http->userChanged || http->groupChanged) {
if (!smatch(MPR->logPath, "stdout") && !smatch(MPR->logPath, "stderr")) {
if (chown(MPR->logPath, http->uid, http->gid) < 0) {
mprLog("critical http", 0, "Cannot change ownership on %s", MPR->logPath);
}
}
}
if (httpApplyChangedGroup() < 0 || httpApplyChangedUser() < 0) {
return MPR_ERR_CANT_COMPLETE;
}
if (http->userChanged || http->groupChanged) {
struct group *gp;
gid_t glist[64], gid;
MprBuf *gbuf = mprCreateBuf(0, 0);
cchar *groups;
int i, ngroup;
gid = getgid();
ngroup = getgroups(sizeof(glist) / sizeof(gid_t), glist);
if (ngroup > 1) {
mprPutStringToBuf(gbuf, ", groups: ");
for (i = 0; i < ngroup; i++) {
if (glist[i] == gid) continue;
if ((gp = getgrgid(glist[i])) != 0) {
mprPutToBuf(gbuf, "%s (%d) ", gp->gr_name, glist[i]);
} else {
mprPutToBuf(gbuf, "(%d) ", glist[i]);
}
}
}
groups = mprGetBufStart(gbuf);
mprLog("info http", 2, "Running as user \"%s\" (%d), group \"%s\" (%d)%s", http->user, http->uid,
http->group, http->gid, groups);
}
#endif
return 0;
}
char *sreplace(cchar *str, cchar *pattern, cchar *replacement)
{
MprBuf *buf;
cchar *s;
ssize plen;
buf = mprCreateBuf(-1, -1);
if (pattern && *pattern && replacement) {
plen = slen(pattern);
for (s = str; *s; s++) {
if (sncmp(s, pattern, plen) == 0) {
mprPutStringToBuf(buf, replacement);
s += plen - 1;
} else {
mprPutCharToBuf(buf, *s);
}
}
}
mprAddNullToBuf(buf);
return sclone(mprGetBufStart(buf));
}
static EjsObj *saveXml(Ejs *ejs, EjsXML *xml, int argc, EjsObj **argv)
{
MprBuf *buf;
MprFile *file;
char *filename;
ssize bytes, len;
if (argc != 1 || !ejsIs(ejs, argv[0], String)) {
ejsThrowArgError(ejs, "Bad args. Usage: save(filename);");
return 0;
}
filename = awtom(((EjsString*) argv[0])->value, NULL);
/*
Create a buffer to hold the output. All in memory.
*/
buf = mprCreateBuf(ME_MAX_BUFFER, -1);
mprPutStringToBuf(buf, "<?xml version=\"1.0\"?>\n");
if (ejsXMLToBuf(ejs, buf, xml, 0) < 0) {
return 0;
}
file = mprOpenFile(filename, O_CREAT | O_TRUNC | O_WRONLY | O_TEXT, 0664);
if (file == 0) {
ejsThrowIOError(ejs, "Cannot open: %s, %d", filename, mprGetOsError(ejs));
return 0;
}
len = mprGetBufLength(buf);
bytes = mprWriteFile(file, buf->start, len);
if (bytes != len) {
ejsThrowIOError(ejs, "Cannot write to: %s", filename);
mprCloseFile(file);
return 0;
}
mprWriteFile(file, "\n", 1);
mprCloseFile(file);
return 0;
}
int mprPutFmtToBuf(MprBuf *bp, cchar *fmt, ...)
{
va_list ap;
char *buf;
int rc, space;
if (fmt == 0) {
return 0;
}
va_start(ap, fmt);
space = mprGetBufSpace(bp);
/*
* Add max that the buffer can grow
*/
space += (bp->maxsize - bp->buflen);
buf = mprVasprintf(bp, space, fmt, ap);
rc = mprPutStringToBuf(bp, buf);
mprFree(buf);
va_end(ap);
return rc;
}
PUBLIC void httpWriteHeaders(HttpQueue *q, HttpPacket *packet)
{
Http *http;
HttpConn *conn;
HttpTx *tx;
HttpUri *parsedUri;
MprKey *kp;
MprBuf *buf;
int level;
assert(packet->flags == HTTP_PACKET_HEADER);
conn = q->conn;
http = conn->http;
tx = conn->tx;
buf = packet->content;
if (tx->flags & HTTP_TX_HEADERS_CREATED) {
return;
}
tx->flags |= HTTP_TX_HEADERS_CREATED;
tx->responded = 1;
if (conn->headersCallback) {
/* Must be before headers below */
(conn->headersCallback)(conn->headersCallbackArg);
}
if (tx->flags & HTTP_TX_USE_OWN_HEADERS && !conn->error) {
conn->keepAliveCount = 0;
return;
}
setHeaders(conn, packet);
if (conn->endpoint) {
mprPutStringToBuf(buf, conn->protocol);
mprPutCharToBuf(buf, ' ');
mprPutIntToBuf(buf, tx->status);
mprPutCharToBuf(buf, ' ');
mprPutStringToBuf(buf, httpLookupStatus(http, tx->status));
} else {
mprPutStringToBuf(buf, tx->method);
mprPutCharToBuf(buf, ' ');
parsedUri = tx->parsedUri;
if (http->proxyHost && *http->proxyHost) {
if (parsedUri->query && *parsedUri->query) {
mprPutToBuf(buf, "http://%s:%d%s?%s %s", http->proxyHost, http->proxyPort,
parsedUri->path, parsedUri->query, conn->protocol);
} else {
mprPutToBuf(buf, "http://%s:%d%s %s", http->proxyHost, http->proxyPort, parsedUri->path,
conn->protocol);
}
} else {
if (parsedUri->query && *parsedUri->query) {
mprPutToBuf(buf, "%s?%s %s", parsedUri->path, parsedUri->query, conn->protocol);
} else {
mprPutStringToBuf(buf, parsedUri->path);
mprPutCharToBuf(buf, ' ');
mprPutStringToBuf(buf, conn->protocol);
}
}
}
if ((level = httpShouldTrace(conn, HTTP_TRACE_TX, HTTP_TRACE_FIRST, tx->ext)) >= mprGetLogLevel(tx)) {
mprAddNullToBuf(buf);
mprLog(level, " %s", mprGetBufStart(buf));
}
mprPutStringToBuf(buf, "\r\n");
/*
Output headers
*/
kp = mprGetFirstKey(conn->tx->headers);
while (kp) {
mprPutStringToBuf(packet->content, kp->key);
mprPutStringToBuf(packet->content, ": ");
if (kp->data) {
mprPutStringToBuf(packet->content, kp->data);
}
mprPutStringToBuf(packet->content, "\r\n");
kp = mprGetNextKey(conn->tx->headers, kp);
}
/*
By omitting the "\r\n" delimiter after the headers, chunks can emit "\r\nSize\r\n" as a single chunk delimiter
*/
if (tx->length >= 0 || tx->chunkSize <= 0) {
mprPutStringToBuf(buf, "\r\n");
}
if (tx->altBody) {
/* Error responses are emitted here */
mprPutStringToBuf(buf, tx->altBody);
httpDiscardQueueData(tx->queue[HTTP_QUEUE_TX]->nextQ, 0);
}
tx->headerSize = mprGetBufLength(buf);
tx->flags |= HTTP_TX_HEADERS_CREATED;
q->count += httpGetPacketLength(packet);
}
void maLogRequest(MaConn *conn)
{
MaHost *logHost, *host;
MaResponse *resp;
MaRequest *req;
MprBuf *buf;
char keyBuf[80], *timeText, *fmt, *cp, *qualifier, *value, c;
int len;
resp = conn->response;
req = conn->request;
host = req->host;
logHost = host->logHost;
if (logHost == 0) {
return;
}
fmt = logHost->logFormat;
if (fmt == 0) {
return;
}
if (req->method == 0) {
return;
}
len = MPR_MAX_URL + 256;
buf = mprCreateBuf(resp, len, len);
while ((c = *fmt++) != '\0') {
if (c != '%' || (c = *fmt++) == '%') {
mprPutCharToBuf(buf, c);
continue;
}
switch (c) {
case 'a': /* Remote IP */
mprPutStringToBuf(buf, conn->remoteIpAddr);
break;
case 'A': /* Local IP */
mprPutStringToBuf(buf, conn->sock->listenSock->ipAddr);
break;
case 'b':
if (resp->bytesWritten == 0) {
mprPutCharToBuf(buf, '-');
} else {
mprPutIntToBuf(buf, resp->bytesWritten);
}
break;
case 'B': /* Bytes written (minus headers) */
mprPutIntToBuf(buf, resp->bytesWritten - resp->headerSize);
break;
case 'h': /* Remote host */
mprPutStringToBuf(buf, conn->remoteIpAddr);
break;
case 'n': /* Local host */
mprPutStringToBuf(buf, req->parsedUri->host);
break;
case 'l': /* Supplied in authorization */
mprPutStringToBuf(buf, req->user ? req->user : "******");
break;
case 'O': /* Bytes written (including headers) */
mprPutIntToBuf(buf, resp->bytesWritten);
break;
case 'r': /* First line of request */
mprPutFmtToBuf(buf, "%s %s %s", req->methodName, req->parsedUri->originalUri, req->httpProtocol);
break;
case 's': /* Response code */
mprPutIntToBuf(buf, resp->code);
break;
case 't': /* Time */
mprPutCharToBuf(buf, '[');
timeText = mprFormatLocalTime(conn, mprGetTime(conn));
mprPutStringToBuf(buf, timeText);
mprFree(timeText);
mprPutCharToBuf(buf, ']');
break;
case 'u': /* Remote username */
mprPutStringToBuf(buf, req->user ? req->user : "******");
break;
case '{': /* Header line */
qualifier = fmt;
if ((cp = strchr(qualifier, '}')) != 0) {
fmt = &cp[1];
*cp = '\0';
c = *fmt++;
mprStrcpy(keyBuf, sizeof(keyBuf), "HTTP_");
mprStrcpy(&keyBuf[5], sizeof(keyBuf) - 5, qualifier);
mprStrUpper(keyBuf);
switch (c) {
case 'i':
value = (char*) mprLookupHash(req->headers, keyBuf);
mprPutStringToBuf(buf, value ? value : "-");
break;
default:
mprPutStringToBuf(buf, qualifier);
}
*cp = '}';
} else {
mprPutCharToBuf(buf, c);
}
break;
case '>':
if (*fmt == 's') {
fmt++;
mprPutIntToBuf(buf, resp->code);
}
break;
default:
mprPutCharToBuf(buf, c);
break;
}
}
mprPutCharToBuf(buf, '\n');
mprAddNullToBuf(buf);
mprWrite(logHost->accessLog, mprGetBufStart(buf), mprGetBufLength(buf));
}
int ejsXMLToString(Ejs *ejs, MprBuf *buf, EjsXML *node, int indentLevel)
{
EjsXML *xml, *child, *attribute, *elt;
int sawElements, next;
if (node->obj.var.visited) {
return 0;
}
node->obj.var.visited = 1;
if (node->kind == EJS_XML_LIST) {
for (next = 0; (elt = mprGetNextItem(node->elements, &next)) != 0; ) {
ejsXMLToString(ejs, buf, elt, indentLevel);
}
return 0;
}
mprAssert(ejsIsXML(node));
xml = (EjsXML*) node;
switch (xml->kind) {
case EJS_XML_ELEMENT:
/*
* XML object is complex (has elements) so return full XML content.
*/
if (indentLevel > 0) {
mprPutCharToBuf(buf, '\n');
}
indent(buf, indentLevel);
mprPutFmtToBuf(buf, "<%s", xml->qname.name);
if (xml->attributes) {
for (next = 0; (attribute = mprGetNextItem(xml->attributes, &next)) != 0; ) {
mprPutFmtToBuf(buf, " %s=\"%s\"", attribute->qname.name, attribute->value);
}
}
sawElements = 0;
if (xml->elements) {
mprPutStringToBuf(buf, ">");
for (next = 0; (child = mprGetNextItem(xml->elements, &next)) != 0; ) {
if (child->kind != EJS_XML_TEXT) {
sawElements++;
}
/* Recurse */
if (ejsXMLToString(ejs, buf, child, indentLevel < 0 ? -1 : indentLevel + 1) < 0) {
return -1;
}
}
if (sawElements && indentLevel >= 0) {
mprPutCharToBuf(buf, '\n');
indent(buf, indentLevel);
}
mprPutFmtToBuf(buf, "</%s>", xml->qname.name);
} else {
/* Solo */
mprPutStringToBuf(buf, "/>");
}
break;
case EJS_XML_COMMENT:
mprPutCharToBuf(buf, '\n');
indent(buf, indentLevel);
mprPutFmtToBuf(buf, "<!--%s -->", xml->value);
break;
case EJS_XML_ATTRIBUTE:
/*
* Only here when converting solo attributes to a string
*/
mprPutStringToBuf(buf, xml->value);
break;
case EJS_XML_TEXT:
mprPutStringToBuf(buf, xml->value);
break;
}
node->obj.var.visited = 0;
return 0;
}
/*
Tokens:
ARCH Build architecture (64)
GCC_ARCH ARCH mapped to gcc -arch switches (x86_64)
CC Compiler (cc)
DEBUG Debug compilation options (-g, -Zi -Od)
INC Include directory out/inc
LIB Library directory (out/lib, xcode/VS: out/bin)
LIBS Libraries required to link with ESP
OBJ Name of compiled source (out/lib/view-MD5.o)
MOD Output module (view_MD5.dylib)
SHLIB Host Shared library (.lib, .so)
SHOBJ Host Shared Object (.dll, .so)
SRC Source code for view or controller (already templated)
TMP Temp directory
VS Visual Studio directory
WINSDK Windows SDK directory
*/
PUBLIC char *espExpandCommand(EspRoute *eroute, cchar *command, cchar *source, cchar *module)
{
MprBuf *buf;
MaAppweb *appweb;
cchar *cp, *outputModule, *os, *arch, *profile;
char *tmp;
if (command == 0) {
return 0;
}
appweb = MPR->appwebService;
outputModule = mprTrimPathExt(module);
maParsePlatform(appweb->platform, &os, &arch, &profile);
buf = mprCreateBuf(-1, -1);
for (cp = command; *cp; ) {
if (*cp == '$') {
if (matchToken(&cp, "${ARCH}")) {
/* Target architecture (x86|mips|arm|x64) */
mprPutStringToBuf(buf, arch);
} else if (matchToken(&cp, "${GCC_ARCH}")) {
/* Target architecture mapped to GCC mtune|mcpu values */
mprPutStringToBuf(buf, getMappedArch(arch));
} else if (matchToken(&cp, "${INC}")) {
/* Include directory for the configuration */
mprPutStringToBuf(buf, mprJoinPath(appweb->platformDir, "inc"));
} else if (matchToken(&cp, "${LIBPATH}")) {
/* Library directory for Appweb libraries for the target */
mprPutStringToBuf(buf, mprJoinPath(appweb->platformDir, "bin"));
} else if (matchToken(&cp, "${LIBS}")) {
/* Required libraries to link. These may have nested ${TOKENS} */
mprPutStringToBuf(buf, espExpandCommand(eroute, getLibs(os), source, module));
} else if (matchToken(&cp, "${MOD}")) {
/* Output module path in the cache without extension */
mprPutStringToBuf(buf, outputModule);
} else if (matchToken(&cp, "${OBJ}")) {
/* Output object with extension (.o) in the cache directory */
mprPutStringToBuf(buf, mprJoinPathExt(outputModule, getObjExt(os)));
} else if (matchToken(&cp, "${OS}")) {
/* Target architecture (freebsd|linux|macosx|windows|vxworks) */
mprPutStringToBuf(buf, os);
} else if (matchToken(&cp, "${SHLIB}")) {
/* .dll, .so, .dylib */
mprPutStringToBuf(buf, getShlibExt(os));
} else if (matchToken(&cp, "${SHOBJ}")) {
/* .dll, .so, .dylib */
mprPutStringToBuf(buf, getShobjExt(os));
} else if (matchToken(&cp, "${SRC}")) {
/* View (already parsed into C code) or controller source */
mprPutStringToBuf(buf, source);
} else if (matchToken(&cp, "${TMP}")) {
if ((tmp = getenv("TMPDIR")) == 0) {
if ((tmp = getenv("TMP")) == 0) {
tmp = getenv("TEMP");
}
}
mprPutStringToBuf(buf, tmp ? tmp : ".");
} else if (matchToken(&cp, "${VS}")) {
mprPutStringToBuf(buf, getVisualStudio());
} else if (matchToken(&cp, "${VXCPU}")) {
mprPutStringToBuf(buf, getVxCPU(arch));
} else if (matchToken(&cp, "${WINSDK}")) {
mprPutStringToBuf(buf, getWinSDK());
/*
These vars can be configured from environment variables.
NOTE: the default esp.conf includes "esp->vxworks.conf" which has EspEnv definitions for the configured
VxWorks toolchain
*/
} else if (matchToken(&cp, "${CC}")) {
mprPutStringToBuf(buf, getEnvString(eroute, "CC", getCompilerPath(os, arch)));
} else if (matchToken(&cp, "${LINK}")) {
mprPutStringToBuf(buf, getEnvString(eroute, "LINK", ""));
} else if (matchToken(&cp, "${CFLAGS}")) {
mprPutStringToBuf(buf, getEnvString(eroute, "CFLAGS", ""));
} else if (matchToken(&cp, "${DEBUG}")) {
mprPutStringToBuf(buf, getEnvString(eroute, "DEBUG", getDebug()));
} else if (matchToken(&cp, "${LDFLAGS}")) {
mprPutStringToBuf(buf, getEnvString(eroute, "LDFLAGS", ""));
} else if (matchToken(&cp, "${WIND_BASE}")) {
mprPutStringToBuf(buf, getEnvString(eroute, "WIND_BASE", WIND_BASE));
} else if (matchToken(&cp, "${WIND_HOME}")) {
mprPutStringToBuf(buf, getEnvString(eroute, "WIND_HOME", WIND_HOME));
} else if (matchToken(&cp, "${WIND_HOST_TYPE}")) {
mprPutStringToBuf(buf, getEnvString(eroute, "WIND_HOST_TYPE", WIND_HOST_TYPE));
} else if (matchToken(&cp, "${WIND_PLATFORM}")) {
mprPutStringToBuf(buf, getEnvString(eroute, "WIND_PLATFORM", WIND_PLATFORM));
} else if (matchToken(&cp, "${WIND_GNU_PATH}")) {
mprPutStringToBuf(buf, getEnvString(eroute, "WIND_GNU_PATH", WIND_GNU_PATH));
} else if (matchToken(&cp, "${WIND_CCNAME}")) {
mprPutStringToBuf(buf, getEnvString(eroute, "WIND_CCNAME", getCompilerName(os, arch)));
} else {
mprPutCharToBuf(buf, *cp++);
}
} else {
mprPutCharToBuf(buf, *cp++);
}
}
mprAddNullToBuf(buf);
return sclone(mprGetBufStart(buf));
}
static bool parseArgs(int argc, char **argv)
{
char *argp, *key, *value;
int i, setWorkers, nextArg;
setWorkers = 0;
for (nextArg = 1; nextArg < argc; nextArg++) {
argp = argv[nextArg];
if (*argp != '-') {
break;
}
if (smatch(argp, "--benchmark") || smatch(argp, "-b")) {
app->benchmark++;
} else if (smatch(argp, "--cert")) {
if (nextArg >= argc) {
return 0;
} else {
app->cert = sclone(argv[++nextArg]);
}
} else if (smatch(argp, "--chunk")) {
if (nextArg >= argc) {
return 0;
} else {
value = argv[++nextArg];
app->chunkSize = atoi(value);
if (app->chunkSize < 0) {
mprError("Bad chunksize %d", app->chunkSize);
return 0;
}
}
} else if (smatch(argp, "--continue")) {
app->continueOnErrors++;
} else if (smatch(argp, "--cookie")) {
if (nextArg >= argc) {
return 0;
} else {
mprAddItem(app->headers, mprCreateKeyPair("Cookie", argv[++nextArg]));
}
} else if (smatch(argp, "--data")) {
if (nextArg >= argc) {
return 0;
} else {
if (app->bodyData == 0) {
app->bodyData = mprCreateBuf(-1, -1);
}
mprPutStringToBuf(app->bodyData, argv[++nextArg]);
}
} else if (smatch(argp, "--debugger") || smatch(argp, "-D")) {
mprSetDebugMode(1);
app->retries = 0;
app->timeout = MAXINT;
} else if (smatch(argp, "--delete")) {
app->method = "DELETE";
} else if (smatch(argp, "--form") || smatch(argp, "-f")) {
if (nextArg >= argc) {
return 0;
} else {
if (app->formData == 0) {
app->formData = mprCreateList(-1, 0);
}
addFormVars(argv[++nextArg]);
}
} else if (smatch(argp, "--header")) {
if (nextArg >= argc) {
return 0;
} else {
key = argv[++nextArg];
if ((value = strchr(key, ':')) == 0) {
mprError("Bad header format. Must be \"key: value\"");
return 0;
}
*value++ = '\0';
while (isspace((uchar) *value)) {
value++;
}
mprAddItem(app->headers, mprCreateKeyPair(key, value));
}
} else if (smatch(argp, "--host")) {
if (nextArg >= argc) {
return 0;
} else {
app->host = argv[++nextArg];
if (*app->host == ':') {
app->host = &app->host[1];
}
if (isPort(app->host)) {
app->host = sfmt("http://127.0.0.1:%s", app->host);
} else {
app->host = sclone(app->host);
}
}
} else if (smatch(argp, "--insecure")) {
app->insecure++;
} else if (smatch(argp, "--iterations") || smatch(argp, "-i")) {
if (nextArg >= argc) {
return 0;
} else {
app->iterations = atoi(argv[++nextArg]);
}
} else if (smatch(argp, "--log") || smatch(argp, "-l")) {
if (nextArg >= argc) {
return 0;
} else {
mprStartLogging(argv[++nextArg], 0);
}
} else if (smatch(argp, "--method") || smatch(argp, "-m")) {
if (nextArg >= argc) {
return 0;
} else {
app->method = argv[++nextArg];
}
} else if (smatch(argp, "--out") || smatch(argp, "-o")) {
if (nextArg >= argc) {
return 0;
} else {
app->outFilename = sclone(argv[++nextArg]);
}
} else if (smatch(argp, "--noout") || smatch(argp, "-n") ||
smatch(argp, "--quiet") || smatch(argp, "-q")) {
app->noout++;
} else if (smatch(argp, "--nofollow")) {
app->nofollow++;
} else if (smatch(argp, "--password") || smatch(argp, "-p")) {
if (nextArg >= argc) {
return 0;
} else {
app->password = sclone(argv[++nextArg]);
}
} else if (smatch(argp, "--post")) {
app->method = "POST";
} else if (smatch(argp, "--printable")) {
app->printable++;
} else if (smatch(argp, "--protocol")) {
if (nextArg >= argc) {
return 0;
} else {
app->protocol = supper(argv[++nextArg]);
}
} else if (smatch(argp, "--put")) {
app->method = "PUT";
} else if (smatch(argp, "--range")) {
if (nextArg >= argc) {
return 0;
} else {
// TODO - should allow multiple ranges
if (app->ranges == 0) {
app->ranges = sfmt("bytes=%s", argv[++nextArg]);
} else {
app->ranges = srejoin(app->ranges, ",", argv[++nextArg], NULL);
}
}
} else if (smatch(argp, "--retries") || smatch(argp, "-r")) {
if (nextArg >= argc) {
return 0;
} else {
app->retries = atoi(argv[++nextArg]);
}
} else if (smatch(argp, "--sequence")) {
app->sequence++;
} else if (smatch(argp, "--showHeaders") || smatch(argp, "--show") || smatch(argp, "-s")) {
app->showHeaders++;
} else if (smatch(argp, "--showStatus") || smatch(argp, "--showCode")) {
app->showStatus++;
} else if (smatch(argp, "--single") || smatch(argp, "-s")) {
app->singleStep++;
} else if (smatch(argp, "--text")) {
app->text++;
} else if (smatch(argp, "--threads") || smatch(argp, "-t")) {
if (nextArg >= argc) {
return 0;
} else {
app->loadThreads = atoi(argv[++nextArg]);
}
} else if (smatch(argp, "--timeout")) {
if (nextArg >= argc) {
return 0;
} else {
app->timeout = atoi(argv[++nextArg]) * MPR_TICKS_PER_SEC;
}
} else if (smatch(argp, "--upload") || smatch(argp, "-u")) {
app->upload++;
} else if (smatch(argp, "--user") || smatch(argp, "--username")) {
if (nextArg >= argc) {
return 0;
} else {
app->username = argv[++nextArg];
}
} else if (smatch(argp, "--verbose") || smatch(argp, "-v")) {
app->verbose++;
} else if (smatch(argp, "--version") || smatch(argp, "-V")) {
mprPrintfError("%s %s\n"
"Copyright (C) Embedthis Software 2003-2012\n"
"Copyright (C) Michael O'Brien 2003-2012\n",
BIT_NAME, BIT_VERSION);
exit(0);
} else if (smatch(argp, "--workerTheads") || smatch(argp, "-w")) {
if (nextArg >= argc) {
return 0;
} else {
app->workers = atoi(argv[++nextArg]);
}
setWorkers++;
} else if (smatch(argp, "--zero")) {
app->zeroOnErrors++;
} else if (smatch(argp, "--")) {
nextArg++;
break;
} else if (smatch(argp, "-")) {
break;
} else {
return 0;
break;
}
}
if (argc == nextArg) {
return 0;
}
app->nextArg = nextArg;
argc = argc - nextArg;
argv = &argv[nextArg];
app->target = argv[argc - 1];
app->iterations *= app->loadThreads;
if (--argc > 0) {
/*
Files present on command line
*/
app->files = mprCreateList(argc, MPR_LIST_STATIC_VALUES);
for (i = 0; i < argc; i++) {
mprAddItem(app->files, argv[i]);
}
}
if (!setWorkers) {
app->workers = app->loadThreads + 2;
}
if (app->method == 0) {
if (app->bodyData || app->formData || app->upload) {
app->method = "POST";
} else if (app->files) {
app->method = "PUT";
} else {
app->method = "GET";
}
}
return 1;
}
/*
Tokens:
ARCH Build architecture (x86_64)
CC Compiler (cc)
DEBUG Debug compilation options (-g, -Zi -Od)
INC Include directory out/inc
LIB Library directory (out/lib, xcode/VS: out/bin)
LIBS Libraries required to link with ESP
OBJ Name of compiled source (out/lib/view-MD5.o)
OUT Output module (view_MD5.dylib)
SHLIB Host Shared library (.lib, .so)
SHOBJ Host Shared Object (.dll, .so)
SRC Source code for view or controller (already templated)
TMP Temp directory
VS Visual Studio directory
WINSDK Windows SDK directory
*/
char *espExpandCommand(cchar *command, cchar *source, cchar *module)
{
MprBuf *buf;
MaAppweb *appweb;
cchar *cp, *out;
char *tmp;
#if BLD_WIN_LIKE
cchar *path;
path = 0;
#endif
if (command == 0) {
return 0;
}
out = mprTrimPathExt(module);
buf = mprCreateBuf(-1, -1);
appweb = MPR->appwebService;
for (cp = command; *cp; ) {
if (*cp == '$') {
if (matchToken(&cp, "${ARCH}")) {
/* Build architecture */
mprPutStringToBuf(buf, appweb->hostArch);
#if BLD_WIN_LIKE
} else if (matchToken(&cp, "${WINSDK}")) {
path = mprReadRegistry("HKLM\\SOFTWARE\\Microsoft\\Microsoft SDKs\\Windows", "CurrentInstallFolder");
path = strim(path, "\\", MPR_TRIM_END);
mprPutStringToBuf(buf, path);
} else if (matchToken(&cp, "${VS}")) {
path = mprGetPathParent(mprGetPathParent(getenv("VS100COMNTOOLS")));
mprPutStringToBuf(buf, mprGetPortablePath(path));
#endif
} else if (matchToken(&cp, "${CC}")) {
/* Compiler */
#if BLD_WIN_LIKE
// MOB - what about cross compilation
path = mprJoinPath(mprGetPathParent(mprGetPathParent(getenv("VS100COMNTOOLS"))), "VC/bin/cl.exe");
mprPutStringToBuf(buf, mprGetPortablePath(path));
#else
mprPutStringToBuf(buf, BLD_CC);
#endif
} else if (matchToken(&cp, "${DEBUG}")) {
mprPutStringToBuf(buf, ESP_DEBUG);
} else if (matchToken(&cp, "${INC}")) {
/* Include directory (out/inc) */
mprPutStringToBuf(buf, mprResolvePath(mprGetAppDir(), "inc"));
} else if (matchToken(&cp, "${LIB}")) {
/* Library directory. IDE's use bin dir */
mprPutStringToBuf(buf, getOutDir(BLD_LIB_NAME));
} else if (matchToken(&cp, "${LIBS}")) {
/* Required libraries to link. These may have nested ${TOKENS} */
mprPutStringToBuf(buf, espExpandCommand(ESP_LIBS, source, module));
} else if (matchToken(&cp, "${OBJ}")) {
/* Output object with extension (.o) */
mprPutStringToBuf(buf, mprJoinPathExt(out, BLD_OBJ));
} else if (matchToken(&cp, "${OUT}")) {
/* Output modules */
mprPutStringToBuf(buf, out);
} else if (matchToken(&cp, "${SHLIB}")) {
/* .lib */
mprPutStringToBuf(buf, appweb->hostOs);
} else if (matchToken(&cp, "${SHOBJ}")) {
/* .dll */
#ifdef BLD_HOST_SHOBJ
// MOB - need this for bit
mprPutStringToBuf(buf, BLD_HOST_SHOBJ);
#else
mprPutStringToBuf(buf, BLD_SHOBJ);
#endif
} else if (matchToken(&cp, "${SRC}")) {
/* View (already parsed into C code) or controller source */
mprPutStringToBuf(buf, source);
} else if (matchToken(&cp, "${TMP}")) {
#if BLD_WIN_LIKE
if ((tmp = getenv("TMP")) == 0) {
tmp = getenv("TEMP");
}
#else
tmp = getenv("TMPDIR");
#endif
mprPutStringToBuf(buf, tmp ? tmp : ".");
#ifdef WIND_BASE
} else if (matchToken(&cp, "${WIND_BASE}")) {
mprPutStringToBuf(buf, WIND_BASE);
#endif
#ifdef WIND_HOME
} else if (matchToken(&cp, "${WIND_HOME}")) {
mprPutStringToBuf(buf, WIND_HOME);
#endif
#ifdef WIND_HOST_TYPE
} else if (matchToken(&cp, "${WIND_HOST_TYPE}")) {
mprPutStringToBuf(buf, WIND_HOST_TYPE);
#endif
#ifdef WIND_PLATFORM
} else if (matchToken(&cp, "${WIND_PLATFORM}")) {
mprPutStringToBuf(buf, WIND_PLATFORM);
#endif
#ifdef WIND_GNU_PATH
} else if (matchToken(&cp, "${WIND_GNU_PATH}")) {
mprPutStringToBuf(buf, WIND_GNU_PATH);
#endif
} else {
mprPutCharToBuf(buf, *cp++);
}
} else {
mprPutCharToBuf(buf, *cp++);
}
}
mprAddNullToBuf(buf);
return sclone(mprGetBufStart(buf));
}
static int parseArgs(int argc, char **argv)
{
char *argp, *key, *value;
int i, setWorkers, nextArg, ssl;
setWorkers = 0;
ssl = 0;
for (nextArg = 1; nextArg < argc; nextArg++) {
argp = argv[nextArg];
if (*argp != '-') {
break;
}
if (smatch(argp, "--auth")) {
if (nextArg >= argc) {
return showUsage();
} else {
app->authType = slower(argv[++nextArg]);
}
} else if (smatch(argp, "--benchmark") || smatch(argp, "-b")) {
app->benchmark++;
} else if (smatch(argp, "--ca")) {
if (nextArg >= argc) {
return showUsage();
} else {
app->ca = sclone(argv[++nextArg]);
if (!mprPathExists(app->ca, R_OK)) {
mprError("Cannot find ca file %s", app->ca);
return MPR_ERR_BAD_ARGS;
}
}
ssl = 1;
} else if (smatch(argp, "--cert")) {
if (nextArg >= argc) {
return showUsage();
} else {
app->cert = sclone(argv[++nextArg]);
if (!mprPathExists(app->cert, R_OK)) {
mprError("Cannot find cert file %s", app->cert);
return MPR_ERR_BAD_ARGS;
}
}
ssl = 1;
} else if (smatch(argp, "--chunk")) {
if (nextArg >= argc) {
return showUsage();
} else {
value = argv[++nextArg];
app->chunkSize = atoi(value);
if (app->chunkSize < 0) {
mprError("Bad chunksize %d", app->chunkSize);
return MPR_ERR_BAD_ARGS;
}
}
} else if (smatch(argp, "--ciphers")) {
if (nextArg >= argc) {
return showUsage();
} else {
app->ciphers = sclone(argv[++nextArg]);
}
ssl = 1;
} else if (smatch(argp, "--continue") || smatch(argp, "-c")) {
app->continueOnErrors++;
} else if (smatch(argp, "--cookie")) {
if (nextArg >= argc) {
return showUsage();
} else {
mprAddItem(app->headers, mprCreateKeyPair("Cookie", argv[++nextArg], 0));
}
} else if (smatch(argp, "--data")) {
if (nextArg >= argc) {
return showUsage();
} else {
if (app->bodyData == 0) {
app->bodyData = mprCreateBuf(-1, -1);
}
mprPutStringToBuf(app->bodyData, argv[++nextArg]);
}
} else if (smatch(argp, "--debugger") || smatch(argp, "-D")) {
mprSetDebugMode(1);
app->retries = 0;
app->timeout = MAXINT;
} else if (smatch(argp, "--delete")) {
app->method = "DELETE";
} else if (smatch(argp, "--form") || smatch(argp, "-f")) {
if (nextArg >= argc) {
return showUsage();
} else {
if (app->formData == 0) {
app->formData = mprCreateList(-1, 0);
}
addFormVars(argv[++nextArg]);
}
} else if (smatch(argp, "--header")) {
if (nextArg >= argc) {
return showUsage();
} else {
key = argv[++nextArg];
if ((value = strchr(key, ':')) == 0) {
mprError("Bad header format. Must be \"key: value\"");
return MPR_ERR_BAD_ARGS;
}
*value++ = '\0';
while (isspace((uchar) *value)) {
value++;
}
mprAddItem(app->headers, mprCreateKeyPair(key, value, 0));
}
} else if (smatch(argp, "--host")) {
if (nextArg >= argc) {
return showUsage();
} else {
app->host = argv[++nextArg];
if (*app->host == ':') {
app->host = &app->host[1];
}
if (isPort(app->host)) {
app->host = sfmt("http://127.0.0.1:%s", app->host);
} else {
app->host = sclone(app->host);
}
}
} else if (smatch(argp, "--iterations") || smatch(argp, "-i")) {
if (nextArg >= argc) {
return showUsage();
} else {
app->iterations = atoi(argv[++nextArg]);
}
} else if (smatch(argp, "--key")) {
if (nextArg >= argc) {
return showUsage();
} else {
app->key = sclone(argv[++nextArg]);
if (!mprPathExists(app->key, R_OK)) {
mprError("Cannot find key file %s", app->key);
return MPR_ERR_BAD_ARGS;
}
}
ssl = 1;
} else if (smatch(argp, "--log") || smatch(argp, "-l")) {
if (nextArg >= argc) {
return showUsage();
} else {
mprStartLogging(argv[++nextArg], 0);
}
} else if (smatch(argp, "--method") || smatch(argp, "-m")) {
if (nextArg >= argc) {
return showUsage();
} else {
app->method = argv[++nextArg];
}
} else if (smatch(argp, "--out") || smatch(argp, "-o")) {
if (nextArg >= argc) {
return showUsage();
} else {
app->outFilename = sclone(argv[++nextArg]);
}
} else if (smatch(argp, "--noout") || smatch(argp, "-n") ||
smatch(argp, "--quiet") || smatch(argp, "-q")) {
app->noout++;
} else if (smatch(argp, "--nofollow")) {
app->nofollow++;
} else if (smatch(argp, "--password") || smatch(argp, "-p")) {
if (nextArg >= argc) {
return showUsage();
} else {
app->password = sclone(argv[++nextArg]);
}
} else if (smatch(argp, "--post")) {
app->method = "POST";
} else if (smatch(argp, "--printable")) {
app->printable++;
} else if (smatch(argp, "--protocol")) {
if (nextArg >= argc) {
return showUsage();
} else {
app->protocol = supper(argv[++nextArg]);
}
} else if (smatch(argp, "--provider")) {
/* Undocumented SSL provider selection */
if (nextArg >= argc) {
return showUsage();
} else {
app->provider = sclone(argv[++nextArg]);
}
ssl = 1;
} else if (smatch(argp, "--put")) {
app->method = "PUT";
} else if (smatch(argp, "--range")) {
if (nextArg >= argc) {
return showUsage();
} else {
if (app->ranges == 0) {
app->ranges = sfmt("bytes=%s", argv[++nextArg]);
} else {
app->ranges = srejoin(app->ranges, ",", argv[++nextArg], NULL);
}
}
} else if (smatch(argp, "--retries") || smatch(argp, "-r")) {
if (nextArg >= argc) {
return showUsage();
} else {
app->retries = atoi(argv[++nextArg]);
}
} else if (smatch(argp, "--self")) {
/* Undocumented. Allow self-signed certs. Users should just not set --verify */
app->verifyIssuer = 0;
ssl = 1;
} else if (smatch(argp, "--sequence")) {
app->sequence++;
} else if (smatch(argp, "--showHeaders") || smatch(argp, "--show") || smatch(argp, "-s")) {
app->showHeaders++;
} else if (smatch(argp, "--showStatus") || smatch(argp, "--showCode")) {
app->showStatus++;
} else if (smatch(argp, "--single") || smatch(argp, "-s")) {
app->singleStep++;
} else if (smatch(argp, "--text")) {
app->text++;
} else if (smatch(argp, "--threads") || smatch(argp, "-t")) {
if (nextArg >= argc) {
return showUsage();
} else {
app->loadThreads = atoi(argv[++nextArg]);
}
} else if (smatch(argp, "--timeout")) {
if (nextArg >= argc) {
return showUsage();
} else {
app->timeout = atoi(argv[++nextArg]) * MPR_TICKS_PER_SEC;
}
} else if (smatch(argp, "--upload") || smatch(argp, "-u")) {
app->upload++;
} else if (smatch(argp, "--user") || smatch(argp, "--username")) {
if (nextArg >= argc) {
return showUsage();
} else {
app->username = argv[++nextArg];
}
// DEPRECATE validate. Preserve verify.
} else if (smatch(argp, "--validate") || smatch(argp, "--verify")) {
app->verifyPeer = 1;
ssl = 1;
} else if (smatch(argp, "--verbose") || smatch(argp, "-v")) {
app->verbose++;
} else if (smatch(argp, "--version") || smatch(argp, "-V")) {
mprEprintf("%s %s\n"
"Copyright (C) Embedthis Software 2003-2013\n"
"Copyright (C) Michael O'Brien 2003-2013\n",
BIT_TITLE, BIT_VERSION);
exit(0);
} else if (smatch(argp, "--workerTheads") || smatch(argp, "-w")) {
if (nextArg >= argc) {
return showUsage();
} else {
app->workers = atoi(argv[++nextArg]);
}
setWorkers++;
} else if (smatch(argp, "--zero")) {
app->zeroOnErrors++;
} else if (smatch(argp, "--")) {
nextArg++;
break;
} else if (smatch(argp, "-")) {
break;
} else {
return showUsage();
}
}
if (argc == nextArg) {
return showUsage();
}
app->nextArg = nextArg;
argc = argc - nextArg;
argv = &argv[nextArg];
app->target = argv[argc - 1];
if (--argc > 0) {
/*
Files present on command line
*/
app->files = mprCreateList(argc, MPR_LIST_STATIC_VALUES);
for (i = 0; i < argc; i++) {
mprAddItem(app->files, argv[i]);
}
}
if (!setWorkers) {
app->workers = app->loadThreads + 2;
}
if (app->method == 0) {
if (app->bodyData || app->formData || app->upload) {
app->method = "POST";
} else if (app->files) {
app->method = "PUT";
} else {
app->method = "GET";
}
}
#if BIT_PACK_SSL
{
HttpUri *uri = httpCreateUri(app->target, 0);
if (uri->secure || ssl) {
app->ssl = mprCreateSsl(0);
if (app->provider) {
mprSetSslProvider(app->ssl, app->provider);
}
if (app->cert) {
if (!app->key) {
mprError("Must specify key file");
return 0;
}
mprSetSslCertFile(app->ssl, app->cert);
mprSetSslKeyFile(app->ssl, app->key);
}
if (app->ca) {
mprLog(4, "Using CA: \"%s\"", app->ca);
mprSetSslCaFile(app->ssl, app->ca);
}
if (app->verifyIssuer == -1) {
app->verifyIssuer = app->verifyPeer ? 1 : 0;
}
mprVerifySslPeer(app->ssl, app->verifyPeer);
mprVerifySslIssuer(app->ssl, app->verifyIssuer);
if (app->ciphers) {
mprSetSslCiphers(app->ssl, app->ciphers);
}
} else {
mprVerifySslPeer(NULL, 0);
}
}
#else
/* Suppress comp warning */
mprNop(&ssl);
#endif
return 0;
}
PUBLIC void maLogRequest(HttpConn *conn)
{
HttpHost *host;
HttpRx *rx;
HttpTx *tx;
HttpRoute *route;
MprBuf *buf;
char keyBuf[80], *timeText, *fmt, *cp, *qualifier, *value, c;
int len;
rx = conn->rx;
tx = conn->tx;
route = rx->route;
host = httpGetConnContext(conn);
if (host == 0) {
return;
}
fmt = route->logFormat;
if (fmt == 0) {
return;
}
if (rx->method == 0) {
return;
}
len = BIT_MAX_URI + 256;
buf = mprCreateBuf(len, len);
while ((c = *fmt++) != '\0') {
if (c != '%' || (c = *fmt++) == '%') {
mprPutCharToBuf(buf, c);
continue;
}
switch (c) {
case 'a': /* Remote IP */
mprPutStringToBuf(buf, conn->ip);
break;
case 'A': /* Local IP */
mprPutStringToBuf(buf, conn->sock->listenSock->ip);
break;
case 'b':
if (tx->bytesWritten == 0) {
mprPutCharToBuf(buf, '-');
} else {
mprPutIntToBuf(buf, tx->bytesWritten);
}
break;
case 'B': /* Bytes written (minus headers) */
mprPutIntToBuf(buf, (tx->bytesWritten - tx->headerSize));
break;
case 'h': /* Remote host */
mprPutStringToBuf(buf, conn->ip);
break;
case 'n': /* Local host */
mprPutStringToBuf(buf, rx->parsedUri->host);
break;
case 'O': /* Bytes written (including headers) */
mprPutIntToBuf(buf, tx->bytesWritten);
break;
case 'r': /* First line of request */
mprPutToBuf(buf, "%s %s %s", rx->method, rx->uri, conn->protocol);
break;
case 's': /* Response code */
mprPutIntToBuf(buf, tx->status);
break;
case 't': /* Time */
mprPutCharToBuf(buf, '[');
timeText = mprFormatLocalTime(MPR_DEFAULT_DATE, mprGetTime());
mprPutStringToBuf(buf, timeText);
mprPutCharToBuf(buf, ']');
break;
case 'u': /* Remote username */
mprPutStringToBuf(buf, conn->username ? conn->username : "******");
break;
case '{': /* Header line */
qualifier = fmt;
if ((cp = strchr(qualifier, '}')) != 0) {
fmt = &cp[1];
*cp = '\0';
c = *fmt++;
scopy(keyBuf, sizeof(keyBuf), "HTTP_");
scopy(&keyBuf[5], sizeof(keyBuf) - 5, qualifier);
switch (c) {
case 'i':
value = (char*) mprLookupKey(rx->headers, supper(keyBuf));
mprPutStringToBuf(buf, value ? value : "-");
break;
default:
mprPutStringToBuf(buf, qualifier);
}
*cp = '}';
} else {
mprPutCharToBuf(buf, c);
}
break;
case '>':
if (*fmt == 's') {
fmt++;
mprPutIntToBuf(buf, tx->status);
}
break;
default:
mprPutCharToBuf(buf, c);
break;
}
}
mprPutCharToBuf(buf, '\n');
mprAddNullToBuf(buf);
mprWriteFile(route->log, mprGetBufStart(buf), mprGetBufLength(buf));
}
static void formatVar(Ejs *ep, MprBuf *bp, EjsVar *vp)
{
EjsProperty *pp, *first;
EjsVar *propVar, *baseClass;
char *buf, *value;
int i;
if (vp->type == EJS_TYPE_OBJECT) {
if (!vp->objectState->visited) {
mprPutStringToBuf(bp, vp->isArray ? "[\n" : "{\n");
ep->depth++;
vp->objectState->visited = 1;
if (ep->depth <= ep->maxDepth) {
first = ejsGetFirstProperty(vp, EJS_ENUM_ALL);
if (ep->flags & EJS_FLAGS_ENUM_BASE) {
baseClass = vp->objectState->baseClass;
if (baseClass) {
for (i = 0; i < ep->depth; i++) {
mprPutStringToBuf(bp, " ");
}
mprPutStringToBuf(bp, baseClass->objectState->objName);
mprPutStringToBuf(bp, ": /* Base Class */ ");
if (baseClass->objectState == vp->objectState) {
value = "this";
} else if (ejsRunMethodCmd(ep, baseClass, "toString",
"%d", ep->maxDepth) < 0) {
value = "[object Object]";
} else {
mprAssert(ejsVarIsString(ep->result));
value = ep->result->string;
}
mprPutStringToBuf(bp, value);
if (first) {
mprPutStringToBuf(bp, ",\n");
}
}
}
pp = first;
while (pp) {
if (! pp->dontEnumerate ||
ep->flags & EJS_FLAGS_ENUM_HIDDEN) {
for (i = 0; i < ep->depth; i++) {
mprPutStringToBuf(bp, " ");
}
if (! vp->isArray) {
mprPutStringToBuf(bp, pp->name);
mprPutStringToBuf(bp, ": ");
}
propVar = ejsGetVarPtr(pp);
if (propVar->type == EJS_TYPE_OBJECT) {
if (pp->var.objectState == vp->objectState) {
value = "this";
} else if (ejsRunMethodCmd(ep, propVar,
"toString", "%d", ep->maxDepth) < 0) {
value = "[object Object]";
} else {
mprAssert(ejsVarIsString(ep->result));
value = ep->result->string;
}
mprPutStringToBuf(bp, value);
} else {
formatVar(ep, bp, &pp->var);
}
pp = ejsGetNextProperty(pp, EJS_ENUM_ALL);
if (pp) {
mprPutStringToBuf(bp, ",\n");
}
} else {
pp = ejsGetNextProperty(pp, EJS_ENUM_ALL);
}
}
}
vp->objectState->visited = 0;
mprPutCharToBuf(bp, '\n');
ep->depth--;
for (i = 0; i < ep->depth; i++) {
mprPutStringToBuf(bp, " ");
}
mprPutCharToBuf(bp, vp->isArray ? ']' : '}');
}
} else if (vp->type == EJS_TYPE_METHOD) {
mprPutStringToBuf(bp, "function (");
for (i = 0; i < vp->method.args->length; i++) {
mprPutStringToBuf(bp, vp->method.args->items[i]);
if ((i + 1) < vp->method.args->length) {
mprPutStringToBuf(bp, ", ");
}
}
mprPutStringToBuf(bp, ") {");
mprPutStringToBuf(bp, vp->method.body);
for (i = 0; i < ep->depth; i++) {
mprPutStringToBuf(bp, " ");
}
mprPutStringToBuf(bp, "}");
} else {
if (vp->type == EJS_TYPE_STRING) {
mprPutCharToBuf(bp, '\"');
}
/*
* We don't use ejsVarToString for arrays, objects and strings.
* This is because ejsVarToString does not call "obj.toString"
* and it is not required for strings.
* MOB - rc
*/
buf = ejsVarToString(ep, vp);
mprPutStringToBuf(bp, buf);
if (vp->type == EJS_TYPE_STRING) {
mprPutCharToBuf(bp, '\"');
}
}
}