]> granicus.if.org Git - shadow/blobdiff - src/pwck.c
2009-10-15 Thorsten Kukuk <kukuk@suse.de>
[shadow] / src / pwck.c
index 005517946cf779b8c94bd7a05508ab797c101fc8..1df114196eb6ad11ee476cb74bc4c0a8f89b9955 100644 (file)
@@ -1,5 +1,9 @@
 /*
- * Copyright 1992 - 1994, Julianne Frances Haugh
+ * Copyright (c) 1992 - 1994, Julianne Frances Haugh
+ * Copyright (c) 1996 - 2000, Marek Michałkiewicz
+ * Copyright (c) 2001       , Michał Moskal
+ * Copyright (c) 2001 - 2006, Tomasz Kłoczko
+ * Copyright (c) 2007 - 2009, Nicolas François
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
  * 2. Redistributions in binary form must reproduce the above copyright
  *    notice, this list of conditions and the following disclaimer in the
  *    documentation and/or other materials provided with the distribution.
- * 3. Neither the name of Julianne F. Haugh nor the names of its contributors
- *    may be used to endorse or promote products derived from this software
- *    without specific prior written permission.
+ * 3. The name of the copyright holders or contributors may not be used to
+ *    endorse or promote products derived from this software without
+ *    specific prior written permission.
  *
- * THIS SOFTWARE IS PROVIDED BY JULIE HAUGH AND CONTRIBUTORS ``AS IS'' AND
- * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
- * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
- * ARE DISCLAIMED.  IN NO EVENT SHALL JULIE HAUGH OR CONTRIBUTORS BE LIABLE
- * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
- * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
- * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
- * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
- * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
- * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
- * SUCH DAMAGE.
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+ * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
+ * PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT
+ * HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+ * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+ * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+ * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+ * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+ * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+ * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  */
 
 #include <config.h>
 
-#include "rcsid.h"
-RCSID(PKG_VER "$Id: pwck.c,v 1.15 2000/09/02 18:40:44 marekm Exp $")
+#ident "$Id$"
 
-#include <stdio.h>
 #include <fcntl.h>
 #include <grp.h>
-
-#include "prototypes.h"
-#include "defines.h"
-#include "chkname.h"
 #include <pwd.h>
-
+#include <stdio.h>
+#include "chkname.h"
 #include "commonio.h"
-
+#include "defines.h"
+#include "prototypes.h"
 #include "pwio.h"
-extern void __pw_del_entry(const struct commonio_entry *);
-extern struct commonio_entry *__pw_get_head(void);
-
-#ifdef SHADOWPWD
 #include "shadowio.h"
-extern void __spw_del_entry(const struct commonio_entry *);
-extern struct commonio_entry *__spw_get_head(void);
-#endif
+#include "getdef.h"
+#include "nscd.h"
 
 /*
  * Exit codes
  */
-
+/*@-exitarg@*/
 #define        E_OKAY          0
 #define        E_USAGE         1
 #define        E_BADENTRY      2
 #define        E_CANTOPEN      3
 #define        E_CANTLOCK      4
 #define        E_CANTUPDATE    5
+#define        E_CANTSORT      6
 
 /*
  * Global variables
  */
+char *Prog;
 
-extern int     optind;
-extern char    *optarg;
-
-/*
- * Local variables
- */
-
-static char *Prog;
 static const char *pwd_file = PASSWD_FILE;
-#ifdef SHADOWPWD
+static bool use_system_pw_file = true;
 static const char *spw_file = SHADOW_FILE;
-#endif
-static int read_only = 0;
-static int quiet = 0;  /* don't report warnings, only errors */
+static bool use_system_spw_file = true;
 
-/* local function prototypes */
-static void usage(void);
-static int yes_or_no(void);
+static bool is_shadow = false;
 
-/*
- * usage - print syntax message and exit
- */
+static bool pw_locked  = false;
+static bool spw_locked = false;
 
