session: fix acl dumping if last object of previous scope is equal to first object...
[project/rpcd.git] / luci2.c
1 /*
2  * luci-rpcd - LuCI UBUS RPC server
3  *
4  *   Copyright (C) 2013 Jo-Philipp Wich <jow@openwrt.org>
5  *
6  * Permission to use, copy, modify, and/or distribute this software for any
7  * purpose with or without fee is hereby granted, provided that the above
8  * copyright notice and this permission notice appear in all copies.
9  *
10  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
11  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
12  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
13  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
14  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
15  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
16  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
17  */
18
19 #include <fcntl.h>
20 #include <errno.h>
21 #include <unistd.h>
22 #include <stdlib.h>
23 #include <string.h>
24 #include <ctype.h>
25 #include <sys/wait.h>
26 #include <sys/stat.h>
27 #include <sys/types.h>
28 #include <sys/statvfs.h>
29 #include <dirent.h>
30 #include <arpa/inet.h>
31 #include <signal.h>
32
33 #include "luci2.h"
34 #include "exec.h"
35
36 static struct blob_buf buf;
37 static struct uci_context *cursor;
38
39 enum {
40         RPC_S_PID,
41         RPC_S_SIGNAL,
42         __RPC_S_MAX,
43 };
44
45 static const struct blobmsg_policy rpc_signal_policy[__RPC_S_MAX] = {
46         [RPC_S_PID]    = { .name = "pid",    .type = BLOBMSG_TYPE_INT32 },
47         [RPC_S_SIGNAL] = { .name = "signal", .type = BLOBMSG_TYPE_INT32 },
48 };
49
50 enum {
51         RPC_I_NAME,
52         RPC_I_ACTION,
53         __RPC_I_MAX,
54 };
55
56 static const struct blobmsg_policy rpc_init_policy[__RPC_I_MAX] = {
57         [RPC_I_NAME]   = { .name = "name",   .type = BLOBMSG_TYPE_STRING },
58         [RPC_I_ACTION] = { .name = "action", .type = BLOBMSG_TYPE_STRING },
59 };
60
61 enum {
62         RPC_D_DATA,
63         __RPC_D_MAX
64 };
65
66 static const struct blobmsg_policy rpc_data_policy[__RPC_D_MAX] = {
67         [RPC_D_DATA]   = { .name = "data",  .type = BLOBMSG_TYPE_STRING },
68 };
69
70 enum {
71         RPC_K_KEYS,
72         __RPC_K_MAX
73 };
74
75 static const struct blobmsg_policy rpc_sshkey_policy[__RPC_K_MAX] = {
76         [RPC_K_KEYS]   = { .name = "keys",   .type = BLOBMSG_TYPE_ARRAY },
77 };
78
79 enum {
80         RPC_P_USER,
81         RPC_P_PASSWORD,
82         __RPC_P_MAX
83 };
84
85 static const struct blobmsg_policy rpc_password_policy[__RPC_P_MAX] = {
86         [RPC_P_USER]     = { .name = "user",     .type = BLOBMSG_TYPE_STRING },
87         [RPC_P_PASSWORD] = { .name = "password", .type = BLOBMSG_TYPE_STRING },
88 };
89
90 enum {
91         RPC_OM_LIMIT,
92         RPC_OM_OFFSET,
93         RPC_OM_PATTERN,
94         __RPC_OM_MAX
95 };
96
97 static const struct blobmsg_policy rpc_opkg_match_policy[__RPC_OM_MAX] = {
98         [RPC_OM_LIMIT]    = { .name = "limit",    .type = BLOBMSG_TYPE_INT32  },
99         [RPC_OM_OFFSET]   = { .name = "offset",   .type = BLOBMSG_TYPE_INT32  },
100         [RPC_OM_PATTERN]  = { .name = "pattern",  .type = BLOBMSG_TYPE_STRING },
101 };
102
103 enum {
104         RPC_OP_PACKAGE,
105         __RPC_OP_MAX
106 };
107
108 static const struct blobmsg_policy rpc_opkg_package_policy[__RPC_OP_MAX] = {
109         [RPC_OP_PACKAGE]  = { .name = "package",  .type = BLOBMSG_TYPE_STRING },
110 };
111
112 enum {
113         RPC_UPGRADE_KEEP,
114         __RPC_UPGRADE_MAX
115 };
116
117 static const struct blobmsg_policy rpc_upgrade_policy[__RPC_UPGRADE_MAX] = {
118         [RPC_UPGRADE_KEEP] = { .name = "keep",    .type = BLOBMSG_TYPE_BOOL },
119 };
120
121
122 static int
123 rpc_errno_status(void)
124 {
125         switch (errno)
126         {
127         case EACCES:
128                 return UBUS_STATUS_PERMISSION_DENIED;
129
130         case ENOTDIR:
131                 return UBUS_STATUS_INVALID_ARGUMENT;
132
133         case ENOENT:
134                 return UBUS_STATUS_NOT_FOUND;
135
136         case EINVAL:
137                 return UBUS_STATUS_INVALID_ARGUMENT;
138
139         default:
140                 return UBUS_STATUS_UNKNOWN_ERROR;
141         }
142 }
143
144 static void
145 log_read(FILE *log, int logsize)
146 {
147         int len;
148         char *logbuf;
149
150         if (logsize == 0)
151                 logsize = RPC_LUCI2_DEF_LOGSIZE;
152
153         len = (logsize > RPC_LUCI2_MAX_LOGSIZE) ? RPC_LUCI2_MAX_LOGSIZE : logsize;
154         logbuf = blobmsg_alloc_string_buffer(&buf, "log", len + 1);
155
156         if (!logbuf)
157                 return;
158
159         while (logsize > RPC_LUCI2_MAX_LOGSIZE)
160         {
161                 len = logsize % RPC_LUCI2_MAX_LOGSIZE;
162
163                 if (len == 0)
164                         len = RPC_LUCI2_MAX_LOGSIZE;
165
166                 fread(logbuf, 1, len, log);
167                 logsize -= len;
168         }
169
170         len = fread(logbuf, 1, logsize, log);
171         *(logbuf + len) = 0;
172
173         blobmsg_add_string_buffer(&buf);
174 }
175
176 static int
177 rpc_luci2_system_log(struct ubus_context *ctx, struct ubus_object *obj,
178                      struct ubus_request_data *req, const char *method,
179                      struct blob_attr *msg)
180 {
181         FILE *log;
182         int logsize = 0;
183         const char *logfile = NULL;
184         struct stat st;
185         struct uci_package *p;
186         struct uci_element *e;
187         struct uci_section *s;
188         struct uci_ptr ptr = { .package = "system" };
189
190         uci_load(cursor, ptr.package, &p);
191
192         if (!p)
193                 return UBUS_STATUS_NOT_FOUND;
194
195         uci_foreach_element(&p->sections, e)
196         {
197                 s = uci_to_section(e);
198
199                 if (strcmp(s->type, "system"))
200                         continue;
201
202                 ptr.o = NULL;
203                 ptr.option = "log_type";
204                 ptr.section = e->name;
205                 uci_lookup_ptr(cursor, &ptr, NULL, true);
206                 break;
207         }
208
209         if (ptr.o && ptr.o->type == UCI_TYPE_STRING &&
210             !strcmp(ptr.o->v.string, "file"))
211         {
212                 ptr.o = NULL;
213                 ptr.option = "log_file";
214                 uci_lookup_ptr(cursor, &ptr, NULL, true);
215
216                 if (ptr.o && ptr.o->type == UCI_TYPE_STRING)
217                         logfile = ptr.o->v.string;
218                 else
219                         logfile = "/var/log/messages";
220
221                 if (stat(logfile, &st) || !(log = fopen(logfile, "r")))
222                         goto fail;
223
224                 logsize = st.st_size;
225         }
226         else
227         {
228                 ptr.o = NULL;
229                 ptr.option = "log_size";
230                 uci_lookup_ptr(cursor, &ptr, NULL, true);
231
232                 if (ptr.o && ptr.o->type == UCI_TYPE_STRING)
233                         logsize = atoi(ptr.o->v.string) * 1024;
234
235                 if (!(log = popen("logread", "r")))
236                         goto fail;
237         }
238
239         blob_buf_init(&buf, 0);
240
241         log_read(log, logsize);
242         fclose(log);
243
244         uci_unload(cursor, p);
245         ubus_send_reply(ctx, req, buf.head);
246         return 0;
247
248 fail:
249         uci_unload(cursor, p);
250         return rpc_errno_status();
251 }
252
253 static int
254 rpc_luci2_system_dmesg(struct ubus_context *ctx, struct ubus_object *obj,
255                        struct ubus_request_data *req, const char *method,
256                        struct blob_attr *msg)
257 {
258         FILE *log;
259
260         if (!(log = popen("dmesg", "r")))
261                 return rpc_errno_status();
262
263         blob_buf_init(&buf, 0);
264
265         log_read(log, RPC_LUCI2_MAX_LOGSIZE);
266         fclose(log);
267
268         ubus_send_reply(ctx, req, buf.head);
269         return 0;
270 }
271
272 static int
273 rpc_luci2_system_diskfree(struct ubus_context *ctx, struct ubus_object *obj,
274                           struct ubus_request_data *req, const char *method,
275                           struct blob_attr *msg)
276 {
277         int i;
278         void *c;
279         struct statvfs s;
280         const char *fslist[] = {
281                 "/",    "root",
282                 "/tmp", "tmp",
283         };
284
285         blob_buf_init(&buf, 0);
286
287         for (i = 0; i < sizeof(fslist) / sizeof(fslist[0]); i += 2)
288         {
289                 if (statvfs(fslist[i], &s))
290                         continue;
291
292                 c = blobmsg_open_table(&buf, fslist[i+1]);
293
294                 blobmsg_add_u32(&buf, "total", s.f_blocks * s.f_frsize);
295                 blobmsg_add_u32(&buf, "free",  s.f_bfree  * s.f_frsize);
296                 blobmsg_add_u32(&buf, "used", (s.f_blocks - s.f_bfree) * s.f_frsize);
297
298                 blobmsg_close_table(&buf, c);
299         }
300
301         ubus_send_reply(ctx, req, buf.head);
302         return 0;
303 }
304
305 static int
306 rpc_luci2_process_list(struct ubus_context *ctx, struct ubus_object *obj,
307                        struct ubus_request_data *req, const char *method,
308                        struct blob_attr *msg)
309 {
310         FILE *top;
311         void *c, *d;
312         char line[1024];
313         char *pid, *ppid, *user, *stat, *vsz, *pvsz, *pcpu, *cmd;
314
315         if (!(top = popen("/bin/busybox top -bn1", "r")))
316                 return rpc_errno_status();
317
318         blob_buf_init(&buf, 0);
319         c = blobmsg_open_array(&buf, "processes");
320
321         while (fgets(line, sizeof(line) - 1, top))
322         {
323                 pid  = strtok(line, " ");
324
325                 if (*pid < '0' || *pid > '9')
326                         continue;
327
328                 ppid = strtok(NULL, " ");
329                 user = strtok(NULL, " ");
330                 stat = strtok(NULL, " ");
331
332                 if (!stat)
333                         continue;
334
335                 if (!*(stat + 1))
336                         *(stat + 1) = ' ';
337
338                 if (!*(stat + 2))
339                         *(stat + 2) = ' ';
340
341                 *(stat + 3) = 0;
342
343                 vsz  = strtok(stat + 4, " ");
344                 pvsz = strtok(NULL, " ");
345                 pcpu = strtok(NULL, " ");
346                 cmd  = strtok(NULL, "\n");
347
348                 if (!cmd)
349                         continue;
350
351                 d = blobmsg_open_table(&buf, NULL);
352
353                 blobmsg_add_u32(&buf, "pid", atoi(pid));
354                 blobmsg_add_u32(&buf, "ppid", atoi(ppid));
355                 blobmsg_add_string(&buf, "user", user);
356                 blobmsg_add_string(&buf, "stat", stat);
357                 blobmsg_add_u32(&buf, "vsize", atoi(vsz) * 1024);
358                 blobmsg_add_u32(&buf, "vsize_percent", atoi(pvsz));
359                 blobmsg_add_u32(&buf, "cpu_percent", atoi(pcpu));
360                 blobmsg_add_string(&buf, "command", cmd);
361
362                 blobmsg_close_table(&buf, d);
363         }
364
365         fclose(top);
366         blobmsg_close_array(&buf, c);
367
368         ubus_send_reply(ctx, req, buf.head);
369         return 0;
370 }
371
372 static int
373 rpc_luci2_process_signal(struct ubus_context *ctx, struct ubus_object *obj,
374                          struct ubus_request_data *req, const char *method,
375                          struct blob_attr *msg)
376 {
377         int pid, sig;
378         struct blob_attr *tb[__RPC_S_MAX];
379
380         blobmsg_parse(rpc_signal_policy, __RPC_S_MAX, tb,
381                       blob_data(msg), blob_len(msg));
382
383         if (!tb[RPC_S_SIGNAL] || !tb[RPC_S_PID])
384         {
385                 errno = EINVAL;
386                 return rpc_errno_status();
387         }
388
389         pid = blobmsg_get_u32(tb[RPC_S_PID]);
390         sig = blobmsg_get_u32(tb[RPC_S_SIGNAL]);
391
392         if (kill(pid, sig))
393                 return rpc_errno_status();
394
395         return 0;
396 }
397
398 static int
399 rpc_luci2_init_list(struct ubus_context *ctx, struct ubus_object *obj,
400                     struct ubus_request_data *req, const char *method,
401                     struct blob_attr *msg)
402 {
403         int n;
404         void *c, *t;
405         char *p, path[PATH_MAX];
406         struct stat s;
407         struct dirent *e;
408         FILE *f;
409         DIR *d;
410
411         if (!(d = opendir("/etc/init.d")))
412                 return rpc_errno_status();
413
414         blob_buf_init(&buf, 0);
415         c = blobmsg_open_array(&buf, "initscripts");
416
417         while ((e = readdir(d)) != NULL)
418         {
419                 snprintf(path, sizeof(path) - 1, "/etc/init.d/%s", e->d_name);
420
421                 if (stat(path, &s) || !S_ISREG(s.st_mode) || !(s.st_mode & S_IXUSR))
422                         continue;
423
424                 if ((f = fopen(path, "r")) != NULL)
425                 {
426                         n = -1;
427                         p = fgets(path, sizeof(path) - 1, f);
428
429                         if (!p || !strstr(p, "/etc/rc.common"))
430                                 goto skip;
431
432                         t = blobmsg_open_table(&buf, NULL);
433
434                         blobmsg_add_string(&buf, "name", e->d_name);
435
436                         while (fgets(path, sizeof(path) - 1, f))
437                         {
438                                 p = strtok(path, "= \t");
439
440                                 if (!strcmp(p, "START") && !!(p = strtok(NULL, "= \t\n")))
441                                 {
442                                         n = atoi(p);
443                                         blobmsg_add_u32(&buf, "start", n);
444                                 }
445                                 else if (!strcmp(p, "STOP") && !!(p = strtok(NULL, "= \t\n")))
446                                 {
447                                         blobmsg_add_u32(&buf, "stop", atoi(p));
448                                         break;
449                                 }
450                         }
451
452                         if (n > -1)
453                         {
454                                 snprintf(path, sizeof(path) - 1, "/etc/rc.d/S%02d%s",
455                                          n, e->d_name);
456
457                                 blobmsg_add_u8(&buf, "enabled",
458                                                (!stat(path, &s) && (s.st_mode & S_IXUSR)));
459                         }
460                         else
461                         {
462                                 blobmsg_add_u8(&buf, "enabled", 0);
463                         }
464
465                         blobmsg_close_table(&buf, t);
466
467 skip:
468                         fclose(f);
469                 }
470         }
471
472         closedir(d);
473         blobmsg_close_array(&buf, c);
474
475         ubus_send_reply(ctx, req, buf.head);
476         return 0;
477 }
478
479 static int
480 rpc_luci2_init_action(struct ubus_context *ctx, struct ubus_object *obj,
481                       struct ubus_request_data *req, const char *method,
482                       struct blob_attr *msg)
483 {
484         int fd;
485         pid_t pid;
486         struct stat s;
487         char path[PATH_MAX];
488         const char *action;
489         struct blob_attr *tb[__RPC_I_MAX];
490
491         blobmsg_parse(rpc_init_policy, __RPC_I_MAX, tb,
492                       blob_data(msg), blob_len(msg));
493
494         if (!tb[RPC_I_NAME] || !tb[RPC_I_ACTION])
495                 return UBUS_STATUS_INVALID_ARGUMENT;
496
497         action = blobmsg_data(tb[RPC_I_ACTION]);
498
499         if (strcmp(action, "start") && strcmp(action, "stop") &&
500             strcmp(action, "reload") && strcmp(action, "restart") &&
501             strcmp(action, "enable") && strcmp(action, "disable"))
502                 return UBUS_STATUS_INVALID_ARGUMENT;
503
504         snprintf(path, sizeof(path) - 1, "/etc/init.d/%s",
505                  (char *)blobmsg_data(tb[RPC_I_NAME]));
506
507         if (stat(path, &s))
508                 return rpc_errno_status();
509
510         if (!(s.st_mode & S_IXUSR))
511                 return UBUS_STATUS_PERMISSION_DENIED;
512
513         switch ((pid = fork()))
514         {
515         case -1:
516                 return rpc_errno_status();
517
518         case 0:
519                 uloop_done();
520
521                 if ((fd = open("/dev/null", O_RDWR)) > -1)
522                 {
523                         dup2(fd, 0);
524                         dup2(fd, 1);
525                         dup2(fd, 2);
526
527                         close(fd);
528                 }
529
530                 chdir("/");
531
532                 if (execl(path, path, action, NULL))
533                         return rpc_errno_status();
534
535         default:
536                 return 0;
537         }
538 }
539
540 static int
541 rpc_luci2_rclocal_get(struct ubus_context *ctx, struct ubus_object *obj,
542                       struct ubus_request_data *req, const char *method,
543                       struct blob_attr *msg)
544 {
545         FILE *f;
546         char data[4096] = { 0 };
547
548         if (!(f = fopen("/etc/rc.local", "r")))
549                 return rpc_errno_status();
550
551         fread(data, sizeof(data) - 1, 1, f);
552         fclose(f);
553
554         blob_buf_init(&buf, 0);
555         blobmsg_add_string(&buf, "data", data);
556
557         ubus_send_reply(ctx, req, buf.head);
558         return 0;
559 }
560
561 static int
562 rpc_luci2_rclocal_set(struct ubus_context *ctx, struct ubus_object *obj,
563                       struct ubus_request_data *req, const char *method,
564                       struct blob_attr *msg)
565 {
566         FILE *f;
567         struct blob_attr *tb[__RPC_D_MAX];
568
569         blobmsg_parse(rpc_data_policy, __RPC_D_MAX, tb,
570                       blob_data(msg), blob_len(msg));
571
572         if (!tb[RPC_D_DATA] || blobmsg_data_len(tb[RPC_D_DATA]) >= 4096)
573                 return UBUS_STATUS_INVALID_ARGUMENT;
574
575         if (!(f = fopen("/etc/rc.local", "w")))
576                 return rpc_errno_status();
577
578         fwrite(blobmsg_data(tb[RPC_D_DATA]),
579                blobmsg_data_len(tb[RPC_D_DATA]) - 1, 1, f);
580
581         fclose(f);
582         return 0;
583 }
584
585 static int
586 rpc_luci2_crontab_get(struct ubus_context *ctx, struct ubus_object *obj,
587                       struct ubus_request_data *req, const char *method,
588                       struct blob_attr *msg)
589 {
590         FILE *f;
591         char data[4096] = { 0 };
592
593         if (!(f = fopen("/etc/crontabs/root", "r")))
594                 return rpc_errno_status();
595
596         fread(data, sizeof(data) - 1, 1, f);
597         fclose(f);
598
599         blob_buf_init(&buf, 0);
600         blobmsg_add_string(&buf, "data", data);
601
602         ubus_send_reply(ctx, req, buf.head);
603         return 0;
604 }
605
606 static int
607 rpc_luci2_crontab_set(struct ubus_context *ctx, struct ubus_object *obj,
608                       struct ubus_request_data *req, const char *method,
609                       struct blob_attr *msg)
610 {
611         FILE *f;
612         struct stat s;
613         struct blob_attr *tb[__RPC_D_MAX];
614
615         blobmsg_parse(rpc_data_policy, __RPC_D_MAX, tb,
616                       blob_data(msg), blob_len(msg));
617
618         if (!tb[RPC_D_DATA] || blobmsg_data_len(tb[RPC_D_DATA]) >= 4096)
619                 return UBUS_STATUS_INVALID_ARGUMENT;
620
621         if (stat("/etc/crontabs", &s) && mkdir("/etc/crontabs", 0755))
622                 return rpc_errno_status();
623
624         if (!(f = fopen("/etc/crontabs/root", "w")))
625                 return rpc_errno_status();
626
627         fwrite(blobmsg_data(tb[RPC_D_DATA]),
628                blobmsg_data_len(tb[RPC_D_DATA]) - 1, 1, f);
629
630         fclose(f);
631         return 0;
632 }
633
634 static int
635 rpc_luci2_sshkeys_get(struct ubus_context *ctx, struct ubus_object *obj,
636                       struct ubus_request_data *req, const char *method,
637                       struct blob_attr *msg)
638 {
639         FILE *f;
640         void *c;
641         char *p, line[4096];
642
643         if (!(f = fopen("/etc/dropbear/authorized_keys", "r")))
644                 return rpc_errno_status();
645
646         blob_buf_init(&buf, 0);
647         c = blobmsg_open_array(&buf, "keys");
648
649         while (fgets(line, sizeof(line) - 1, f))
650         {
651                 for (p = line + strlen(line) - 1; (p > line) && isspace(*p); p--)
652                         *p = 0;
653
654                 for (p = line; isspace(*p); p++)
655                         *p = 0;
656
657                 if (*p)
658                         blobmsg_add_string(&buf, NULL, p);
659         }
660
661         blobmsg_close_array(&buf, c);
662         fclose(f);
663
664         ubus_send_reply(ctx, req, buf.head);
665         return 0;
666 }
667
668 static int
669 rpc_luci2_sshkeys_set(struct ubus_context *ctx, struct ubus_object *obj,
670                       struct ubus_request_data *req, const char *method,
671                       struct blob_attr *msg)
672 {
673         FILE *f;
674         int rem;
675         struct blob_attr *cur, *tb[__RPC_K_MAX];
676
677         blobmsg_parse(rpc_sshkey_policy, __RPC_K_MAX, tb,
678                       blob_data(msg), blob_len(msg));
679
680         if (!tb[RPC_K_KEYS])
681                 return UBUS_STATUS_INVALID_ARGUMENT;
682
683         if (!(f = fopen("/etc/dropbear/authorized_keys", "w")))
684                 return rpc_errno_status();
685
686         blobmsg_for_each_attr(cur, tb[RPC_K_KEYS], rem)
687         {
688                 if (blobmsg_type(cur) != BLOBMSG_TYPE_STRING)
689                         continue;
690
691                 fwrite(blobmsg_data(cur), blobmsg_data_len(cur) - 1, 1, f);
692                 fwrite("\n", 1, 1, f);
693         }
694
695         fclose(f);
696         return 0;
697 }
698
699 static int
700 rpc_luci2_password_set(struct ubus_context *ctx, struct ubus_object *obj,
701                        struct ubus_request_data *req, const char *method,
702                        struct blob_attr *msg)
703 {
704         pid_t pid;
705         int fd, fds[2];
706         struct stat s;
707         struct blob_attr *tb[__RPC_P_MAX];
708
709         blobmsg_parse(rpc_password_policy, __RPC_P_MAX, tb,
710                       blob_data(msg), blob_len(msg));
711
712         if (!tb[RPC_P_USER] || !tb[RPC_P_PASSWORD])
713                 return UBUS_STATUS_INVALID_ARGUMENT;
714
715         if (stat("/usr/bin/passwd", &s))
716                 return UBUS_STATUS_NOT_FOUND;
717
718         if (!(s.st_mode & S_IXUSR))
719                 return UBUS_STATUS_PERMISSION_DENIED;
720
721         if (pipe(fds))
722                 return rpc_errno_status();
723
724         switch ((pid = fork()))
725         {
726         case -1:
727                 close(fds[0]);
728                 close(fds[1]);
729                 return rpc_errno_status();
730
731         case 0:
732                 uloop_done();
733
734                 dup2(fds[0], 0);
735                 close(fds[0]);
736                 close(fds[1]);
737
738                 if ((fd = open("/dev/null", O_RDWR)) > -1)
739                 {
740                         dup2(fd, 1);
741                         dup2(fd, 2);
742                         close(fd);
743                 }
744
745                 chdir("/");
746
747                 if (execl("/usr/bin/passwd", "/usr/bin/passwd",
748                           blobmsg_data(tb[RPC_P_USER]), NULL))
749                         return rpc_errno_status();
750
751         default:
752                 close(fds[0]);
753
754                 write(fds[1], blobmsg_data(tb[RPC_P_PASSWORD]),
755                               blobmsg_data_len(tb[RPC_P_PASSWORD]) - 1);
756                 write(fds[1], "\n", 1);
757
758                 usleep(100 * 1000);
759
760                 write(fds[1], blobmsg_data(tb[RPC_P_PASSWORD]),
761                               blobmsg_data_len(tb[RPC_P_PASSWORD]) - 1);
762                 write(fds[1], "\n", 1);
763
764                 close(fds[1]);
765
766                 waitpid(pid, NULL, 0);
767
768                 return 0;
769         }
770 }
771
772 static int
773 rpc_luci2_led_list(struct ubus_context *ctx, struct ubus_object *obj,
774                    struct ubus_request_data *req, const char *method,
775                    struct blob_attr *msg)
776 {
777         DIR *d;
778         FILE *f;
779         void *list, *led, *trigger;
780         char *p, *active_trigger, line[512];
781         struct dirent *e;
782
783         if (!(d = opendir("/sys/class/leds")))
784                 return rpc_errno_status();
785
786         blob_buf_init(&buf, 0);
787         list = blobmsg_open_array(&buf, "leds");
788
789         while ((e = readdir(d)) != NULL)
790         {
791                 snprintf(line, sizeof(line) - 1, "/sys/class/leds/%s/trigger",
792                          e->d_name);
793
794                 if (!(f = fopen(line, "r")))
795                         continue;
796
797                 led = blobmsg_open_table(&buf, NULL);
798
799                 blobmsg_add_string(&buf, "name", e->d_name);
800
801                 if (fgets(line, sizeof(line) - 1, f))
802                 {
803                         trigger = blobmsg_open_array(&buf, "triggers");
804
805                         for (p = strtok(line, " \n"), active_trigger = NULL;
806                              p != NULL;
807                              p = strtok(NULL, " \n"))
808                         {
809                                 if (*p == '[')
810                                 {
811                                         *(p + strlen(p) - 1) = 0;
812                                         *p++ = 0;
813                                         active_trigger = p;
814                                 }
815
816                                 blobmsg_add_string(&buf, NULL, p);
817                         }
818
819                         blobmsg_close_array(&buf, trigger);
820
821                         if (active_trigger)
822                                 blobmsg_add_string(&buf, "active_trigger", active_trigger);
823                 }
824
825                 fclose(f);
826
827                 snprintf(line, sizeof(line) - 1, "/sys/class/leds/%s/brightness",
828                          e->d_name);
829
830                 if ((f = fopen(line, "r")) != NULL)
831                 {
832                         if (fgets(line, sizeof(line) - 1, f))
833                                 blobmsg_add_u32(&buf, "brightness", atoi(line));
834
835                         fclose(f);
836                 }
837
838                 snprintf(line, sizeof(line) - 1, "/sys/class/leds/%s/max_brightness",
839                          e->d_name);
840
841                 if ((f = fopen(line, "r")) != NULL)
842                 {
843                         if (fgets(line, sizeof(line) - 1, f))
844                                 blobmsg_add_u32(&buf, "max_brightness", atoi(line));
845
846                         fclose(f);
847                 }
848
849                 blobmsg_close_table(&buf, led);
850         }
851
852         closedir(d);
853
854         blobmsg_close_array(&buf, list);
855         ubus_send_reply(ctx, req, buf.head);
856
857         return 0;
858 }
859
860 static int
861 rpc_luci2_usb_list(struct ubus_context *ctx, struct ubus_object *obj,
862                    struct ubus_request_data *req, const char *method,
863                    struct blob_attr *msg)
864 {
865         DIR *d;
866         FILE *f;
867         int i;
868         void *list, *device;
869         char *p, line[512];
870         struct stat s;
871         struct dirent *e;
872
873         const char *attributes[] = {
874                 "manufacturer", "vendor_name",  "s",
875                 "product",      "product_name", "s",
876                 "idVendor",     "vendor_id",    "x",
877                 "idProduct",    "product_id",   "x",
878                 "serial",       "serial",       "s",
879                 "speed",        "speed",        "d",
880         };
881
882         if (!(d = opendir("/sys/bus/usb/devices")))
883                 return rpc_errno_status();
884
885         blob_buf_init(&buf, 0);
886         list = blobmsg_open_array(&buf, "devices");
887
888         while ((e = readdir(d)) != NULL)
889         {
890                 if (e->d_name[0] < '0' || e->d_name[0] > '9')
891                         continue;
892
893                 snprintf(line, sizeof(line) - 1,
894                          "/sys/bus/usb/devices/%s/%s", e->d_name, attributes[0]);
895
896                 if (stat(line, &s))
897                         continue;
898
899                 device = blobmsg_open_table(&buf, NULL);
900
901                 blobmsg_add_string(&buf, "name", e->d_name);
902
903                 for (i = 0; i < sizeof(attributes) / sizeof(attributes[0]); i += 3)
904                 {
905                         snprintf(line, sizeof(line) - 1,
906                                          "/sys/bus/usb/devices/%s/%s", e->d_name, attributes[i]);
907
908                         if (!(f = fopen(line, "r")))
909                                 continue;
910
911                         if (fgets(line, sizeof(line) - 1, f))
912                         {
913                                 switch (*attributes[i+2])
914                                 {
915                                 case 'x':
916                                         blobmsg_add_u32(&buf, attributes[i+1],
917                                                         strtoul(line, NULL, 16));
918                                         break;
919
920                                 case 'd':
921                                         blobmsg_add_u32(&buf, attributes[i+1],
922                                                         strtoul(line, NULL, 10));
923                                         break;
924
925                                 default:
926                                         if ((p = strchr(line, '\n')) != NULL)
927                                                 while (p > line && isspace(*p))
928                                                         *p-- = 0;
929
930                                         blobmsg_add_string(&buf, attributes[i+1], line);
931                                         break;
932                                 }
933                         }
934
935                         fclose(f);
936                 }
937
938                 blobmsg_close_table(&buf, device);
939         }
940
941         closedir(d);
942
943         blobmsg_close_array(&buf, list);
944         ubus_send_reply(ctx, req, buf.head);
945
946         return 0;
947 }
948
949 static int
950 rpc_luci2_upgrade_test(struct ubus_context *ctx, struct ubus_object *obj,
951                        struct ubus_request_data *req, const char *method,
952                        struct blob_attr *msg)
953 {
954         const char *cmd[4] = { "sysupgrade", "--test", "/tmp/firmware.bin", NULL };
955         return rpc_exec(cmd, NULL, NULL, NULL, NULL, ctx, req);
956 }
957
958 static int
959 rpc_luci2_upgrade_start(struct ubus_context *ctx, struct ubus_object *obj,
960                         struct ubus_request_data *req, const char *method,
961                         struct blob_attr *msg)
962 {
963         return 0;
964 }
965
966 static int
967 rpc_luci2_upgrade_clean(struct ubus_context *ctx, struct ubus_object *obj,
968                         struct ubus_request_data *req, const char *method,
969                         struct blob_attr *msg)
970 {
971         if (unlink("/tmp/firmware.bin"))
972                 return rpc_errno_status();
973
974         return 0;
975 }
976
977 static int
978 rpc_luci2_backup_restore(struct ubus_context *ctx, struct ubus_object *obj,
979                          struct ubus_request_data *req, const char *method,
980                          struct blob_attr *msg)
981 {
982         const char *cmd[4] = { "sysupgrade", "--restore-backup",
983                                "/tmp/backup.tar.gz", NULL };
984
985         return rpc_exec(cmd, NULL, NULL, NULL, NULL, ctx, req);
986 }
987
988 static int
989 rpc_luci2_backup_clean(struct ubus_context *ctx, struct ubus_object *obj,
990                        struct ubus_request_data *req, const char *method,
991                        struct blob_attr *msg)
992 {
993         if (unlink("/tmp/backup.tar.gz"))
994                 return rpc_errno_status();
995
996         return 0;
997 }
998
999 static int
1000 rpc_luci2_backup_config_get(struct ubus_context *ctx, struct ubus_object *obj,
1001                             struct ubus_request_data *req, const char *method,
1002                             struct blob_attr *msg)
1003 {
1004         FILE *f;
1005         char conf[2048] = { 0 };
1006
1007         if (!(f = fopen("/etc/sysupgrade.conf", "r")))
1008                 return rpc_errno_status();
1009
1010         fread(conf, sizeof(conf) - 1, 1, f);
1011         fclose(f);
1012
1013         blob_buf_init(&buf, 0);
1014         blobmsg_add_string(&buf, "config", conf);
1015
1016         ubus_send_reply(ctx, req, buf.head);
1017         return 0;
1018 }
1019
1020 static int
1021 rpc_luci2_backup_config_set(struct ubus_context *ctx, struct ubus_object *obj,
1022                             struct ubus_request_data *req, const char *method,
1023                             struct blob_attr *msg)
1024 {
1025         FILE *f;
1026         struct blob_attr *tb[__RPC_D_MAX];
1027
1028         blobmsg_parse(rpc_data_policy, __RPC_D_MAX, tb,
1029                       blob_data(msg), blob_len(msg));
1030
1031         if (!tb[RPC_D_DATA])
1032                 return UBUS_STATUS_INVALID_ARGUMENT;
1033
1034         if (blobmsg_data_len(tb[RPC_D_DATA]) >= 2048)
1035                 return UBUS_STATUS_NOT_SUPPORTED;
1036
1037         if (!(f = fopen("/etc/sysupgrade.conf", "w")))
1038                 return rpc_errno_status();
1039
1040         fwrite(blobmsg_data(tb[RPC_D_DATA]),
1041                blobmsg_data_len(tb[RPC_D_DATA]) - 1, 1, f);
1042
1043         fclose(f);
1044         return 0;
1045 }
1046
1047 struct backup_state {
1048         bool open;
1049         void *array;
1050 };
1051
1052 static int
1053 backup_parse_list(struct blob_buf *blob, char *buf, int len, void *priv)
1054 {
1055         struct backup_state *s = priv;
1056         char *nl = strchr(buf, '\n');
1057
1058         if (!nl)
1059                 return 0;
1060
1061         if (!s->open)
1062         {
1063                 s->open  = true;
1064                 s->array = blobmsg_open_array(blob, "files");
1065         }
1066
1067         *nl = 0;
1068         blobmsg_add_string(blob, NULL, buf);
1069
1070         return (nl - buf + 1);
1071 }
1072
1073 static void
1074 backup_finish_list(struct blob_buf *blob, int status, void *priv)
1075 {
1076         struct backup_state *s = priv;
1077
1078         if (!s->open)
1079                 return;
1080
1081         blobmsg_close_array(blob, s->array);
1082 }
1083
1084 static int
1085 rpc_luci2_backup_list(struct ubus_context *ctx, struct ubus_object *obj,
1086                       struct ubus_request_data *req, const char *method,
1087                       struct blob_attr *msg)
1088 {
1089         struct backup_state *state = NULL;
1090         const char *cmd[3] = { "sysupgrade", "--list-backup", NULL };
1091
1092         state = malloc(sizeof(*state));
1093
1094         if (!state)
1095                 return UBUS_STATUS_UNKNOWN_ERROR;
1096
1097         memset(state, 0, sizeof(*state));
1098
1099         return rpc_exec(cmd, backup_parse_list, NULL, backup_finish_list,
1100                         state, ctx, req);
1101 }
1102
1103 static int
1104 rpc_luci2_reset_test(struct ubus_context *ctx, struct ubus_object *obj,
1105                      struct ubus_request_data *req, const char *method,
1106                      struct blob_attr *msg)
1107 {
1108         FILE *mtd;
1109         struct stat s;
1110         char line[64] = { 0 };
1111         bool supported = false;
1112
1113         if (!stat("/sbin/mtd", &s) && (s.st_mode & S_IXUSR))
1114         {
1115                 if ((mtd = fopen("/proc/mtd", "r")) != NULL)
1116                 {
1117                         while (fgets(line, sizeof(line) - 1, mtd))
1118                         {
1119                                 if (strstr(line, "\"rootfs_data\""))
1120                                 {
1121                                         supported = true;
1122                                         break;
1123                                 }
1124                         }
1125
1126                         fclose(mtd);
1127                 }
1128         }
1129
1130         blob_buf_init(&buf, 0);
1131         blobmsg_add_u8(&buf, "supported", supported);
1132
1133         ubus_send_reply(ctx, req, buf.head);
1134
1135         return 0;
1136 }
1137
1138 static int
1139 rpc_luci2_reset_start(struct ubus_context *ctx, struct ubus_object *obj,
1140                       struct ubus_request_data *req, const char *method,
1141                       struct blob_attr *msg)
1142 {
1143         switch (fork())
1144         {
1145         case -1:
1146                 return rpc_errno_status();
1147
1148         case 0:
1149                 uloop_done();
1150
1151                 chdir("/");
1152
1153                 close(0);
1154                 close(1);
1155                 close(2);
1156
1157                 sleep(1);
1158
1159                 execl("/sbin/mtd", "/sbin/mtd", "-r", "erase", "rootfs_data", NULL);
1160
1161                 return rpc_errno_status();
1162
1163         default:
1164                 return 0;
1165         }
1166 }
1167
1168 static int
1169 rpc_luci2_reboot(struct ubus_context *ctx, struct ubus_object *obj,
1170                  struct ubus_request_data *req, const char *method,
1171                  struct blob_attr *msg)
1172 {
1173         switch (fork())
1174         {
1175         case -1:
1176                 return rpc_errno_status();
1177
1178         case 0:
1179                 chdir("/");
1180
1181                 close(0);
1182                 close(1);
1183                 close(2);
1184
1185                 sleep(1);
1186
1187                 execl("/sbin/reboot", "/sbin/reboot", NULL);
1188
1189                 return rpc_errno_status();
1190
1191         default:
1192                 return 0;
1193         }
1194 }
1195
1196
1197 static FILE *
1198 dnsmasq_leasefile(void)
1199 {
1200         FILE *leases = NULL;
1201         struct uci_package *p;
1202         struct uci_element *e;
1203         struct uci_section *s;
1204         struct uci_ptr ptr = {
1205                 .package = "dhcp",
1206                 .section = NULL,
1207                 .option  = "leasefile"
1208         };
1209
1210         uci_load(cursor, ptr.package, &p);
1211
1212         if (!p)
1213                 return NULL;
1214
1215         uci_foreach_element(&p->sections, e)
1216         {
1217                 s = uci_to_section(e);
1218
1219                 if (strcmp(s->type, "dnsmasq"))
1220                         continue;
1221
1222                 ptr.section = e->name;
1223                 uci_lookup_ptr(cursor, &ptr, NULL, true);
1224                 break;
1225         }
1226
1227         if (ptr.o && ptr.o->type == UCI_TYPE_STRING)
1228                 leases = fopen(ptr.o->v.string, "r");
1229
1230         uci_unload(cursor, p);
1231
1232         return leases;
1233 }
1234
1235 static int
1236 rpc_luci2_network_leases(struct ubus_context *ctx, struct ubus_object *obj,
1237                          struct ubus_request_data *req, const char *method,
1238                          struct blob_attr *msg)
1239 {
1240         FILE *leases;
1241         void *c, *d;
1242         char line[128];
1243         char *ts, *mac, *addr, *name;
1244         time_t now = time(NULL);
1245
1246         blob_buf_init(&buf, 0);
1247         c = blobmsg_open_array(&buf, "leases");
1248
1249         leases = dnsmasq_leasefile();
1250
1251         if (!leases)
1252                 goto out;
1253
1254         while (fgets(line, sizeof(line) - 1, leases))
1255         {
1256                 ts   = strtok(line, " \t");
1257                 mac  = strtok(NULL, " \t");
1258                 addr = strtok(NULL, " \t");
1259                 name = strtok(NULL, " \t");
1260
1261                 if (!ts || !mac || !addr || !name)
1262                         continue;
1263
1264                 if (strchr(addr, ':'))
1265                         continue;
1266
1267                 d = blobmsg_open_table(&buf, NULL);
1268
1269                 blobmsg_add_u32(&buf, "expires", atoi(ts) - now);
1270                 blobmsg_add_string(&buf, "macaddr", mac);
1271                 blobmsg_add_string(&buf, "ipaddr", addr);
1272
1273                 if (strcmp(name, "*"))
1274                         blobmsg_add_string(&buf, "hostname", name);
1275
1276                 blobmsg_close_table(&buf, d);
1277         }
1278
1279         fclose(leases);
1280
1281 out:
1282         blobmsg_close_array(&buf, c);
1283         ubus_send_reply(ctx, req, buf.head);
1284
1285         return 0;
1286 }
1287
1288 static int
1289 rpc_luci2_network_leases6(struct ubus_context *ctx, struct ubus_object *obj,
1290                           struct ubus_request_data *req, const char *method,
1291                           struct blob_attr *msg)
1292 {
1293         FILE *leases;
1294         void *c, *d;
1295         char line[128];
1296         char *ts, *mac, *addr, *name, *duid;
1297         time_t now = time(NULL);
1298
1299         blob_buf_init(&buf, 0);
1300         c = blobmsg_open_array(&buf, "leases");
1301
1302         leases = fopen("/tmp/hosts/6relayd", "r");
1303
1304         if (leases)
1305         {
1306                 while (fgets(line, sizeof(line) - 1, leases))
1307                 {
1308                         if (strncmp(line, "# ", 2))
1309                                 continue;
1310
1311                         strtok(line + 2, " \t"); /* iface */
1312
1313                         duid = strtok(NULL, " \t");
1314
1315                         strtok(NULL, " \t"); /* iaid */
1316
1317                         name = strtok(NULL, " \t");
1318                         ts   = strtok(NULL, " \t");
1319
1320                         strtok(NULL, " \t"); /* id */
1321                         strtok(NULL, " \t"); /* length */
1322
1323                         addr = strtok(NULL, " \t\n");
1324
1325                         if (!addr)
1326                                 continue;
1327
1328                         d = blobmsg_open_table(&buf, NULL);
1329
1330                         blobmsg_add_u32(&buf, "expires", atoi(ts) - now);
1331                         blobmsg_add_string(&buf, "duid", duid);
1332                         blobmsg_add_string(&buf, "ip6addr", addr);
1333
1334                         if (strcmp(name, "-"))
1335                                 blobmsg_add_string(&buf, "hostname", name);
1336
1337                         blobmsg_close_array(&buf, d);
1338                 }
1339
1340                 fclose(leases);
1341         }
1342         else
1343         {
1344                 leases = dnsmasq_leasefile();
1345
1346                 if (!leases)
1347                         goto out;
1348
1349                 while (fgets(line, sizeof(line) - 1, leases))
1350                 {
1351                         ts   = strtok(line, " \t");
1352                         mac  = strtok(NULL, " \t");
1353                         addr = strtok(NULL, " \t");
1354                         name = strtok(NULL, " \t");
1355                         duid = strtok(NULL, " \t\n");
1356
1357                         if (!ts || !mac || !addr || !duid)
1358                                 continue;
1359
1360                         if (!strchr(addr, ':'))
1361                                 continue;
1362
1363                         d = blobmsg_open_table(&buf, NULL);
1364
1365                         blobmsg_add_u32(&buf, "expires", atoi(ts) - now);
1366                         blobmsg_add_string(&buf, "macaddr", mac);
1367                         blobmsg_add_string(&buf, "ip6addr", addr);
1368
1369                         if (strcmp(name, "*"))
1370                                 blobmsg_add_string(&buf, "hostname", name);
1371
1372                         if (strcmp(duid, "*"))
1373                                 blobmsg_add_string(&buf, "duid", name);
1374
1375                         blobmsg_close_table(&buf, d);
1376                 }
1377
1378                 fclose(leases);
1379         }
1380
1381 out:
1382         blobmsg_close_array(&buf, c);
1383         ubus_send_reply(ctx, req, buf.head);
1384
1385         return 0;
1386 }
1387
1388 static int
1389 rpc_luci2_network_ct_count(struct ubus_context *ctx, struct ubus_object *obj,
1390                            struct ubus_request_data *req, const char *method,
1391                            struct blob_attr *msg)
1392 {
1393         FILE *f;
1394         char line[128];
1395
1396         blob_buf_init(&buf, 0);
1397
1398         if ((f = fopen("/proc/sys/net/netfilter/nf_conntrack_count", "r")) != NULL)
1399         {
1400                 if (fgets(line, sizeof(line) - 1, f))
1401                         blobmsg_add_u32(&buf, "count", atoi(line));
1402
1403                 fclose(f);
1404         }
1405
1406         if ((f = fopen("/proc/sys/net/netfilter/nf_conntrack_max", "r")) != NULL)
1407         {
1408                 if (fgets(line, sizeof(line) - 1, f))
1409                         blobmsg_add_u32(&buf, "limit", atoi(line));
1410
1411                 fclose(f);
1412         }
1413
1414         ubus_send_reply(ctx, req, buf.head);
1415
1416         return 0;
1417 }
1418
1419 static int
1420 rpc_luci2_network_ct_table(struct ubus_context *ctx, struct ubus_object *obj,
1421                            struct ubus_request_data *req, const char *method,
1422                            struct blob_attr *msg)
1423 {
1424         FILE *f;
1425         int i;
1426         void *c, *d;
1427         char *p, line[512];
1428         bool seen[6];
1429
1430         blob_buf_init(&buf, 0);
1431         c = blobmsg_open_array(&buf, "entries");
1432
1433         if ((f = fopen("/proc/net/nf_conntrack", "r")) != NULL)
1434         {
1435                 while (fgets(line, sizeof(line) - 1, f))
1436                 {
1437                         d = blobmsg_open_table(&buf, NULL);
1438                         memset(seen, 0, sizeof(seen));
1439
1440                         for (i = 0, p = strtok(line, " "); p; i++, p = strtok(NULL, " "))
1441                         {
1442                                 if (i == 0)
1443                                         blobmsg_add_u8(&buf, "ipv6", !strcmp(p, "ipv6"));
1444                                 else if (i == 3)
1445                                         blobmsg_add_u32(&buf, "protocol", atoi(p));
1446                                 else if (i == 4)
1447                                         blobmsg_add_u32(&buf, "expires", atoi(p));
1448                                 else if (i >= 5)
1449                                 {
1450                                         if (*p == '[')
1451                                                 continue;
1452
1453                                         if (!seen[0] && !strncmp(p, "src=", 4))
1454                                         {
1455                                                 blobmsg_add_string(&buf, "src", p + 4);
1456                                                 seen[0] = true;
1457                                         }
1458                                         else if (!seen[1] && !strncmp(p, "dst=", 4))
1459                                         {
1460                                                 blobmsg_add_string(&buf, "dest", p + 4);
1461                                                 seen[1] = true;
1462                                         }
1463                                         else if (!seen[2] && !strncmp(p, "sport=", 6))
1464                                         {
1465                                                 blobmsg_add_u32(&buf, "sport", atoi(p + 6));
1466                                                 seen[2] = true;
1467                                         }
1468                                         else if (!seen[3] && !strncmp(p, "dport=", 6))
1469                                         {
1470                                                 blobmsg_add_u32(&buf, "dport", atoi(p + 6));
1471                                                 seen[3] = true;
1472                                         }
1473                                         else if (!strncmp(p, "packets=", 8))
1474                                         {
1475                                                 blobmsg_add_u32(&buf,
1476                                                                 seen[4] ? "tx_packets" : "rx_packets",
1477                                                                 atoi(p + 8));
1478                                                 seen[4] = true;
1479                                         }
1480                                         else if (!strncmp(p, "bytes=", 6))
1481                                         {
1482                                                 blobmsg_add_u32(&buf,
1483                                                                                 seen[5] ? "tx_bytes" : "rx_bytes",
1484                                                                 atoi(p + 6));
1485                                                 seen[5] = true;
1486                                         }
1487                                 }
1488                         }
1489
1490                         blobmsg_close_table(&buf, d);
1491                 }
1492
1493                 fclose(f);
1494         }
1495
1496         blobmsg_close_array(&buf, c);
1497         ubus_send_reply(ctx, req, buf.head);
1498
1499         return 0;
1500 }
1501
1502 static int
1503 rpc_luci2_network_arp_table(struct ubus_context *ctx, struct ubus_object *obj,
1504                             struct ubus_request_data *req, const char *method,
1505                             struct blob_attr *msg)
1506 {
1507         FILE *f;
1508         void *c, *d;
1509         char *addr, *mac, *dev, line[128];
1510
1511         blob_buf_init(&buf, 0);
1512         c = blobmsg_open_array(&buf, "entries");
1513
1514         if ((f = fopen("/proc/net/arp", "r")) != NULL)
1515         {
1516                 /* skip header line */
1517                 fgets(line, sizeof(line) - 1, f);
1518
1519                 while (fgets(line, sizeof(line) - 1, f))
1520                 {
1521                         addr = strtok(line, " \t");
1522
1523                         strtok(NULL, " \t"); /* HW type */
1524                         strtok(NULL, " \t"); /* Flags */
1525
1526                         mac = strtok(NULL, " \t");
1527
1528                         strtok(NULL, " \t"); /* Mask */
1529
1530                         dev = strtok(NULL, " \t\n");
1531
1532                         if (!dev)
1533                                 continue;
1534
1535                         d = blobmsg_open_table(&buf, NULL);
1536                         blobmsg_add_string(&buf, "ipaddr", addr);
1537                         blobmsg_add_string(&buf, "macaddr", mac);
1538                         blobmsg_add_string(&buf, "device", dev);
1539                         blobmsg_close_table(&buf, d);
1540                 }
1541
1542                 fclose(f);
1543         }
1544
1545         blobmsg_close_array(&buf, c);
1546         ubus_send_reply(ctx, req, buf.head);
1547
1548         return 0;
1549 }
1550
1551 static void
1552 put_hexaddr(const char *name, const char *s, const char *m)
1553 {
1554         int bits;
1555         struct in_addr a;
1556         char as[sizeof("255.255.255.255/32\0")];
1557
1558         a.s_addr = strtoul(s, NULL, 16);
1559         inet_ntop(AF_INET, &a, as, sizeof(as));
1560
1561         if (m)
1562         {
1563                 for (a.s_addr = ntohl(strtoul(m, NULL, 16)), bits = 0;
1564                      a.s_addr & 0x80000000;
1565                      a.s_addr <<= 1)
1566                         bits++;
1567
1568                 sprintf(as + strlen(as), "/%u", bits);
1569         }
1570
1571         blobmsg_add_string(&buf, name, as);
1572 }
1573
1574 static int
1575 rpc_luci2_network_routes(struct ubus_context *ctx, struct ubus_object *obj,
1576                          struct ubus_request_data *req, const char *method,
1577                          struct blob_attr *msg)
1578 {
1579         FILE *routes;
1580         void *c, *d;
1581         char *dst, *dmask, *next, *metric, *device;
1582         char line[256];
1583         unsigned int n;
1584
1585         if (!(routes = fopen("/proc/net/route", "r")))
1586                 return rpc_errno_status();
1587
1588         blob_buf_init(&buf, 0);
1589         c = blobmsg_open_array(&buf, "routes");
1590
1591         /* skip header line */
1592         fgets(line, sizeof(line) - 1, routes);
1593
1594         while (fgets(line, sizeof(line) - 1, routes))
1595         {
1596                 device = strtok(line, "\t ");
1597                 dst    = strtok(NULL, "\t ");
1598                 next   = strtok(NULL, "\t ");
1599
1600                 strtok(NULL, "\t "); /* flags */
1601                 strtok(NULL, "\t "); /* refcount */
1602                 strtok(NULL, "\t "); /* usecount */
1603
1604                 metric = strtok(NULL, "\t ");
1605                 dmask  = strtok(NULL, "\t ");
1606
1607                 if (!dmask)
1608                         continue;
1609
1610                 d = blobmsg_open_table(&buf, NULL);
1611
1612                 put_hexaddr("target", dst, dmask);
1613                 put_hexaddr("nexthop", next, NULL);
1614
1615                 n = strtoul(metric, NULL, 10);
1616                 blobmsg_add_u32(&buf, "metric", n);
1617
1618                 blobmsg_add_string(&buf, "device", device);
1619
1620                 blobmsg_close_table(&buf, d);
1621         }
1622
1623         blobmsg_close_array(&buf, c);
1624         fclose(routes);
1625
1626         ubus_send_reply(ctx, req, buf.head);
1627         return 0;
1628 }
1629
1630 static void
1631 put_hex6addr(const char *name, const char *s, const char *m)
1632 {
1633         int i;
1634         struct in6_addr a;
1635         char as[INET6_ADDRSTRLEN + sizeof("/128")];
1636
1637 #define hex(x) \
1638         (((x) <= '9') ? ((x) - '0') : \
1639                 (((x) <= 'F') ? ((x) - 'A' + 10) : \
1640                         ((x) - 'a' + 10)))
1641
1642         for (i = 0; i < 16; i++, s += 2)
1643                 a.s6_addr[i] = (16 * hex(*s)) + hex(*(s+1));
1644
1645         inet_ntop(AF_INET6, &a, as, sizeof(as));
1646
1647         if (m)
1648                 sprintf(as + strlen(as), "/%lu", strtoul(m, NULL, 16));
1649
1650         blobmsg_add_string(&buf, name, as);
1651 }
1652
1653 static int
1654 rpc_luci2_network_routes6(struct ubus_context *ctx, struct ubus_object *obj,
1655                           struct ubus_request_data *req, const char *method,
1656                           struct blob_attr *msg)
1657 {
1658         FILE *routes;
1659         void *c, *d;
1660         char *src, *smask, *dst, *dmask, *next, *metric, *flags, *device;
1661         char line[256];
1662         unsigned int n;
1663
1664         if (!(routes = fopen("/proc/net/ipv6_route", "r")))
1665                 return rpc_errno_status();
1666
1667         blob_buf_init(&buf, 0);
1668         c = blobmsg_open_array(&buf, "routes");
1669
1670         while (fgets(line, sizeof(line) - 1, routes))
1671         {
1672                 dst    = strtok(line, " ");
1673                 dmask  = strtok(NULL, " ");
1674                 src    = strtok(NULL, " ");
1675                 smask  = strtok(NULL, " ");
1676                 next   = strtok(NULL, " ");
1677                 metric = strtok(NULL, " ");
1678
1679                 strtok(NULL, " "); /* refcount */
1680                 strtok(NULL, " "); /* usecount */
1681
1682                 flags  = strtok(NULL, " ");
1683                 device = strtok(NULL, " \n");
1684
1685                 if (!device)
1686                         continue;
1687
1688                 n = strtoul(flags, NULL, 16);
1689
1690                 if (!(n & 1))
1691                         continue;
1692
1693                 d = blobmsg_open_table(&buf, NULL);
1694
1695                 put_hex6addr("target", dst, dmask);
1696                 put_hex6addr("source", src, smask);
1697                 put_hex6addr("nexthop", next, NULL);
1698
1699                 n = strtoul(metric, NULL, 16);
1700                 blobmsg_add_u32(&buf, "metric", n);
1701
1702                 blobmsg_add_string(&buf, "device", device);
1703
1704                 blobmsg_close_table(&buf, d);
1705         }
1706
1707         blobmsg_close_array(&buf, c);
1708         fclose(routes);
1709
1710         ubus_send_reply(ctx, req, buf.head);
1711         return 0;
1712 }
1713
1714
1715 struct opkg_state {
1716         int cur_offset;
1717         int cur_count;
1718         int req_offset;
1719         int req_count;
1720         int total;
1721         bool open;
1722         void *array;
1723 };
1724
1725 static int
1726 opkg_parse_list(struct blob_buf *blob, char *buf, int len, void *priv)
1727 {
1728         struct opkg_state *s = priv;
1729
1730         char *ptr, *last;
1731         char *nl = strchr(buf, '\n');
1732         char *name = NULL, *vers = NULL, *desc = NULL;
1733         void *c;
1734
1735         if (!nl)
1736                 return 0;
1737
1738         s->total++;
1739
1740         if (s->cur_offset++ < s->req_offset)
1741                 goto skip;
1742
1743         if (s->cur_count++ >= s->req_count)
1744                 goto skip;
1745
1746         if (!s->open)
1747         {
1748                 s->open  = true;
1749                 s->array = blobmsg_open_array(blob, "packages");
1750         }
1751
1752         for (ptr = buf, last = buf, *nl = 0; ptr <= nl; ptr++)
1753         {
1754                 if (!*ptr || (*ptr == ' ' && *(ptr+1) == '-' && *(ptr+2) == ' '))
1755                 {
1756                         if (!name)
1757                         {
1758                                 name = last;
1759                                 last = ptr + 3;
1760                                 *ptr = 0;
1761                                 ptr += 2;
1762                         }
1763                         else if (!vers)
1764                         {
1765                                 vers = last;
1766                                 desc = *ptr ? (ptr + 3) : NULL;
1767                                 *ptr = 0;
1768                                 break;
1769                         }
1770                 }
1771         }
1772
1773         if (name && vers)
1774         {
1775                 c = blobmsg_open_array(blob, NULL);
1776
1777                 blobmsg_add_string(blob, NULL, name);
1778                 blobmsg_add_string(blob, NULL, vers);
1779
1780                 if (desc && *desc)
1781                         blobmsg_add_string(blob, NULL, desc);
1782
1783                 blobmsg_close_array(blob, c);
1784         }
1785
1786 skip:
1787         return (nl - buf + 1);
1788 }
1789
1790 static void
1791 opkg_finish_list(struct blob_buf *blob, int status, void *priv)
1792 {
1793         struct opkg_state *s = priv;
1794
1795         if (!s->open)
1796                 return;
1797
1798         blobmsg_close_array(blob, s->array);
1799         blobmsg_add_u32(blob, "total", s->total);
1800 }
1801
1802 static int
1803 opkg_exec_list(const char *action, struct blob_attr *msg,
1804                struct ubus_context *ctx, struct ubus_request_data *req)
1805 {
1806         struct opkg_state *state = NULL;
1807         struct blob_attr *tb[__RPC_OM_MAX];
1808         const char *cmd[5] = { "opkg", action, "-nocase", NULL, NULL };
1809
1810         blobmsg_parse(rpc_opkg_match_policy, __RPC_OM_MAX, tb,
1811                       blob_data(msg), blob_len(msg));
1812
1813         state = malloc(sizeof(*state));
1814
1815         if (!state)
1816                 return UBUS_STATUS_UNKNOWN_ERROR;
1817
1818         memset(state, 0, sizeof(*state));
1819
1820         if (tb[RPC_OM_PATTERN])
1821                 cmd[3] = blobmsg_data(tb[RPC_OM_PATTERN]);
1822
1823         if (tb[RPC_OM_LIMIT])
1824                 state->req_count = blobmsg_get_u32(tb[RPC_OM_LIMIT]);
1825
1826         if (tb[RPC_OM_OFFSET])
1827                 state->req_offset = blobmsg_get_u32(tb[RPC_OM_OFFSET]);
1828
1829         if (state->req_offset < 0)
1830                 state->req_offset = 0;
1831
1832         if (state->req_count <= 0 || state->req_count > 100)
1833                 state->req_count = 100;
1834
1835         return rpc_exec(cmd, opkg_parse_list, NULL, opkg_finish_list,
1836                         state, ctx, req);
1837 }
1838
1839
1840 static int
1841 rpc_luci2_opkg_list(struct ubus_context *ctx, struct ubus_object *obj,
1842                     struct ubus_request_data *req, const char *method,
1843                     struct blob_attr *msg)
1844 {
1845         return opkg_exec_list("list", msg, ctx, req);
1846 }
1847
1848 static int
1849 rpc_luci2_opkg_list_installed(struct ubus_context *ctx, struct ubus_object *obj,
1850                               struct ubus_request_data *req, const char *method,
1851                               struct blob_attr *msg)
1852 {
1853         return opkg_exec_list("list-installed", msg, ctx, req);
1854 }
1855
1856 static int
1857 rpc_luci2_opkg_find(struct ubus_context *ctx, struct ubus_object *obj,
1858                     struct ubus_request_data *req, const char *method,
1859                     struct blob_attr *msg)
1860 {
1861         return opkg_exec_list("find", msg, ctx, req);
1862 }
1863
1864 static int
1865 rpc_luci2_opkg_update(struct ubus_context *ctx, struct ubus_object *obj,
1866                       struct ubus_request_data *req, const char *method,
1867                       struct blob_attr *msg)
1868 {
1869         const char *cmd[3] = { "opkg", "update", NULL };
1870         return rpc_exec(cmd, NULL, NULL, NULL, NULL, ctx, req);
1871 }
1872
1873 static int
1874 rpc_luci2_opkg_install(struct ubus_context *ctx, struct ubus_object *obj,
1875                        struct ubus_request_data *req, const char *method,
1876                        struct blob_attr *msg)
1877 {
1878         struct blob_attr *tb[__RPC_OP_MAX];
1879         const char *cmd[5] = { "opkg", "--force-overwrite",
1880                                "install", NULL, NULL };
1881
1882         blobmsg_parse(rpc_opkg_package_policy, __RPC_OP_MAX, tb,
1883                       blob_data(msg), blob_len(msg));
1884
1885         if (!tb[RPC_OP_PACKAGE])
1886                 return UBUS_STATUS_INVALID_ARGUMENT;
1887
1888         cmd[3] = blobmsg_data(tb[RPC_OP_PACKAGE]);
1889
1890         return rpc_exec(cmd, NULL, NULL, NULL, NULL, ctx, req);
1891 }
1892
1893 static int
1894 rpc_luci2_opkg_remove(struct ubus_context *ctx, struct ubus_object *obj,
1895                       struct ubus_request_data *req, const char *method,
1896                       struct blob_attr *msg)
1897 {
1898         struct blob_attr *tb[__RPC_OP_MAX];
1899         const char *cmd[5] = { "opkg", "--force-removal-of-dependent-packages",
1900                                "remove", NULL, NULL };
1901
1902         blobmsg_parse(rpc_opkg_package_policy, __RPC_OP_MAX, tb,
1903                       blob_data(msg), blob_len(msg));
1904
1905         if (!tb[RPC_OP_PACKAGE])
1906                 return UBUS_STATUS_INVALID_ARGUMENT;
1907
1908         cmd[3] = blobmsg_data(tb[RPC_OP_PACKAGE]);
1909
1910         return rpc_exec(cmd, NULL, NULL, NULL, NULL, ctx, req);
1911 }
1912
1913 static int
1914 rpc_luci2_opkg_config_get(struct ubus_context *ctx, struct ubus_object *obj,
1915                           struct ubus_request_data *req, const char *method,
1916                           struct blob_attr *msg)
1917 {
1918         FILE *f;
1919         char conf[2048] = { 0 };
1920
1921         if (!(f = fopen("/etc/opkg.conf", "r")))
1922                 return rpc_errno_status();
1923
1924         fread(conf, sizeof(conf) - 1, 1, f);
1925         fclose(f);
1926
1927         blob_buf_init(&buf, 0);
1928         blobmsg_add_string(&buf, "config", conf);
1929
1930         ubus_send_reply(ctx, req, buf.head);
1931         return 0;
1932 }
1933
1934 static int
1935 rpc_luci2_opkg_config_set(struct ubus_context *ctx, struct ubus_object *obj,
1936                           struct ubus_request_data *req, const char *method,
1937                           struct blob_attr *msg)
1938 {
1939         FILE *f;
1940         struct blob_attr *tb[__RPC_D_MAX];
1941
1942         blobmsg_parse(rpc_data_policy, __RPC_D_MAX, tb,
1943                       blob_data(msg), blob_len(msg));
1944
1945         if (!tb[RPC_D_DATA])
1946                 return UBUS_STATUS_INVALID_ARGUMENT;
1947
1948         if (blobmsg_data_len(tb[RPC_D_DATA]) >= 2048)
1949                 return UBUS_STATUS_NOT_SUPPORTED;
1950
1951         if (!(f = fopen("/etc/opkg.conf", "w")))
1952                 return rpc_errno_status();
1953
1954         fwrite(blobmsg_data(tb[RPC_D_DATA]),
1955                blobmsg_data_len(tb[RPC_D_DATA]) - 1, 1, f);
1956
1957         fclose(f);
1958         return 0;
1959 }
1960
1961
1962 int rpc_luci2_api_init(struct ubus_context *ctx)
1963 {
1964         int rv = 0;
1965
1966         static const struct ubus_method luci2_system_methods[] = {
1967                 UBUS_METHOD_NOARG("syslog",       rpc_luci2_system_log),
1968                 UBUS_METHOD_NOARG("dmesg",        rpc_luci2_system_dmesg),
1969                 UBUS_METHOD_NOARG("diskfree",     rpc_luci2_system_diskfree),
1970                 UBUS_METHOD_NOARG("process_list", rpc_luci2_process_list),
1971                 UBUS_METHOD("process_signal",     rpc_luci2_process_signal,
1972                                                   rpc_signal_policy),
1973                 UBUS_METHOD_NOARG("init_list",    rpc_luci2_init_list),
1974                 UBUS_METHOD("init_action",        rpc_luci2_init_action,
1975                                                   rpc_init_policy),
1976                 UBUS_METHOD_NOARG("rclocal_get",  rpc_luci2_rclocal_get),
1977                 UBUS_METHOD("rclocal_set",        rpc_luci2_rclocal_set,
1978                                                   rpc_data_policy),
1979                 UBUS_METHOD_NOARG("crontab_get",  rpc_luci2_crontab_get),
1980                 UBUS_METHOD("crontab_set",        rpc_luci2_crontab_set,
1981                                                   rpc_data_policy),
1982                 UBUS_METHOD_NOARG("sshkeys_get",  rpc_luci2_sshkeys_get),
1983                 UBUS_METHOD("sshkeys_set",        rpc_luci2_sshkeys_set,
1984                                                   rpc_sshkey_policy),
1985                 UBUS_METHOD("password_set",       rpc_luci2_password_set,
1986                                                   rpc_password_policy),
1987                 UBUS_METHOD_NOARG("led_list",     rpc_luci2_led_list),
1988                 UBUS_METHOD_NOARG("usb_list",     rpc_luci2_usb_list),
1989                 UBUS_METHOD_NOARG("upgrade_test", rpc_luci2_upgrade_test),
1990                 UBUS_METHOD("upgrade_start",      rpc_luci2_upgrade_start,
1991                                                   rpc_upgrade_policy),
1992                 UBUS_METHOD_NOARG("upgrade_clean", rpc_luci2_upgrade_clean),
1993                 UBUS_METHOD_NOARG("backup_restore", rpc_luci2_backup_restore),
1994                 UBUS_METHOD_NOARG("backup_clean", rpc_luci2_backup_clean),
1995                 UBUS_METHOD_NOARG("backup_config_get", rpc_luci2_backup_config_get),
1996                 UBUS_METHOD("backup_config_set",  rpc_luci2_backup_config_set,
1997                                                   rpc_data_policy),
1998                 UBUS_METHOD_NOARG("backup_list",  rpc_luci2_backup_list),
1999                 UBUS_METHOD_NOARG("reset_test",   rpc_luci2_reset_test),
2000                 UBUS_METHOD_NOARG("reset_start",  rpc_luci2_reset_start),
2001                 UBUS_METHOD_NOARG("reboot",       rpc_luci2_reboot)
2002         };
2003
2004         static struct ubus_object_type luci2_system_type =
2005                 UBUS_OBJECT_TYPE("luci-rpc-luci2-system", luci2_system_methods);
2006
2007         static struct ubus_object system_obj = {
2008                 .name = "luci2.system",
2009                 .type = &luci2_system_type,
2010                 .methods = luci2_system_methods,
2011                 .n_methods = ARRAY_SIZE(luci2_system_methods),
2012         };
2013
2014
2015         static const struct ubus_method luci2_network_methods[] = {
2016                 UBUS_METHOD_NOARG("conntrack_count", rpc_luci2_network_ct_count),
2017                 UBUS_METHOD_NOARG("conntrack_table", rpc_luci2_network_ct_table),
2018                 UBUS_METHOD_NOARG("arp_table",       rpc_luci2_network_arp_table),
2019                 UBUS_METHOD_NOARG("dhcp_leases",     rpc_luci2_network_leases),
2020                 UBUS_METHOD_NOARG("dhcp6_leases",    rpc_luci2_network_leases6),
2021                 UBUS_METHOD_NOARG("routes",          rpc_luci2_network_routes),
2022                 UBUS_METHOD_NOARG("routes6",         rpc_luci2_network_routes6),
2023         };
2024
2025         static struct ubus_object_type luci2_network_type =
2026                 UBUS_OBJECT_TYPE("luci-rpc-luci2-network", luci2_network_methods);
2027
2028         static struct ubus_object network_obj = {
2029                 .name = "luci2.network",
2030                 .type = &luci2_network_type,
2031                 .methods = luci2_network_methods,
2032                 .n_methods = ARRAY_SIZE(luci2_network_methods),
2033         };
2034
2035
2036         static const struct ubus_method luci2_opkg_methods[] = {
2037                 UBUS_METHOD("list",                  rpc_luci2_opkg_list,
2038                                                      rpc_opkg_match_policy),
2039                 UBUS_METHOD("list_installed",        rpc_luci2_opkg_list_installed,
2040                                                      rpc_opkg_match_policy),
2041                 UBUS_METHOD("find",                  rpc_luci2_opkg_find,
2042                                                      rpc_opkg_match_policy),
2043                 UBUS_METHOD("install",               rpc_luci2_opkg_install,
2044                                                      rpc_opkg_package_policy),
2045                 UBUS_METHOD("remove",                rpc_luci2_opkg_remove,
2046                                                      rpc_opkg_package_policy),
2047                 UBUS_METHOD_NOARG("update",          rpc_luci2_opkg_update),
2048                 UBUS_METHOD_NOARG("config_get",      rpc_luci2_opkg_config_get),
2049                 UBUS_METHOD("config_set",            rpc_luci2_opkg_config_set,
2050                                                      rpc_data_policy)
2051         };
2052
2053         static struct ubus_object_type luci2_opkg_type =
2054                 UBUS_OBJECT_TYPE("luci-rpc-luci2-network", luci2_opkg_methods);
2055
2056         static struct ubus_object opkg_obj = {
2057                 .name = "luci2.opkg",
2058                 .type = &luci2_opkg_type,
2059                 .methods = luci2_opkg_methods,
2060                 .n_methods = ARRAY_SIZE(luci2_opkg_methods),
2061         };
2062
2063         cursor = uci_alloc_context();
2064
2065         if (!cursor)
2066                 return UBUS_STATUS_UNKNOWN_ERROR;
2067
2068         rv |= ubus_add_object(ctx, &system_obj);
2069         rv |= ubus_add_object(ctx, &network_obj);
2070         rv |= ubus_add_object(ctx, &opkg_obj);
2071
2072         return rv;
2073 }