src/sysusers/sysusers.c

   1 /* SPDX-License-Identifier: LGPL-2.1+ */
   2 /***
   3   This file is part of systemd.
   4
   5   Copyright 2014 Lennart Poettering
   6 ***/
   7
   8 #include <getopt.h>
   9 #include <utmp.h>
  10
  11 #include "alloc-util.h"
  12 #include "conf-files.h"
  13 #include "copy.h"
  14 #include "def.h"
  15 #include "fd-util.h"
  16 #include "fs-util.h"
  17 #include "fileio-label.h"
  18 #include "format-util.h"
  19 #include "hashmap.h"
  20 #include "path-util.h"
  21 #include "selinux-util.h"
  22 #include "smack-util.h"
  23 #include "specifier.h"
  24 #include "string-util.h"
  25 #include "strv.h"
  26 #include "terminal-util.h"
  27 #include "uid-range.h"
  28 #include "user-util.h"
  29 #include "utf8.h"
  30 #include "util.h"
  31
  32 typedef enum ItemType {
  33         ADD_USER = 'u',
  34         ADD_GROUP = 'g',
  35         ADD_MEMBER = 'm',
  36         ADD_RANGE = 'r',
  37 } ItemType;
  38 typedef struct Item {
  39         ItemType type;
  40
  41         char *name;
  42         char *uid_path;
  43         char *gid_path;
  44         char *description;
  45         char *home;
  46         char *shell;
  47
  48         gid_t gid;
  49         uid_t uid;
  50
  51         bool gid_set:1;
  52
  53         /* When set the group with the specified gid must exist
  54          * and the check if a uid clashes with the gid is skipped.
  55          */
  56         bool id_set_strict:1;
  57
  58         bool uid_set:1;
  59
  60         bool todo_user:1;
  61         bool todo_group:1;
  62 } Item;
  63
  64 static char *arg_root = NULL;
  65 static bool arg_cat_config = false;
  66 static const char *arg_replace = NULL;
  67 static bool arg_inline = false;
  68
  69 static OrderedHashmap *users = NULL, *groups = NULL;
  70 static OrderedHashmap *todo_uids = NULL, *todo_gids = NULL;
  71 static OrderedHashmap *members = NULL;
  72
  73 static Hashmap *database_uid = NULL, *database_user = NULL;
  74 static Hashmap *database_gid = NULL, *database_group = NULL;
  75
  76 static uid_t search_uid = UID_INVALID;
  77 static UidRange *uid_range = NULL;
  78 static unsigned n_uid_range = 0;
  79
  80 static int load_user_database(void) {
  81         _cleanup_fclose_ FILE *f = NULL;
  82         const char *passwd_path;
  83         struct passwd *pw;
  84         int r;
  85
  86         passwd_path = prefix_roota(arg_root, "/etc/passwd");
  87         f = fopen(passwd_path, "re");
  88         if (!f)
  89                 return errno == ENOENT ? 0 : -errno;
  90
  91         r = hashmap_ensure_allocated(&database_user, &string_hash_ops);
  92         if (r < 0)
  93                 return r;
  94
  95         r = hashmap_ensure_allocated(&database_uid, NULL);
  96         if (r < 0)
  97                 return r;
  98
  99         while ((r = fgetpwent_sane(f, &pw)) > 0) {
 100                 char *n;
 101                 int k, q;
 102
 103                 n = strdup(pw->pw_name);
 104                 if (!n)
 105                         return -ENOMEM;
 106
 107                 k = hashmap_put(database_user, n, UID_TO_PTR(pw->pw_uid));
 108                 if (k < 0 && k != -EEXIST) {
 109                         free(n);
 110                         return k;
 111                 }
 112
 113                 q = hashmap_put(database_uid, UID_TO_PTR(pw->pw_uid), n);
 114                 if (q < 0 && q != -EEXIST) {
 115                         if (k <= 0)
 116                                 free(n);
 117                         return q;
 118                 }
 119
 120                 if (k <= 0 && q <= 0)
 121                         free(n);
 122         }
 123         return r;
 124 }
 125
 126 static int load_group_database(void) {
 127         _cleanup_fclose_ FILE *f = NULL;
 128         const char *group_path;
 129         struct group *gr;
 130         int r;
 131
 132         group_path = prefix_roota(arg_root, "/etc/group");
 133         f = fopen(group_path, "re");
 134         if (!f)
 135                 return errno == ENOENT ? 0 : -errno;
 136
 137         r = hashmap_ensure_allocated(&database_group, &string_hash_ops);
 138         if (r < 0)
 139                 return r;
 140
 141         r = hashmap_ensure_allocated(&database_gid, NULL);
 142         if (r < 0)
 143                 return r;
 144
 145         errno = 0;
 146         while ((gr = fgetgrent(f))) {
 147                 char *n;
 148                 int k, q;
 149
 150                 n = strdup(gr->gr_name);
 151                 if (!n)
 152                         return -ENOMEM;
 153
 154                 k = hashmap_put(database_group, n, GID_TO_PTR(gr->gr_gid));
 155                 if (k < 0 && k != -EEXIST) {
 156                         free(n);
 157                         return k;
 158                 }
 159
 160                 q = hashmap_put(database_gid, GID_TO_PTR(gr->gr_gid), n);
 161                 if (q < 0 && q != -EEXIST) {
 162                         if (k <= 0)
 163                                 free(n);
 164                         return q;
 165                 }
 166
 167                 if (k <= 0 && q <= 0)
 168                         free(n);
 169
 170                 errno = 0;
 171         }
 172         if (!IN_SET(errno, 0, ENOENT))
 173                 return -errno;
 174
 175         return 0;
 176 }
 177
 178 static int make_backup(const char *target, const char *x) {
 179         _cleanup_close_ int src = -1;
 180         _cleanup_fclose_ FILE *dst = NULL;
 181         _cleanup_free_ char *temp = NULL;
 182         char *backup;
 183         struct timespec ts[2];
 184         struct stat st;
 185         int r;
 186
 187         src = open(x, O_RDONLY|O_CLOEXEC|O_NOCTTY);
 188         if (src < 0) {
 189                 if (errno == ENOENT) /* No backup necessary... */
 190                         return 0;
 191
 192                 return -errno;
 193         }
 194
 195         if (fstat(src, &st) < 0)
 196                 return -errno;
 197
 198         r = fopen_temporary_label(target, x, &dst, &temp);
 199         if (r < 0)
 200                 return r;
 201
 202         r = copy_bytes(src, fileno(dst), (uint64_t) -1, COPY_REFLINK);
 203         if (r < 0)
 204                 goto fail;
 205
 206         /* Don't fail on chmod() or chown(). If it stays owned by us
 207          * and/or unreadable by others, then it isn't too bad... */
 208
 209         backup = strjoina(x, "-");
 210
 211         /* Copy over the access mask */
 212         if (fchmod(fileno(dst), st.st_mode & 07777) < 0)
 213                 log_warning_errno(errno, "Failed to change mode on %s: %m", backup);
 214
 215         if (fchown(fileno(dst), st.st_uid, st.st_gid)< 0)
 216                 log_warning_errno(errno, "Failed to change ownership of %s: %m", backup);
 217
 218         ts[0] = st.st_atim;
 219         ts[1] = st.st_mtim;
 220         if (futimens(fileno(dst), ts) < 0)
 221                 log_warning_errno(errno, "Failed to fix access and modification time of %s: %m", backup);
 222
 223         r = fflush_sync_and_check(dst);
 224         if (r < 0)
 225                 goto fail;
 226
 227         if (rename(temp, backup) < 0) {
 228                 r = -errno;
 229                 goto fail;
 230         }
 231
 232         return 0;
 233
 234 fail:
 235         unlink(temp);
 236         return r;
 237 }
 238
 239 static int putgrent_with_members(const struct group *gr, FILE *group) {
 240         char **a;
 241
 242         assert(gr);
 243         assert(group);
 244
 245         a = ordered_hashmap_get(members, gr->gr_name);
 246         if (a) {
 247                 _cleanup_strv_free_ char **l = NULL;
 248                 bool added = false;
 249                 char **i;
 250
 251                 l = strv_copy(gr->gr_mem);
 252                 if (!l)
 253                         return -ENOMEM;
 254
 255                 STRV_FOREACH(i, a) {
 256                         if (strv_find(l, *i))
 257                                 continue;
 258
 259                         if (strv_extend(&l, *i) < 0)
 260                                 return -ENOMEM;
 261
 262                         added = true;
 263                 }
 264
 265                 if (added) {
 266                         struct group t;
 267                         int r;
 268
 269                         strv_uniq(l);
 270                         strv_sort(l);
 271
 272                         t = *gr;
 273                         t.gr_mem = l;
 274
 275                         r = putgrent_sane(&t, group);
 276                         return r < 0 ? r : 1;
 277                 }
 278         }
 279
 280         return putgrent_sane(gr, group);
 281 }
 282
 283 #if ENABLE_GSHADOW
 284 static int putsgent_with_members(const struct sgrp *sg, FILE *gshadow) {
 285         char **a;
 286
 287         assert(sg);
 288         assert(gshadow);
 289
 290         a = ordered_hashmap_get(members, sg->sg_namp);
 291         if (a) {
 292                 _cleanup_strv_free_ char **l = NULL;
 293                 bool added = false;
 294                 char **i;
 295
 296                 l = strv_copy(sg->sg_mem);
 297                 if (!l)
 298                         return -ENOMEM;
 299
 300                 STRV_FOREACH(i, a) {
 301                         if (strv_find(l, *i))
 302                                 continue;
 303
 304                         if (strv_extend(&l, *i) < 0)
 305                                 return -ENOMEM;
 306
 307                         added = true;
 308                 }
 309
 310                 if (added) {
 311                         struct sgrp t;
 312                         int r;
 313
 314                         strv_uniq(l);
 315                         strv_sort(l);
 316
 317                         t = *sg;
 318                         t.sg_mem = l;
 319
 320                         r = putsgent_sane(&t, gshadow);
 321                         return r < 0 ? r : 1;
 322                 }
 323         }
 324
 325         return putsgent_sane(sg, gshadow);
 326 }
 327 #endif
 328
 329 static int sync_rights(FILE *from, FILE *to) {
 330         struct stat st;
 331
 332         if (fstat(fileno(from), &st) < 0)
 333                 return -errno;
 334
 335         if (fchmod(fileno(to), st.st_mode & 07777) < 0)
 336                 return -errno;
 337
 338         if (fchown(fileno(to), st.st_uid, st.st_gid) < 0)
 339                 return -errno;
 340
 341         return 0;
 342 }
 343
 344 static int rename_and_apply_smack(const char *temp_path, const char *dest_path) {
 345         int r = 0;
 346         if (rename(temp_path, dest_path) < 0)
 347                 return -errno;
 348
 349 #ifdef SMACK_RUN_LABEL
 350         r = mac_smack_apply(dest_path, SMACK_ATTR_ACCESS, SMACK_FLOOR_LABEL);
 351         if (r < 0)
 352                 return r;
 353 #endif
 354         return r;
 355 }
 356
 357 static const char* default_shell(uid_t uid) {
 358         return uid == 0 ? "/bin/sh" : "/sbin/nologin";
 359 }
 360
 361 static int write_temporary_passwd(const char *passwd_path, FILE **tmpfile, char **tmpfile_path) {
 362         _cleanup_fclose_ FILE *original = NULL, *passwd = NULL;
 363         _cleanup_(unlink_and_freep) char *passwd_tmp = NULL;
 364         struct passwd *pw = NULL;
 365         Iterator iterator;
 366         Item *i;
 367         int r;
 368
 369         if (ordered_hashmap_size(todo_uids) == 0)
 370                 return 0;
 371
 372         r = fopen_temporary_label("/etc/passwd", passwd_path, &passwd, &passwd_tmp);
 373         if (r < 0)
 374                 return r;
 375
 376         original = fopen(passwd_path, "re");
 377         if (original) {
 378
 379                 r = sync_rights(original, passwd);
 380                 if (r < 0)
 381                         return r;
 382
 383                 while ((r = fgetpwent_sane(original, &pw)) > 0) {
 384
 385                         i = ordered_hashmap_get(users, pw->pw_name);
 386                         if (i && i->todo_user) {
 387                                 log_error("%s: User \"%s\" already exists.", passwd_path, pw->pw_name);
 388                                 return -EEXIST;
 389                         }
 390
 391                         if (ordered_hashmap_contains(todo_uids, UID_TO_PTR(pw->pw_uid))) {
 392                                 log_error("%s: Detected collision for UID " UID_FMT ".", passwd_path, pw->pw_uid);
 393                                 return -EEXIST;
 394                         }
 395
 396                         /* Make sure we keep the NIS entries (if any) at the end. */
 397                         if (IN_SET(pw->pw_name[0], '+', '-'))
 398                                 break;
 399
 400                         r = putpwent_sane(pw, passwd);
 401                         if (r < 0)
 402                                 return r;
 403                 }
 404                 if (r < 0)
 405                         return r;
 406
 407         } else {
 408                 if (errno != ENOENT)
 409                         return -errno;
 410                 if (fchmod(fileno(passwd), 0644) < 0)
 411                         return -errno;
 412         }
 413
 414         ORDERED_HASHMAP_FOREACH(i, todo_uids, iterator) {
 415                 struct passwd n = {
 416                         .pw_name = i->name,
 417                         .pw_uid = i->uid,
 418                         .pw_gid = i->gid,
 419                         .pw_gecos = i->description,
 420
 421                         /* "x" means the password is stored in the shadow file */
 422                         .pw_passwd = (char*) "x",
 423
 424                         /* We default to the root directory as home */
 425                         .pw_dir = i->home ? i->home : (char*) "/",
 426
 427                         /* Initialize the shell to nologin, with one exception:
 428                          * for root we patch in something special */
 429                         .pw_shell = i->shell ?: (char*) default_shell(i->uid),
 430                 };
 431
 432                 r = putpwent_sane(&n, passwd);
 433                 if (r < 0)
 434                         return r;
 435         }
 436
 437         /* Append the remaining NIS entries if any */
 438         while (pw) {
 439                 r = putpwent_sane(pw, passwd);
 440                 if (r < 0)
 441                         return r;
 442
 443                 r = fgetpwent_sane(original, &pw);
 444                 if (r < 0)
 445                         return r;
 446                 if (r == 0)
 447                         break;
 448         }
 449
 450         r = fflush_and_check(passwd);
 451         if (r < 0)
 452                 return r;
 453
 454         *tmpfile = TAKE_PTR(passwd);
 455         *tmpfile_path = TAKE_PTR(passwd_tmp);
 456
 457         return 0;
 458 }
 459
 460 static int write_temporary_shadow(const char *shadow_path, FILE **tmpfile, char **tmpfile_path) {
 461         _cleanup_fclose_ FILE *original = NULL, *shadow = NULL;
 462         _cleanup_(unlink_and_freep) char *shadow_tmp = NULL;
 463         struct spwd *sp = NULL;
 464         Iterator iterator;
 465         long lstchg;
 466         Item *i;
 467         int r;
 468
 469         if (ordered_hashmap_size(todo_uids) == 0)
 470                 return 0;
 471
 472         r = fopen_temporary_label("/etc/shadow", shadow_path, &shadow, &shadow_tmp);
 473         if (r < 0)
 474                 return r;
 475
 476         lstchg = (long) (now(CLOCK_REALTIME) / USEC_PER_DAY);
 477
 478         original = fopen(shadow_path, "re");
 479         if (original) {
 480
 481                 r = sync_rights(original, shadow);
 482                 if (r < 0)
 483                         return r;
 484
 485                 while ((r = fgetspent_sane(original, &sp)) > 0) {
 486
 487                         i = ordered_hashmap_get(users, sp->sp_namp);
 488                         if (i && i->todo_user) {
 489                                 /* we will update the existing entry */
 490                                 sp->sp_lstchg = lstchg;
 491
 492                                 /* only the /etc/shadow stage is left, so we can
 493                                  * safely remove the item from the todo set */
 494                                 i->todo_user = false;
 495                                 ordered_hashmap_remove(todo_uids, UID_TO_PTR(i->uid));
 496                         }
 497
 498                         /* Make sure we keep the NIS entries (if any) at the end. */
 499                         if (IN_SET(sp->sp_namp[0], '+', '-'))
 500                                 break;
 501
 502                         r = putspent_sane(sp, shadow);
 503                         if (r < 0)
 504                                 return r;
 505                 }
 506                 if (r < 0)
 507                         return r;
 508
 509         } else {
 510                 if (errno != ENOENT)
 511                         return -errno;
 512                 if (fchmod(fileno(shadow), 0000) < 0)
 513                         return -errno;
 514         }
 515
 516         ORDERED_HASHMAP_FOREACH(i, todo_uids, iterator) {
 517                 struct spwd n = {
 518                         .sp_namp = i->name,
 519                         .sp_pwdp = (char*) "!!",
 520                         .sp_lstchg = lstchg,
 521                         .sp_min = -1,
 522                         .sp_max = -1,
 523                         .sp_warn = -1,
 524                         .sp_inact = -1,
 525                         .sp_expire = -1,
 526                         .sp_flag = (unsigned long) -1, /* this appears to be what everybody does ... */
 527                 };
 528
 529                 r = putspent_sane(&n, shadow);
 530                 if (r < 0)
 531                         return r;
 532         }
 533
 534         /* Append the remaining NIS entries if any */
 535         while (sp) {
 536                 r = putspent_sane(sp, shadow);
 537                 if (r < 0)
 538                         return r;
 539
 540                 r = fgetspent_sane(original, &sp);
 541                 if (r < 0)
 542                         return r;
 543                 if (r == 0)
 544                         break;
 545         }
 546         if (!IN_SET(errno, 0, ENOENT))
 547                 return -errno;
 548
 549         r = fflush_sync_and_check(shadow);
 550         if (r < 0)
 551                 return r;
 552
 553         *tmpfile = TAKE_PTR(shadow);
 554         *tmpfile_path = TAKE_PTR(shadow_tmp);
 555
 556         return 0;
 557 }
 558
 559 static int write_temporary_group(const char *group_path, FILE **tmpfile, char **tmpfile_path) {
 560         _cleanup_fclose_ FILE *original = NULL, *group = NULL;
 561         _cleanup_(unlink_and_freep) char *group_tmp = NULL;
 562         bool group_changed = false;
 563         struct group *gr = NULL;
 564         Iterator iterator;
 565         Item *i;
 566         int r;
 567
 568         if (ordered_hashmap_size(todo_gids) == 0 && ordered_hashmap_size(members) == 0)
 569                 return 0;
 570
 571         r = fopen_temporary_label("/etc/group", group_path, &group, &group_tmp);
 572         if (r < 0)
 573                 return r;
 574
 575         original = fopen(group_path, "re");
 576         if (original) {
 577
 578                 r = sync_rights(original, group);
 579                 if (r < 0)
 580                         return r;
 581
 582                 while ((r = fgetgrent_sane(original, &gr)) > 0) {
 583                         /* Safety checks against name and GID collisions. Normally,
 584                          * this should be unnecessary, but given that we look at the
 585                          * entries anyway here, let's make an extra verification
 586                          * step that we don't generate duplicate entries. */
 587
 588                         i = ordered_hashmap_get(groups, gr->gr_name);
 589                         if (i && i->todo_group) {
 590                                 log_error("%s: Group \"%s\" already exists.", group_path, gr->gr_name);
 591                                 return -EEXIST;
 592                         }
 593
 594                         if (ordered_hashmap_contains(todo_gids, GID_TO_PTR(gr->gr_gid))) {
 595                                 log_error("%s: Detected collision for GID " GID_FMT ".", group_path, gr->gr_gid);
 596                                 return  -EEXIST;
 597                         }
 598
 599                         /* Make sure we keep the NIS entries (if any) at the end. */
 600                         if (IN_SET(gr->gr_name[0], '+', '-'))
 601                                 break;
 602
 603                         r = putgrent_with_members(gr, group);
 604                         if (r < 0)
 605                                 return r;
 606                         if (r > 0)
 607                                 group_changed = true;
 608                 }
 609                 if (r < 0)
 610                         return r;
 611
 612         } else {
 613                 if (errno != ENOENT)
 614                         return -errno;
 615                 if (fchmod(fileno(group), 0644) < 0)
 616                         return -errno;
 617         }
 618
 619         ORDERED_HASHMAP_FOREACH(i, todo_gids, iterator) {
 620                 struct group n = {
 621                         .gr_name = i->name,
 622                         .gr_gid = i->gid,
 623                         .gr_passwd = (char*) "x",
 624                 };
 625
 626                 r = putgrent_with_members(&n, group);
 627                 if (r < 0)
 628                         return r;
 629
 630                 group_changed = true;
 631         }
 632
 633         /* Append the remaining NIS entries if any */
 634         while (gr) {
 635                 r = putgrent_sane(gr, group);
 636                 if (r < 0)
 637                         return r;
 638
 639                 r = fgetgrent_sane(original, &gr);
 640                 if (r < 0)
 641                         return r;
 642                 if (r == 0)
 643                         break;
 644         }
 645
 646         r = fflush_sync_and_check(group);
 647         if (r < 0)
 648                 return r;
 649
 650         if (group_changed) {
 651                 *tmpfile = TAKE_PTR(group);
 652                 *tmpfile_path = TAKE_PTR(group_tmp);
 653         }
 654         return 0;
 655 }
 656
 657 static int write_temporary_gshadow(const char * gshadow_path, FILE **tmpfile, char **tmpfile_path) {
 658 #if ENABLE_GSHADOW
 659         _cleanup_fclose_ FILE *original = NULL, *gshadow = NULL;
 660         _cleanup_(unlink_and_freep) char *gshadow_tmp = NULL;
 661         bool group_changed = false;
 662         Iterator iterator;
 663         Item *i;
 664         int r;
 665
 666         if (ordered_hashmap_size(todo_gids) == 0 && ordered_hashmap_size(members) == 0)
 667                 return 0;
 668
 669         r = fopen_temporary_label("/etc/gshadow", gshadow_path, &gshadow, &gshadow_tmp);
 670         if (r < 0)
 671                 return r;
 672
 673         original = fopen(gshadow_path, "re");
 674         if (original) {
 675                 struct sgrp *sg;
 676
 677                 r = sync_rights(original, gshadow);
 678                 if (r < 0)
 679                         return r;
 680
 681                 while ((r = fgetsgent_sane(original, &sg)) > 0) {
 682
 683                         i = ordered_hashmap_get(groups, sg->sg_namp);
 684                         if (i && i->todo_group) {
 685                                 log_error("%s: Group \"%s\" already exists.", gshadow_path, sg->sg_namp);
 686                                 return -EEXIST;
 687                         }
 688
 689                         r = putsgent_with_members(sg, gshadow);
 690                         if (r < 0)
 691                                 return r;
 692                         if (r > 0)
 693                                 group_changed = true;
 694                 }
 695                 if (r < 0)
 696                         return r;
 697
 698         } else {
 699                 if (errno != ENOENT)
 700                         return -errno;
 701                 if (fchmod(fileno(gshadow), 0000) < 0)
 702                         return -errno;
 703         }
 704
 705         ORDERED_HASHMAP_FOREACH(i, todo_gids, iterator) {
 706                 struct sgrp n = {
 707                         .sg_namp = i->name,
 708                         .sg_passwd = (char*) "!!",
 709                 };
 710
 711                 r = putsgent_with_members(&n, gshadow);
 712                 if (r < 0)
 713                         return r;
 714
 715                 group_changed = true;
 716         }
 717
 718         r = fflush_sync_and_check(gshadow);
 719         if (r < 0)
 720                 return r;
 721
 722         if (group_changed) {
 723                 *tmpfile = TAKE_PTR(gshadow);
 724                 *tmpfile_path = TAKE_PTR(gshadow_tmp);
 725         }
 726         return 0;
 727 #else
 728         return 0;
 729 #endif
 730 }
 731
 732 static int write_files(void) {
 733         _cleanup_fclose_ FILE *passwd = NULL, *group = NULL, *shadow = NULL, *gshadow = NULL;
 734         _cleanup_(unlink_and_freep) char *passwd_tmp = NULL, *group_tmp = NULL, *shadow_tmp = NULL, *gshadow_tmp = NULL;
 735         const char *passwd_path = NULL, *group_path = NULL, *shadow_path = NULL, *gshadow_path = NULL;
 736         int r;
 737
 738         passwd_path = prefix_roota(arg_root, "/etc/passwd");
 739         shadow_path = prefix_roota(arg_root, "/etc/shadow");
 740         group_path = prefix_roota(arg_root, "/etc/group");
 741         gshadow_path = prefix_roota(arg_root, "/etc/gshadow");
 742
 743         r = write_temporary_group(group_path, &group, &group_tmp);
 744         if (r < 0)
 745                 return r;
 746
 747         r = write_temporary_gshadow(gshadow_path, &gshadow, &gshadow_tmp);
 748         if (r < 0)
 749                 return r;
 750
 751         r = write_temporary_passwd(passwd_path, &passwd, &passwd_tmp);
 752         if (r < 0)
 753                 return r;
 754
 755         r = write_temporary_shadow(shadow_path, &shadow, &shadow_tmp);
 756         if (r < 0)
 757                 return r;
 758
 759         /* Make a backup of the old files */
 760         if (group) {
 761                 r = make_backup("/etc/group", group_path);
 762                 if (r < 0)
 763                         return r;
 764         }
 765         if (gshadow) {
 766                 r = make_backup("/etc/gshadow", gshadow_path);
 767                 if (r < 0)
 768                         return r;
 769         }
 770
 771         if (passwd) {
 772                 r = make_backup("/etc/passwd", passwd_path);
 773                 if (r < 0)
 774                         return r;
 775         }
 776         if (shadow) {
 777                 r = make_backup("/etc/shadow", shadow_path);
 778                 if (r < 0)
 779                         return r;
 780         }
 781
 782         /* And make the new files count */
 783         if (group) {
 784                 r = rename_and_apply_smack(group_tmp, group_path);
 785                 if (r < 0)
 786                         return r;
 787
 788                 group_tmp = mfree(group_tmp);
 789         }
 790         if (gshadow) {
 791                 r = rename_and_apply_smack(gshadow_tmp, gshadow_path);
 792                 if (r < 0)
 793                         return r;
 794
 795                 gshadow_tmp = mfree(gshadow_tmp);
 796         }
 797
 798         if (passwd) {
 799                 r = rename_and_apply_smack(passwd_tmp, passwd_path);
 800                 if (r < 0)
 801                         return r;
 802
 803                 passwd_tmp = mfree(passwd_tmp);
 804         }
 805         if (shadow) {
 806                 r = rename_and_apply_smack(shadow_tmp, shadow_path);
 807                 if (r < 0)
 808                         return r;
 809
 810                 shadow_tmp = mfree(shadow_tmp);
 811         }
 812
 813         return 0;
 814 }
 815
 816 static int uid_is_ok(uid_t uid, const char *name, bool check_with_gid) {
 817         struct passwd *p;
 818         struct group *g;
 819         const char *n;
 820         Item *i;
 821
 822         /* Let's see if we already have assigned the UID a second time */
 823         if (ordered_hashmap_get(todo_uids, UID_TO_PTR(uid)))
 824                 return 0;
 825
 826         /* Try to avoid using uids that are already used by a group
 827          * that doesn't have the same name as our new user. */
 828         if (check_with_gid) {
 829                 i = ordered_hashmap_get(todo_gids, GID_TO_PTR(uid));
 830                 if (i && !streq(i->name, name))
 831                         return 0;
 832         }
 833
 834         /* Let's check the files directly */
 835         if (hashmap_contains(database_uid, UID_TO_PTR(uid)))
 836                 return 0;
 837
 838         if (check_with_gid) {
 839                 n = hashmap_get(database_gid, GID_TO_PTR(uid));
 840                 if (n && !streq(n, name))
 841                         return 0;
 842         }
 843
 844         /* Let's also check via NSS, to avoid UID clashes over LDAP and such, just in case */
 845         if (!arg_root) {
 846                 errno = 0;
 847                 p = getpwuid(uid);
 848                 if (p)
 849                         return 0;
 850                 if (!IN_SET(errno, 0, ENOENT))
 851                         return -errno;
 852
 853                 if (check_with_gid) {
 854                         errno = 0;
 855                         g = getgrgid((gid_t) uid);
 856                         if (g) {
 857                                 if (!streq(g->gr_name, name))
 858                                         return 0;
 859                         } else if (!IN_SET(errno, 0, ENOENT))
 860                                 return -errno;
 861                 }
 862         }
 863
 864         return 1;
 865 }
 866
 867 static int root_stat(const char *p, struct stat *st) {
 868         const char *fix;
 869
 870         fix = prefix_roota(arg_root, p);
 871         if (stat(fix, st) < 0)
 872                 return -errno;
 873
 874         return 0;
 875 }
 876
 877 static int read_id_from_file(Item *i, uid_t *_uid, gid_t *_gid) {
 878         struct stat st;
 879         bool found_uid = false, found_gid = false;
 880         uid_t uid = 0;
 881         gid_t gid = 0;
 882
 883         assert(i);
 884
 885         /* First, try to get the gid directly */
 886         if (_gid && i->gid_path && root_stat(i->gid_path, &st) >= 0) {
 887                 gid = st.st_gid;
 888                 found_gid = true;
 889         }
 890
 891         /* Then, try to get the uid directly */
 892         if ((_uid || (_gid && !found_gid))
 893             && i->uid_path
 894             && root_stat(i->uid_path, &st) >= 0) {
 895
 896                 uid = st.st_uid;
 897                 found_uid = true;
 898
 899                 /* If we need the gid, but had no success yet, also derive it from the uid path */
 900                 if (_gid && !found_gid) {
 901                         gid = st.st_gid;
 902                         found_gid = true;
 903                 }
 904         }
 905
 906         /* If that didn't work yet, then let's reuse the gid as uid */
 907         if (_uid && !found_uid && i->gid_path) {
 908
 909                 if (found_gid) {
 910                         uid = (uid_t) gid;
 911                         found_uid = true;
 912                 } else if (root_stat(i->gid_path, &st) >= 0) {
 913                         uid = (uid_t) st.st_gid;
 914                         found_uid = true;
 915                 }
 916         }
 917
 918         if (_uid) {
 919                 if (!found_uid)
 920                         return 0;
 921
 922                 *_uid = uid;
 923         }
 924
 925         if (_gid) {
 926                 if (!found_gid)
 927                         return 0;
 928
 929                 *_gid = gid;
 930         }
 931
 932         return 1;
 933 }
 934
 935 static int add_user(Item *i) {
 936         void *z;
 937         int r;
 938
 939         assert(i);
 940
 941         /* Check the database directly */
 942         z = hashmap_get(database_user, i->name);
 943         if (z) {
 944                 log_debug("User %s already exists.", i->name);
 945                 i->uid = PTR_TO_UID(z);
 946                 i->uid_set = true;
 947                 return 0;
 948         }
 949
 950         if (!arg_root) {
 951                 struct passwd *p;
 952
 953                 /* Also check NSS */
 954                 errno = 0;
 955                 p = getpwnam(i->name);
 956                 if (p) {
 957                         log_debug("User %s already exists.", i->name);
 958                         i->uid = p->pw_uid;
 959                         i->uid_set = true;
 960
 961                         r = free_and_strdup(&i->description, p->pw_gecos);
 962                         if (r < 0)
 963                                 return log_oom();
 964
 965                         return 0;
 966                 }
 967                 if (!IN_SET(errno, 0, ENOENT))
 968                         return log_error_errno(errno, "Failed to check if user %s already exists: %m", i->name);
 969         }
 970
 971         /* Try to use the suggested numeric uid */
 972         if (i->uid_set) {
 973                 r = uid_is_ok(i->uid, i->name, !i->id_set_strict);
 974                 if (r < 0)
 975                         return log_error_errno(r, "Failed to verify uid " UID_FMT ": %m", i->uid);
 976                 if (r == 0) {
 977                         log_debug("Suggested user ID " UID_FMT " for %s already used.", i->uid, i->name);
 978                         i->uid_set = false;
 979                 }
 980         }
 981
 982         /* If that didn't work, try to read it from the specified path */
 983         if (!i->uid_set) {
 984                 uid_t c;
 985
 986                 if (read_id_from_file(i, &c, NULL) > 0) {
 987
 988                         if (c <= 0 || !uid_range_contains(uid_range, n_uid_range, c))
 989                                 log_debug("User ID " UID_FMT " of file not suitable for %s.", c, i->name);
 990                         else {
 991                                 r = uid_is_ok(c, i->name, true);
 992                                 if (r < 0)
 993                                         return log_error_errno(r, "Failed to verify uid " UID_FMT ": %m", i->uid);
 994                                 else if (r > 0) {
 995                                         i->uid = c;
 996                                         i->uid_set = true;
 997                                 } else
 998                                         log_debug("User ID " UID_FMT " of file for %s is already used.", c, i->name);
 999                         }
1000                 }
1001         }
1002
1003         /* Otherwise, try to reuse the group ID */
1004         if (!i->uid_set && i->gid_set) {
1005                 r = uid_is_ok((uid_t) i->gid, i->name, true);
1006                 if (r < 0)
1007                         return log_error_errno(r, "Failed to verify uid " UID_FMT ": %m", i->uid);
1008                 if (r > 0) {
1009                         i->uid = (uid_t) i->gid;
1010                         i->uid_set = true;
1011                 }
1012         }
1013
1014         /* And if that didn't work either, let's try to find a free one */
1015         if (!i->uid_set) {
1016                 for (;;) {
1017                         r = uid_range_next_lower(uid_range, n_uid_range, &search_uid);
1018                         if (r < 0) {
1019                                 log_error("No free user ID available for %s.", i->name);
1020                                 return r;
1021                         }
1022
1023                         r = uid_is_ok(search_uid, i->name, true);
1024                         if (r < 0)
1025                                 return log_error_errno(r, "Failed to verify uid " UID_FMT ": %m", i->uid);
1026                         else if (r > 0)
1027                                 break;
1028                 }
1029
1030                 i->uid_set = true;
1031                 i->uid = search_uid;
1032         }
1033
1034         r = ordered_hashmap_ensure_allocated(&todo_uids, NULL);
1035         if (r < 0)
1036                 return log_oom();
1037
1038         r = ordered_hashmap_put(todo_uids, UID_TO_PTR(i->uid), i);
1039         if (r < 0)
1040                 return log_oom();
1041
1042         i->todo_user = true;
1043         log_info("Creating user %s (%s) with uid " UID_FMT " and gid " GID_FMT ".", i->name, strna(i->description), i->uid, i->gid);
1044
1045         return 0;
1046 }
1047
1048 static int gid_is_ok(gid_t gid) {
1049         struct group *g;
1050         struct passwd *p;
1051
1052         if (ordered_hashmap_get(todo_gids, GID_TO_PTR(gid)))
1053                 return 0;
1054
1055         /* Avoid reusing gids that are already used by a different user */
1056         if (ordered_hashmap_get(todo_uids, UID_TO_PTR(gid)))
1057                 return 0;
1058
1059         if (hashmap_contains(database_gid, GID_TO_PTR(gid)))
1060                 return 0;
1061
1062         if (hashmap_contains(database_uid, UID_TO_PTR(gid)))
1063                 return 0;
1064
1065         if (!arg_root) {
1066                 errno = 0;
1067                 g = getgrgid(gid);
1068                 if (g)
1069                         return 0;
1070                 if (!IN_SET(errno, 0, ENOENT))
1071                         return -errno;
1072
1073                 errno = 0;
1074                 p = getpwuid((uid_t) gid);
1075                 if (p)
1076                         return 0;
1077                 if (!IN_SET(errno, 0, ENOENT))
1078                         return -errno;
1079         }
1080
1081         return 1;
1082 }
1083
1084 static int add_group(Item *i) {
1085         void *z;
1086         int r;
1087
1088         assert(i);
1089
1090         /* Check the database directly */
1091         z = hashmap_get(database_group, i->name);
1092         if (z) {
1093                 log_debug("Group %s already exists.", i->name);
1094                 i->gid = PTR_TO_GID(z);
1095                 i->gid_set = true;
1096                 return 0;
1097         }
1098
1099         /* Also check NSS */
1100         if (!arg_root) {
1101                 struct group *g;
1102
1103                 errno = 0;
1104                 g = getgrnam(i->name);
1105                 if (g) {
1106                         log_debug("Group %s already exists.", i->name);
1107                         i->gid = g->gr_gid;
1108                         i->gid_set = true;
1109                         return 0;
1110                 }
1111                 if (!IN_SET(errno, 0, ENOENT))
1112                         return log_error_errno(errno, "Failed to check if group %s already exists: %m", i->name);
1113         }
1114
1115         /* Try to use the suggested numeric gid */
1116         if (i->gid_set) {
1117                 r = gid_is_ok(i->gid);
1118                 if (r < 0)
1119                         return log_error_errno(r, "Failed to verify gid " GID_FMT ": %m", i->gid);
1120                 if (i->id_set_strict) {
1121                         /* If we require the gid to already exist we can return here:
1122                          * r > 0: means the gid does not exist -> fail
1123                          * r == 0: means the gid exists -> nothing more to do.
1124                          */
1125                         if (r > 0) {
1126                                 log_error("Failed to create %s: please create GID %d", i->name, i->gid);
1127                                 return -EINVAL;
1128                         }
1129                         if (r == 0)
1130                                 return 0;
1131                 }
1132                 if (r == 0) {
1133                         log_debug("Suggested group ID " GID_FMT " for %s already used.", i->gid, i->name);
1134                         i->gid_set = false;
1135                 }
1136         }
1137
1138         /* Try to reuse the numeric uid, if there's one */
1139         if (!i->gid_set && i->uid_set) {
1140                 r = gid_is_ok((gid_t) i->uid);
1141                 if (r < 0)
1142                         return log_error_errno(r, "Failed to verify gid " GID_FMT ": %m", i->gid);
1143                 if (r > 0) {
1144                         i->gid = (gid_t) i->uid;
1145                         i->gid_set = true;
1146                 }
1147         }
1148
1149         /* If that didn't work, try to read it from the specified path */
1150         if (!i->gid_set) {
1151                 gid_t c;
1152
1153                 if (read_id_from_file(i, NULL, &c) > 0) {
1154
1155                         if (c <= 0 || !uid_range_contains(uid_range, n_uid_range, c))
1156                                 log_debug("Group ID " GID_FMT " of file not suitable for %s.", c, i->name);
1157                         else {
1158                                 r = gid_is_ok(c);
1159                                 if (r < 0)
1160                                         return log_error_errno(r, "Failed to verify gid " GID_FMT ": %m", i->gid);
1161                                 else if (r > 0) {
1162                                         i->gid = c;
1163                                         i->gid_set = true;
1164                                 } else
1165                                         log_debug("Group ID " GID_FMT " of file for %s already used.", c, i->name);
1166                         }
1167                 }
1168         }
1169
1170         /* And if that didn't work either, let's try to find a free one */
1171         if (!i->gid_set) {
1172                 for (;;) {
1173                         /* We look for new GIDs in the UID pool! */
1174                         r = uid_range_next_lower(uid_range, n_uid_range, &search_uid);
1175                         if (r < 0) {
1176                                 log_error("No free group ID available for %s.", i->name);
1177                                 return r;
1178                         }
1179
1180                         r = gid_is_ok(search_uid);
1181                         if (r < 0)
1182                                 return log_error_errno(r, "Failed to verify gid " GID_FMT ": %m", i->gid);
1183                         else if (r > 0)
1184                                 break;
1185                 }
1186
1187                 i->gid_set = true;
1188                 i->gid = search_uid;
1189         }
1190
1191         r = ordered_hashmap_ensure_allocated(&todo_gids, NULL);
1192         if (r < 0)
1193                 return log_oom();
1194
1195         r = ordered_hashmap_put(todo_gids, GID_TO_PTR(i->gid), i);
1196         if (r < 0)
1197                 return log_oom();
1198
1199         i->todo_group = true;
1200         log_info("Creating group %s with gid " GID_FMT ".", i->name, i->gid);
1201
1202         return 0;
1203 }
1204
1205 static int process_item(Item *i) {
1206         int r;
1207
1208         assert(i);
1209
1210         switch (i->type) {
1211
1212         case ADD_USER: {
1213                 Item *j;
1214
1215                 j = ordered_hashmap_get(groups, i->name);
1216                 if (j && j->todo_group) {
1217                         /* When the group with the same name is already in queue,
1218                          * use the information about the group and do not create
1219                          * duplicated group entry. */
1220                         i->gid_set = j->gid_set;
1221                         i->gid = j->gid;
1222                         i->id_set_strict = true;
1223                 } else {
1224                         r = add_group(i);
1225                         if (r < 0)
1226                                 return r;
1227                 }
1228
1229                 return add_user(i);
1230         }
1231
1232         case ADD_GROUP:
1233                 return add_group(i);
1234
1235         default:
1236                 assert_not_reached("Unknown item type");
1237         }
1238 }
1239
1240 static void item_free(Item *i) {
1241
1242         if (!i)
1243                 return;
1244
1245         free(i->name);
1246         free(i->uid_path);
1247         free(i->gid_path);
1248         free(i->description);
1249         free(i->home);
1250         free(i->shell);
1251         free(i);
1252 }
1253
1254 DEFINE_TRIVIAL_CLEANUP_FUNC(Item*, item_free);
1255
1256 static int add_implicit(void) {
1257         char *g, **l;
1258         Iterator iterator;
1259         int r;
1260
1261         /* Implicitly create additional users and groups, if they were listed in "m" lines */
1262         ORDERED_HASHMAP_FOREACH_KEY(l, g, members, iterator) {
1263                 char **m;
1264
1265                 STRV_FOREACH(m, l)
1266                         if (!ordered_hashmap_get(users, *m)) {
1267                                 _cleanup_(item_freep) Item *j = NULL;
1268
1269                                 r = ordered_hashmap_ensure_allocated(&users, &string_hash_ops);
1270                                 if (r < 0)
1271                                         return log_oom();
1272
1273                                 j = new0(Item, 1);
1274                                 if (!j)
1275                                         return log_oom();
1276
1277                                 j->type = ADD_USER;
1278                                 j->name = strdup(*m);
1279                                 if (!j->name)
1280                                         return log_oom();
1281
1282                                 r = ordered_hashmap_put(users, j->name, j);
1283                                 if (r < 0)
1284                                         return log_oom();
1285
1286                                 log_debug("Adding implicit user '%s' due to m line", j->name);
1287                                 j = NULL;
1288                         }
1289
1290                 if (!(ordered_hashmap_get(users, g) ||
1291                       ordered_hashmap_get(groups, g))) {
1292                         _cleanup_(item_freep) Item *j = NULL;
1293
1294                         r = ordered_hashmap_ensure_allocated(&groups, &string_hash_ops);
1295                         if (r < 0)
1296                                 return log_oom();
1297
1298                         j = new0(Item, 1);
1299                         if (!j)
1300                                 return log_oom();
1301
1302                         j->type = ADD_GROUP;
1303                         j->name = strdup(g);
1304                         if (!j->name)
1305                                 return log_oom();
1306
1307                         r = ordered_hashmap_put(groups, j->name, j);
1308                         if (r < 0)
1309                                 return log_oom();
1310
1311                         log_debug("Adding implicit group '%s' due to m line", j->name);
1312                         j = NULL;
1313                 }
1314         }
1315
1316         return 0;
1317 }
1318
1319 static bool item_equal(Item *a, Item *b) {
1320         assert(a);
1321         assert(b);
1322
1323         if (a->type != b->type)
1324                 return false;
1325
1326         if (!streq_ptr(a->name, b->name))
1327                 return false;
1328
1329         if (!streq_ptr(a->uid_path, b->uid_path))
1330                 return false;
1331
1332         if (!streq_ptr(a->gid_path, b->gid_path))
1333                 return false;
1334
1335         if (!streq_ptr(a->description, b->description))
1336                 return false;
1337
1338         if (a->uid_set != b->uid_set)
1339                 return false;
1340
1341         if (a->uid_set && a->uid != b->uid)
1342                 return false;
1343
1344         if (a->gid_set != b->gid_set)
1345                 return false;
1346
1347         if (a->gid_set && a->gid != b->gid)
1348                 return false;
1349
1350         if (!streq_ptr(a->home, b->home))
1351                 return false;
1352
1353         if (!streq_ptr(a->shell, b->shell))
1354                 return false;
1355
1356         return true;
1357 }
1358
1359 static int parse_line(const char *fname, unsigned line, const char *buffer) {
1360
1361         static const Specifier specifier_table[] = {
1362                 { 'm', specifier_machine_id,     NULL },
1363                 { 'b', specifier_boot_id,        NULL },
1364                 { 'H', specifier_host_name,      NULL },
1365                 { 'v', specifier_kernel_release, NULL },
1366                 { 'T', specifier_tmp_dir,        NULL },
1367                 { 'V', specifier_var_tmp_dir,    NULL },
1368                 {}
1369         };
1370
1371         _cleanup_free_ char *action = NULL,
1372                 *name = NULL, *resolved_name = NULL,
1373                 *id = NULL, *resolved_id = NULL,
1374                 *description = NULL, *resolved_description = NULL,
1375                 *home = NULL, *resolved_home = NULL,
1376                 *shell, *resolved_shell = NULL;
1377         _cleanup_(item_freep) Item *i = NULL;
1378         Item *existing;
1379         OrderedHashmap *h;
1380         int r;
1381         const char *p;
1382
1383         assert(fname);
1384         assert(line >= 1);
1385         assert(buffer);
1386
1387         /* Parse columns */
1388         p = buffer;
1389         r = extract_many_words(&p, NULL, EXTRACT_QUOTES,
1390                                &action, &name, &id, &description, &home, &shell, NULL);
1391         if (r < 0) {
1392                 log_error("[%s:%u] Syntax error.", fname, line);
1393                 return r;
1394         }
1395         if (r < 2) {
1396                 log_error("[%s:%u] Missing action and name columns.", fname, line);
1397                 return -EINVAL;
1398         }
1399         if (!isempty(p)) {
1400                 log_error("[%s:%u] Trailing garbage.", fname, line);
1401                 return -EINVAL;
1402         }
1403
1404         /* Verify action */
1405         if (strlen(action) != 1) {
1406                 log_error("[%s:%u] Unknown modifier '%s'", fname, line, action);
1407                 return -EINVAL;
1408         }
1409
1410         if (!IN_SET(action[0], ADD_USER, ADD_GROUP, ADD_MEMBER, ADD_RANGE)) {
1411                 log_error("[%s:%u] Unknown command type '%c'.", fname, line, action[0]);
1412                 return -EBADMSG;
1413         }
1414
1415         /* Verify name */
1416         if (isempty(name) || streq(name, "-"))
1417                 name = mfree(name);
1418
1419         if (name) {
1420                 r = specifier_printf(name, specifier_table, NULL, &resolved_name);
1421                 if (r < 0) {
1422                         log_error("[%s:%u] Failed to replace specifiers: %s", fname, line, name);
1423                         return r;
1424                 }
1425
1426                 if (!valid_user_group_name(resolved_name)) {
1427                         log_error("[%s:%u] '%s' is not a valid user or group name.", fname, line, resolved_name);
1428                         return -EINVAL;
1429                 }
1430         }
1431
1432         /* Verify id */
1433         if (isempty(id) || streq(id, "-"))
1434                 id = mfree(id);
1435
1436         if (id) {
1437                 r = specifier_printf(id, specifier_table, NULL, &resolved_id);
1438                 if (r < 0) {
1439                         log_error("[%s:%u] Failed to replace specifiers: %s", fname, line, name);
1440                         return r;
1441                 }
1442         }
1443
1444         /* Verify description */
1445         if (isempty(description) || streq(description, "-"))
1446                 description = mfree(description);
1447
1448         if (description) {
1449                 r = specifier_printf(description, specifier_table, NULL, &resolved_description);
1450                 if (r < 0) {
1451                         log_error("[%s:%u] Failed to replace specifiers: %s", fname, line, description);
1452                         return r;
1453                 }
1454
1455                 if (!valid_gecos(resolved_description)) {
1456                         log_error("[%s:%u] '%s' is not a valid GECOS field.", fname, line, resolved_description);
1457                         return -EINVAL;
1458                 }
1459         }
1460
1461         /* Verify home */
1462         if (isempty(home) || streq(home, "-"))
1463                 home = mfree(home);
1464
1465         if (home) {
1466                 r = specifier_printf(home, specifier_table, NULL, &resolved_home);
1467                 if (r < 0) {
1468                         log_error("[%s:%u] Failed to replace specifiers: %s", fname, line, home);
1469                         return r;
1470                 }
1471
1472                 if (!valid_home(resolved_home)) {
1473                         log_error("[%s:%u] '%s' is not a valid home directory field.", fname, line, resolved_home);
1474                         return -EINVAL;
1475                 }
1476         }
1477
1478         /* Verify shell */
1479         if (isempty(shell) || streq(shell, "-"))
1480                 shell = mfree(shell);
1481
1482         if (shell) {
1483                 r = specifier_printf(shell, specifier_table, NULL, &resolved_shell);
1484                 if (r < 0) {
1485                         log_error("[%s:%u] Failed to replace specifiers: %s", fname, line, shell);
1486                         return r;
1487                 }
1488
1489                 if (!valid_shell(resolved_shell)) {
1490                         log_error("[%s:%u] '%s' is not a valid login shell field.", fname, line, resolved_shell);
1491                         return -EINVAL;
1492                 }
1493         }
1494
1495         switch (action[0]) {
1496
1497         case ADD_RANGE:
1498                 if (resolved_name) {
1499                         log_error("[%s:%u] Lines of type 'r' don't take a name field.", fname, line);
1500                         return -EINVAL;
1501                 }
1502
1503                 if (!resolved_id) {
1504                         log_error("[%s:%u] Lines of type 'r' require a ID range in the third field.", fname, line);
1505                         return -EINVAL;
1506                 }
1507
1508                 if (description || home || shell) {
1509                         log_error("[%s:%u] Lines of type '%c' don't take a %s field.",
1510                                   fname, line, action[0],
1511                                   description ? "GECOS" : home ? "home directory" : "login shell");
1512                         return -EINVAL;
1513                 }
1514
1515                 r = uid_range_add_str(&uid_range, &n_uid_range, resolved_id);
1516                 if (r < 0) {
1517                         log_error("[%s:%u] Invalid UID range %s.", fname, line, resolved_id);
1518                         return -EINVAL;
1519                 }
1520
1521                 return 0;
1522
1523         case ADD_MEMBER: {
1524                 char **l;
1525
1526                 /* Try to extend an existing member or group item */
1527                 if (!name) {
1528                         log_error("[%s:%u] Lines of type 'm' require a user name in the second field.", fname, line);
1529                         return -EINVAL;
1530                 }
1531
1532                 if (!resolved_id) {
1533                         log_error("[%s:%u] Lines of type 'm' require a group name in the third field.", fname, line);
1534                         return -EINVAL;
1535                 }
1536
1537                 if (!valid_user_group_name(resolved_id)) {
1538                         log_error("[%s:%u] '%s' is not a valid user or group name.", fname, line, resolved_id);
1539                         return -EINVAL;
1540                 }
1541
1542                 if (description || home || shell) {
1543                         log_error("[%s:%u] Lines of type '%c' don't take a %s field.",
1544                                   fname, line, action[0],
1545                                   description ? "GECOS" : home ? "home directory" : "login shell");
1546                         return -EINVAL;
1547                 }
1548
1549                 r = ordered_hashmap_ensure_allocated(&members, &string_hash_ops);
1550                 if (r < 0)
1551                         return log_oom();
1552
1553                 l = ordered_hashmap_get(members, resolved_id);
1554                 if (l) {
1555                         /* A list for this group name already exists, let's append to it */
1556                         r = strv_push(&l, resolved_name);
1557                         if (r < 0)
1558                                 return log_oom();
1559
1560                         resolved_name = NULL;
1561
1562                         assert_se(ordered_hashmap_update(members, resolved_id, l) >= 0);
1563                 } else {
1564                         /* No list for this group name exists yet, create one */
1565
1566                         l = new0(char *, 2);
1567                         if (!l)
1568                                 return -ENOMEM;
1569
1570                         l[0] = resolved_name;
1571                         l[1] = NULL;
1572
1573                         r = ordered_hashmap_put(members, resolved_id, l);
1574                         if (r < 0) {
1575                                 free(l);
1576                                 return log_oom();
1577                         }
1578
1579                         resolved_id = resolved_name = NULL;
1580                 }
1581
1582                 return 0;
1583         }
1584
1585         case ADD_USER:
1586                 if (!name) {
1587                         log_error("[%s:%u] Lines of type 'u' require a user name in the second field.", fname, line);
1588                         return -EINVAL;
1589                 }
1590
1591                 r = ordered_hashmap_ensure_allocated(&users, &string_hash_ops);
1592                 if (r < 0)
1593                         return log_oom();
1594
1595                 i = new0(Item, 1);
1596                 if (!i)
1597                         return log_oom();
1598
1599                 if (resolved_id) {
1600                         if (path_is_absolute(resolved_id)) {
1601                                 i->uid_path = TAKE_PTR(resolved_id);
1602                                 path_simplify(i->uid_path, false);
1603                         } else {
1604                                 _cleanup_free_ char *uid = NULL, *gid = NULL;
1605                                 if (split_pair(resolved_id, ":", &uid, &gid) == 0) {
1606                                         r = parse_gid(gid, &i->gid);
1607                                         if (r < 0)
1608                                                 return log_error_errno(r, "Failed to parse GID: '%s': %m", id);
1609                                         i->gid_set = true;
1610                                         i->id_set_strict = true;
1611                                         free_and_replace(resolved_id, uid);
1612                                 }
1613                                 if (!streq(resolved_id, "-")) {
1614                                         r = parse_uid(resolved_id, &i->uid);
1615                                         if (r < 0)
1616                                                 return log_error_errno(r, "Failed to parse UID: '%s': %m", id);
1617                                         i->uid_set = true;
1618                                 }
1619                         }
1620                 }
1621
1622                 i->description = TAKE_PTR(resolved_description);
1623                 i->home = TAKE_PTR(resolved_home);
1624                 i->shell = TAKE_PTR(resolved_shell);
1625
1626                 h = users;
1627                 break;
1628
1629         case ADD_GROUP:
1630                 if (!name) {
1631                         log_error("[%s:%u] Lines of type 'g' require a user name in the second field.", fname, line);
1632                         return -EINVAL;
1633                 }
1634
1635                 if (description || home || shell) {
1636                         log_error("[%s:%u] Lines of type '%c' don't take a %s field.",
1637                                   fname, line, action[0],
1638                                   description ? "GECOS" : home ? "home directory" : "login shell");
1639                         return -EINVAL;
1640                 }
1641
1642                 r = ordered_hashmap_ensure_allocated(&groups, &string_hash_ops);
1643                 if (r < 0)
1644                         return log_oom();
1645
1646                 i = new0(Item, 1);
1647                 if (!i)
1648                         return log_oom();
1649
1650                 if (resolved_id) {
1651                         if (path_is_absolute(resolved_id)) {
1652                                 i->gid_path = TAKE_PTR(resolved_id);
1653                                 path_simplify(i->gid_path, false);
1654                         } else {
1655                                 r = parse_gid(resolved_id, &i->gid);
1656                                 if (r < 0)
1657                                         return log_error_errno(r, "Failed to parse GID: '%s': %m", id);
1658
1659                                 i->gid_set = true;
1660                         }
1661                 }
1662
1663                 h = groups;
1664                 break;
1665
1666         default:
1667                 return -EBADMSG;
1668         }
1669
1670         i->type = action[0];
1671         i->name = TAKE_PTR(resolved_name);
1672
1673         existing = ordered_hashmap_get(h, i->name);
1674         if (existing) {
1675
1676                 /* Two identical items are fine */
1677                 if (!item_equal(existing, i))
1678                         log_warning("Two or more conflicting lines for %s configured, ignoring.", i->name);
1679
1680                 return 0;
1681         }
1682
1683         r = ordered_hashmap_put(h, i->name, i);
1684         if (r < 0)
1685                 return log_oom();
1686
1687         i = NULL;
1688         return 0;
1689 }
1690
1691 static int read_config_file(const char *fn, bool ignore_enoent) {
1692         _cleanup_fclose_ FILE *rf = NULL;
1693         FILE *f = NULL;
1694         char line[LINE_MAX];
1695         unsigned v = 0;
1696         int r = 0;
1697
1698         assert(fn);
1699
1700         if (streq(fn, "-"))
1701                 f = stdin;
1702         else {
1703                 r = search_and_fopen(fn, "re", arg_root, (const char**) CONF_PATHS_STRV("sysusers.d"), &rf);
1704                 if (r < 0) {
1705                         if (ignore_enoent && r == -ENOENT)
1706                                 return 0;
1707
1708                         return log_error_errno(r, "Failed to open '%s', ignoring: %m", fn);
1709                 }
1710
1711                 f = rf;
1712         }
1713
1714         FOREACH_LINE(line, f, break) {
1715                 char *l;
1716                 int k;
1717
1718                 v++;
1719
1720                 l = strstrip(line);
1721                 if (IN_SET(*l, 0, '#'))
1722                         continue;
1723
1724                 k = parse_line(fn, v, l);
1725                 if (k < 0 && r == 0)
1726                         r = k;
1727         }
1728
1729         if (ferror(f)) {
1730                 log_error_errno(errno, "Failed to read from file %s: %m", fn);
1731                 if (r == 0)
1732                         r = -EIO;
1733         }
1734
1735         return r;
1736 }
1737
1738 static void free_database(Hashmap *by_name, Hashmap *by_id) {
1739         char *name;
1740
1741         for (;;) {
1742                 name = hashmap_first(by_id);
1743                 if (!name)
1744                         break;
1745
1746                 hashmap_remove(by_name, name);
1747
1748                 hashmap_steal_first_key(by_id);
1749                 free(name);
1750         }
1751
1752         while ((name = hashmap_steal_first_key(by_name)))
1753                 free(name);
1754
1755         hashmap_free(by_name);
1756         hashmap_free(by_id);
1757 }
1758
1759 static int cat_config(void) {
1760         _cleanup_strv_free_ char **files = NULL;
1761         int r;
1762
1763         r = conf_files_list_with_replacement(arg_root, CONF_PATHS_STRV("sysusers.d"), arg_replace, &files, NULL);
1764         if (r < 0)
1765                 return r;
1766
1767         return cat_files(NULL, files, 0);
1768 }
1769
1770 static void help(void) {
1771         printf("%s [OPTIONS...] [CONFIGURATION FILE...]\n\n"
1772                "Creates system user accounts.\n\n"
1773                "  -h --help                 Show this help\n"
1774                "     --version              Show package version\n"
1775                "     --cat-config           Show configuration files\n"
1776                "     --root=PATH            Operate on an alternate filesystem root\n"
1777                "     --replace=PATH         Treat arguments as replacement for PATH\n"
1778                "     --inline               Treat arguments as configuration lines\n"
1779                , program_invocation_short_name);
1780 }
1781
1782 static int parse_argv(int argc, char *argv[]) {
1783
1784         enum {
1785                 ARG_VERSION = 0x100,
1786                 ARG_CAT_CONFIG,
1787                 ARG_ROOT,
1788                 ARG_REPLACE,
1789                 ARG_INLINE,
1790         };
1791
1792         static const struct option options[] = {
1793                 { "help",       no_argument,       NULL, 'h'            },
1794                 { "version",    no_argument,       NULL, ARG_VERSION    },
1795                 { "cat-config", no_argument,       NULL, ARG_CAT_CONFIG },
1796                 { "root",       required_argument, NULL, ARG_ROOT       },
1797                 { "replace",    required_argument, NULL, ARG_REPLACE    },
1798                 { "inline",     no_argument,       NULL, ARG_INLINE     },
1799                 {}
1800         };
1801
1802         int c, r;
1803
1804         assert(argc >= 0);
1805         assert(argv);
1806
1807         while ((c = getopt_long(argc, argv, "h", options, NULL)) >= 0)
1808
1809                 switch (c) {
1810
1811                 case 'h':
1812                         help();
1813                         return 0;
1814
1815                 case ARG_VERSION:
1816                         return version();
1817
1818                 case ARG_CAT_CONFIG:
1819                         arg_cat_config = true;
1820                         break;
1821
1822                 case ARG_ROOT:
1823                         r = parse_path_argument_and_warn(optarg, true, &arg_root);
1824                         if (r < 0)
1825                                 return r;
1826                         break;
1827
1828                 case ARG_REPLACE:
1829                         if (!path_is_absolute(optarg) ||
1830                             !endswith(optarg, ".conf")) {
1831                                 log_error("The argument to --replace= must an absolute path to a config file");
1832                                 return -EINVAL;
1833                         }
1834
1835                         arg_replace = optarg;
1836                         break;
1837
1838                 case ARG_INLINE:
1839                         arg_inline = true;
1840                         break;
1841
1842                 case '?':
1843                         return -EINVAL;
1844
1845                 default:
1846                         assert_not_reached("Unhandled option");
1847                 }
1848
1849         if (arg_replace && arg_cat_config) {
1850                 log_error("Option --replace= is not supported with --cat-config");
1851                 return -EINVAL;
1852         }
1853
1854         if (arg_replace && optind >= argc) {
1855                 log_error("When --replace= is given, some configuration items must be specified");
1856                 return -EINVAL;
1857         }
1858
1859         return 1;
1860 }
1861
1862 static int parse_arguments(char **args) {
1863         char **arg;
1864         unsigned pos = 1;
1865         int r;
1866
1867         STRV_FOREACH(arg, args) {
1868                 if (arg_inline)
1869                         /* Use (argument):n, where n==1 for the first positional arg */
1870                         r = parse_line("(argument)", pos, *arg);
1871                 else
1872                         r = read_config_file(*arg, false);
1873                 if (r < 0)
1874                         return r;
1875
1876                 pos++;
1877         }
1878
1879         return 0;
1880 }
1881
1882 static int read_config_files(char **args) {
1883         _cleanup_strv_free_ char **files = NULL;
1884         _cleanup_free_ char *p = NULL;
1885         char **f;
1886         int r;
1887
1888         r = conf_files_list_with_replacement(arg_root, CONF_PATHS_STRV("sysusers.d"), arg_replace, &files, &p);
1889         if (r < 0)
1890                 return r;
1891
1892         STRV_FOREACH(f, files)
1893                 if (p && path_equal(*f, p)) {
1894                         log_debug("Parsing arguments at position \"%s\"…", *f);
1895
1896                         r = parse_arguments(args);
1897                         if (r < 0)
1898                                 return r;
1899                 } else {
1900                         log_debug("Reading config file \"%s\"…", *f);
1901
1902                         /* Just warn, ignore result otherwise */
1903                         (void) read_config_file(*f, true);
1904                 }
1905
1906         return 0;
1907 }
1908
1909 int main(int argc, char *argv[]) {
1910         _cleanup_close_ int lock = -1;
1911         Iterator iterator;
1912         int r;
1913         Item *i;
1914         char *n;
1915
1916         r = parse_argv(argc, argv);
1917         if (r <= 0)
1918                 goto finish;
1919
1920         log_set_target(LOG_TARGET_AUTO);
1921         log_parse_environment();
1922         log_open();
1923
1924         if (arg_cat_config) {
1925                 r = cat_config();
1926                 goto finish;
1927         }
1928
1929         umask(0022);
1930
1931         r = mac_selinux_init();
1932         if (r < 0) {
1933                 log_error_errno(r, "SELinux setup failed: %m");
1934                 goto finish;
1935         }
1936
1937         /* If command line arguments are specified along with --replace, read all
1938          * configuration files and insert the positional arguments at the specified
1939          * place. Otherwise, if command line arguments are specified, execute just
1940          * them, and finally, without --replace= or any positional arguments, just
1941          * read configuration and execute it.
1942          */
1943         if (arg_replace || optind >= argc)
1944                 r = read_config_files(argv + optind);
1945         else
1946                 r = parse_arguments(argv + optind);
1947         if (r < 0)
1948                 goto finish;
1949
1950         /* Let's tell nss-systemd not to synthesize the "root" and "nobody" entries for it, so that our detection
1951          * whether the names or UID/GID area already used otherwise doesn't get confused. After all, even though
1952          * nss-systemd synthesizes these users/groups, they should still appear in /etc/passwd and /etc/group, as the
1953          * synthesizing logic is merely supposed to be fallback for cases where we run with a completely unpopulated
1954          * /etc. */
1955         if (setenv("SYSTEMD_NSS_BYPASS_SYNTHETIC", "1", 1) < 0) {
1956                 r = log_error_errno(errno, "Failed to set SYSTEMD_NSS_BYPASS_SYNTHETIC environment variable: %m");
1957                 goto finish;
1958         }
1959
1960         if (!uid_range) {
1961                 /* Default to default range of 1..SYSTEM_UID_MAX */
1962                 r = uid_range_add(&uid_range, &n_uid_range, 1, SYSTEM_UID_MAX);
1963                 if (r < 0) {
1964                         log_oom();
1965                         goto finish;
1966                 }
1967         }
1968
1969         r = add_implicit();
1970         if (r < 0)
1971                 goto finish;
1972
1973         lock = take_etc_passwd_lock(arg_root);
1974         if (lock < 0) {
1975                 log_error_errno(lock, "Failed to take /etc/passwd lock: %m");
1976                 goto finish;
1977         }
1978
1979         r = load_user_database();
1980         if (r < 0) {
1981                 log_error_errno(r, "Failed to load user database: %m");
1982                 goto finish;
1983         }
1984
1985         r = load_group_database();
1986         if (r < 0) {
1987                 log_error_errno(r, "Failed to read group database: %m");
1988                 goto finish;
1989         }
1990
1991         ORDERED_HASHMAP_FOREACH(i, groups, iterator)
1992                 (void) process_item(i);
1993
1994         ORDERED_HASHMAP_FOREACH(i, users, iterator)
1995                 (void) process_item(i);
1996
1997         r = write_files();
1998         if (r < 0)
1999                 log_error_errno(r, "Failed to write files: %m");
2000
2001 finish:
2002         ordered_hashmap_free_with_destructor(groups, item_free);
2003         ordered_hashmap_free_with_destructor(users, item_free);
2004
2005         while ((n = ordered_hashmap_first_key(members))) {
2006                 strv_free(ordered_hashmap_steal_first(members));
2007                 free(n);
2008         }
2009         ordered_hashmap_free(members);
2010
2011         ordered_hashmap_free(todo_uids);
2012         ordered_hashmap_free(todo_gids);
2013
2014         free_database(database_user, database_uid);
2015         free_database(database_group, database_gid);
2016
2017         free(uid_range);
2018
2019         free(arg_root);
2020
2021         return r < 0 ? EXIT_FAILURE : EXIT_SUCCESS;
2022 }