-static void
-usage(void)
-{
-#ifdef SHADOWPWD
-       fprintf(stderr, _("Usage: %s [ -qr ] [ passwd [ shadow ] ]\n"), Prog);
-#else
-       fprintf(stderr, _("Usage: %s [ -qr ] [ passwd ]\n"), Prog);
-#endif
-       exit(E_USAGE);
-}
+/* Options */
+static bool read_only = false;
+static bool sort_mode = false;
+static bool quiet = false;             /* don't report warnings, only errors */
+
+/* local function prototypes */
+static void fail_exit (int code);
+static void usage (void);
+static void process_flags (int argc, char **argv);
+static void open_files (void);
+static void close_files (bool changed);
+static void check_pw_file (int *errors, bool *changed);
+static void check_spw_file (int *errors, bool *changed);
 
 /*
- * yes_or_no - get answer to question from the user
+ * fail_exit - do some cleanup and exit with the given error code
  */
-
-static int
-yes_or_no(void)
+static void fail_exit (int code)
 {
-       char buf[80];
-
-       /*
-        * In read-only mode all questions are answered "no".
-        */
-
-       if (read_only) {
-               puts(_("No"));
-               return 0;
+       if (spw_locked) {
+               if (spw_unlock () == 0) {
+                       fprintf (stderr, _("%s: failed to unlock %s\n"), Prog, spw_dbname ());
+                       SYSLOG ((LOG_ERR, "failed to unlock %s", spw_dbname ()));
+                       /* continue */
+               }
        }
 
-       /*
-        * Get a line and see what the first character is.
-        */
+       if (pw_locked) {
+               if (pw_unlock () == 0) {
+                       fprintf (stderr, _("%s: failed to unlock %s\n"), Prog, pw_dbname ());
+                       SYSLOG ((LOG_ERR, "failed to unlock %s", pw_dbname ()));
+                       /* continue */
+               }
+       }
 
-       if (fgets(buf, sizeof buf, stdin))
-               return buf[0] == 'y' || buf[0] == 'Y';
+       closelog ();
 
-       return 0;
+       exit (code);
 }
-
 /*
- * pwck - verify password file integrity
+ * usage - print syntax message and exit
  */
-
-int
-main(int argc, char **argv)
+static void usage (void)
 {
-       int     arg;
-       int     errors = 0;
-       int     deleted = 0;
-       struct  commonio_entry  *pfe, *tpfe;
-       struct  passwd  *pwd;
-#ifdef SHADOWPWD
-       struct  commonio_entry  *spe, *tspe;
-       struct  spwd    *spw;
-       int     is_shadow = 0;
-#endif
-
-       /*
-        * Get my name so that I can use it to report errors.
-        */
-
-       Prog = Basename(argv[0]);
-
-       setlocale(LC_ALL, "");
-       bindtextdomain(PACKAGE, LOCALEDIR);
-       textdomain(PACKAGE);
+       fprintf (stderr, _("Usage: %s [-q] [-r] [-s] [passwd [shadow]]\n"),
+                Prog);
+       exit (E_USAGE);
+}
 
-       OPENLOG(Prog);
+/*
+ * process_flags - parse the command line options
+ *
+ *     It will not return if an error is encountered.
+ */
+static void process_flags (int argc, char **argv)
+{
+       int arg;
 
        /*
         * Parse the command line arguments
         */
-
-       while ((arg = getopt(argc, argv, "eqr")) != EOF) {
+       while ((arg = getopt (argc, argv, "eqrs")) != EOF) {
                switch (arg) {
-               case 'e': /* added for Debian shadow-961025-2 compatibility */
+               case 'e':       /* added for Debian shadow-961025-2 compatibility */
                case 'q':
-                       quiet = 1;
+                       quiet = true;
                        break;
                case 'r':
-                       read_only = 1;
+                       read_only = true;
+                       break;
+               case 's':
+                       sort_mode = true;
                        break;
                default:
-                       usage();
+                       usage ();
                }
        }
 
+       if (sort_mode && read_only) {
+               fprintf (stderr, _("%s: -s and -r are incompatible\n"), Prog);
+               exit (E_USAGE);
+       }
+
        /*
         * Make certain we have the right number of arguments
         */
-
-#ifdef SHADOWPWD
-       if (optind != argc && optind + 1 != argc && optind + 2 != argc)
-#else
-       if (optind != argc && optind + 1 != argc)
-#endif
-               usage();
+       if ((argc < optind) || (argc > (optind + 2))) {
+               usage ();
+       }
 
        /*
-        * If there are two left over filenames, use those as the
-        * password and shadow password filenames.
+        * If there are two left over filenames, use those as the password
+        * and shadow password filenames.
         */
-
        if (optind != argc) {
                pwd_file = argv[optind];
-               pw_name(pwd_file);
+               pw_setdbname (pwd_file);
+               use_system_pw_file = false;
        }
-#ifdef SHADOWPWD
-       if (optind + 2 == argc) {
+       if ((optind + 2) == argc) {
                spw_file = argv[optind + 1];
-               spw_name(spw_file);
-               is_shadow = 1;
-       } else if (optind == argc)
-               is_shadow = spw_file_present();
-#endif
+               spw_setdbname (spw_file);
+               is_shadow = true;
+               use_system_spw_file = false;
+       } else if (optind == argc) {
+               is_shadow = spw_file_present ();
+       }
+}
 
+/*
+ * open_files - open the shadow database
+ *
+ *     In read-only mode, the databases are not locked and are opened
+ *     only for reading.
+ */
+static void open_files (void)
+{
        /*
         * Lock the files if we aren't in "read-only" mode
         */
-
        if (!read_only) {
-               if (!pw_lock()) {
-                       fprintf(stderr, _("%s: cannot lock file %s\n"),
-                               Prog, pwd_file);
-                       if (optind == argc)
-                               SYSLOG((LOG_WARN,"cannot lock %s\n",pwd_file));
-                       closelog();
-                       exit(E_CANTLOCK);
+               if (pw_lock () == 0) {
+                       fprintf (stderr,
+                                _("%s: cannot lock %s; try again later.\n"),
+                                Prog, pwd_file);
+                       fail_exit (E_CANTLOCK);
+               }
+               pw_locked = true;
+               if (is_shadow) {
+                       if (spw_lock () == 0) {
+                               fprintf (stderr,
+                                        _("%s: cannot lock %s; try again later.\n"),
+                                        Prog, spw_file);
+                               fail_exit (E_CANTLOCK);
+                       }
+                       spw_locked = true;
+               }
+       }
+
+       /*
+        * Open the files. Use O_RDONLY if we are in read_only mode, O_RDWR
+        * otherwise.
+        */
+       if (pw_open (read_only ? O_RDONLY : O_RDWR) == 0) {
+               fprintf (stderr, _("%s: cannot open %s\n"),
+                        Prog, pwd_file);
+               if (use_system_pw_file) {
+                       SYSLOG ((LOG_WARN, "cannot open %s", pwd_file));
                }
-#ifdef SHADOWPWD
-               if (is_shadow && !spw_lock()) {
-                       fprintf(stderr, _("%s: cannot lock file %s\n"),
-                               Prog, spw_file);
-                       if (optind == argc)
-                               SYSLOG((LOG_WARN,"cannot lock %s\n",spw_file));
-                       closelog();
-                       exit(E_CANTLOCK);
+               fail_exit (E_CANTOPEN);
+       }
+       if (is_shadow && (spw_open (read_only ? O_RDONLY : O_RDWR) == 0)) {
+               fprintf (stderr, _("%s: cannot open %s\n"),
+                        Prog, spw_file);
+               if (use_system_spw_file) {
+                       SYSLOG ((LOG_WARN, "cannot open %s", spw_file));
                }
-#endif
+               fail_exit (E_CANTOPEN);
        }
+}
 
+/*
+ * close_files - close and unlock the password/shadow databases
+ *
+ *     If changed is not set, the databases are not closed, and no
+ *     changes are committed in the databases. The databases are
+ *     unlocked anyway.
+ */
+static void close_files (bool changed)
+{
        /*
-        * Open the files.  Use O_RDONLY if we are in read_only mode,
-        * O_RDWR otherwise.
+        * All done. If there were no change we can just abandon any
+        * changes to the files.
         */
+       if (changed) {
+               if (pw_close () == 0) {
+                       fprintf (stderr, _("%s: failure while writing changes to %s\n"),
+                                Prog, pwd_file);
+                       SYSLOG ((LOG_ERR, "failure while writing changes to %s", pwd_file));
+                       fail_exit (E_CANTUPDATE);
+               }
+               if (is_shadow && (spw_close () == 0)) {
+                       fprintf (stderr, _("%s: failure while writing changes to %s\n"),
+                                Prog, spw_file);
+                       SYSLOG ((LOG_ERR, "failure while writing changes to %s", spw_file));
+                       fail_exit (E_CANTUPDATE);
+               }
+       }
 
-       if (!pw_open(read_only ? O_RDONLY:O_RDWR)) {
-               fprintf(stderr, _("%s: cannot open file %s\n"),
-                       Prog, pwd_file);
-               if (optind == argc)
-                       SYSLOG((LOG_WARN, "cannot open %s\n", pwd_file));
-               closelog();
-               exit(E_CANTOPEN);
+       /*
+        * Don't be anti-social - unlock the files when you're done.
+        */
+       if (spw_locked) {
+               if (spw_unlock () == 0) {
+                       fprintf (stderr, _("%s: failed to unlock %s\n"), Prog, spw_dbname ());
+                       SYSLOG ((LOG_ERR, "failed to unlock %s", spw_dbname ()));
+                       /* continue */
+               }
        }
-#ifdef SHADOWPWD
-       if (is_shadow && !spw_open(read_only ? O_RDONLY : O_RDWR)) {
-               fprintf(stderr, _("%s: cannot open file %s\n"),
-                       Prog, spw_file);
-               if (optind == argc)
-                       SYSLOG((LOG_WARN, "cannot open %s\n", spw_file));
-               closelog();
-               exit(E_CANTOPEN);
+       spw_locked = false;
+       if (pw_locked) {
+               if (pw_unlock () == 0) {
+                       fprintf (stderr, _("%s: failed to unlock %s\n"), Prog, pw_dbname ());
+                       SYSLOG ((LOG_ERR, "failed to unlock %s", pw_dbname ()));
+                       /* continue */
+               }
        }
-#endif
+       pw_locked = false;
+}
+
+/*
+ * check_pw_file - check the content of the passwd file
+ */
+static void check_pw_file (int *errors, bool *changed)
+{
+       struct commonio_entry *pfe, *tpfe;
+       struct passwd *pwd;
+       struct spwd *spw;
 
        /*
         * Loop through the entire password file.
         */
-
-       for (pfe = __pw_get_head(); pfe; pfe = pfe->next) {
+       for (pfe = __pw_get_head (); NULL != pfe; pfe = pfe->next) {
                /*
-                * If this is a NIS line, skip it.  You can't "know" what
-                * NIS is going to do without directly asking NIS ...
+                * If this is a NIS line, skip it. You can't "know" what NIS
+                * is going to do without directly asking NIS ...
                 */
-
-               if (pfe->line[0] == '+' || pfe->line[0] == '-')
+               if (('+' == pfe->line[0]) || ('-' == pfe->line[0])) {
                        continue;
+               }
 
                /*
-                * Start with the entries that are completely corrupt.
-                * They have no (struct passwd) entry because they couldn't
-                * be parsed properly.
+                * Start with the entries that are completely corrupt.  They
+                * have no (struct passwd) entry because they couldn't be
+                * parsed properly.
                 */
-
-               if (!pfe->eptr) {
-
+               if (NULL == pfe->eptr) {
                        /*
-                        * Tell the user this entire line is bogus and
-                        * ask them to delete it.
+                        * Tell the user this entire line is bogus and ask
+                        * them to delete it.
                         */
-
-                       printf(_("invalid password file entry\n"));
-                       printf(_("delete line `%s'? "), pfe->line);
-                       errors++;
+                       puts (_("invalid password file entry"));
+                       printf (_("delete line '%s'? "), pfe->line);
+                       *errors += 1;
 
                        /*
                         * prompt the user to delete the entry or not
                         */
-
-                       if (!yes_or_no())
+                       if (!yes_or_no (read_only)) {
                                continue;
+                       }
 
                        /*
-                        * All password file deletions wind up here.  This
+                        * All password file deletions wind up here. This
                         * code removes the current entry from the linked
-                        * list.  When done, it skips back to the top of
-                        * the loop to try out the next list element.
+                        * list. When done, it skips back to the top of the
+                        * loop to try out the next list element.
                         */
+                     delete_pw:
+                       SYSLOG ((LOG_INFO, "delete passwd line '%s'",
+                                pfe->line));
+                       *changed = true;
 
-delete_pw:
-                       SYSLOG((LOG_INFO, "delete passwd line `%s'\n",
-                               pfe->line));
-                       deleted++;
-
-                       __pw_del_entry(pfe);
+                       __pw_del_entry (pfe);
                        continue;
                }
 
                /*
                 * Password structure is good, start using it.
                 */
-
                pwd = pfe->eptr;
 
                /*
                 * Make sure this entry has a unique name.
                 */
-
-               for (tpfe = __pw_get_head(); tpfe; tpfe = tpfe->next) {
+               for (tpfe = __pw_get_head (); NULL != tpfe; tpfe = tpfe->next) {
                        const struct passwd *ent = tpfe->eptr;
 
                        /*
                         * Don't check this entry
                         */
-
-                       if (tpfe == pfe)
+                       if (tpfe == pfe) {
                                continue;
+                       }
 
                        /*
                         * Don't check invalid entries.
                         */
-
-                       if (!ent)
+                       if (NULL == ent) {
                                continue;
+                       }
 
-                       if (strcmp(pwd->pw_name, ent->pw_name) != 0)
+                       if (strcmp (pwd->pw_name, ent->pw_name) != 0) {
                                continue;
+                       }
 
                        /*
                         * Tell the user this entry is a duplicate of
                         * another and ask them to delete it.
                         */
-
-                       puts(_("duplicate password entry\n"));
-                       printf(_("delete line `%s'? "), pfe->line);
-                       errors++;
+                       puts (_("duplicate password entry"));
+                       printf (_("delete line '%s'? "), pfe->line);
+                       *errors += 1;
 
                        /*
                         * prompt the user to delete the entry or not
                         */
-
-                       if (yes_or_no())
+                       if (yes_or_no (read_only)) {
                                goto delete_pw;
+                       }
                }
 
                /*
                 * Check for invalid usernames.  --marekm
                 */
-               if (!check_user_name(pwd->pw_name)) {
-                       printf(_("invalid user name `%s'\n"), pwd->pw_name);
-                       errors++;
+               if (!is_valid_user_name (pwd->pw_name)) {
+                       printf (_("invalid user name '%s'\n"), pwd->pw_name);
+                       *errors += 1;
                }
 
                /*
-                * Check for a Slackware bug.  Make sure UID is not -1
-                * (it has special meaning for some syscalls).  --marekm
+                * Check for invalid user ID.
                 */
-
-               if (pwd->pw_uid == (uid_t) -1) {
-                       printf(_("user %s: bad UID (%d)\n"),
-                               pwd->pw_name, (int) pwd->pw_uid);
-                       errors++;
+               if (pwd->pw_uid == (uid_t)-1) {
+                       printf (_("invalid user ID '%lu'\n"), (long unsigned int)pwd->pw_uid);
+                       *errors += 1;
                }
 
                /*
                 * Make sure the primary group exists
                 */
-
-               if (!quiet && !getgrgid(pwd->pw_gid)) {
+               /* local, no need for xgetgrgid */
+               if (!quiet && (NULL == getgrgid (pwd->pw_gid))) {
 
                        /*
                         * No primary group, just give a warning
                         */
 
-                       printf(_("user %s: no group %d\n"),
-                               pwd->pw_name, (int) pwd->pw_gid);
-                       errors++;
+                       printf (_("user '%s': no group %lu\n"),
+                               pwd->pw_name, (unsigned long) pwd->pw_gid);
+                       *errors += 1;
                }
 
                /*
                 * Make sure the home directory exists
                 */
-
-               if (!quiet && access(pwd->pw_dir, F_OK)) {
-
+               if (!quiet && (access (pwd->pw_dir, F_OK) != 0)) {
                        /*
                         * Home directory doesn't exist, give a warning
                         */
-
-                       printf(_("user %s: directory %s does not exist\n"),
-                               pwd->pw_name, pwd->pw_dir);
-                       errors++;
+                       printf (_("user '%s': directory '%s' does not exist\n"),
+                               pwd->pw_name, pwd->pw_dir);
+                       *errors += 1;
                }
 
                /*
                 * Make sure the login shell is executable
                 */
-
-               if (!quiet && pwd->pw_shell[0] && access(pwd->pw_shell, F_OK)) {
+               if (   !quiet
+                   && ('\0' != pwd->pw_shell[0])
+                   && (access (pwd->pw_shell, F_OK) != 0)) {
 
                        /*
                         * Login shell doesn't exist, give a warning
                         */
-                       
-                       printf(_("user %s: program %s does not exist\n"),
-                               pwd->pw_name, pwd->pw_shell);
-                       errors++;
+                       printf (_("user '%s': program '%s' does not exist\n"),
+                               pwd->pw_name, pwd->pw_shell);
+                       *errors += 1;
+               }
+
+               /*
+                * Make sure this entry exists in the /etc/shadow file.
+                */
+
+               if (is_shadow) {
+                       spw = (struct spwd *) spw_locate (pwd->pw_name);
+                       if (NULL == spw) {
+                               printf (_("no matching password file entry in %s\n"),
+                                       spw_file);
+                               printf (_("add user '%s' in %s? "),
+                                       pwd->pw_name, spw_file);
+                               *errors += 1;
+                               if (yes_or_no (read_only)) {
+                                       struct spwd sp;
+                                       struct passwd pw;
+
+                                       sp.sp_namp   = pwd->pw_name;
+                                       sp.sp_pwdp   = pwd->pw_passwd;
+                                       sp.sp_min    =
+                                           getdef_num ("PASS_MIN_DAYS", -1);
+                                       sp.sp_max    =
+                                           getdef_num ("PASS_MAX_DAYS", -1);
+                                       sp.sp_warn   =
+                                           getdef_num ("PASS_WARN_AGE", -1);
+                                       sp.sp_inact  = -1;
+                                       sp.sp_expire = -1;
+                                       sp.sp_flag   = SHADOW_SP_FLAG_UNSET;
+                                       sp.sp_lstchg = (long) time ((time_t *) 0) / SCALE;
+                                       if (0 == sp.sp_lstchg) {
+                                               /* Better disable aging than
+                                                * requiring a password change
+                                                */
+                                               sp.sp_lstchg = -1;
+                                       }
+                                       *changed = true;
+
+                                       if (spw_update (&sp) == 0) {
+                                               fprintf (stderr,
+                                                        _("%s: failed to prepare the new %s entry '%s'\n"),
+                                                        Prog, spw_dbname (), sp.sp_namp);
+                                               exit (E_CANTUPDATE);
+                                       }
+                                       /* remove password from /etc/passwd */
+                                       pw = *pwd;
+                                       pw.pw_passwd = SHADOW_PASSWD_STRING;    /* XXX warning: const */
+                                       if (pw_update (&pw) == 0) {
+                                               fprintf (stderr,
+                                                        _("%s: failed to prepare the new %s entry '%s'\n"),
+                                                        Prog, pw_dbname (), pw.pw_name);
+                                               exit (E_CANTUPDATE);
+                                       }
+                               }
+                       } else {
+                               /* The passwd entry has a shadow counterpart.
+                                * Make sure no passwords are in passwd.
+                                */
+                               if (strcmp (pwd->pw_passwd, SHADOW_PASSWD_STRING) != 0) {
+                                       printf (_("user %s has an entry in %s, but its password field in %s is not set to 'x'\n"),
+                                               pwd->pw_name, spw_file, pwd_file);
+                                       *errors += 1;
+                               }
+                       }
                }
        }
+}
 
-#ifdef SHADOWPWD
-       if (!is_shadow)
-               goto shadow_done;
+/*
+ * check_spw_file - check the content of the shadowed password file (shadow)
+ */
+static void check_spw_file (int *errors, bool *changed)
+{
+       struct commonio_entry *spe, *tspe;
+       struct spwd *spw;
 
        /*
         * Loop through the entire shadow password file.
         */
-
-       for (spe = __spw_get_head(); spe; spe = spe->next) {
+       for (spe = __spw_get_head (); NULL != spe; spe = spe->next) {
                /*
-                * If this is a NIS line, skip it.  You can't "know" what
-                * NIS is going to do without directly asking NIS ...
+                * Do not treat lines which were missing in shadow
+                * and were added earlier.
                 */
-
-               if (spe->line[0] == '+' || spe->line[0] == '-')
+               if (NULL == spe->line) {
                        continue;
+               }
 
                /*
-                * Start with the entries that are completely corrupt.
-                * They have no (struct spwd) entry because they couldn't
-                * be parsed properly.
+                * If this is a NIS line, skip it. You can't "know" what NIS
+                * is going to do without directly asking NIS ...
                 */
+               if (('+' == spe->line[0]) || ('-' == spe->line[0])) {
+                       continue;
+               }
 
-               if (!spe->eptr) {
-
+               /*
+                * Start with the entries that are completely corrupt. They
+                * have no (struct spwd) entry because they couldn't be
+                * parsed properly.
+                */
+               if (NULL == spe->eptr) {
                        /*
-                        * Tell the user this entire line is bogus and
-                        * ask them to delete it.
+                        * Tell the user this entire line is bogus and ask
+                        * them to delete it.
                         */
-
-                       printf(_("invalid shadow password file entry\n"));
-                       printf(_("delete line `%s'? "), spe->line);
-                       errors++;
+                       puts (_("invalid shadow password file entry"));
+                       printf (_("delete line '%s'? "), spe->line);
+                       *errors += 1;
 
                        /*
                         * prompt the user to delete the entry or not
                         */
-
-                       if (!yes_or_no())
+                       if (!yes_or_no (read_only)) {
                                continue;
+                       }
 
                        /*
-                        * All shadow file deletions wind up here.  This
-                        * code removes the current entry from the linked
-                        * list.  When done, it skips back to the top of
-                        * the loop to try out the next list element.
+                        * All shadow file deletions wind up here. This code
+                        * removes the current entry from the linked list.
+                        * When done, it skips back to the top of the loop
+                        * to try out the next list element.
                         */
+                     delete_spw:
+                       SYSLOG ((LOG_INFO, "delete shadow line '%s'",
+                                spe->line));
+                       *changed = true;
 
-delete_spw:
-                       SYSLOG((LOG_INFO, "delete shadow line `%s'\n",
-                               spe->line));
-                       deleted++;
-
-                       __spw_del_entry(spe);
+                       __spw_del_entry (spe);
                        continue;
                }
 
                /*
                 * Shadow password structure is good, start using it.
                 */
-
                spw = spe->eptr;
 
                /*
                 * Make sure this entry has a unique name.
                 */
-
-               for (tspe = __spw_get_head(); tspe; tspe = tspe->next) {
+               for (tspe = __spw_get_head (); NULL != tspe; tspe = tspe->next) {
                        const struct spwd *ent = tspe->eptr;
 
                        /*
                         * Don't check this entry
                         */
-
-                       if (tspe == spe)
+                       if (tspe == spe) {
                                continue;
+                       }
 
                        /*
                         * Don't check invalid entries.
                         */
-
-                       if (!ent)
+                       if (NULL == ent) {
                                continue;
+                       }
 
-                       if (strcmp(spw->sp_namp, ent->sp_namp) != 0)
+                       if (strcmp (spw->sp_namp, ent->sp_namp) != 0) {
                                continue;
+                       }
 
                        /*
                         * Tell the user this entry is a duplicate of
                         * another and ask them to delete it.
                         */
-
-                       puts(_("duplicate shadow password entry\n"));
-                       printf(_("delete line `%s'? "), spe->line);
-                       errors++;
+                       puts (_("duplicate shadow password entry"));
+                       printf (_("delete line '%s'? "), spe->line);
+                       *errors += 1;
 
                        /*
                         * prompt the user to delete the entry or not
                         */
-
-                       if (yes_or_no())
+                       if (yes_or_no (read_only)) {
                                goto delete_spw;
+                       }
                }
 
                /*
                 * Make sure this entry exists in the /etc/passwd
                 * file.
                 */
-
-               if (!pw_locate(spw->sp_namp)) {
-
+               if (pw_locate (spw->sp_namp) == NULL) {
                        /*
                         * Tell the user this entry has no matching
                         * /etc/passwd entry and ask them to delete it.
                         */
-
-                       puts(_("no matching password file entry\n"));
-                       printf(_("delete line `%s'? "), spe->line);
-                       errors++;
+                       printf (_("no matching password file entry in %s\n"),
+                               pwd_file);
+                       printf (_("delete line '%s'? "), spe->line);
+                       *errors += 1;
 
                        /*
                         * prompt the user to delete the entry or not
                         */
-
-                       if (yes_or_no())
+                       if (yes_or_no (read_only)) {
                                goto delete_spw;
+                       }
                }
 
                /*
                 * Warn if last password change in the future.  --marekm
                 */
-
-               if (!quiet && spw->sp_lstchg > time((time_t *)0) / SCALE) {
-                       printf(_("user %s: last password change in the future\n"), spw->sp_namp);
-                       errors++;
+               if (   !quiet
+                   && (spw->sp_lstchg > (long) time ((time_t *) 0) / SCALE)) {
+                       printf (_("user %s: last password change in the future\n"),
+                               spw->sp_namp);
+                       *errors += 1;
                }
        }
+}
 
-shadow_done:
-#endif
+/*
+ * pwck - verify password file integrity
+ */
+int main (int argc, char **argv)
+{
+       int errors = 0;
+       bool changed = false;
 
        /*
-        * All done.  If there were no deletions we can just abandon any
-        * changes to the files.
+        * Get my name so that I can use it to report errors.
         */
+       Prog = Basename (argv[0]);
+
+       (void) setlocale (LC_ALL, "");
+       (void) bindtextdomain (PACKAGE, LOCALEDIR);
+       (void) textdomain (PACKAGE);
 
-       if (deleted) {
-               if (!pw_close()) {
-                       fprintf(stderr, _("%s: cannot update file %s\n"),
-                               Prog, pwd_file);
-                       SYSLOG((LOG_WARN, "cannot update %s\n", pwd_file));
-                       closelog();
-                       exit(E_CANTUPDATE);
+       OPENLOG ("pwck");
+
+       /* Parse the command line arguments */
+       process_flags (argc, argv);
+
+       open_files ();
+
+       if (sort_mode) {
+               if (pw_sort () != 0) {
+                       fprintf (stderr,
+                                _("%s: cannot sort entries in %s\n"),
+                                Prog, pw_dbname ());
+                       fail_exit (E_CANTSORT);
                }
-#ifdef SHADOWPWD
-               if (is_shadow && !spw_close()) {
-                       fprintf(stderr, _("%s: cannot update file %s\n"),
-                               Prog, spw_file);
-                       SYSLOG((LOG_WARN, "cannot update %s\n", spw_file));
-                       closelog();
-                       exit(E_CANTUPDATE);
+               if (is_shadow) {
+                       if (spw_sort () != 0) {
+                               fprintf (stderr,
+                                        _("%s: cannot sort entries in %s\n"),
+                                        Prog, spw_dbname ());
+                               fail_exit (E_CANTSORT);
+                       }
+               }
+               changed = true;
+       } else {
+               check_pw_file (&errors, &changed);
+
+               if (is_shadow) {
+                       check_spw_file (&errors, &changed);
                }
-#endif
        }
 
-       /*
-        * Don't be anti-social - unlock the files when you're done.
-        */
+       close_files (changed);
 
-#ifdef SHADOWPWD
-       if (is_shadow)
-               spw_unlock();
-#endif
-       (void) pw_unlock();
+       nscd_flush_cache ("passwd");
 
        /*
         * Tell the user what we did and exit.
         */
+       if (0 != errors) {
+               printf (changed ?
+                       _("%s: the files have been updated\n") :
+                       _("%s: no changes\n"), Prog);
+       }
 
-       if (errors)
-#ifdef NDBM
-               printf(deleted ?
-                       _("%s: the files have been updated; run mkpasswd\n") :
-                       _("%s: no changes\n"), Prog);
-#else
-               printf(deleted ?
-                       _("%s: the files have been updated\n") :
-                       _("%s: no changes\n"), Prog);
-#endif
-
-       closelog();
-       exit(errors ? E_BADENTRY : E_OKAY);
+       closelog ();
+       return ((0 != errors) ? E_BADENTRY : E_OKAY);
 }
+