procd: service gets deleted when its last instance is freed
[project/procd.git] / system.c
index c35f75a..1e31ce6 100644 (file)
--- a/system.c
+++ b/system.c
  */
 
 #include <sys/utsname.h>
+#ifdef linux
+#include <sys/sysinfo.h>
+#endif
 #include <sys/ioctl.h>
 #include <sys/types.h>
+#include <sys/reboot.h>
 #include <sys/stat.h>
 #include <fcntl.h>
-
+#include <signal.h>
 #include <unistd.h>
+#include <stdlib.h>
 
 #include <libubox/uloop.h>
 
 #include "procd.h"
 #include "watchdog.h"
 
-#define HOSTNAME_PATH  "/proc/sys/kernel/hostname"
-
 static struct blob_buf b;
-static char *board_name;
-static char *board_model;
+static int notify;
+static struct ubus_context *_ctx;
 
-static int system_info(struct ubus_context *ctx, struct ubus_object *obj,
-                       struct ubus_request_data *req, const char *method,
-                       struct blob_attr *msg)
+int upgrade_running = 0;
+
+static int system_board(struct ubus_context *ctx, struct ubus_object *obj,
+                 struct ubus_request_data *req, const char *method,
+                 struct blob_attr *msg)
 {
-       struct timespec ts;
-       struct utsname uts;
+       void *c;
+       char line[256];
+       char *key, *val, *next;
+       struct utsname utsname;
+       FILE *f;
 
        blob_buf_init(&b, 0);
-       if (board_name && board_model) {
-               blobmsg_add_string(&b, "boardname", board_name);
-               blobmsg_add_string(&b, "boardmodel", board_model);
+
+       if (uname(&utsname) >= 0)
+       {
+               blobmsg_add_string(&b, "kernel", utsname.release);
+               blobmsg_add_string(&b, "hostname", utsname.nodename);
+       }
+
+       if ((f = fopen("/proc/cpuinfo", "r")) != NULL)
+       {
+               while(fgets(line, sizeof(line), f))
+               {
+                       key = strtok(line, "\t:");
+                       val = strtok(NULL, "\t\n");
+
+                       if (!key || !val)
+                               continue;
+
+                       if (!strcasecmp(key, "system type") ||
+                           !strcasecmp(key, "processor") ||
+                           !strcasecmp(key, "model name"))
+                       {
+                               strtoul(val + 2, &key, 0);
+
+                               if (key == (val + 2) || *key != 0)
+                               {
+                                       blobmsg_add_string(&b, "system", val + 2);
+                                       break;
+                               }
+                       }
+               }
+
+               fclose(f);
+       }
+
+       if ((f = fopen("/tmp/sysinfo/model", "r")) != NULL ||
+           (f = fopen("/proc/device-tree/model", "r")) != NULL)
+       {
+               if (fgets(line, sizeof(line), f))
+               {
+                       val = strtok(line, "\t\n");
+
+                       if (val)
+                               blobmsg_add_string(&b, "model", val);
+               }
+
+               fclose(f);
        }
-       if (!uname(&uts)) {
-               blobmsg_add_string(&b, "hostname", uts.nodename);
-               blobmsg_add_string(&b, "machine", uts.machine);
-               blobmsg_add_string(&b, "kernel", uts.release);
+       else if ((f = fopen("/proc/cpuinfo", "r")) != NULL)
+       {
+               while(fgets(line, sizeof(line), f))
+               {
+                       key = strtok(line, "\t:");
+                       val = strtok(NULL, "\t\n");
+
+                       if (!key || !val)
+                               continue;
+
+                       if (!strcasecmp(key, "machine") ||
+                           !strcasecmp(key, "hardware"))
+                       {
+                               blobmsg_add_string(&b, "model", val + 2);
+                               break;
+                       }
+               }
+
+               fclose(f);
        }
-       if (!clock_gettime(CLOCK_MONOTONIC, &ts))
-               blobmsg_add_u32(&b, "uptime", ts.tv_sec);
+
+       if ((f = fopen("/etc/openwrt_release", "r")) != NULL)
+       {
+               c = blobmsg_open_table(&b, "release");
+
+               while (fgets(line, sizeof(line), f))
+               {
+                       char *dest;
+                       char ch;
+
+                       key = line;
+                       val = strchr(line, '=');
+                       if (!val)
+                               continue;
+
+                       *(val++) = 0;
+
+                       if (!strcasecmp(key, "DISTRIB_ID"))
+                               key = "distribution";
+                       else if (!strcasecmp(key, "DISTRIB_RELEASE"))
+                               key = "version";
+                       else if (!strcasecmp(key, "DISTRIB_REVISION"))
+                               key = "revision";
+                       else if (!strcasecmp(key, "DISTRIB_CODENAME"))
+                               key = "codename";
+                       else if (!strcasecmp(key, "DISTRIB_TARGET"))
+                               key = "target";
+                       else if (!strcasecmp(key, "DISTRIB_DESCRIPTION"))
+                               key = "description";
+                       else
+                               continue;
+
+                       dest = blobmsg_alloc_string_buffer(&b, key, strlen(val));
+                       if (!dest) {
+                               ERROR("Failed to allocate blob.\n");
+                               continue;
+                       }
+
+                       while (val && (ch = *(val++)) != 0) {
+                               switch (ch) {
+                               case '\'':
+                               case '"':
+                                       next = strchr(val, ch);
+                                       if (next)
+                                               *next = 0;
+
+                                       strcpy(dest, val);
+
+                                       if (next)
+                                               val = next + 1;
+
+                                       dest += strlen(dest);
+                                       break;
+                               case '\\':
+                                       *(dest++) = *(val++);
+                                       break;
+                               }
+                       }
+                       blobmsg_add_string_buffer(&b);
+               }
+
+               blobmsg_close_array(&b, c);
+
+               fclose(f);
+       }
+
        ubus_send_reply(ctx, req, b.head);
 
+       return UBUS_STATUS_OK;
+}
+
+static int system_info(struct ubus_context *ctx, struct ubus_object *obj,
+                struct ubus_request_data *req, const char *method,
+                struct blob_attr *msg)
+{
+       time_t now;
+       struct tm *tm;
+#ifdef linux
+       struct sysinfo info;
+       void *c;
+
+       if (sysinfo(&info))
+               return UBUS_STATUS_UNKNOWN_ERROR;
+#endif
+
+       now = time(NULL);
+
+       if (!(tm = localtime(&now)))
+               return UBUS_STATUS_UNKNOWN_ERROR;
+
+       blob_buf_init(&b, 0);
+
+       blobmsg_add_u32(&b, "localtime", now + tm->tm_gmtoff);
+
+#ifdef linux
+       blobmsg_add_u32(&b, "uptime",    info.uptime);
+
+       c = blobmsg_open_array(&b, "load");
+       blobmsg_add_u32(&b, NULL, info.loads[0]);
+       blobmsg_add_u32(&b, NULL, info.loads[1]);
+       blobmsg_add_u32(&b, NULL, info.loads[2]);
+       blobmsg_close_array(&b, c);
+
+       c = blobmsg_open_table(&b, "memory");
+       blobmsg_add_u64(&b, "total",    info.mem_unit * info.totalram);
+       blobmsg_add_u64(&b, "free",     info.mem_unit * info.freeram);
+       blobmsg_add_u64(&b, "shared",   info.mem_unit * info.sharedram);
+       blobmsg_add_u64(&b, "buffered", info.mem_unit * info.bufferram);
+       blobmsg_close_table(&b, c);
+
+       c = blobmsg_open_table(&b, "swap");
+       blobmsg_add_u64(&b, "total",    info.mem_unit * info.totalswap);
+       blobmsg_add_u64(&b, "free",     info.mem_unit * info.freeswap);
+       blobmsg_close_table(&b, c);
+#endif
+
+       ubus_send_reply(ctx, req, b.head);
+
+       return UBUS_STATUS_OK;
+}
+
+static int system_upgrade(struct ubus_context *ctx, struct ubus_object *obj,
+                       struct ubus_request_data *req, const char *method,
+                       struct blob_attr *msg)
+{
+       upgrade_running = 1;
+       return 0;
+}
+
+static int system_reboot(struct ubus_context *ctx, struct ubus_object *obj,
+                        struct ubus_request_data *req, const char *method,
+                        struct blob_attr *msg)
+{
+       procd_shutdown(RB_AUTOBOOT);
        return 0;
 }
 
 enum {
        WDT_FREQUENCY,
        WDT_TIMEOUT,
+       WDT_STOP,
        __WDT_MAX
 };
 
 static const struct blobmsg_policy watchdog_policy[__WDT_MAX] = {
        [WDT_FREQUENCY] = { .name = "frequency", .type = BLOBMSG_TYPE_INT32 },
        [WDT_TIMEOUT] = { .name = "timeout", .type = BLOBMSG_TYPE_INT32 },
+       [WDT_STOP] = { .name = "stop", .type = BLOBMSG_TYPE_BOOL },
 };
 
 static int watchdog_set(struct ubus_context *ctx, struct ubus_object *obj,
@@ -71,6 +269,7 @@ static int watchdog_set(struct ubus_context *ctx, struct ubus_object *obj,
                        struct blob_attr *msg)
 {
        struct blob_attr *tb[__WDT_MAX];
+       const char *status;
 
        if (!msg)
                return UBUS_STATUS_INVALID_ARGUMENT;
@@ -96,8 +295,18 @@ static int watchdog_set(struct ubus_context *ctx, struct ubus_object *obj,
                 watchdog_timeout(timeout);
        }
 
+       if (tb[WDT_STOP])
+               watchdog_set_stopped(blobmsg_get_bool(tb[WDT_STOP]));
+
+       if (watchdog_fd() == NULL)
+               status = "offline";
+       else if (watchdog_get_stopped())
+               status = "stopped";
+       else
+               status = "running";
+
        blob_buf_init(&b, 0);
-       blobmsg_add_string(&b, "status", (watchdog_fd() >= 0) ? ("running") : ("offline"));
+       blobmsg_add_string(&b, "status", status);
        blobmsg_add_u32(&b, "timeout", watchdog_timeout(0));
        blobmsg_add_u32(&b, "frequency", watchdog_frequency(0));
        ubus_send_reply(ctx, req, b.head);
@@ -105,9 +314,95 @@ static int watchdog_set(struct ubus_context *ctx, struct ubus_object *obj,
        return 0;
 }
 
+enum {
+       SIGNAL_PID,
+       SIGNAL_NUM,
+       __SIGNAL_MAX
+};
+
+static const struct blobmsg_policy signal_policy[__SIGNAL_MAX] = {
+       [SIGNAL_PID] = { .name = "pid", .type = BLOBMSG_TYPE_INT32 },
+       [SIGNAL_NUM] = { .name = "signum", .type = BLOBMSG_TYPE_INT32 },
+};
+
+static int proc_signal(struct ubus_context *ctx, struct ubus_object *obj,
+                       struct ubus_request_data *req, const char *method,
+                       struct blob_attr *msg)
+{
+       struct blob_attr *tb[__SIGNAL_MAX];
+
+       if (!msg)
+               return UBUS_STATUS_INVALID_ARGUMENT;
+
+       blobmsg_parse(signal_policy, __SIGNAL_MAX, tb, blob_data(msg), blob_len(msg));
+       if (!tb[SIGNAL_PID || !tb[SIGNAL_NUM]])
+               return UBUS_STATUS_INVALID_ARGUMENT;
+
+       kill(blobmsg_get_u32(tb[SIGNAL_PID]), blobmsg_get_u32(tb[SIGNAL_NUM]));
+
+       return 0;
+}
+
+enum {
+       NAND_PATH,
+       __NAND_MAX
+};
+
+static const struct blobmsg_policy nand_policy[__NAND_MAX] = {
+       [NAND_PATH] = { .name = "path", .type = BLOBMSG_TYPE_STRING },
+};
+
+static void
+procd_spawn_upgraded(char *path)
+{
+       char *wdt_fd = watchdog_fd();
+       char *argv[] = { "/tmp/upgraded", NULL, NULL};
+
+       argv[1] = path;
+
+       DEBUG(2, "Exec to upgraded now\n");
+       if (wdt_fd) {
+               watchdog_no_cloexec();
+               setenv("WDTFD", wdt_fd, 1);
+       }
+       execvp(argv[0], argv);
+}
+
+static int nand_set(struct ubus_context *ctx, struct ubus_object *obj,
+                       struct ubus_request_data *req, const char *method,
+                       struct blob_attr *msg)
+{
+       struct blob_attr *tb[__NAND_MAX];
+
+       if (!msg)
+               return UBUS_STATUS_INVALID_ARGUMENT;
+
+       blobmsg_parse(nand_policy, __NAND_MAX, tb, blob_data(msg), blob_len(msg));
+       if (!tb[NAND_PATH])
+               return UBUS_STATUS_INVALID_ARGUMENT;
+
+       procd_spawn_upgraded(blobmsg_get_string(tb[NAND_PATH]));
+       fprintf(stderr, "Yikees, something went wrong. no /sbin/upgraded ?\n");
+       return 0;
+}
+
+static void
+procd_subscribe_cb(struct ubus_context *ctx, struct ubus_object *obj)
+{
+       notify = obj->has_subscribers;
+}
+
+
 static const struct ubus_method system_methods[] = {
-       UBUS_METHOD_NOARG("info", system_info),
+       UBUS_METHOD_NOARG("board", system_board),
+       UBUS_METHOD_NOARG("info",  system_info),
+       UBUS_METHOD_NOARG("upgrade", system_upgrade),
+       UBUS_METHOD_NOARG("reboot", system_reboot),
        UBUS_METHOD("watchdog", watchdog_set, watchdog_policy),
+       UBUS_METHOD("signal", proc_signal, signal_policy),
+
+       /* must remain at the end as it ia not always loaded */
+       UBUS_METHOD("nandupgrade", nand_set, nand_policy),
 };
 
 static struct ubus_object_type system_object_type =
@@ -118,36 +413,31 @@ static struct ubus_object system_object = {
        .type = &system_object_type,
        .methods = system_methods,
        .n_methods = ARRAY_SIZE(system_methods),
+       .subscribe_cb = procd_subscribe_cb,
 };
 
-static char* load_file_content(const char *file)
+void
+procd_bcast_event(char *event, struct blob_attr *msg)
 {
-       char buf[32];
-       int fd, r;
-
-       fd = open(file, O_RDONLY);
-       if (!fd)
-               return NULL;
-       r = read(fd, buf, sizeof(buf) - 1);
-       close(fd);
-       if (r < 1)
-               return NULL;
-       if (buf[r - 1] == '\n')
-               buf[r - 1] = '\0';
-       else
-               buf[r] = '\0';
+       int ret;
 
-       return strdup(buf);
+       if (!notify)
+               return;
+
+       ret = ubus_notify(_ctx, &system_object, event, msg, -1);
+       if (ret)
+               fprintf(stderr, "Failed to notify log: %s\n", ubus_strerror(ret));
 }
 
 void ubus_init_system(struct ubus_context *ctx)
 {
+       struct stat s;
        int ret;
 
-       if (!board_model)
-               board_model = load_file_content("/tmp/sysinfo/model");
-       if (!board_name);
-               board_name = load_file_content("/tmp/sysinfo/board_name");
+       if (stat("/sbin/upgraded", &s))
+               system_object.n_methods -= 1;
+
+       _ctx = ctx;
        ret = ubus_add_object(ctx, &system_object);
        if (ret)
                ERROR("Failed to add object: %s\n", ubus_strerror(ret));