r9071: Set real and workstation fields in ejs credentials object.
[jelmer/samba4-debian.git] / source / 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
27 /*
28   helper function to get the local objects credentials ptr
29 */
30 static struct cli_credentials *ejs_creds_get_credentials(int eid)
31 {
32         struct cli_credentials *creds = mprGetThisPtr(eid, "creds");
33         if (creds == NULL) {
34                 ejsSetErrorMsg(eid, "NULL ejs credentials");
35         }
36         return creds;
37 }
38
39 /*
40   get a domain
41 */
42 static int ejs_creds_get_domain(MprVarHandle eid, int argc, struct MprVar **argv)
43 {
44         struct cli_credentials *creds = ejs_creds_get_credentials(eid);
45
46         mpr_Return(eid, mprString(cli_credentials_get_domain(creds)));
47         return 0;
48 }
49
50
51 /*
52   set a domain
53 */
54 static int ejs_creds_set_domain(MprVarHandle eid, int argc, char **argv)
55 {
56         struct cli_credentials *creds = ejs_creds_get_credentials(eid);
57         if (argc != 1) {
58                 ejsSetErrorMsg(eid, "bad arguments to set_domain");
59                 return -1;
60         }
61
62         cli_credentials_set_domain(creds, argv[0], CRED_SPECIFIED);
63         mpr_Return(eid, mprCreateBoolVar(True));
64         return 0;
65 }
66
67
68 /*
69   get a username
70 */
71 static int ejs_creds_get_username(MprVarHandle eid, int argc, struct MprVar **argv)
72 {
73         struct cli_credentials *creds = ejs_creds_get_credentials(eid);
74
75         mpr_Return(eid, mprString(cli_credentials_get_username(creds)));
76         return 0;
77 }
78
79
80 /*
81   set a username
82 */
83 static int ejs_creds_set_username(MprVarHandle eid, int argc, char **argv)
84 {
85         struct cli_credentials *creds = ejs_creds_get_credentials(eid);
86         if (argc != 1) {
87                 ejsSetErrorMsg(eid, "bad arguments to set_username");
88                 return -1;
89         }
90
91         cli_credentials_set_username(creds, argv[0], CRED_SPECIFIED);
92         mpr_Return(eid, mprCreateBoolVar(True));
93         return 0;
94 }
95
96
97 /*
98   get user password
99 */
100 static int ejs_creds_get_password(MprVarHandle eid, int argc, struct MprVar **argv)
101 {
102         struct cli_credentials *creds = ejs_creds_get_credentials(eid);
103         
104         mpr_Return(eid, mprString(cli_credentials_get_password(creds)));
105         return 0;
106 }
107
108
109 /*
110   set user password
111 */
112 static int ejs_creds_set_password(MprVarHandle eid, int argc, char **argv)
113 {
114         struct cli_credentials *creds = ejs_creds_get_credentials(eid);
115         if (argc != 1) {
116                 ejsSetErrorMsg(eid, "bad arguments to set_password");
117                 return -1;
118         }
119
120         cli_credentials_set_password(creds, argv[0], CRED_SPECIFIED);
121         mpr_Return(eid, mprCreateBoolVar(True));
122         return 0;
123 }
124
125
126 /*
127   set realm
128 */
129 static int ejs_creds_set_realm(MprVarHandle eid, int argc, char **argv)
130 {
131         struct cli_credentials *creds = ejs_creds_get_credentials(eid);
132         if (argc != 1) {
133                 ejsSetErrorMsg(eid, "bad arguments to set_realm");
134                 return -1;
135         }
136
137         cli_credentials_set_realm(creds, argv[0], CRED_SPECIFIED);
138         mpr_Return(eid, mprCreateBoolVar(True));
139         return 0;
140 }
141
142
143 /*
144   get realm
145 */
146 static int ejs_creds_get_realm(MprVarHandle eid, int argc, struct MprVar **argv)
147 {
148         struct cli_credentials *creds = ejs_creds_get_credentials(eid);
149         
150         mpr_Return(eid, mprString(cli_credentials_get_realm(creds)));
151         return 0;
152 }
153
154
155 /*
156   set workstation
157 */
158 static int ejs_creds_set_workstation(MprVarHandle eid, int argc, char **argv)
159 {
160         struct cli_credentials *creds = ejs_creds_get_credentials(eid);
161         if (argc != 1) {
162                 ejsSetErrorMsg(eid, "bad arguments to set_workstation");
163                 return -1;
164         }
165         
166         cli_credentials_set_workstation(creds, argv[0], CRED_SPECIFIED);
167         mpr_Return(eid, mprCreateBoolVar(True));
168         return 0;
169 }
170
171
172 /*
173   get workstation
174 */
175 static int ejs_creds_get_workstation(MprVarHandle eid, int argc, struct MprVar **argv)
176 {
177         struct cli_credentials *creds = ejs_creds_get_credentials(eid);
178         
179         mpr_Return(eid, mprString(cli_credentials_get_workstation(creds)));
180         return 0;
181 }
182
183
184 /*
185   initialise credentials ejs object
186 */
187 static int ejs_credentials_init(MprVarHandle eid, int argc, struct MprVar **argv)
188 {
189         struct MprVar *obj = mprInitObject(eid, "credentials", argc, argv);
190         struct cli_credentials *creds;
191
192         creds = cli_credentials_init(mprMemCtx());
193         if (creds == NULL) {
194                 return -1;
195         }
196
197         cli_credentials_guess(creds);
198         cli_credentials_set_username(creds, "", CRED_GUESSED);
199         cli_credentials_set_password(creds, "", CRED_GUESSED);
200
201         mprSetPtrChild(obj, "creds", creds);
202
203         /* setup our object methods */
204         mprSetCFunction(obj, "get_domain", ejs_creds_get_domain);
205         mprSetStringCFunction(obj, "set_domain", ejs_creds_set_domain);
206         mprSetCFunction(obj, "get_username", ejs_creds_get_username);
207         mprSetStringCFunction(obj, "set_username", ejs_creds_set_username);
208         mprSetCFunction(obj, "get_password", ejs_creds_get_password);
209         mprSetStringCFunction(obj, "set_password", ejs_creds_set_password);
210         mprSetCFunction(obj, "get_realm", ejs_creds_get_realm);
211         mprSetStringCFunction(obj, "set_realm", ejs_creds_set_realm);
212         mprSetCFunction(obj, "get_workstation", ejs_creds_get_workstation);
213         mprSetStringCFunction(obj, "set_workstation", ejs_creds_set_workstation);
214
215         return 0;
216 }
217
218
219 /*
220   setup C functions that be called from ejs
221 */
222 void smb_setup_ejs_credentials(void)
223 {
224         ejsDefineCFunction(-1, "credentials_init", ejs_credentials_init, NULL, MPR_VAR_SCRIPT_HANDLE);
225 }