Mark compat code with attribute_compat_text_section.
[kopensolaris-gnu/glibc.git] / nss / getent.c
index 02f2034..f43bc63 100644 (file)
@@ -1,29 +1,29 @@
-/* Copyright (c) 1998, 1999, 2000 Free Software Foundation, Inc.
+/* Copyright (c) 1998-2003, 2004 Free Software Foundation, Inc.
    This file is part of the GNU C Library.
    Contributed by Thorsten Kukuk <kukuk@suse.de>, 1998.
 
    The GNU C Library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Library General Public License as
-   published by the Free Software Foundation; either version 2 of the
-   License, or (at your option) any later version.
+   modify it under the terms of the GNU Lesser General Public
+   License as published by the Free Software Foundation; either
+   version 2.1 of the License, or (at your option) any later version.
 
    The GNU C Library is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-   Library General Public License for more details.
+   Lesser General Public License for more details.
 
-   You should have received a copy of the GNU Library General Public
-   License along with the GNU C Library; see the file COPYING.LIB.  If not,
-   write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-   Boston, MA 02111-1307, USA. */
+   You should have received a copy of the GNU Lesser General Public
+   License along with the GNU C Library; if not, write to the Free
+   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
+   02111-1307 USA.  */
 
-/* getent: get entries from administrative database
-   supported databases: passwd, group, hosts, services, protocols
-   and networks */
+/* getent: get entries from administrative database.  */
 
+#include <aliases.h>
 #include <argp.h>
 #include <grp.h>
 #include <pwd.h>
+#include <shadow.h>
 #include <ctype.h>
 #include <error.h>
 #include <libintl.h>
@@ -34,6 +34,7 @@
 #include <string.h>
 #include <sys/socket.h>
 #include <netinet/in.h>
+#include <netinet/ether.h>
 #include <arpa/inet.h>
 #include <arpa/nameser.h>
 
@@ -49,14 +50,21 @@ void (*argp_program_version_hook) (FILE *, struct argp_state *) = print_version;
 /* Short description of parameters.  */
 static const char args_doc[] = N_("database [key ...]");
 
-/* Short description of program.  */
-static const char doc[] =
-                N_("getent - get entries from administrative database.");
+/* Supported options. */
+static const struct argp_option args_options[] =
+  {
+    { "service", 's', "CONFIG", 0, N_("Service configuration to be used") },
+    { NULL, 0, NULL, 0, NULL },
+  };
+
+/* Prototype for option handler.  */
+static error_t parse_option (int key, char *arg, struct argp_state *state);
 
 /* Data structure to communicate with argp functions.  */
-static struct argp argp = {
-  NULL, NULL, args_doc, doc,
-};
+static struct argp argp =
+  {
+    args_options, parse_option, args_doc, NULL,
+  };
 
 /* Print the version information.  */
 static void
@@ -67,10 +75,99 @@ print_version (FILE *stream, struct argp_state *state)
 Copyright (C) %s Free Software Foundation, Inc.\n\
 This is free software; see the source for copying conditions.  There is NO\n\
 warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n\
-"), "1999");
+"), "2004");
   fprintf (stream, gettext ("Written by %s.\n"), "Thorsten Kukuk");
 }
 
