src/basic/mkdir.c

   1 /* SPDX-License-Identifier: LGPL-2.1+ */
   2 /***
   3   Copyright 2010 Lennart Poettering
   4 ***/
   5
   6 #include <errno.h>
   7 #include <stdbool.h>
   8 #include <string.h>
   9 #include <sys/stat.h>
  10
  11 #include "alloc-util.h"
  12 #include "fs-util.h"
  13 #include "macro.h"
  14 #include "mkdir.h"
  15 #include "path-util.h"
  16 #include "stat-util.h"
  17 //#include "stdio-util.h"
  18 #include "user-util.h"
  19
  20 /// Additional includes needed by elogind
  21 #include "missing.h"
  22
  23 int mkdir_safe_internal(const char *path, mode_t mode, uid_t uid, gid_t gid, bool follow_symlink, mkdir_func_t _mkdir) {
  24 int mkdir_safe_internal(const char *path, mode_t mode, uid_t uid, gid_t gid, MkdirFlags flags, mkdir_func_t _mkdir) {
  25         struct stat st;
  26         int r;
  27
  28         assert(_mkdir != mkdir);
  29
  30         if (_mkdir(path, mode) >= 0) {
  31                 r = chmod_and_chown(path, mode, uid, gid);
  32                 if (r < 0)
  33                         return r;
  34         }
  35
  36         if (lstat(path, &st) < 0)
  37                 return -errno;
  38
  39         if ((flags & MKDIR_FOLLOW_SYMLINK) && S_ISLNK(st.st_mode)) {
  40                 _cleanup_free_ char *p = NULL;
  41
  42                 r = chase_symlinks(path, NULL, CHASE_NONEXISTENT, &p);
  43                 if (r < 0)
  44                         return r;
  45                 if (r == 0)
  46                         return mkdir_safe_internal(p, mode, uid, gid,
  47                                                    flags & ~MKDIR_FOLLOW_SYMLINK,
  48                                                    _mkdir);
  49
  50                 if (lstat(p, &st) < 0)
  51                         return -errno;
  52         }
  53
  54         if (!S_ISDIR(st.st_mode)) {
  55                 log_full(flags & MKDIR_WARN_MODE ? LOG_WARNING : LOG_DEBUG,
  56                          "Path \"%s\" already exists and is not a directory, refusing.", path);
  57                 return -ENOTDIR;
  58         }
  59         if ((st.st_mode & 0007) > (mode & 0007) ||
  60             (st.st_mode & 0070) > (mode & 0070) ||
  61             (st.st_mode & 0700) > (mode & 0700)) {
  62                 log_full(flags & MKDIR_WARN_MODE ? LOG_WARNING : LOG_DEBUG,
  63                          "Directory \"%s\" already exists, but has mode %04o that is too permissive (%04o was requested), refusing.",
  64                          path, st.st_mode & 0777, mode);
  65                 return -EEXIST;
  66         }
  67         if ((uid != UID_INVALID && st.st_uid != uid) ||
  68             (gid != GID_INVALID && st.st_gid != gid)) {
  69                 char u[DECIMAL_STR_MAX(uid_t)] = "-", g[DECIMAL_STR_MAX(gid_t)] = "-";
  70
  71                 if (uid != UID_INVALID)
  72                         xsprintf(u, UID_FMT, uid);
  73                 if (gid != UID_INVALID)
  74                         xsprintf(g, GID_FMT, gid);
  75                 log_full(flags & MKDIR_WARN_MODE ? LOG_WARNING : LOG_DEBUG,
  76                          "Directory \"%s\" already exists, but is owned by "UID_FMT":"GID_FMT" (%s:%s was requested), refusing.",
  77                          path, st.st_uid, st.st_gid, u, g);
  78                 return -EEXIST;
  79         }
  80
  81         return 0;
  82 }
  83
  84 int mkdir_errno_wrapper(const char *pathname, mode_t mode) {
  85         if (mkdir(pathname, mode) < 0)
  86                 return -errno;
  87         return 0;
  88 }
  89
  90 int mkdir_safe(const char *path, mode_t mode, uid_t uid, gid_t gid, MkdirFlags flags) {
  91         return mkdir_safe_internal(path, mode, uid, gid, flags, mkdir_errno_wrapper);
  92 }
  93
  94 int mkdir_parents_internal(const char *prefix, const char *path, mode_t mode, mkdir_func_t _mkdir) {
  95         const char *p, *e;
  96         int r;
  97
  98         assert(path);
  99         assert(_mkdir != mkdir);
 100
 101         if (prefix && !path_startswith(path, prefix))
 102                 return -ENOTDIR;
 103
 104         /* return immediately if directory exists */
 105         e = strrchr(path, '/');
 106         if (!e)
 107                 return -EINVAL;
 108
 109         if (e == path)
 110                 return 0;
 111
 112         p = strndupa(path, e - path);
 113         r = is_dir(p, true);
 114         if (r > 0)
 115                 return 0;
 116         if (r == 0)
 117                 return -ENOTDIR;
 118
 119         /* create every parent directory in the path, except the last component */
 120         p = path + strspn(path, "/");
 121         for (;;) {
 122                 char t[strlen(path) + 1];
 123
 124                 e = p + strcspn(p, "/");
 125                 p = e + strspn(e, "/");
 126
 127                 /* Is this the last component? If so, then we're done */
 128                 if (*p == 0)
 129                         return 0;
 130
 131                 memcpy(t, path, e - path);
 132                 t[e-path] = 0;
 133
 134                 if (prefix && path_startswith(prefix, t))
 135                         continue;
 136
 137                 r = _mkdir(t, mode);
 138                 if (r < 0 && r != -EEXIST)
 139                         return r;
 140         }
 141 }
 142
 143 int mkdir_parents(const char *path, mode_t mode) {
 144         return mkdir_parents_internal(NULL, path, mode, mkdir_errno_wrapper);
 145 }
 146
 147 int mkdir_p_internal(const char *prefix, const char *path, mode_t mode, mkdir_func_t _mkdir) {
 148         int r;
 149
 150         /* Like mkdir -p */
 151
 152         assert(_mkdir != mkdir);
 153
 154         r = mkdir_parents_internal(prefix, path, mode, _mkdir);
 155         if (r < 0)
 156                 return r;
 157
 158         r = _mkdir(path, mode);
 159         if (r < 0 && (r != -EEXIST || is_dir(path, true) <= 0))
 160                 return r;
 161
 162         return 0;
 163 }
 164
 165 int mkdir_p(const char *path, mode_t mode) {
 166         return mkdir_p_internal(NULL, path, mode, mkdir_errno_wrapper);
 167 }