Refactor ALLOW_NO_SIGNATURE compile flag
[src/app-framework-main.git] / src / wgtpkg-install.c
index 22b8050..c7de1f8 100644 (file)
@@ -1,5 +1,5 @@
 /*
- Copyright 2015, 2016, 2017 IoT.bzh
+ Copyright (C) 2015-2020 IoT.bzh
 
  author: José Bollo <jose.bollo@iot.bzh>
 
@@ -27,6 +27,7 @@
 #include <stdio.h>
 #include <stdlib.h>
 #include <stdint.h>
+#include <fcntl.h>
 #include <sys/stat.h>
 
 #include "verbose.h"
@@ -39,6 +40,7 @@
 #include "wgtpkg-permissions.h"
 #include "wgtpkg-digsig.h"
 #include "wgtpkg-install.h"
+#include "wgtpkg-uninstall.h"
 #include "secmgr-wrap.h"
 #include "utils-dir.h"
 #include "wgtpkg-unit.h"
@@ -50,9 +52,60 @@ static const char* exec_type_strings[] = {
        "application/vnd.agl.native"
 };
 
-static const char key_http_port[] = "X-AFM--http-port";
+static const char key_afm_prefix[] = "X-AFM-";
+static const char key_afid[] = "ID";
 
-static int get_port_cb(void *closure, const char *name, const char *path, int isuser)
+#define HTTP_PORT_BASE         30000
+
+#define AFID_MIN               1
+#define AFID_MAX               1999
+#define AFID_IS_VALID(afid)    (AFID_MIN <= (afid) && (afid) <= AFID_MAX)
+#define AFID_COUNT             (AFID_MAX - AFID_MIN + 1)
+#define AFID_ACNT              ((AFID_COUNT + 31) >> 5)
+#define AFID_ASFT(afid)                (((afid) - AFID_MIN) & 31)
+#define AFID_AIDX(afid)                (((afid) - AFID_MIN) >> 5)
+#define AFID_TEST(array,afid)  ((((array)[AFID_AIDX(afid)]) >> AFID_ASFT(afid)) & 1)
+#define AFID_SET(array,afid)   (((array)[AFID_AIDX(afid)]) |= (((uint32_t)1) << AFID_ASFT(afid)))
+
+static uint32_t *afids_array = NULL;
+
+static const char *default_permissions[] = {
+       "urn:AGL:token:valid"
+};
+
+/*
+ * normalize unit files: remove comments, remove heading blanks,
+ * make single lines
+ */
+static void normalize_unit_file(char *content)
+{
+       char *read, *write, c;
+
+       read = write = content;
+       c = *read++;
+       while (c) {
+               switch (c) {
+               case '\n':
+               case ' ':
+               case '\t':
+                       c = *read++;
+                       break;
+               case '#':
+               case ';':
+                       do { c = *read++; } while(c && c != '\n');
+                       break;
+               default:
+                       *write++ = c;
+                       do { *write++ = c = *read++; } while(c && c != '\n');
+                       if (write - content >= 2 && write[-2] == '\\')
+                               (--write)[-1] = ' ';
+                       break;
+               }
+       }
+       *write = c;
+}
+
+static int get_afid_cb(void *closure, const char *name, const char *path, int isuser)
 {
        char *iter;
        char *content;
@@ -64,46 +117,87 @@ static int get_port_cb(void *closure, const char *name, const char *path, int is
        if (rc < 0)
                return rc;
 
+       /* normalize the unit file */
+       normalize_unit_file(content);
+
        /* process the file */
-       iter = strstr(content, key_http_port);
+       iter = strstr(content, key_afm_prefix);
        while (iter) {
-               iter += sizeof key_http_port - 1;
-               while(*iter && *iter != '=' && *iter != '\n')
+               iter += sizeof key_afm_prefix - 1;
+               if (*iter == '-')
                        iter++;
-               if (*iter == '=') {
-                       while(*++iter == ' ');
-                       p = atoi(iter);
-                       if (p >= 0 && p < 32768)
-                               ((uint32_t*)closure)[p >> 5] |= (uint32_t)1 << (p & 31);
+               if (!strncmp(iter, key_afid, sizeof key_afid - 1)) {
+                       iter += sizeof key_afid - 1;
+                       while(*iter && *iter != '=' && *iter != '\n')
+                               iter++;
+                       if (*iter == '=') {
+                               while(*++iter == ' ');
+                               p = atoi(iter);
+                               if (AFID_IS_VALID(p))
+                                       AFID_SET((uint32_t*)closure, p);
+                       }
                }
-               iter = strstr(iter, key_http_port);
+               iter = strstr(iter, key_afm_prefix);
        }
        free(content);
        return 0;
 }
 
-static int get_port()
+static int update_afids(uint32_t *afids)
 {
        int rc;
-       uint32_t ports[1024]; /* 1024 * 32 = 32768 */
-
-       memset(ports, 0, sizeof ports);
-       rc = systemd_unit_list(0, get_port_cb, &ports);
-       if (rc >= 0) {
-               rc = systemd_unit_list(1, get_port_cb, ports);
-               if (rc >= 0) {
-                       for (rc = 1024 ; rc < 32768 && !~ports[rc >> 5] ; rc += 32);
-                       if (rc == 32768) {
-                               errno = EADDRNOTAVAIL;
-                               rc = -1;
-                       } else {
-                               while (1 & (ports[rc >> 5] >> (rc & 31))) rc++;
-                       }
-               }
-       }
+
+       memset(afids, 0, AFID_ACNT * sizeof(uint32_t));
+       rc = systemd_unit_list(0, get_afid_cb, afids);
+       if (rc >= 0)
+               rc = systemd_unit_list(1, get_afid_cb, afids);
+       if (rc < 0)
+               ERROR("troubles while updating afids");
        return rc;
 }
 
+static int first_free_afid(uint32_t *afids)
+{
+       int afid;
+
+       afid = AFID_MIN;
+       while (afid <= AFID_MAX && !~afids[AFID_AIDX(afid)])
+               afid += 32;
+       while (afid <= AFID_MAX && AFID_TEST(afids, afid))
+               afid++;
+       if (afid > AFID_MAX) {
+               ERROR("Can't compute a valid afid");
+               errno = EADDRNOTAVAIL;
+               afid = -1;
+       }
+       return afid;
+}
+
+static int get_new_afid()
+{
+       int afid;
+
+       /* ensure existing afid bitmap */
+       if (afids_array == NULL) {
+               afids_array = malloc(AFID_ACNT * sizeof(uint32_t));
+               if (afids_array == NULL || update_afids(afids_array) < 0)
+                       return -1;
+       }
+
+       /* allocates the afid */
+       afid = first_free_afid(afids_array);
+       if (afid < 0 && errno == EADDRNOTAVAIL) {
+               /* no more ids, try to rescan */
+               memset(afids_array, 0, AFID_ACNT * sizeof(uint32_t));
+               if (update_afids(afids_array) >= 0)
+                       afid = first_free_afid(afids_array);
+       }
+       if (afid >= 0)
+               AFID_SET(afids_array, afid);
+
+       return afid;
+}
+
 static int check_defined(const void *data, const char *name)
 {
        if (data)
@@ -125,13 +219,13 @@ static int check_valid_string(const char *value, const char *name)
        if (c == 0) {
                ERROR("empty string forbidden in '%s' (temporary constraints)", name);
                errno = EINVAL;
-               return -1;                      
+               return -1;
        }
        do {
                if (!isalnum(c) && !strchr(".-_", c)) {
                        ERROR("forbidden char %c in '%s' -> '%s' (temporary constraints)", c, name, value);
                        errno = EINVAL;
-                       return -1;                      
+                       return -1;
                }
                c = value[++pos];
        } while(c);
@@ -145,12 +239,13 @@ static int check_temporary_constraints(const struct wgt_desc *desc)
        result  = check_valid_string(desc->id, "id");
        result |= check_valid_string(desc->version, "version");
        result |= check_valid_string(desc->ver, "ver");
-       result |= check_defined(desc->icons, "icon");
        result |= check_defined(desc->content_src, "content");
+       if (desc->icons)
+               result |= check_defined(desc->icons->src, "icon.src");
        if (result)
                return result;
 
-       if (desc->icons->next) {
+       if (desc->icons && desc->icons->next) {
                ERROR("widget has more than one icon defined (temporary constraints)");
                errno = EINVAL;
                result = -1;
@@ -208,6 +303,85 @@ static int check_permissions(const struct wgt_desc *desc)
        return result;
 }
 
+static int for_all_content(const struct wgt_desc *desc, int (*action)(const char *src, const char *type))
+{
+       int rc, rc2;
+       struct wgt_desc_feature *feat;
+       const char *src, *type;
+
+       rc = action(desc->content_src, desc->content_type);
+       feat = desc->features;
+       while (feat) {
+               if (!strcmp(feat->name, FWK_PREFIX"widget:provided-unit")) {
+                       src = wgt_info_param(feat, "content.src");
+                       type = wgt_info_param(feat, "content.type");
+                       rc2 = action(src, type);
+                       if (rc >= 0 && rc2 < 0)
+                               rc = rc2;
+               }
+               feat = feat->next;
+       }
+       return rc;
+}
+
+static int set_exec_flag(const char *src, const char *type)
+{
+       int i, rc;
+
+       if (src && type) {
+               i = sizeof exec_type_strings / sizeof *exec_type_strings;
+               while (i) {
+                       if (!strcasecmp(type, exec_type_strings[--i])) {
+                               rc = fchmodat(workdirfd, src, 0755, 0);
+                               if (rc < 0)
+                                       ERROR("can't make executable the file %s", src);
+                               return rc;
+                       }
+               }
+       }
+       return 0;
+}
+
+static int check_one_content(const char *src, const char *type)
+{
+       int rc;
+       struct stat s;
+       int fhtdocs, serr;
+
+       if (!src) {
+               ERROR("a content src is missing");
+               errno = EINVAL;
+               rc = -1;
+       } else {
+               /* TODO: when dealing with HTML and languages, the check should
+                * include i18n path search of widgets */
+               rc = fstatat(workdirfd, src, &s, AT_NO_AUTOMOUNT|AT_SYMLINK_NOFOLLOW);
+               if (rc < 0) {
+                       serr = errno;
+                       fhtdocs = openat(workdirfd, "htdocs", O_DIRECTORY|O_PATH);
+                       if (fhtdocs >= 0) {
+                               rc = fstatat(fhtdocs, src, &s, AT_NO_AUTOMOUNT|AT_SYMLINK_NOFOLLOW);
+                               serr = errno;
+                               close(fhtdocs);
+                       }
+                       errno = serr;
+               }
+               if (rc < 0)
+                       ERROR("can't get info on content %s: %m", src);
+               else if (!S_ISREG(s.st_mode)) {
+                       ERROR("content %s isn't a regular file", src);
+                       errno = EINVAL;
+                       rc = -1;
+               }
+       }
+       return rc;
+}
+
+static int check_content(const struct wgt_desc *desc)
+{
+       return for_all_content(desc, check_one_content);
+}
+
 static int check_widget(const struct wgt_desc *desc)
 {
        int result;
@@ -215,6 +389,8 @@ static int check_widget(const struct wgt_desc *desc)
        result = check_temporary_constraints(desc);
        if (result >= 0)
                result = check_permissions(desc);
+       if (result >= 0)
+               result = check_content(desc);
        return result;
 }
 
@@ -222,7 +398,11 @@ static int get_target_directory(char target[PATH_MAX], const char *root, const s
 {
        int rc;
 
+#if DISTINCT_VERSIONS
        rc = snprintf(target, PATH_MAX, "%s/%s/%s", root, desc->id, desc->ver);
+#else
+       rc = snprintf(target, PATH_MAX, "%s/%s", root, desc->id);
+#endif
        if (rc < PATH_MAX)
                rc = 0;
        else {
@@ -244,6 +424,9 @@ static int install_icon(const struct wgt_desc *desc)
        char target[PATH_MAX];
        int rc;
 
+       if (!desc->icons)
+               return 0;
+
        create_directory(FWK_ICON_DIR, 0755, 1);
        rc = snprintf(link, sizeof link, "%s/%s", FWK_ICON_DIR, desc->idaver);
        if (rc >= (int)sizeof link) {
@@ -268,16 +451,38 @@ static int install_icon(const struct wgt_desc *desc)
 
 static int install_exec_flag(const struct wgt_desc *desc)
 {
-       int i;
+       return for_all_content(desc, set_exec_flag);
+}
 
-       if (desc->content_type) {
-               i = sizeof exec_type_strings / sizeof *exec_type_strings;
-               while (i) {
-                       if (!strcasecmp(desc->content_type, exec_type_strings[--i]))
-                               return fchmodat(workdirfd, desc->content_src, 0755, 0);
+static int install_file_properties(const struct wgt_desc *desc)
+{
+       int rc, rc2;
+       struct wgt_desc_feature *feat;
+       struct wgt_desc_param *param;
+
+       rc = 0;
+       feat = desc->features;
+       while (feat) {
+               if (!strcmp(feat->name, FWK_PREFIX"widget:file-properties")) {
+                       param = feat->params;
+                       while (param) {
+                               if (!strcmp(param->value, "executable")) {
+                                       rc2 = fchmodat(workdirfd, param->name, 0755, 0);
+                                       if (rc2 < 0)
+                                               ERROR("can't make executable the file %s: %m", param->name);
+                               } else {
+                                       ERROR("unknown file property %s for %s", param->value, param->name);
+                                       errno = EINVAL;
+                                       rc2 = -1;
+                               }
+                               if (rc2 < 0 && !rc)
+                                       rc = rc2;
+                               param = param->next;
+                       }
                }
+               feat = feat->next;
        }
-       return 0;
+       return rc;
 }
 
 static int install_security(const struct wgt_desc *desc)
@@ -307,8 +512,8 @@ static int install_security(const struct wgt_desc *desc)
        }
        len--;
        *head++ = '/';
-       icon = desc->icons->src;
-       lic = (unsigned)strlen(icon);
+       icon = desc->icons ? desc->icons->src : NULL;
+       lic = (unsigned)(icon ? strlen(icon) : 0);
        n = file_count();
        i = 0;
        while(i < n) {
@@ -320,7 +525,7 @@ static int install_security(const struct wgt_desc *desc)
                        goto error2;
                }
                strcpy(head, f->name);
-               if (lf <= lic && !memcmp(f->name, icon, lf) && (!f->name[lf] || f->name[lf] == '/'))
+               if (lf <= lic && icon && !memcmp(f->name, icon, lf) && (!f->name[lf] || f->name[lf] == '/'))
                        rc = secmgr_path_public_read_only(path);
                else
                        rc = secmgr_path_read_only(path);
@@ -338,6 +543,16 @@ static int install_security(const struct wgt_desc *desc)
                perm = next_usable_permission();
        }
 
+       /* install default permissions */
+       n = (unsigned int)(sizeof default_permissions / sizeof *default_permissions);
+       for (i = 0 ; i < n ; i++) {
+               perm = default_permissions[i];
+               rc = secmgr_permit(perm);
+               INFO("permitting %s %s", perm, rc ? "FAILED!" : "success");
+               if (rc)
+                       goto error2;
+       }
+
        rc = secmgr_install();
        return rc;
 error2:
@@ -352,7 +567,8 @@ struct wgt_info *install_widget(const char *wgtfile, const char *root, int force
        struct wgt_info *ifo;
        const struct wgt_desc *desc;
        char installdir[PATH_MAX];
-       int port;
+       int err, rc;
+       struct unitconf uconf;
 
        NOTICE("-- INSTALLING widget %s to %s --", wgtfile, root);
 
@@ -366,7 +582,12 @@ struct wgt_info *install_widget(const char *wgtfile, const char *root, int force
        if (zread(wgtfile, 0))
                goto error2;
 
-       if (check_all_signatures())
+#if defined(ALLOW_NO_SIGNATURE)
+       rc = check_all_signatures(1);
+#else
+       rc = check_all_signatures(0);
+#endif
+       if (rc)
                goto error2;
 
        ifo = wgt_info_createat(workdirfd, NULL, 1, 1, 1);
@@ -381,6 +602,16 @@ struct wgt_info *install_widget(const char *wgtfile, const char *root, int force
        if (get_target_directory(installdir, root, desc))
                goto error3;
 
+       if (access(installdir, F_OK) == 0) {
+               if (!force) {
+                       ERROR("widget already installed");
+                       errno = EEXIST;
+                       goto error3;
+               }
+               if (uninstall_widget(desc->idaver, root))
+                       goto error3;
+       }
+
        if (move_widget_to(installdir, force))
                goto error3;
 
@@ -393,24 +624,29 @@ struct wgt_info *install_widget(const char *wgtfile, const char *root, int force
        if (install_exec_flag(desc))
                goto error4;
 
-       port = get_port();
-       if (port < 0)
+       if (install_file_properties(desc))
                goto error4;
 
-       if (unit_install(ifo, installdir, FWK_ICON_DIR, port))
+       uconf.installdir = installdir;
+       uconf.icondir = FWK_ICON_DIR;
+       uconf.new_afid = get_new_afid;
+       uconf.base_http_ports = HTTP_PORT_BASE;
+       if (unit_install(ifo, &uconf))
                goto error4;
 
        file_reset();
        return ifo;
 
 error4:
-       /* todo: cleanup */
+       /* TODO: cleanup */
 
 error3:
        wgt_info_unref(ifo);
 
 error2:
+       err = errno;
        remove_workdir();
+       errno = err;
 
 error1:
        file_reset();