r9800: Add EJS interface to param. tridge, sorry this overlaps a bit
[sfrench/samba-autobuild/.git] / source4 / scripting / ejs / smbcalls.c
index 75702e4e768e4406ade049ee52cfcf8301f25dde..d0ce1366a512407b59116dc43191ee75299c00c8 100644 (file)
@@ -22,8 +22,7 @@
 */
 
 #include "includes.h"
-#include "lib/ejs/ejs.h"
-#include "auth/auth.h"
+#include "lib/appweb/ejs/ejs.h"
 #include "scripting/ejs/smbcalls.h"
 
 /*
@@ -46,7 +45,7 @@ static int ejs_typeof(MprVarHandle eid, int argc, struct MprVar **argv)
                { MPR_TYPE_FUNCTION,         "function" },
                { MPR_TYPE_STRING,           "string" },
                { MPR_TYPE_STRING_CFUNCTION, "function" },
-               { MPR_TYPE_PTR,              "pointer" }
+               { MPR_TYPE_PTR,              "pointer" }
        };
        int i;
        const char *type = NULL;
@@ -66,118 +65,48 @@ static int ejs_typeof(MprVarHandle eid, int argc, struct MprVar **argv)
 }
 
 /*
-  setup a return of a string list
+  libinclude() allows you to include js files using a search path specified
+  in "js include =" in smb.conf. 
 */