+/* This is for aliases */
+static inline void
+print_aliases (struct aliasent *alias)
+{
+  unsigned int i = 0;
+
+  printf ("%s: ", alias->alias_name);
+  for  (i = strlen (alias->alias_name); i < 14; ++i)
+    fputs_unlocked (" ", stdout);
+
+  for (i = 0; i < alias->alias_members_len; ++i)
+    printf ("%s%s",
+           alias->alias_members [i],
+           i + 1 == alias->alias_members_len ? "\n" : ", ");
+}
+
+static int
+aliases_keys (int number, char *key[])
+{
+  int result = 0;
+  int i;
+  struct aliasent *alias;
+
+  if (number == 0)
+    {
+      setaliasent ();
+      while ((alias = getaliasent ()) != NULL)
+       print_aliases (alias);
+      endaliasent ();
+      return result;
+    }
+
+  for (i = 0; i < number; ++i)
+    {
+      alias = getaliasbyname (key[i]);
+
+      if (alias == NULL)
+       result = 2;
+      else
+       print_aliases (alias);
+    }
+
+  return result;
+}
+
+/* This is for ethers */
+static int
+ethers_keys (int number, char *key[])
+{
+  int result = 0;
+  int i;
+
+  if (number == 0)
+    {
+      fprintf (stderr, _("Enumeration not supported on %s\n"), "ethers");
+      return 3;
+    }
+
+  for (i = 0; i < number; ++i)
+    {
+      struct ether_addr *ethp, eth;
+      char buffer [1024], *p;
+
+      ethp = ether_aton (key[i]);
+      if (ethp != NULL)
+       {
+         if (ether_ntohost (buffer, ethp))
+           {
+             result = 2;
+             continue;
+           }
+         p = buffer;
+       }
+      else
+       {
+         if (ether_hostton (key[i], &eth))
+           {
+             result = 2;
+             continue;
+           }
+         p = key[i];
+         ethp = &eth;
+       }
+      printf ("%s %s\n", ether_ntoa (ethp), p);
+    }
+
+  return result;
+}
+
 /* This is for group */
 static inline void
 print_group (struct group *grp)
@@ -79,30 +176,46 @@ print_group (struct group *grp)
 
   printf ("%s:%s:%ld:", grp->gr_name ? grp->gr_name : "",
          grp->gr_passwd ? grp->gr_passwd : "",
-         (unsigned long)grp->gr_gid);
+         (unsigned long int) grp->gr_gid);
 
   while (grp->gr_mem[i] != NULL)
     {
-      fputs (grp->gr_mem[i], stdout);
+      fputs_unlocked (grp->gr_mem[i], stdout);
       ++i;
       if (grp->gr_mem[i] != NULL)
-       fputs (",", stdout);
+       putchar_unlocked (',');
     }
-  fputs ("\n", stdout);
+  putchar_unlocked ('\n');
 }
 
