45da5895e42fbd5e9e300c39e5dab182cf6295c0
[sfrench/samba-autobuild/.git] / source4 / scripting / ejs / smbcalls_creds.c
1 /* 
2    Unix SMB/CIFS implementation.
3
4    provide hooks credentials calls
5
6    Copyright (C) Andrew Tridgell 2005
7    
8    This program is free software; you can redistribute it and/or modify
9    it under the terms of the GNU General Public License as published by
10    the Free Software Foundation; either version 2 of the License, or
11    (at your option) any later version.
12    
13    This program is distributed in the hope that it will be useful,
14    but WITHOUT ANY WARRANTY; without even the implied warranty of
15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16    GNU General Public License for more details.
17    
18    You should have received a copy of the GNU General Public License
19    along with this program; if not, write to the Free Software
20    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
21 */
22
23 #include "includes.h"
24 #include "scripting/ejs/smbcalls.h"
25 #include "lib/appweb/ejs/ejs.h"
26 #include "lib/cmdline/popt_common.h"
27
28 /*
29   helper function to get the local objects credentials ptr
30 */
31 static struct cli_credentials *ejs_creds_get_credentials(int eid)
32 {
33         struct cli_credentials *creds = mprGetThisPtr(eid, "creds");
34         if (creds == NULL) {
35                 ejsSetErrorMsg(eid, "NULL ejs credentials");
36         }
37         return creds;
38 }
39
40 /*
41   get a domain
42 */
43 static int ejs_creds_get_domain(MprVarHandle eid, int argc, struct MprVar **argv)
44 {
45         struct cli_credentials *creds = ejs_creds_get_credentials(eid);
46
47         mpr_Return(eid, mprString(cli_credentials_get_domain(creds)));
48         return 0;
49 }
50
51
52 /*
53   set a domain
54 */
55 static int ejs_creds_set_domain(MprVarHandle eid, int argc, char **argv)
56 {
57         struct cli_credentials *creds = ejs_creds_get_credentials(eid);
58         if (argc != 1) {
59                 ejsSetErrorMsg(eid, "bad arguments to set_domain");
60                 return -1;
61         }
62
63         cli_credentials_set_domain(creds, argv[0], CRED_SPECIFIED);
64         mpr_Return(eid, mprCreateBoolVar(True));
65         return 0;
66 }
67
68
69 /*
70   get a username
71 */
72 static int ejs_creds_get_username(MprVarHandle eid, int argc, struct MprVar **argv)
73 {
74         struct cli_credentials *creds = ejs_creds_get_credentials(eid);
75
76         mpr_Return(eid, mprString(cli_credentials_get_username(creds)));
77         return 0;
78 }
79
80
81 /*
82   set a username
83 */
84 static int ejs_creds_set_username(MprVarHandle eid, int argc, char **argv)
85 {
86         struct cli_credentials *creds = ejs_creds_get_credentials(eid);
87         if (argc != 1) {
88                 ejsSetErrorMsg(eid, "bad arguments to set_username");
89                 return -1;
90         }
91
92         cli_credentials_set_username(creds, argv[0], CRED_SPECIFIED);
93         mpr_Return(eid, mprCreateBoolVar(True));
94         return 0;
95 }
96
97
98 /*
99   get user password
100 */
101 static int ejs_creds_get_password(MprVarHandle eid, int argc, struct MprVar **argv)
102 {
103         struct cli_credentials *creds = ejs_creds_get_credentials(eid);
104         
105         mpr_Return(eid, mprString(cli_credentials_get_password(creds)));
106         return 0;
107 }
108
109
110 /*
111   set user password
112 */
113 static int ejs_creds_set_password(MprVarHandle eid, int argc, char **argv)
114 {
115         struct cli_credentials *creds = ejs_creds_get_credentials(eid);
116         if (argc != 1) {
117                 ejsSetErrorMsg(eid, "bad arguments to set_password");
118                 return -1;
119         }
120
121         cli_credentials_set_password(creds, argv[0], CRED_SPECIFIED);
122         mpr_Return(eid, mprCreateBoolVar(True));
123         return 0;
124 }
125
126
127 /*
128   set realm
129 */
130 static int ejs_creds_set_realm(MprVarHandle eid, int argc, char **argv)
131 {
132         struct cli_credentials *creds = ejs_creds_get_credentials(eid);
133         if (argc != 1) {
134                 ejsSetErrorMsg(eid, "bad arguments to set_realm");
135                 return -1;
136         }
137
138         cli_credentials_set_realm(creds, argv[0], CRED_SPECIFIED);
139         mpr_Return(eid, mprCreateBoolVar(True));
140         return 0;
141 }
142
143
144 /*
145   get realm
146 */
147 static int ejs_creds_get_realm(MprVarHandle eid, int argc, struct MprVar **argv)
148 {
149         struct cli_credentials *creds = ejs_creds_get_credentials(eid);
150         
151         mpr_Return(eid, mprString(cli_credentials_get_realm(creds)));
152         return 0;
153 }
154
155
156 /*
157   set workstation
158 */
159 static int ejs_creds_set_workstation(MprVarHandle eid, int argc, char **argv)
160 {
161         struct cli_credentials *creds = ejs_creds_get_credentials(eid);
162         if (argc != 1) {
163                 ejsSetErrorMsg(eid, "bad arguments to set_workstation");
164                 return -1;
165         }
166         
167         cli_credentials_set_workstation(creds, argv[0], CRED_SPECIFIED);
168         mpr_Return(eid, mprCreateBoolVar(True));
169         return 0;
170 }
171
172
173 /*
174   get workstation
175 */
176 static int ejs_creds_get_workstation(MprVarHandle eid, int argc, struct MprVar **argv)
177 {
178         struct cli_credentials *creds = ejs_creds_get_credentials(eid);
179         
180         mpr_Return(eid, mprString(cli_credentials_get_workstation(creds)));
181         return 0;
182 }
183
184
185 /*
186   initialise credentials ejs object
187 */
188 static int ejs_credentials_obj(MprVarHandle eid, int argc, struct MprVar **argv, struct cli_credentials *creds)
189 {
190         struct MprVar *obj = mprInitObject(eid, "credentials", argc, argv);
191
192         mprSetPtrChild(obj, "creds", creds);
193
194         /* setup our object methods */
195         mprSetCFunction(obj, "get_domain", ejs_creds_get_domain);
196         mprSetStringCFunction(obj, "set_domain", ejs_creds_set_domain);
197         mprSetCFunction(obj, "get_username", ejs_creds_get_username);
198         mprSetStringCFunction(obj, "set_username", ejs_creds_set_username);
199         mprSetCFunction(obj, "get_password", ejs_creds_get_password);
200         mprSetStringCFunction(obj, "set_password", ejs_creds_set_password);
201         mprSetCFunction(obj, "get_realm", ejs_creds_get_realm);
202         mprSetStringCFunction(obj, "set_realm", ejs_creds_set_realm);
203         mprSetCFunction(obj, "get_workstation", ejs_creds_get_workstation);
204         mprSetStringCFunction(obj, "set_workstation", ejs_creds_set_workstation);
205
206         return 0;
207 }
208
209
210 /*
211   initialise credentials ejs object
212 */
213 static int ejs_credentials_init(MprVarHandle eid, int argc, struct MprVar **argv)
214 {
215         struct cli_credentials *creds;
216
217         creds = cli_credentials_init(mprMemCtx());
218         if (creds == NULL) {
219                 return -1;
220         }
221
222         return ejs_credentials_obj(eid, argc, argv, creds);
223 }
224
225 /*
226   initialise cmdline credentials ejs object
227 */
228 int ejs_credentials_cmdline(int eid, int argc, struct MprVar **argv)
229 {
230         return ejs_credentials_obj(eid, argc, argv, cmdline_credentials);
231 }
232
233
234 /*
235   setup C functions that be called from ejs
236 */
237 void smb_setup_ejs_credentials(void)
238 {
239         ejsDefineCFunction(-1, "credentials_init", ejs_credentials_init, NULL, MPR_VAR_SCRIPT_HANDLE);
240 }