1: /*************************************************************************
2: * (C) 2010 AITNET ltd - Sofia/Bulgaria - <misho@aitbg.com>
3: * by Michael Pounov <misho@openbsd-bg.org>
4: *
5: * $Author: misho $
6: * $Id: builtin.c,v 1.17.12.1 2014/01/28 14:04:57 misho Exp $
7: *
8: **************************************************************************
9: The ELWIX and AITNET software is distributed under the following
10: terms:
11:
12: All of the documentation and software included in the ELWIX and AITNET
13: Releases is copyrighted by ELWIX - Sofia/Bulgaria <info@elwix.org>
14:
15: Copyright 2004 - 2014
16: by Michael Pounov <misho@elwix.org>. All rights reserved.
17:
18: Redistribution and use in source and binary forms, with or without
19: modification, are permitted provided that the following conditions
20: are met:
21: 1. Redistributions of source code must retain the above copyright
22: notice, this list of conditions and the following disclaimer.
23: 2. Redistributions in binary form must reproduce the above copyright
24: notice, this list of conditions and the following disclaimer in the
25: documentation and/or other materials provided with the distribution.
26: 3. All advertising materials mentioning features or use of this software
27: must display the following acknowledgement:
28: This product includes software developed by Michael Pounov <misho@elwix.org>
29: ELWIX - Embedded LightWeight unIX and its contributors.
30: 4. Neither the name of AITNET nor the names of its contributors
31: may be used to endorse or promote products derived from this software
32: without specific prior written permission.
33:
34: THIS SOFTWARE IS PROVIDED BY AITNET AND CONTRIBUTORS ``AS IS'' AND
35: ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
36: IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
37: ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
38: FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
39: DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
40: OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
41: HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
42: LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
43: OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
44: SUCH DAMAGE.
45: */
46: #include "global.h"
47:
48:
49: /* builtin RPC server functions */
50:
51: static int
52: rpcServerClients(rpc_cli_t *cli, struct tagRPCCall *rpc, array_t *iv)
53: {
54: rpc_srv_t *srv;
55: rpc_cli_t *c;
56: register int i;
57: int len;
58: const char *str = NULL;
59: char *val;
60: ait_val_t v;
61:
62: RPC_CALLBACK_CHECK_INPUT(cli);
63: srv = RPC_SRV_SERVER(cli);
64:
65: len = array_Size(srv->srv_clients) * STRSIZ;
66: if (!(val = e_malloc(len))) {
67: LOGERR;
68: return -1;
69: } else
70: memset(val, 0, len);
71:
72: for (i = 0; i < array_Size(srv->srv_clients); i++) {
73: c = array(srv->srv_clients, i, rpc_cli_t*);
74: if (!c)
75: continue;
76:
77: str = e_n2addr(&c->cli_sa, &v);
78: if (str)
79: strlcat(val, (char*) str, len);
80: else
81: strlcat(val, "0.0.0.0", len);
82: strlcat(val, " ", len);
83: AIT_FREE_VAL(&v);
84: }
85:
86: /* return values */
87: AIT_SET_STR(ait_getVars(&RPC_RETVARS(cli), 0), val);
88: e_free(val);
89: return 0;
90: }
91:
92: static int
93: rpcServerCalls(rpc_cli_t *cli, struct tagRPCCall *rpc, array_t *iv)
94: {
95: rpc_srv_t *srv;
96: rpc_func_t *f;
97: register int i = 0;
98: int len;
99: char *val, str[MAXPATHLEN];
100:
101: RPC_CALLBACK_CHECK_INPUT(cli);
102: srv = RPC_SRV_SERVER(cli);
103:
104: SLIST_FOREACH(f, &srv->srv_funcs, func_next)
105: i++;
106: len = i * STRSIZ;
107:
108: if (!(val = e_malloc(len))) {
109: LOGERR;
110: return -1;
111: } else
112: memset(val, 0, len);
113:
114: SLIST_FOREACH(f, &srv->srv_funcs, func_next)
115: if (AIT_ADDR(&f->func_name)) {
116: memset(str, 0, sizeof str);
117: snprintf(str, sizeof str, "/%hu/0x%p; ", AIT_KEY(&f->func_name),
118: AIT_ADDR(&f->func_name));
119: strlcat(val, str, len);
120: }
121:
122: /* return variables */
123: AIT_SET_STR(ait_getVars(&RPC_RETVARS(cli), 0), val);
124: e_free(val);
125: return 0;
126: }
127:
128: static int
129: rpcServerSessions(rpc_cli_t *cli, struct tagRPCCall *rpc, array_t *iv)
130: {
131: rpc_srv_t *srv;
132:
133: RPC_CALLBACK_CHECK_INPUT(cli);
134: srv = RPC_SRV_SERVER(cli);
135:
136: AIT_SET_I32(ait_getVars(&RPC_RETVARS(cli), 2), array_Size(srv->srv_clients));
137: AIT_SET_U8(ait_getVars(&RPC_RETVARS(cli), 0), srv->srv_session.sess_version);
138: AIT_SET_U8(ait_getVars(&RPC_RETVARS(cli), 1), srv->srv_session.sess_instance);
139:
140: return 0;
141: }
142:
143: static int
144: rpcServerShutdown(rpc_cli_t *cli, struct tagRPCCall *rpc, array_t *iv)
145: {
146: rpc_srv_t *srv;
147:
148: RPC_CALLBACK_CHECK_INPUT(cli);
149: srv = RPC_SRV_SERVER(cli);
150:
151: rpc_freeCli(cli);
152:
153: srv->srv_kill = 1;
154: if (srv->srv_blob.tid)
155: pthread_kill(srv->srv_blob.tid, SIGFBLOB);
156: return 0;
157: }
158:
159: static int
160: rpcServerPing(rpc_cli_t *cli, struct tagRPCCall *rpc, array_t *iv)
161: {
162: if (ntohl((u_long) rpc->call_req.flags) == RPC_REPLY)
163: AIT_SET_U16(ait_getVars(&RPC_RETVARS(cli), 0), random() % USHRT_MAX);
164: return 0;
165: }
166:
167: /* ---------------------------------------------------- */
168:
169: static int
170: rpcBLOBServerShutdown(rpc_cli_t *cli, struct tagRPCCall *rpc, array_t *iv)
171: {
172: rpc_srv_t *srv;
173:
174: RPC_CALLBACK_CHECK_INPUT(cli);
175: srv = RPC_SRV_SERVER(cli);
176:
177: rpc_freeBLOBCli(cli);
178:
179: srv->srv_blob.kill = 1;
180: return 0;
181: }
182:
183: static int
184: rpcBLOBServerVars(rpc_cli_t *cli, struct tagRPCCall *rpc, array_t *iv)
185: {
186: rpc_srv_t *srv;
187: rpc_blob_t *b;
188: register int i = 0;
189: char *val, str[64];
190: int len;
191:
192: RPC_CALLBACK_CHECK_INPUT(cli);
193: srv = RPC_SRV_SERVER(cli);
194:
195: if (srv->srv_blob.kill) {
196: AIT_SET_STR(ait_getVars(&RPC_RETVARS(cli), 0), "BLOB Server is killed");
197: return 1;
198: }
199:
200: TAILQ_FOREACH(b, &srv->srv_blob.blobs, blob_node)
201: i++;
202: len = i * sizeof str;
203:
204: if (!len) {
205: AIT_SET_STR(ait_getVars(&RPC_RETVARS(cli), 0), "");
206: return 0;
207: }
208:
209: if (!(val = e_malloc(len))) {
210: LOGERR;
211: return -1;
212: } else
213: memset(val, 0, len);
214:
215: TAILQ_FOREACH(b, &srv->srv_blob.blobs, blob_node) {
216: memset(str, 0, sizeof str);
217: snprintf(str, sizeof str, "0x%0X(%lu)=%p ", b->blob_var, (u_long) b->blob_len, b->blob_data);
218: strlcat(val, str, len);
219: }
220:
221: AIT_SET_STR(ait_getVars(&RPC_RETVARS(cli), 0), val);
222: e_free(val);
223: return 0;
224: }
225:
226: static int
227: rpcBLOBServerClients(rpc_cli_t *cli, struct tagRPCCall *rpc, array_t *iv)
228: {
229: rpc_srv_t *srv;
230: rpc_cli_t *c;
231: register int i;
232: int len;
233: const char *str = NULL;
234: char *val;
235: ait_val_t v;
236:
237: RPC_CALLBACK_CHECK_INPUT(cli);
238: srv = RPC_SRV_SERVER(cli);
239:
240: if (srv->srv_blob.kill) {
241: AIT_SET_STR(ait_getVars(&RPC_RETVARS(cli), 0), "BLOB Server is killed");
242: return 1;
243: }
244:
245: len = array_Size(srv->srv_blob.clients) * STRSIZ;
246: if (!(val = e_malloc(len))) {
247: LOGERR;
248: return -1;
249: } else
250: memset(val, 0, len);
251:
252: for (i = 0; i < array_Size(srv->srv_clients); i++) {
253: c = array(srv->srv_blob.clients, i, rpc_cli_t*);
254: if (!c)
255: continue;
256:
257: str = e_n2addr(&c->cli_sa, &v);
258: if (str)
259: strlcat(val, (char*) str, len);
260: else
261: strlcat(val, "0.0.0.0", len);
262: strlcat(val, " ", len);
263: AIT_FREE_VAL(&v);
264: }
265:
266: AIT_SET_STR(ait_getVars(&RPC_RETVARS(cli), 0), val);
267: e_free(val);
268: return 0;
269: }
270:
271: /* ----------------------------------------------------------------- */
272:
273: /*
274: * rpc_register_srvPing() - Register ping service function
275: *
276: * @srv = RPC server instance
277: * return: -1 error or 0 ok
278: */
279: int
280: rpc_register_srvPing(rpc_srv_t * __restrict srv)
281: {
282: if (!srv)
283: return -1;
284:
285: if (rpc_srv_registerCall(srv, CALL_SRVPING, rpcServerPing) < 1)
286: return -1;
287:
288: return 0;
289: }
290:
291: /*
292: * rpc_register_srvServices() - Register internal service functions
293: *
294: * @srv = RPC server instance
295: * return: -1 error or 0 ok
296: */
297: int
298: rpc_register_srvServices(rpc_srv_t * __restrict srv)
299: {
300: if (!srv)
301: return -1;
302:
303: if (rpc_srv_registerCall(srv, CALL_SRVSHUTDOWN, rpcServerShutdown) < 1)
304: return -1;
305: if (rpc_srv_registerCall(srv, CALL_SRVCLIENTS, rpcServerClients) < 1)
306: return -1;
307: if (rpc_srv_registerCall(srv, CALL_SRVSESSIONS, rpcServerSessions) < 1)
308: return -1;
309: if (rpc_srv_registerCall(srv, CALL_SRVCALLS, rpcServerCalls) < 1)
310: return -1;
311:
312: return 0;
313: }
314:
315: /*
316: * rpc_register_blobServices() - Register internal service functions
317: *
318: * @srv = RPC server instance
319: * return: -1 error or 0 ok
320: */
321: int
322: rpc_register_blobServices(rpc_srv_t * __restrict srv)
323: {
324: if (!srv)
325: return -1;
326:
327: if (rpc_srv_registerCall(srv, CALL_BLOBSHUTDOWN, rpcBLOBServerShutdown) < 1)
328: return -1;
329: if (rpc_srv_registerCall(srv, CALL_BLOBCLIENTS, rpcBLOBServerClients) < 1)
330: return -1;
331: if (rpc_srv_registerCall(srv, CALL_BLOBVARS, rpcBLOBServerVars) < 1)
332: return -1;
333:
334: return 0;
335: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>