ubus: Fix imbalance in lua stack push/pop of values.
[project/ubus.git] / examples / server.c
1 /*
2  * Copyright (C) 2011-2014 Felix Fietkau <nbd@openwrt.org>
3  *
4  * This program is free software; you can redistribute it and/or modify
5  * it under the terms of the GNU Lesser General Public License version 2.1
6  * as published by the Free Software Foundation
7  *
8  * This program is distributed in the hope that it will be useful,
9  * but WITHOUT ANY WARRANTY; without even the implied warranty of
10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
11  * GNU General Public License for more details.
12  */
13
14 #include <unistd.h>
15 #include <signal.h>
16
17 #include <libubox/blobmsg_json.h>
18 #include "libubus.h"
19
20 static struct ubus_context *ctx;
21 static struct ubus_subscriber test_event;
22 static struct blob_buf b;
23
24 enum {
25         HELLO_ID,
26         HELLO_MSG,
27         __HELLO_MAX
28 };
29
30 static const struct blobmsg_policy hello_policy[] = {
31         [HELLO_ID] = { .name = "id", .type = BLOBMSG_TYPE_INT32 },
32         [HELLO_MSG] = { .name = "msg", .type = BLOBMSG_TYPE_STRING },
33 };
34
35 struct hello_request {
36         struct ubus_request_data req;
37         struct uloop_timeout timeout;
38         int fd;
39         int idx;
40         char data[];
41 };
42
43 static void test_hello_fd_reply(struct uloop_timeout *t)
44 {
45         struct hello_request *req = container_of(t, struct hello_request, timeout);
46         char *data;
47
48         data = alloca(strlen(req->data) + 32);
49         sprintf(data, "msg%d: %s\n", ++req->idx, req->data);
50         if (write(req->fd, data, strlen(data)) < 0) {
51                 close(req->fd);
52                 free(req);
53                 return;
54         }
55
56         uloop_timeout_set(&req->timeout, 1000);
57 }
58
59 static void test_hello_reply(struct uloop_timeout *t)
60 {
61         struct hello_request *req = container_of(t, struct hello_request, timeout);
62         int fds[2];
63
64         blob_buf_init(&b, 0);
65         blobmsg_add_string(&b, "message", req->data);
66         ubus_send_reply(ctx, &req->req, b.head);
67
68         pipe(fds);
69         ubus_request_set_fd(ctx, &req->req, fds[0]);
70         ubus_complete_deferred_request(ctx, &req->req, 0);
71         close(fds[0]);
72         req->fd = fds[1];
73
74         req->timeout.cb = test_hello_fd_reply;
75         test_hello_fd_reply(t);
76 }
77
78 static int test_hello(struct ubus_context *ctx, struct ubus_object *obj,
79                       struct ubus_request_data *req, const char *method,
80                       struct blob_attr *msg)
81 {
82         struct hello_request *hreq;
83         struct blob_attr *tb[__HELLO_MAX];
84         const char *format = "%s received a message: %s";
85         const char *msgstr = "(unknown)";
86
87         blobmsg_parse(hello_policy, ARRAY_SIZE(hello_policy), tb, blob_data(msg), blob_len(msg));
88
89         if (tb[HELLO_MSG])
90                 msgstr = blobmsg_data(tb[HELLO_MSG]);
91
92         hreq = calloc(1, sizeof(*hreq) + strlen(format) + strlen(obj->name) + strlen(msgstr) + 1);
93         sprintf(hreq->data, format, obj->name, msgstr);
94         ubus_defer_request(ctx, req, &hreq->req);
95         hreq->timeout.cb = test_hello_reply;
96         uloop_timeout_set(&hreq->timeout, 1000);
97
98         return 0;
99 }
100
101 enum {
102         WATCH_ID,
103         WATCH_COUNTER,
104         __WATCH_MAX
105 };
106
107 static const struct blobmsg_policy watch_policy[__WATCH_MAX] = {
108         [WATCH_ID] = { .name = "id", .type = BLOBMSG_TYPE_INT32 },
109         [WATCH_COUNTER] = { .name = "counter", .type = BLOBMSG_TYPE_INT32 },
110 };
111
112 static void
113 test_handle_remove(struct ubus_context *ctx, struct ubus_subscriber *s,
114                    uint32_t id)
115 {
116         fprintf(stderr, "Object %08x went away\n", id);
117 }
118
119 static int
120 test_notify(struct ubus_context *ctx, struct ubus_object *obj,
121             struct ubus_request_data *req, const char *method,
122             struct blob_attr *msg)
123 {
124 #if 0
125         char *str;
126
127         str = blobmsg_format_json(msg, true);
128         fprintf(stderr, "Received notification '%s': %s\n", method, str);
129         free(str);
130 #endif
131
132         return 0;
133 }
134
135 static int test_watch(struct ubus_context *ctx, struct ubus_object *obj,
136                       struct ubus_request_data *req, const char *method,
137                       struct blob_attr *msg)
138 {
139         struct blob_attr *tb[__WATCH_MAX];
140         int ret;
141
142         blobmsg_parse(watch_policy, __WATCH_MAX, tb, blob_data(msg), blob_len(msg));
143         if (!tb[WATCH_ID])
144                 return UBUS_STATUS_INVALID_ARGUMENT;
145
146         test_event.remove_cb = test_handle_remove;
147         test_event.cb = test_notify;
148         ret = ubus_subscribe(ctx, &test_event, blobmsg_get_u32(tb[WATCH_ID]));
149         fprintf(stderr, "Watching object %08x: %s\n", blobmsg_get_u32(tb[WATCH_ID]), ubus_strerror(ret));
150         return ret;
151 }
152
153 static const struct ubus_method test_methods[] = {
154         UBUS_METHOD("hello", test_hello, hello_policy),
155         UBUS_METHOD("watch", test_watch, watch_policy),
156 };
157
158 static struct ubus_object_type test_object_type =
159         UBUS_OBJECT_TYPE("test", test_methods);
160
161 static struct ubus_object test_object = {
162         .name = "test",
163         .type = &test_object_type,
164         .methods = test_methods,
165         .n_methods = ARRAY_SIZE(test_methods),
166 };
167
168 static void server_main(void)
169 {
170         int ret;
171
172         ret = ubus_add_object(ctx, &test_object);
173         if (ret)
174                 fprintf(stderr, "Failed to add object: %s\n", ubus_strerror(ret));
175
176         ret = ubus_register_subscriber(ctx, &test_event);
177         if (ret)
178                 fprintf(stderr, "Failed to add watch handler: %s\n", ubus_strerror(ret));
179
180         uloop_run();
181 }
182
183 int main(int argc, char **argv)
184 {
185         const char *ubus_socket = NULL;
186         int ch;
187
188         while ((ch = getopt(argc, argv, "cs:")) != -1) {
189                 switch (ch) {
190                 case 's':
191                         ubus_socket = optarg;
192                         break;
193                 default:
194                         break;
195                 }
196         }
197
198         argc -= optind;
199         argv += optind;
200
201         uloop_init();
202         signal(SIGPIPE, SIG_IGN);
203
204         ctx = ubus_connect(ubus_socket);
205         if (!ctx) {
206                 fprintf(stderr, "Failed to connect to ubus\n");
207                 return -1;
208         }
209
210         ubus_add_uloop(ctx);
211
212         server_main();
213
214         ubus_free(ctx);
215         uloop_done();
216
217         return 0;
218 }