nss/getent.c

   1 /* Copyright (c) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
   2    This file is part of the GNU C Library.
   3    Contributed by Thorsten Kukuk <kukuk@suse.de>, 1998.
   4
   5    The GNU C Library is free software; you can redistribute it and/or
   6    modify it under the terms of the GNU Lesser General Public
   7    License as published by the Free Software Foundation; either
   8    version 2.1 of the License, or (at your option) any later version.
   9
  10    The GNU C Library is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13    Lesser General Public License for more details.
  14
  15    You should have received a copy of the GNU Lesser General Public
  16    License along with the GNU C Library; if not, write to the Free
  17    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
  18    02111-1307 USA.  */
  19
  20 /* getent: get entries from administrative database.  */
  21
  22 #include <aliases.h>
  23 #include <argp.h>
  24 #include <grp.h>
  25 #include <pwd.h>
  26 #include <shadow.h>
  27 #include <ctype.h>
  28 #include <error.h>
  29 #include <libintl.h>
  30 #include <locale.h>
  31 #include <netdb.h>
  32 #include <stdio.h>
  33 #include <stdlib.h>
  34 #include <string.h>
  35 #include <sys/socket.h>
  36 #include <netinet/in.h>
  37 #include <netinet/ether.h>
  38 #include <arpa/inet.h>
  39 #include <arpa/nameser.h>
  40
  41 /* Get libc version number.  */
  42 #include <version.h>
  43
  44 #define PACKAGE _libc_intl_domainname
  45
  46 /* Name and version of program.  */
  47 static void print_version (FILE *stream, struct argp_state *state);
  48 void (*argp_program_version_hook) (FILE *, struct argp_state *) = print_version;
  49
  50 /* Short description of parameters.  */
  51 static const char args_doc[] = N_("database [key ...]");
  52
  53 /* Supported options. */
  54 static const struct argp_option args_options[] =
  55   {
  56     { "service", 's', "CONFIG", 0, N_("Service configuration to be used") },
  57     { NULL, 0, NULL, 0, NULL },
  58   };
  59
  60 /* Prototype for option handler.  */
  61 static error_t parse_option (int key, char *arg, struct argp_state *state);
  62
  63 /* Data structure to communicate with argp functions.  */
  64 static struct argp argp =
  65   {
  66     args_options, parse_option, args_doc, NULL,
  67   };
  68
  69 /* Print the version information.  */
  70 static void
  71 print_version (FILE *stream, struct argp_state *state)
  72 {
  73   fprintf (stream, "getent (GNU %s) %s\n", PACKAGE, VERSION);
  74   fprintf (stream, gettext ("\
  75 Copyright (C) %s Free Software Foundation, Inc.\n\
  76 This is free software; see the source for copying conditions.  There is NO\n\
  77 warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n\
  78 "), "2001");
  79   fprintf (stream, gettext ("Written by %s.\n"), "Thorsten Kukuk");
  80 }
  81
  82 /* This is for aliases */
  83 static inline void
  84 print_aliases (struct aliasent *alias)
  85 {
  86   unsigned int i = 0;
  87
  88   printf ("%s: ", alias->alias_name);
  89   for  (i = strlen (alias->alias_name); i < 14; ++i)
  90     fputs_unlocked (" ", stdout);
  91
  92   for (i = 0; i < alias->alias_members_len; ++i)
  93     printf ("%s%s",
  94             alias->alias_members [i],
  95             i + 1 == alias->alias_members_len ? "\n" : ", ");
  96 }
  97
  98 static int
  99 aliases_keys (int number, char *key[])
 100 {
 101   int result = 0;
 102   int i;
 103   struct aliasent *alias;
 104
 105   if (number == 0)
 106     {
 107       setaliasent ();
 108       while ((alias = getaliasent ()) != NULL)
 109         print_aliases (alias);
 110       endaliasent ();
 111       return result;
 112     }
 113
 114   for (i = 0; i < number; ++i)
 115     {
 116       alias = getaliasbyname (key[i]);
 117
 118       if (alias == NULL)
 119         result = 2;
 120       else
 121         print_aliases (alias);
 122     }
 123
 124   return result;
 125 }
 126
 127 /* This is for ethers */
 128 static int
 129 ethers_keys (int number, char *key[])
 130 {
 131   int result = 0;
 132   int i;
 133
 134   if (number == 0)
 135     {
 136       fprintf (stderr, _("Enumeration not supported on %s\n"), "ethers");
 137       return 3;
 138     }
 139
 140   for (i = 0; i < number; ++i)
 141     {
 142       struct ether_addr *ethp, eth;
 143       char buffer [1024], *p;
 144
 145       ethp = ether_aton (key[i]);
 146       if (ethp != NULL)
 147         {
 148           if (ether_ntohost (buffer, ethp))
 149             {
 150               result = 2;
 151               continue;
 152             }
 153           p = buffer;
 154         }
 155       else
 156         {
 157           if (ether_hostton (key[i], &eth))
 158             {
 159               result = 2;
 160               continue;
 161             }
 162           p = key[i];
 163           ethp = &eth;
 164         }
 165       printf ("%s %s\n", ether_ntoa (ethp), p);
 166     }
 167
 168   return result;
 169 }
 170
 171 /* This is for group */
 172 static inline void
 173 print_group (struct group *grp)
 174 {
 175   unsigned int i = 0;
 176
 177   printf ("%s:%s:%ld:", grp->gr_name ? grp->gr_name : "",
 178           grp->gr_passwd ? grp->gr_passwd : "",
 179           (unsigned long int) grp->gr_gid);
 180
 181   while (grp->gr_mem[i] != NULL)
 182     {
 183       fputs_unlocked (grp->gr_mem[i], stdout);
 184       ++i;
 185       if (grp->gr_mem[i] != NULL)
 186         putchar_unlocked (',');
 187     }
 188   putchar_unlocked ('\n');
 189 }
 190
 191 static int
 192 group_keys (int number, char *key[])
 193 {
 194   int result = 0;
 195   int i;
 196   struct group *grp;
 197
 198   if (number == 0)
 199     {
 200       setgrent ();
 201       while ((grp = getgrent ()) != NULL)
 202         print_group (grp);
 203       endgrent ();
 204       return result;
 205     }
 206
 207   for (i = 0; i < number; ++i)
 208     {
 209       if (isdigit (key[i][0]))
 210         grp = getgrgid (atol (key[i]));
 211       else
 212         grp = getgrnam (key[i]);
 213
 214       if (grp == NULL)
 215         result = 2;
 216       else
 217         print_group (grp);
 218     }
 219
 220   return result;
 221 }
 222
 223 /* This is for hosts */
 224 static inline void
 225 print_hosts (struct hostent *host)
 226 {
 227   unsigned int i;
 228   char buf[INET6_ADDRSTRLEN];
 229   const char *ip = inet_ntop (host->h_addrtype, host->h_addr_list[0],
 230                               buf, sizeof (buf));
 231
 232   printf ("%-15s %s", ip, host->h_name);
 233
 234   i = 0;
 235   while (host->h_aliases[i] != NULL)
 236     {
 237       putchar_unlocked (' ');
 238       fputs_unlocked (host->h_aliases[i], stdout);
 239       ++i;
 240     }
 241   putchar_unlocked ('\n');
 242 }
 243
 244 static int
 245 hosts_keys (int number, char *key[])
 246 {
 247   int result = 0;
 248   int i;
 249   struct hostent *host;
 250
 251   if (number == 0)
 252     {
 253       sethostent (0);
 254       while ((host = gethostent ()) != NULL)
 255         print_hosts (host);
 256       endhostent ();
 257       return result;
 258     }
 259
 260   for (i = 0; i < number; ++i)
 261     {
 262       struct hostent *host = NULL;
 263
 264       if (strchr (key[i], ':') != NULL)
 265         {
 266           char addr[IN6ADDRSZ];
 267           if (inet_pton (AF_INET6, key[i], &addr))
 268             host = gethostbyaddr (addr, sizeof (addr), AF_INET6);
 269         }
 270       else if (isdigit (key[i][0]))
 271         {
 272           char addr[INADDRSZ];
 273           if (inet_pton (AF_INET, key[i], &addr))
 274             host = gethostbyaddr (addr, sizeof (addr), AF_INET);
 275         }
 276       else if ((host = gethostbyname2 (key[i], AF_INET6)) == NULL)
 277         host = gethostbyname2 (key[i], AF_INET);
 278
 279       if (host == NULL)
 280         result = 2;
 281       else
 282         print_hosts (host);
 283     }
 284
 285   return result;
 286 }
 287
 288 /* This is for netgroup */
 289 static int
 290 netgroup_keys (int number, char *key[])
 291 {
 292   int result = 0;
 293   int i;
 294
 295   if (number == 0)
 296     {
 297       fprintf (stderr, _("Enumeration not supported on %s\n"), "netgroup");
 298       return 3;
 299     }
 300
 301   for (i = 0; i < number; ++i)
 302     {
 303       if (!setnetgrent (key[i]))
 304         result = 2;
 305       else
 306         {
 307           char *p[3];
 308
 309           printf ("%-21s", key[i]);
 310
 311           while (getnetgrent (p, p + 1, p + 2))
 312             printf (" (%s, %s, %s)", p[0] ?: " ", p[1] ?: "", p[2] ?: "");
 313           putchar_unlocked ('\n');
 314         }
 315     }
 316
 317   return result;
 318 }
 319
 320 /* This is for networks */
 321 static inline void
 322 print_networks (struct netent *net)
 323 {
 324   unsigned int i;
 325   struct in_addr ip;
 326   ip.s_addr = htonl (net->n_net);
 327
 328   printf ("%-21s %s", net->n_name, inet_ntoa (ip));
 329
 330   i = 0;
 331   while (net->n_aliases[i] != NULL)
 332     {
 333       putchar_unlocked (' ');
 334       fputs_unlocked (net->n_aliases[i], stdout);
 335       ++i;
 336       if (net->n_aliases[i] != NULL)
 337         putchar_unlocked (',');
 338     }
 339   putchar_unlocked ('\n');
 340 }
 341
 342 static int
 343 networks_keys (int number, char *key[])
 344 {
 345   int result = 0;
 346   int i;
 347   struct netent *net;
 348
 349   if (number == 0)
 350     {
 351       setnetent (0);
 352       while ((net = getnetent ()) != NULL)
 353         print_networks (net);
 354       endnetent ();
 355       return result;
 356     }
 357
 358   for (i = 0; i < number; ++i)
 359     {
 360       if (isdigit (key[i][0]))
 361         net = getnetbyaddr (inet_addr (key[i]), AF_UNIX);
 362       else
 363         net = getnetbyname (key[i]);
 364
 365       if (net == NULL)
 366         result = 2;
 367       else
 368         print_networks (net);
 369     }
 370
 371   return result;
 372 }
 373
 374 /* Now is all for passwd */
 375 static inline void
 376 print_passwd (struct passwd *pwd)
 377 {
 378   printf ("%s:%s:%ld:%ld:%s:%s:%s\n",
 379           pwd->pw_name ? pwd->pw_name : "",
 380           pwd->pw_passwd ? pwd->pw_passwd : "",
 381           (unsigned long int) pwd->pw_uid,
 382           (unsigned long int) pwd->pw_gid,
 383           pwd->pw_gecos ? pwd->pw_gecos : "",
 384           pwd->pw_dir ? pwd->pw_dir : "",
 385           pwd->pw_shell ? pwd->pw_shell : "");
 386 }
 387
 388 static int
 389 passwd_keys (int number, char *key[])
 390 {
 391   int result = 0;
 392   int i;
 393   struct passwd *pwd;
 394
 395   if (number == 0)
 396     {
 397       setpwent ();
 398       while ((pwd = getpwent ()) != NULL)
 399         print_passwd (pwd);
 400       endpwent ();
 401       return result;
 402     }
 403
 404   for (i = 0; i < number; ++i)
 405     {
 406       if (isdigit (key[i][0]))
 407         pwd = getpwuid (atol (key[i]));
 408       else
 409         pwd = getpwnam (key[i]);
 410
 411       if (pwd == NULL)
 412         result = 2;
 413       else
 414         print_passwd (pwd);
 415     }
 416
 417   return result;
 418 }
 419
 420 /* This is for protocols */
 421 static inline void
 422 print_protocols (struct protoent *proto)
 423 {
 424   unsigned int i;
 425
 426   printf ("%-21s %d", proto->p_name, proto->p_proto);
 427
 428   i = 0;
 429   while (proto->p_aliases[i] != NULL)
 430     {
 431       putchar_unlocked (' ');
 432       fputs_unlocked (proto->p_aliases[i], stdout);
 433       ++i;
 434     }
 435   putchar_unlocked ('\n');
 436 }
 437
 438 static int
 439 protocols_keys (int number, char *key[])
 440 {
 441   int result = 0;
 442   int i;
 443   struct protoent *proto;
 444
 445   if (number == 0)
 446     {
 447       setprotoent (0);
 448       while ((proto = getprotoent ()) != NULL)
 449         print_protocols (proto);
 450       endprotoent ();
 451       return result;
 452     }
 453
 454   for (i = 0; i < number; ++i)
 455     {
 456       if (isdigit (key[i][0]))
 457         proto = getprotobynumber (atol (key[i]));
 458       else
 459         proto = getprotobyname (key[i]);
 460
 461       if (proto == NULL)
 462         result = 2;
 463       else
 464         print_protocols (proto);
 465     }
 466
 467   return result;
 468 }
 469
 470 /* Now is all for rpc */
 471 static inline void
 472 print_rpc (struct rpcent *rpc)
 473 {
 474   int i;
 475
 476   printf ("%-15s %d%s",
 477           rpc->r_name, rpc->r_number, rpc->r_aliases[0] ? " " : "");
 478
 479   for (i = 0; rpc->r_aliases[i]; ++i)
 480     printf (" %s", rpc->r_aliases[i]);
 481   putchar_unlocked ('\n');
 482 }
 483
 484 static int
 485 rpc_keys (int number, char *key[])
 486 {
 487   int result = 0;
 488   int i;
 489   struct rpcent *rpc;
 490
 491   if (number == 0)
 492     {
 493       setrpcent (0);
 494       while ((rpc = getrpcent ()) != NULL)
 495         print_rpc (rpc);
 496       endrpcent ();
 497       return result;
 498     }
 499
 500   for (i = 0; i < number; ++i)
 501     {
 502       if (isdigit (key[i][0]))
 503         rpc = getrpcbynumber (atol (key[i]));
 504       else
 505         rpc = getrpcbyname (key[i]);
 506
 507       if (rpc == NULL)
 508         result = 2;
 509       else
 510         print_rpc (rpc);
 511     }
 512
 513   return result;
 514 }
 515
 516 /* for services */
 517 static void
 518 print_services (struct servent *serv)
 519 {
 520   unsigned int i;
 521
 522   printf ("%-21s %d/%s", serv->s_name, ntohs (serv->s_port), serv->s_proto);
 523
 524   i = 0;
 525   while (serv->s_aliases[i] != NULL)
 526     {
 527       putchar_unlocked (' ');
 528       fputs_unlocked (serv->s_aliases[i], stdout);
 529       ++i;
 530     }
 531   putchar_unlocked ('\n');
 532 }
 533
 534 static int
 535 services_keys (int number, char *key[])
 536 {
 537   int result = 0;
 538   int i;
 539   struct servent *serv;
 540
 541   if (!number)
 542     {
 543       setservent (0);
 544       while ((serv = getservent ()) != NULL)
 545         print_services (serv);
 546       endservent ();
 547       return result;
 548     }
 549
 550   for (i = 0; i < number; ++i)
 551     {
 552       struct servent *serv;
 553       char *proto = strchr (key[i], '/');
 554
 555       if (proto == NULL)
 556         {
 557           setservent (0);
 558           if (isdigit (key[i][0]))
 559             {
 560               int port = htons (atol (key[i]));
 561               while ((serv = getservent ()) != NULL)
 562                 if (serv->s_port == port)
 563                   {
 564                     print_services (serv);
 565                     break;
 566                   }
 567             }
 568           else
 569             {
 570               int j;
 571
 572               while ((serv = getservent ()) != NULL)
 573                 if (strcmp (serv->s_name, key[i]) == 0)
 574                   {
 575                     print_services (serv);
 576                     break;
 577                   }
 578                 else
 579                   for (j = 0; serv->s_aliases[j]; ++j)
 580                     if (strcmp (serv->s_aliases[j], key[i]) == 0)
 581                       {
 582                         print_services (serv);
 583                         break;
 584                       }
 585             }
 586           endservent ();
 587         }
 588       else
 589         {
 590           *proto++ = '\0';
 591
 592           if (isdigit (key[i][0]))
 593             serv = getservbyport (htons (atol (key[i])), proto);
 594           else
 595             serv = getservbyname (key[i], proto);
 596
 597           if (serv == NULL)
 598             result = 2;
 599           else
 600             print_services (serv);
 601         }
 602     }
 603
 604   return result;
 605 }
 606
 607 /* This is for shadow */
 608 static inline void
 609 print_shadow (struct spwd *sp)
 610 {
 611   printf ("%s:%s:",
 612           sp->sp_namp ? sp->sp_namp : "",
 613           sp->sp_pwdp ? sp->sp_pwdp : "");
 614
 615 #define SHADOW_FIELD(n) \
 616   if (sp->n == -1)                                                            \
 617     putchar_unlocked (':');                                                   \
 618   else                                                                        \
 619     printf ("%ld:", sp->n)
 620
 621   SHADOW_FIELD (sp_lstchg);
 622   SHADOW_FIELD (sp_min);
 623   SHADOW_FIELD (sp_max);
 624   SHADOW_FIELD (sp_warn);
 625   SHADOW_FIELD (sp_inact);
 626   SHADOW_FIELD (sp_expire);
 627   if (sp->sp_flag == ~0ul)
 628     putchar_unlocked ('\n');
 629   else
 630     printf ("%lu\n", sp->sp_flag);
 631 }
 632
 633 static int
 634 shadow_keys (int number, char *key[])
 635 {
 636   int result = 0;
 637   int i;
 638
 639   if (number == 0)
 640     {
 641       struct spwd *sp;
 642
 643       setspent ();
 644       while ((sp = getspent ()) != NULL)
 645         print_shadow (sp);
 646       endpwent ();
 647       return result;
 648     }
 649
 650   for (i = 0; i < number; ++i)
 651     {
 652       struct spwd *sp;
 653
 654       sp = getspnam (key[i]);
 655
 656       if (sp == NULL)
 657         result = 2;
 658       else
 659         print_shadow (sp);
 660     }
 661
 662   return result;
 663 }
 664
 665 struct
 666   {
 667     const char *name;
 668     int (*func) (int number, char *key[]);
 669   } databases[] =
 670   {
 671 #define D(name) { #name, name ## _keys },
 672 D(aliases)
 673 D(ethers)
 674 D(group)
 675 D(hosts)
 676 D(netgroup)
 677 D(networks)
 678 D(passwd)
 679 D(protocols)
 680 D(rpc)
 681 D(services)
 682 D(shadow)
 683 #undef D
 684     { NULL, NULL }
 685   };
 686
 687 /* Handle arguments found by argp. */
 688 static error_t
 689 parse_option (int key, char *arg, struct argp_state *state)
 690 {
 691   int i;
 692   switch (key)
 693     {
 694     case 's':
 695       for (i = 0; databases[i].name; ++i)
 696         __nss_configure_lookup (databases[i].name, arg);
 697       break;
 698
 699     default:
 700       return ARGP_ERR_UNKNOWN;
 701     }
 702
 703   return 0;
 704 }
 705
 706 /* build doc */
 707 static inline void
 708 build_doc (void)
 709 {
 710   int i, j, len;
 711   char *short_doc, *long_doc, *doc, *p;
 712
 713   short_doc = _("getent - get entries from administrative database.");
 714   long_doc = _("Supported databases:");
 715   len = strlen (short_doc) + strlen (long_doc) + 3;
 716
 717   for (i = 0; databases[i].name; ++i)
 718     len += strlen (databases[i].name) + 1;
 719
 720   doc = (char *) malloc (len);
 721   if (doc == NULL)
 722     doc = short_doc;
 723   else
 724     {
 725       p = stpcpy (doc, short_doc);
 726       *p++ = '\v';
 727       p = stpcpy (p, long_doc);
 728       *p++ = '\n';
 729
 730       for (i = 0, j = 0; databases[i].name; ++i)
 731         {
 732           len = strlen (databases[i].name);
 733           if (i != 0)
 734             {
 735               if (j + len > 72)
 736                 {
 737                   j = 0;
 738                   *p++ = '\n';
 739                 }
 740               else
 741                 *p++ = ' ';
 742             }
 743
 744           p = mempcpy (p, databases[i].name, len);
 745           j += len + 1;
 746         }
 747     }
 748
 749   argp.doc = doc;
 750 }
 751
 752 /* the main function */
 753 int
 754 main (int argc, char *argv[])
 755 {
 756   int remaining, i;
 757
 758   /* Set locale via LC_ALL.  */
 759   setlocale (LC_ALL, "");
 760   /* Set the text message domain.  */
 761   textdomain (PACKAGE);
 762
 763   /* Build argp.doc.  */
 764   build_doc ();
 765
 766   /* Parse and process arguments.  */
 767   argp_parse (&argp, argc, argv, 0, &remaining, NULL);
 768
 769   if ((argc - remaining) < 1)
 770     {
 771       error (0, 0, gettext ("wrong number of arguments"));
 772       argp_help (&argp, stdout, ARGP_HELP_SEE, program_invocation_short_name);
 773       return 1;
 774     }
 775
 776   for (i = 0; databases[i].name; ++i)
 777     if (argv[remaining][0] == databases[i].name[0]
 778         && !strcmp (argv[remaining], databases[i].name))
 779       return databases[i].func (argc - remaining - 1, &argv[remaining + 1]);
 780
 781   fprintf (stderr, _("Unknown database: %s\n"), argv[remaining]);
 782   argp_help (&argp, stdout, ARGP_HELP_SEE, program_invocation_short_name);
 783   return 1;
 784 }