-void ejs_returnlist(int eid, const char *name, const char **list)
+static int ejs_libinclude(int eid, int argc, char **argv)
 {
-       mpr_Return(eid, mprList(name, list));
-}
-
-static int ejs_systemAuth(TALLOC_CTX *tmp_ctx, struct MprVar *auth, const char *username, const char *password, const char *domain, const char *remote_host)
-{
-       struct auth_usersupplied_info *user_info = NULL;
-       struct auth_serversupplied_info *server_info = NULL;
-       struct auth_context *auth_context;
-       const char *auth_unix[] = { "unix", NULL };
-       NTSTATUS nt_status;
-       DATA_BLOB pw_blob;
-
-       /*
-         darn, we need some way to get the right event_context here
-       */
-       nt_status = auth_context_create(tmp_ctx, auth_unix, &auth_context, NULL);
-       if (!NT_STATUS_IS_OK(nt_status)) {
-               mprSetPropertyValue(auth, "result", mprCreateBoolVar(False));
-               mprSetPropertyValue(auth, "report", mprCreateStringVar("Auth System Failure", 1));
-               goto done;
-       }
+       int i, j;
+       const char **js_include = lp_js_include();
 
-       pw_blob = data_blob(password, strlen(password)+1),
-       make_user_info(tmp_ctx, username, username,
-                               domain, domain,
-                               remote_host, remote_host,
-                               NULL, NULL,
-                               NULL, NULL,
-                               &pw_blob, False,
-                               USER_INFO_CASE_INSENSITIVE_USERNAME |
-                               USER_INFO_DONT_CHECK_UNIX_ACCOUNT,
-                               &user_info);
-       nt_status = auth_check_password(auth_context, tmp_ctx, user_info, &server_info);
-       if (!NT_STATUS_IS_OK(nt_status)) {
-               mprSetPropertyValue(auth, "result", mprCreateBoolVar(False));
-               mprSetPropertyValue(auth, "report", mprCreateStringVar("Login Failed", 1));
-               goto done;
-       }
-
-       mprSetPropertyValue(auth, "result", mprCreateBoolVar(server_info->authenticated));
-       mprSetPropertyValue(auth, "username", mprCreateStringVar(server_info->account_name, 1));
-       mprSetPropertyValue(auth, "domain", mprCreateStringVar(server_info->domain_name, 1));
-
-done:
-       return 0;
-}
-
-/*
-  perform user authentication, returning an array of results
-
-  syntax:
-    var authinfo = new Object();
-    authinfo.username = myname;
-    authinfo.password = mypass;
-    authinfo.domain = mydom;
-    authinfo.rhost = request['REMOTE_HOST'];
-    auth = userAuth(authinfo);
-*/
-static int ejs_userAuth(MprVarHandle eid, int argc, struct MprVar **argv)
-{
-       TALLOC_CTX *tmp_ctx;
-       const char *username;
-       const char *password;
-       const char *domain;
-       const char *remote_host;
-       struct MprVar auth;
-
-       if (argc != 1 || argv[0]->type != MPR_TYPE_OBJECT) {
-               ejsSetErrorMsg(eid, "userAuth invalid arguments, this function requires an object.");
+       if (js_include == NULL || js_include[0] == NULL) {
+               ejsSetErrorMsg(eid, "js include path not set");
                return -1;
        }
 
-       username = mprToString(mprGetProperty(argv[0], "username", NULL));
-       password = mprToString(mprGetProperty(argv[0], "password", NULL));
-       domain = mprToString(mprGetProperty(argv[0], "domain", NULL));
-       remote_host = mprToString(mprGetProperty(argv[0], "rhost", NULL));
-
-       tmp_ctx = talloc_new(mprMemCtx());      
-       auth = mprCreateObjVar("auth", MPR_DEFAULT_HASH_SIZE);
-
-       if (domain && strcmp("System User", domain) == 0) {
-
-               ejs_systemAuth(tmp_ctx, &auth, username, password, domain, remote_host);
-       }  else {
-
-               mprSetPropertyValue(&auth, "result", mprCreateBoolVar(False));
-               mprSetPropertyValue(&auth, "report", mprCreateStringVar("Unknown Domain", 1));
-       }
-
-       mpr_Return(eid, auth);
-       talloc_free(tmp_ctx);
-       return 0;
-}
-
-static int ejs_domain_list(MprVarHandle eid, int argc, char **argv)
-{
-       struct MprVar list;
-
-       if (argc != 0) {
-               ejsSetErrorMsg(eid, "domList invalid arguments");
-               return -1;
+       for (i = 0; i < argc; i++) {
+               const char *script = argv[i];
+
+               for (j=0;js_include[j];j++) {
+                       char *path;
+                       path = talloc_asprintf(mprMemCtx(), "%s/%s", js_include[j], script);
+                       if (path == NULL) {
+                               return -1;
+                       }
+                       if (file_exist(path)) {
+                               int ret;
+                               struct MprVar result;
+                               char *emsg;
+
+                               ret = ejsEvalFile(eid, path, &result, &emsg);
+                               talloc_free(path);
+                               if (ret < 0) {
+                                       ejsSetErrorMsg(eid, "%s: %s", script, emsg);
+                                       return -1;
+                               }
+                               break;
+                       }
+                       talloc_free(path);
+               }
+               if (js_include[j] == NULL) {
+                       ejsSetErrorMsg(eid, "unable to include '%s'", script);
+                       return -1;
+               }
        }
-
-       list = mprCreateObjVar("list", MPR_DEFAULT_HASH_SIZE);
-       mprSetVar(&list, "0", mprCreateStringVar("System User", 1));
-
-       mpr_Return(eid, list);
-
        return 0;
 }
 
@@ -192,16 +121,18 @@ void smb_setup_ejs_functions(void)
        smb_setup_ejs_nbt();
        smb_setup_ejs_cli();
        smb_setup_ejs_rpc();
+       smb_setup_ejs_auth();
+       smb_setup_ejs_options();
+       smb_setup_ejs_nss();
+       smb_setup_ejs_string();
+       smb_setup_ejs_random();
+       smb_setup_ejs_system();
+       smb_setup_ejs_credentials();
+       smb_setup_ejs_samba3();
+       smb_setup_ejs_param();
+       smb_setup_ejs_datablob();
 
        ejsDefineCFunction(-1, "typeof", ejs_typeof, NULL, MPR_VAR_SCRIPT_HANDLE);
-       ejsDefineStringCFunction(-1, "getDomainList", ejs_domain_list, NULL, MPR_VAR_SCRIPT_HANDLE);
-       ejsDefineCFunction(-1, "userAuth", ejs_userAuth, NULL, MPR_VAR_SCRIPT_HANDLE);
+       ejsDefineStringCFunction(-1, "libinclude", ejs_libinclude, NULL, MPR_VAR_SCRIPT_HANDLE);
 }
 
-/*
-  setup constants that can be used from ejs
-*/
-void smb_setup_ejs_constants(int eid)
-{
-       smb_setup_ejs_rpc_constants(eid);
-}