-static inline int
+static int
 group_keys (int number, char *key[])
 {
   int result = 0;
   int i;
+  struct group *grp;
 
-  for (i = 0; i < number; ++i)
+  if (number == 0)
     {
-      struct group *grp;
+      setgrent ();
+      while ((grp = getgrent ()) != NULL)
+       print_group (grp);
+      endgrent ();
+      return result;
+    }
 
+  for (i = 0; i < number; ++i)
+    {
       if (isdigit (key[i][0]))
-       grp = getgrgid (atol (key[i]));
+       {
+           char *ep;
+           gid_t arg_gid = strtoul (key[i], &ep, 10);
+
+           if (*key[i] != '\0' && *ep == '\0')  /* valid numeric uid */
+             grp = getgrgid (arg_gid);
+           else
+             grp = NULL;
+       }
       else
        grp = getgrnam (key[i]);
 
@@ -115,41 +228,213 @@ group_keys (int number, char *key[])
   return result;
 }
 
+/* This is for hosts */
+static void
+print_hosts (struct hostent *host)
+{
+  unsigned int cnt;
+
+  for (cnt = 0; host->h_addr_list[cnt] != NULL; ++cnt)
+    {
+      char buf[INET6_ADDRSTRLEN];
+      const char *ip = inet_ntop (host->h_addrtype, host->h_addr_list[cnt],
+                                 buf, sizeof (buf));
+
+      printf ("%-15s %s", ip, host->h_name);
+
+      unsigned int i;
+      for (i = 0; host->h_aliases[i] != NULL; ++i)
+       {
+         putchar_unlocked (' ');
+         fputs_unlocked (host->h_aliases[i], stdout);
+       }
+      putchar_unlocked ('\n');
+    }
+}
+
+static int
+hosts_keys (int number, char *key[])
+{
+  int result = 0;
+  int i;
+  struct hostent *host;
+
+  if (number == 0)
+    {
+      sethostent (0);
+      while ((host = gethostent ()) != NULL)
+       print_hosts (host);
+      endhostent ();
+      return result;
+    }
+
+  for (i = 0; i < number; ++i)
+    {
+      struct hostent *host = NULL;
+
+      if (strchr (key[i], ':') != NULL)
+       {
+         char addr[IN6ADDRSZ];
+         if (inet_pton (AF_INET6, key[i], &addr))
+           host = gethostbyaddr (addr, sizeof (addr), AF_INET6);
+       }
+      else if (isdigit (key[i][0]))
+       {
+         char addr[INADDRSZ];
+         if (inet_pton (AF_INET, key[i], &addr))
+           host = gethostbyaddr (addr, sizeof (addr), AF_INET);
+       }
+      else if ((host = gethostbyname2 (key[i], AF_INET6)) == NULL)
+       host = gethostbyname2 (key[i], AF_INET);
+
+      if (host == NULL)
+       result = 2;
+      else
+       print_hosts (host);
+    }
+
+  return result;
+}
+
+/* This is for hosts, but using getaddrinfo */
+static int
+ahosts_keys (int number, char *key[])
+{
+  int result = 0;
+  int i;
+  struct hostent *host;
+
+  if (number == 0)
+    {
+      sethostent (0);
+      while ((host = gethostent ()) != NULL)
+       print_hosts (host);
+      endhostent ();
+      return result;
+    }
+
+  struct addrinfo hint;
+  memset (&hint, '\0', sizeof (hint));
+  hint.ai_flags = AI_V4MAPPED | AI_ADDRCONFIG | AI_CANONNAME;
+  hint.ai_family = AF_UNSPEC;
+
+  for (i = 0; i < number; ++i)
+    {
+      struct addrinfo *res;
+
+      if (getaddrinfo (key[i], NULL, &hint, &res) != 0)
+       result = 2;
+      else
+       {
+         struct addrinfo *runp = res;
+
+         while (runp != NULL)
+           {
+             char sockbuf[20];
+             const char *sockstr;
+             if (runp->ai_socktype == SOCK_STREAM)
+               sockstr = "STREAM";
+             else if (runp->ai_socktype == SOCK_DGRAM)
+               sockstr = "DGRAM";
+             else if (runp->ai_socktype == SOCK_RAW)
+               sockstr = "RAW";
+             else
+               {
+                 snprintf (sockbuf, sizeof (sockbuf), "%d",
+                           runp->ai_socktype);
+                 sockstr = sockbuf;
+               }
+
+             char buf[INET6_ADDRSTRLEN];
+             printf ("%-15s %-6s %s\n",
+                     inet_ntop (runp->ai_family,
+                                &((struct sockaddr_in *) runp->ai_addr)->sin_addr,
+                                buf, sizeof (buf)),
+                     sockstr,
+                     runp->ai_canonname);
+
+             runp = runp->ai_next;
+           }
+
+         freeaddrinfo (res);
+       }
+    }
+
+  return result;
+}
+
+/* This is for netgroup */
+static int
+netgroup_keys (int number, char *key[])
+{
+  int result = 0;
+  int i;
+
+  if (number == 0)
+    {
+      fprintf (stderr, _("Enumeration not supported on %s\n"), "netgroup");
+      return 3;
+    }
+
+  for (i = 0; i < number; ++i)
+    {
+      if (!setnetgrent (key[i]))
+       result = 2;
+      else
+       {
+         char *p[3];
+
+         printf ("%-21s", key[i]);
+
+         while (getnetgrent (p, p + 1, p + 2))
+           printf (" (%s, %s, %s)", p[0] ?: " ", p[1] ?: "", p[2] ?: "");
+         putchar_unlocked ('\n');
+       }
+    }
+
+  return result;
+}
+
 /* This is for networks */
-static inline void
+static void
 print_networks (struct netent *net)
 {
   unsigned int i;
   struct in_addr ip;
   ip.s_addr = htonl (net->n_net);
 
-  fputs (net->n_name, stdout);
-  for  (i = strlen (net->n_name); i < 22; ++i)
-    fputs (" ", stdout);
-  fputs (inet_ntoa (ip), stdout);
+  printf ("%-21s %s", net->n_name, inet_ntoa (ip));
 
   i = 0;
   while (net->n_aliases[i] != NULL)
     {
-      fputs (" ", stdout);
-      fputs (net->n_aliases[i], stdout);
+      putchar_unlocked (' ');
+      fputs_unlocked (net->n_aliases[i], stdout);
       ++i;
       if (net->n_aliases[i] != NULL)
-       fputs (",", stdout);
+       putchar_unlocked (',');
     }
-  fputs ("\n", stdout);
+  putchar_unlocked ('\n');
 }
 
-static inline int
+static int
 networks_keys (int number, char *key[])
 {
   int result = 0;
   int i;
+  struct netent *net;
 
-  for (i = 0; i < number; ++i)
+  if (number == 0)
     {
-      struct netent *net;
+      setnetent (0);
+      while ((net = getnetent ()) != NULL)
+       print_networks (net);
+      endnetent ();
+      return result;
+    }
 
+  for (i = 0; i < number; ++i)
+    {
       if (isdigit (key[i][0]))
        net = getnetbyaddr (inet_addr (key[i]), AF_UNIX);
       else
@@ -171,25 +456,41 @@ print_passwd (struct passwd *pwd)
   printf ("%s:%s:%ld:%ld:%s:%s:%s\n",
          pwd->pw_name ? pwd->pw_name : "",
          pwd->pw_passwd ? pwd->pw_passwd : "",
-         (unsigned long)pwd->pw_uid,
-         (unsigned long)pwd->pw_gid,
+         (unsigned long int) pwd->pw_uid,
+         (unsigned long int) pwd->pw_gid,
          pwd->pw_gecos ? pwd->pw_gecos : "",
          pwd->pw_dir ? pwd->pw_dir : "",
          pwd->pw_shell ? pwd->pw_shell : "");
 }
 
-static inline int
+static int
 passwd_keys (int number, char *key[])
 {
   int result = 0;
   int i;
+  struct passwd *pwd;
 
-  for (i = 0; i < number; ++i)
+  if (number == 0)
     {
-      struct passwd *pwd;
+      setpwent ();
+      while ((pwd = getpwent ()) != NULL)
+       print_passwd (pwd);
+      endpwent ();
+      return result;
+    }
 
+  for (i = 0; i < number; ++i)
+    {
       if (isdigit (key[i][0]))
-       pwd = getpwuid (atol (key[i]));
+        {
+          char *ep;
+          uid_t arg_uid = strtoul (key[i], &ep, 10);
+
+           if (*key[i] != '\0' && *ep == '\0')  /* valid numeric uid */
+            pwd = getpwuid (arg_uid);
+           else
+             pwd = NULL;
+        }
       else
        pwd = getpwnam (key[i]);
 
@@ -208,31 +509,36 @@ print_protocols (struct protoent *proto)
 {
   unsigned int i;
 
-  fputs (proto->p_name, stdout);
-  for (i = strlen (proto->p_name); i < 22; ++i)
-    fputs (" ", stdout);
-  printf ("%d", proto->p_proto);
+  printf ("%-21s %d", proto->p_name, proto->p_proto);
 
   i = 0;
   while (proto->p_aliases[i] != NULL)
     {
-      fputs (" ", stdout);
-      fputs (proto->p_aliases[i], stdout);
+      putchar_unlocked (' ');
+      fputs_unlocked (proto->p_aliases[i], stdout);
       ++i;
     }
-  fputs ("\n", stdout);
+  putchar_unlocked ('\n');
 }
 
-static inline int
+static int
 protocols_keys (int number, char *key[])
 {
   int result = 0;
   int i;
+  struct protoent *proto;
 
-  for (i = 0; i < number; ++i)
+  if (number == 0)
     {
-      struct protoent *proto;
+      setprotoent (0);
+      while ((proto = getprotoent ()) != NULL)
+       print_protocols (proto);
+      endprotoent ();
+      return result;
+    }
 
+  for (i = 0; i < number; ++i)
+    {
       if (isdigit (key[i][0]))
        proto = getprotobynumber (atol (key[i]));
       else
@@ -247,90 +553,85 @@ protocols_keys (int number, char *key[])
   return result;
 }
 
-/* This is for hosts */
+/* Now is all for rpc */
 static inline void
-print_hosts (struct hostent *host)
+print_rpc (struct rpcent *rpc)
 {
-  unsigned int i;
-  char buf[INET6_ADDRSTRLEN];
-  const char *ip = inet_ntop (host->h_addrtype, host->h_addr_list[0],
-                             buf, sizeof (buf));
+  int i;
 
-  fputs (ip, stdout);
-  for (i = strlen (ip); i < 16; ++i)
-    fputs (" ", stdout);
-  fputs (host->h_name, stdout);
+  printf ("%-15s %d%s",
+         rpc->r_name, rpc->r_number, rpc->r_aliases[0] ? " " : "");
 
-  i = 0;
-  while (host->h_aliases[i] != NULL)
-    {
-      fputs (" ", stdout);
-      fputs (host->h_aliases[i], stdout);
-      ++i;
-    }
-  fputs ("\n", stdout);
+  for (i = 0; rpc->r_aliases[i]; ++i)
+    printf (" %s", rpc->r_aliases[i]);
+  putchar_unlocked ('\n');
 }
 
-static inline int
-hosts_keys (int number, char *key[])
+static int
+rpc_keys (int number, char *key[])
 {
   int result = 0;
   int i;
+  struct rpcent *rpc;
 
-  for (i = 0; i < number; ++i)
+  if (number == 0)
     {
-      struct hostent *host = NULL;
+      setrpcent (0);
+      while ((rpc = getrpcent ()) != NULL)
+       print_rpc (rpc);
+      endrpcent ();
+      return result;
+    }
 
-      if (strchr (key[i], ':') != NULL)
-       {
-         char addr[IN6ADDRSZ];
-         if (inet_pton (AF_INET6, key[i], &addr))
-           host = gethostbyaddr (addr, sizeof (addr), AF_INET6);
-       }
-      else if (isdigit (key[i][0]))
-       {
-         char addr[INADDRSZ];
-         if (inet_pton (AF_INET, key[i], &addr))
-           host = gethostbyaddr (addr, sizeof (addr), AF_INET);
-       }
-      else if ((host = gethostbyname2 (key[i], AF_INET6)) == NULL)
-       host = gethostbyname2 (key[i], AF_INET);
+  for (i = 0; i < number; ++i)
+    {
+      if (isdigit (key[i][0]))
+       rpc = getrpcbynumber (atol (key[i]));
+      else
+       rpc = getrpcbyname (key[i]);
 
-      if (host == NULL)
+      if (rpc == NULL)
        result = 2;
       else
-       print_hosts (host);
+       print_rpc (rpc);
     }
 
   return result;
 }
 
 /* for services */
-static inline void
+static void
 print_services (struct servent *serv)
 {
   unsigned int i;
 
-  fputs (serv->s_name, stdout);
-  for (i = strlen (serv->s_name); i < 22; ++i)
-    fputs (" ", stdout);
-  printf ("%d/%s", ntohs (serv->s_port), serv->s_proto);
+  printf ("%-21s %d/%s", serv->s_name, ntohs (serv->s_port), serv->s_proto);
 
   i = 0;
   while (serv->s_aliases[i] != NULL)
     {
-      fputs (" ", stdout);
-      fputs (serv->s_aliases[i], stdout);
+      putchar_unlocked (' ');
+      fputs_unlocked (serv->s_aliases[i], stdout);
       ++i;
     }
-  fputs ("\n", stdout);
+  putchar_unlocked ('\n');
 }
 
-static inline int
+static int
 services_keys (int number, char *key[])
 {
   int result = 0;
   int i;
+  struct servent *serv;
+
+  if (!number)
+    {
+      setservent (0);
+      while ((serv = getservent ()) != NULL)
+       print_services (serv);
+      endservent ();
+      return result;
+    }
 
   for (i = 0; i < number; ++i)
     {
@@ -352,12 +653,21 @@ services_keys (int number, char *key[])
            }
          else
            {
+             int j;
+
              while ((serv = getservent ()) != NULL)
                if (strcmp (serv->s_name, key[i]) == 0)
                  {
                    print_services (serv);
                    break;
                  }
+               else
+                 for (j = 0; serv->s_aliases[j]; ++j)
+                   if (strcmp (serv->s_aliases[j], key[i]) == 0)
+                     {
+                       print_services (serv);
+                       break;
+                     }
            }
          endservent ();
        }
@@ -366,7 +676,7 @@ services_keys (int number, char *key[])
          *proto++ = '\0';
 
          if (isdigit (key[i][0]))
-           serv = getservbyport (atol (key[i]), proto);
+           serv = getservbyport (htons (atol (key[i])), proto);
          else
            serv = getservbyname (key[i], proto);
 
@@ -380,139 +690,182 @@ services_keys (int number, char *key[])
   return result;
 }
 
-/* the main function */
-int
-main (int argc, char *argv[])
+/* This is for shadow */
+static void
+print_shadow (struct spwd *sp)
 {
-  int remaining;
-
-  /* Set locale via LC_ALL.  */
-  setlocale (LC_ALL, "");
-  /* Set the text message domain.  */
-  textdomain (PACKAGE);
+  printf ("%s:%s:",
+         sp->sp_namp ? sp->sp_namp : "",
+         sp->sp_pwdp ? sp->sp_pwdp : "");
+
+#define SHADOW_FIELD(n) \
+  if (sp->n == -1)                                                           \
+    putchar_unlocked (':');                                                  \
+  else                                                                       \
+    printf ("%ld:", sp->n)
+
+  SHADOW_FIELD (sp_lstchg);
+  SHADOW_FIELD (sp_min);
+  SHADOW_FIELD (sp_max);
+  SHADOW_FIELD (sp_warn);
+  SHADOW_FIELD (sp_inact);
+  SHADOW_FIELD (sp_expire);
+  if (sp->sp_flag == ~0ul)
+    putchar_unlocked ('\n');
+  else
+    printf ("%lu\n", sp->sp_flag);
+}
 
-  /* Parse and process arguments.  */
-  argp_parse (&argp, argc, argv, 0, &remaining, NULL);
+static int
+shadow_keys (int number, char *key[])
+{
+  int result = 0;
+  int i;
 
-  if ((argc - remaining) < 1)
+  if (number == 0)
     {
-      error (0, 0, gettext ("wrong number of arguments"));
-      argp_help (&argp, stdout, ARGP_HELP_SEE, program_invocation_short_name);
-      return 1;
+      struct spwd *sp;
+
+      setspent ();
+      while ((sp = getspent ()) != NULL)
+       print_shadow (sp);
+      endpwent ();
+      return result;
     }
 
-  switch(argv[1][0])
+  for (i = 0; i < number; ++i)
     {
-    case 'g': /* group */
-      if (strcmp (argv[1], "group") == 0)
-       {
-         if (argc == 2)
-           {
-             struct group *grp;
+      struct spwd *sp;
 
-             setgrent ();
-             while ((grp = getgrent()) != NULL)
-               print_group (grp);
-             endgrent ();
-           }
-         else
-           return group_keys (argc - 2, &argv[2]);
-       }
-      else
-       goto error;
-      break;
-    case 'h': /* hosts */
-      if (strcmp (argv[1], "hosts") == 0)
-       {
-         if (argc == 2)
-           {
-             struct hostent *host;
+      sp = getspnam (key[i]);
 
-             sethostent (0);
-             while ((host = gethostent()) != NULL)
-               print_hosts (host);
-             endhostent ();
-           }
-         else
-           return hosts_keys (argc - 2, &argv[2]);
-       }
+      if (sp == NULL)
+       result = 2;
       else
-       goto error;
-      break;
-    case 'n': /* networks */
-      if (strcmp (argv[1], "networks") == 0)
-       {
-         if (argc == 2)
-           {
-             struct netent *net;
+       print_shadow (sp);
+    }
 
-             setnetent (0);
-             while ((net = getnetent()) != NULL)
-               print_networks (net);
-             endnetent ();
-           }
-         else
-           return networks_keys (argc - 2, &argv[2]);
-       }
-      else
-       goto error;
+  return result;
+}
+
+struct
+  {
+    const char *name;
+    int (*func) (int number, char *key[]);
+  } databases[] =
+  {
+#define D(name) { #name, name ## _keys },
+D(ahosts)
+D(aliases)
+D(ethers)
+D(group)
+D(hosts)
+D(netgroup)
+D(networks)
+D(passwd)
+D(protocols)
+D(rpc)
+D(services)
+D(shadow)
+#undef D
+    { NULL, NULL }
+  };
+
+/* Handle arguments found by argp. */
+static error_t
+parse_option (int key, char *arg, struct argp_state *state)
+{
+  int i;
+  switch (key)
+    {
+    case 's':
+      for (i = 0; databases[i].name; ++i)
+       __nss_configure_lookup (databases[i].name, arg);
       break;
-    case 'p': /* passwd, protocols */
-      if (strcmp (argv[1], "passwd") == 0)
-       {
-         if (argc == 2)
-           {
-             struct passwd *pwd;
 
-             setpwent ();
-             while ((pwd = getpwent()) != NULL)
-               print_passwd (pwd);
-             endpwent ();
-           }
-         else
-           return passwd_keys (argc - 2, &argv[2]);
-       }
-      else if (strcmp (argv[1], "protocols") == 0)
-       {
-         if (argc == 2)
-           {
-             struct protoent *proto;
+    default:
+      return ARGP_ERR_UNKNOWN;
+    }
 
-             setprotoent (0);
-             while ((proto = getprotoent()) != NULL)
-               print_protocols (proto);
-             endprotoent ();
-           }
-         else
-           return protocols_keys (argc - 2, &argv[2]);
-       }
-      else
-       goto error;
-      break;
-    case 's': /* services */
-      if (strcmp (argv[1], "services") == 0)
+  return 0;
+}
+
+/* build doc */
+static void
+build_doc (void)
+{
+  int i, j, len;
+  char *short_doc, *long_doc, *doc, *p;
+
+  short_doc = _("getent - get entries from administrative database.");
+  long_doc = _("Supported databases:");
+  len = strlen (short_doc) + strlen (long_doc) + 3;
+
+  for (i = 0; databases[i].name; ++i)
+    len += strlen (databases[i].name) + 1;
+
+  doc = (char *) malloc (len);
+  if (doc == NULL)
+    doc = short_doc;
+  else
+    {
+      p = stpcpy (doc, short_doc);
+      *p++ = '\v';
+      p = stpcpy (p, long_doc);
+      *p++ = '\n';
+
+      for (i = 0, j = 0; databases[i].name; ++i)
        {
-         if (argc == 2)
+         len = strlen (databases[i].name);
+         if (i != 0)
            {
-             struct servent *serv;
-
-             setservent (0);
-             while ((serv = getservent()) != NULL)
-               print_services (serv);
-             endservent ();
+             if (j + len > 72)
+               {
+                 j = 0;
+                 *p++ = '\n';
+               }
+             else
+               *p++ = ' ';
            }
-         else
-           return services_keys (argc - 2, &argv[2]);
+
+         p = mempcpy (p, databases[i].name, len);
+         j += len + 1;
        }
-      else
-       goto error;
-      break;
-    default:
-    error:
-      fprintf (stderr, _("Unknown database: %s\n"), argv[1]);
+    }
+
+  argp.doc = doc;
+}
+
+/* the main function */
+int
+main (int argc, char *argv[])
+{
+  int remaining, i;
+
+  /* Set locale via LC_ALL.  */
+  setlocale (LC_ALL, "");
+  /* Set the text message domain.  */
+  textdomain (PACKAGE);
+
+  /* Build argp.doc.  */
+  build_doc ();
+
+  /* Parse and process arguments.  */
+  argp_parse (&argp, argc, argv, 0, &remaining, NULL);
+
+  if ((argc - remaining) < 1)
+    {
+      error (0, 0, gettext ("wrong number of arguments"));
       argp_help (&argp, stdout, ARGP_HELP_SEE, program_invocation_short_name);
       return 1;
     }
 
-  return 0;
+  for (i = 0; databases[i].name; ++i)
+    if (argv[remaining][0] == databases[i].name[0]
+       && !strcmp (argv[remaining], databases[i].name))
+      return databases[i].func (argc - remaining - 1, &argv[remaining + 1]);
+
+  fprintf (stderr, _("Unknown database: %s\n"), argv[remaining]);
+  argp_help (&argp, stdout, ARGP_HELP_SEE, program_invocation_short_name);
+  return 1;
 }