From 8754c793bfe79e87febb026e5915e054c23cfede Mon Sep 17 00:00:00 2001 From: Andrew Tridgell Date: Sun, 29 May 2005 11:35:56 +0000 Subject: r7072: moved the esp hooks calls to the ejs level, so we can call them from both esp scripts and ejs scripts. This allows the smbscript program to call all the existing extension calls like lpGet() and ldbSearch() Also fixed smbscript to load smb.conf, and setup logging for DEBUG() I left the unixAuth() routine in web_server/calls.c at the moment, as that is really only useful for esp scripts. I imagine that as we extend esp/ejs, we will put some functions in scripting/ejs/ for use in both ejs and esp, and some functions in web_server/ where they will only be accessed by esp web scripts (This used to be commit e59ae64f60d388a5634559e4e0887e4676b70871) --- source4/web_server/calls.c | 355 --------------------------------------------- 1 file changed, 355 deletions(-) (limited to 'source4/web_server/calls.c') diff --git a/source4/web_server/calls.c b/source4/web_server/calls.c index ab20c38193..8e9ea86904 100644 --- a/source4/web_server/calls.c +++ b/source4/web_server/calls.c @@ -26,357 +26,6 @@ #include "param/loadparm.h" #include "lib/ldb/include/ldb.h" -/* - add an indexed array element to a property -*/ -static void mprAddArray(struct MprVar *var, int i, struct MprVar v) -{ - char idx[16]; - mprItoa(i, idx, sizeof(idx)); - mprCreateProperty(var, idx, &v); -} - -/* - construct a MprVar from a list -*/ -static struct MprVar mprList(const char *name, const char **list) -{ - struct MprVar var; - int i; - - var = mprCreateObjVar(name, ESP_HASH_SIZE); - for (i=0;list && list[i];i++) { - mprAddArray(&var, i, mprCreateStringVar(list[i], 1)); - } - return var; -} - -/* - construct a string MprVar from a lump of data -*/ -static struct MprVar mprData(const uint8_t *p, size_t length) -{ - struct MprVar var; - char *s = talloc_strndup(NULL, p, length); - if (s == NULL) { - return mprCreateUndefinedVar(); - } - var = mprCreateStringVar(s, 1); - talloc_free(s); - return var; -} - -/* - turn a ldb_message into a ejs object variable -*/ -static struct MprVar mprLdbMessage(struct ldb_message *msg) -{ - struct MprVar var; - int i; - /* we force some attributes to always be an array in the - returned structure. This makes the scripting easier, as you don't - need a special case for the single value case */ - const char *multivalued[] = { "objectClass", "memberOf", "privilege", - "member", NULL }; - struct MprVar val; - - var = mprCreateObjVar(msg->dn, ESP_HASH_SIZE); - - for (i=0;inum_elements;i++) { - struct ldb_message_element *el = &msg->elements[i]; - if (el->num_values == 1 && - !str_list_check_ci(multivalued, el->name)) { - val = mprData(el->values[0].data, el->values[0].length); - } else { - int j; - val = mprCreateObjVar(el->name, ESP_HASH_SIZE); - for (j=0;jnum_values;j++) { - mprAddArray(&val, j, - mprData(el->values[j].data, - el->values[j].length)); - } - } - mprCreateProperty(&var, el->name, &val); - } - - /* add the dn if it is not already specified */ - if (mprGetProperty(&var, "dn", 0) == 0) { - val = mprCreateStringVar(msg->dn, 1); - mprCreateProperty(&var, "dn", &val); - } - - return var; -} - - -/* - turn an array of ldb_messages into a ejs object variable -*/ -static struct MprVar mprLdbArray(struct ldb_message **msg, int count, - const char *name) -{ - struct MprVar res; - int i; - - res = mprCreateObjVar(name?name:"(NULL)", ESP_HASH_SIZE); - for (i=0;itype != MPR_TYPE_STRING) return NULL; - return v->string; -} - -/* - turn a MprVar object variable into a string list - this assumes the object variable consists only of strings -*/ -static const char **mprToList(TALLOC_CTX *mem_ctx, struct MprVar *v) -{ - const char **list = NULL; - struct MprVar *el; - - if (v->type != MPR_TYPE_OBJECT || - v->properties == NULL) { - return NULL; - } - for (el=mprGetFirstProperty(v, MPR_ENUM_DATA); - el; - el=mprGetNextProperty(v, el, MPR_ENUM_DATA)) { - const char *s = mprToString(el); - if (s) { - list = str_list_add(list, s); - } - } - talloc_steal(mem_ctx, list); - return list; -} - -/* - return the type of a variable -*/ -static int esp_typeof(struct EspRequest *ep, int argc, struct MprVar **argv) -{ - const struct { - MprType type; - const char *name; - } types[] = { - { MPR_TYPE_UNDEFINED, "undefined" }, - { MPR_TYPE_NULL, "null" }, - { MPR_TYPE_BOOL, "boolean" }, - { MPR_TYPE_CFUNCTION, "function" }, - { MPR_TYPE_FLOAT, "float" }, - { MPR_TYPE_INT, "int" }, - { MPR_TYPE_INT64, "int64" }, - { MPR_TYPE_OBJECT, "object" }, - { MPR_TYPE_FUNCTION, "function" }, - { MPR_TYPE_STRING, "string" }, - { MPR_TYPE_STRING_CFUNCTION, "function" } - }; - int i; - const char *type = "unknown"; - - if (argc != 1) return -1; - - for (i=0;itype == types[i].type) { - type = types[i].name; - break; - } - } - - espSetReturnString(ep, type); - return 0; -} - -/* - setup a return of a string list -*/ -static void esp_returnlist(struct EspRequest *ep, - const char *name, const char **list) -{ - espSetReturn(ep, mprList(name, list)); -} - -/* - return a list of defined services -*/ -static int esp_lpServices(struct EspRequest *ep, int argc, char **argv) -{ - int i; - const char **list = NULL; - if (argc != 0) return -1; - - for (i=0;iclass == P_GLOBAL) { - return -1; - } - parm_ptr = lp_parm_ptr(snum, parm); - } else if (strchr(argv[0], ':')) { - /* its a global parametric option */ - const char *type = talloc_strndup(ep, argv[0], strcspn(argv[0], ":")); - const char *option = strchr(argv[0], ':') + 1; - const char *value; - if (type == NULL || option == NULL) return -1; - value = lp_get_parametric(-1, type, option); - if (value == NULL) return -1; - espSetReturnString(ep, value); - return 0; - } else { - /* its a global parameter */ - parm = lp_parm_struct(argv[0]); - if (parm == NULL) return -1; - parm_ptr = parm->ptr; - } - - if (parm == NULL || parm_ptr == NULL) { - return -1; - } - - /* construct and return the right type of ejs object */ - switch (parm->type) { - case P_STRING: - case P_USTRING: - espSetReturnString(ep, *(char **)parm_ptr); - break; - case P_BOOL: - espSetReturn(ep, mprCreateBoolVar(*(BOOL *)parm_ptr)); - break; - case P_INTEGER: - espSetReturn(ep, mprCreateIntegerVar(*(int *)parm_ptr)); - break; - case P_ENUM: - for (i=0; parm->enum_list[i].name; i++) { - if (*(int *)parm_ptr == parm->enum_list[i].value) { - espSetReturnString(ep, parm->enum_list[i].name); - return 0; - } - } - return -1; - case P_LIST: - esp_returnlist(ep, parm->label, *(const char ***)parm_ptr); - break; - case P_SEP: - return -1; - } - return 0; -} - - -/* - perform an ldb search, returning an array of results - - syntax: - ldbSearch("dbfile", "expression"); - var attrs = new Array("attr1", "attr2", "attr3"); - ldbSearch("dbfile", "expression", attrs); -*/ -static int esp_ldbSearch(struct EspRequest *ep, int argc, struct MprVar **argv) -{ - const char **attrs = NULL; - const char *expression, *dbfile; - TALLOC_CTX *tmp_ctx = talloc_new(ep); - struct ldb_context *ldb; - int ret; - struct ldb_message **res; - - /* validate arguments */ - if (argc < 2 || argc > 3 || - argv[0]->type != MPR_TYPE_STRING) { - espError(ep, "ldbSearch invalid arguments"); - goto failed; - } - if (argc == 3 && argv[2]->type != MPR_TYPE_OBJECT) { - espError(ep, "ldbSearch attributes must be an object"); - goto failed; - } - - dbfile = mprToString(argv[0]); - expression = mprToString(argv[1]); - if (argc > 2) { - attrs = mprToList(tmp_ctx, argv[2]); - } - if (dbfile == NULL || expression == NULL) { - espError(ep, "ldbSearch invalid arguments"); - goto failed; - } - - ldb = ldb_wrap_connect(tmp_ctx, dbfile, 0, NULL); - if (ldb == NULL) { - espError(ep, "ldbSearch failed to open %s", dbfile); - goto failed; - } - - ret = ldb_search(ldb, NULL, LDB_SCOPE_DEFAULT, expression, attrs, &res); - if (ret == -1) { - espError(ep, "ldbSearch failed - %s", ldb_errstring(ldb)); - goto failed; - } - - espSetReturn(ep, mprLdbArray(res, ret, "ldb_message")); - - talloc_free(tmp_ctx); - return 0; - -failed: - talloc_free(tmp_ctx); - return -1; -} /* try to authenticate the user/password pair against system auth mechanisms returns 0 on success @@ -452,9 +101,5 @@ done: */ void http_setup_ejs_functions(void) { - espDefineStringCFunction(NULL, "lpGet", esp_lpGet, NULL); - espDefineStringCFunction(NULL, "lpServices", esp_lpServices, NULL); - espDefineCFunction(NULL, "typeof", esp_typeof, NULL); - espDefineCFunction(NULL, "ldbSearch", esp_ldbSearch, NULL); espDefineCFunction(NULL, "unixAuth", esp_unixAuth, NULL); } -- cgit