Update copyright year.
[platform/upstream/glibc.git] / nss / getent.c
1 /* Copyright (c) 1998-2003, 2004 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 "), "2004");
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         {
211            char *ep;
212            gid_t arg_gid = strtoul (key[i], &ep, 10);
213
214            if (*key[i] != '\0' && *ep == '\0')  /* valid numeric uid */
215              grp = getgrgid (arg_gid);
216            else
217              grp = NULL;
218         }
219       else
220         grp = getgrnam (key[i]);
221
222       if (grp == NULL)
223         result = 2;
224       else
225         print_group (grp);
226     }
227
228   return result;
229 }
230
231 /* This is for hosts */
232 static void
233 print_hosts (struct hostent *host)
234 {
235   unsigned int cnt;
236
237   for (cnt = 0; host->h_addr_list[cnt] != NULL; ++cnt)
238     {
239       char buf[INET6_ADDRSTRLEN];
240       const char *ip = inet_ntop (host->h_addrtype, host->h_addr_list[cnt],
241                                   buf, sizeof (buf));
242
243       printf ("%-15s %s", ip, host->h_name);
244
245       unsigned int i;
246       for (i = 0; host->h_aliases[i] != NULL; ++i)
247         {
248           putchar_unlocked (' ');
249           fputs_unlocked (host->h_aliases[i], stdout);
250         }
251       putchar_unlocked ('\n');
252     }
253 }
254
255 static int
256 hosts_keys (int number, char *key[])
257 {
258   int result = 0;
259   int i;
260   struct hostent *host;
261
262   if (number == 0)
263     {
264       sethostent (0);
265       while ((host = gethostent ()) != NULL)
266         print_hosts (host);
267       endhostent ();
268       return result;
269     }
270
271   for (i = 0; i < number; ++i)
272     {
273       struct hostent *host = NULL;
274
275       if (strchr (key[i], ':') != NULL)
276         {
277           char addr[IN6ADDRSZ];
278           if (inet_pton (AF_INET6, key[i], &addr))
279             host = gethostbyaddr (addr, sizeof (addr), AF_INET6);
280         }
281       else if (isdigit (key[i][0]))
282         {
283           char addr[INADDRSZ];
284           if (inet_pton (AF_INET, key[i], &addr))
285             host = gethostbyaddr (addr, sizeof (addr), AF_INET);
286         }
287       else if ((host = gethostbyname2 (key[i], AF_INET6)) == NULL)
288         host = gethostbyname2 (key[i], AF_INET);
289
290       if (host == NULL)
291         result = 2;
292       else
293         print_hosts (host);
294     }
295
296   return result;
297 }
298
299 /* This is for hosts, but using getaddrinfo */
300 static int
301 ahosts_keys (int number, char *key[])
302 {
303   int result = 0;
304   int i;
305   struct hostent *host;
306
307   if (number == 0)
308     {
309       sethostent (0);
310       while ((host = gethostent ()) != NULL)
311         print_hosts (host);
312       endhostent ();
313       return result;
314     }
315
316   struct addrinfo hint;
317   memset (&hint, '\0', sizeof (hint));
318   hint.ai_flags = AI_V4MAPPED | AI_ADDRCONFIG | AI_CANONNAME;
319   hint.ai_family = AF_UNSPEC;
320
321   for (i = 0; i < number; ++i)
322     {
323       struct addrinfo *res;
324
325       if (getaddrinfo (key[i], NULL, &hint, &res) != 0)
326         result = 2;
327       else
328         {
329           struct addrinfo *runp = res;
330
331           while (runp != NULL)
332             {
333               char sockbuf[20];
334               const char *sockstr;
335               if (runp->ai_socktype == SOCK_STREAM)
336                 sockstr = "STREAM";
337               else if (runp->ai_socktype == SOCK_DGRAM)
338                 sockstr = "DGRAM";
339               else if (runp->ai_socktype == SOCK_RAW)
340                 sockstr = "RAW";
341               else
342                 {
343                   snprintf (sockbuf, sizeof (sockbuf), "%d",
344                             runp->ai_socktype);
345                   sockstr = sockbuf;
346                 }
347
348               char buf[INET6_ADDRSTRLEN];
349               printf ("%-15s %-6s %s\n",
350                       inet_ntop (runp->ai_family,
351                                  &((struct sockaddr_in *) runp->ai_addr)->sin_addr,
352                                  buf, sizeof (buf)),
353                       sockstr,
354                       runp->ai_canonname);
355
356               runp = runp->ai_next;
357             }
358
359           freeaddrinfo (res);
360         }
361     }
362
363   return result;
364 }
365
366 /* This is for netgroup */
367 static int
368 netgroup_keys (int number, char *key[])
369 {
370   int result = 0;
371   int i;
372
373   if (number == 0)
374     {
375       fprintf (stderr, _("Enumeration not supported on %s\n"), "netgroup");
376       return 3;
377     }
378
379   for (i = 0; i < number; ++i)
380     {
381       if (!setnetgrent (key[i]))
382         result = 2;
383       else
384         {
385           char *p[3];
386
387           printf ("%-21s", key[i]);
388
389           while (getnetgrent (p, p + 1, p + 2))
390             printf (" (%s, %s, %s)", p[0] ?: " ", p[1] ?: "", p[2] ?: "");
391           putchar_unlocked ('\n');
392         }
393     }
394
395   return result;
396 }
397
398 /* This is for networks */
399 static void
400 print_networks (struct netent *net)
401 {
402   unsigned int i;
403   struct in_addr ip;
404   ip.s_addr = htonl (net->n_net);
405
406   printf ("%-21s %s", net->n_name, inet_ntoa (ip));
407
408   i = 0;
409   while (net->n_aliases[i] != NULL)
410     {
411       putchar_unlocked (' ');
412       fputs_unlocked (net->n_aliases[i], stdout);
413       ++i;
414       if (net->n_aliases[i] != NULL)
415         putchar_unlocked (',');
416     }
417   putchar_unlocked ('\n');
418 }
419
420 static int
421 networks_keys (int number, char *key[])
422 {
423   int result = 0;
424   int i;
425   struct netent *net;
426
427   if (number == 0)
428     {
429       setnetent (0);
430       while ((net = getnetent ()) != NULL)
431         print_networks (net);
432       endnetent ();
433       return result;
434     }
435
436   for (i = 0; i < number; ++i)
437     {
438       if (isdigit (key[i][0]))
439         net = getnetbyaddr (inet_addr (key[i]), AF_UNIX);
440       else
441         net = getnetbyname (key[i]);
442
443       if (net == NULL)
444         result = 2;
445       else
446         print_networks (net);
447     }
448
449   return result;
450 }
451
452 /* Now is all for passwd */
453 static inline void
454 print_passwd (struct passwd *pwd)
455 {
456   printf ("%s:%s:%ld:%ld:%s:%s:%s\n",
457           pwd->pw_name ? pwd->pw_name : "",
458           pwd->pw_passwd ? pwd->pw_passwd : "",
459           (unsigned long int) pwd->pw_uid,
460           (unsigned long int) pwd->pw_gid,
461           pwd->pw_gecos ? pwd->pw_gecos : "",
462           pwd->pw_dir ? pwd->pw_dir : "",
463           pwd->pw_shell ? pwd->pw_shell : "");
464 }
465
466 static int
467 passwd_keys (int number, char *key[])
468 {
469   int result = 0;
470   int i;
471   struct passwd *pwd;
472
473   if (number == 0)
474     {
475       setpwent ();
476       while ((pwd = getpwent ()) != NULL)
477         print_passwd (pwd);
478       endpwent ();
479       return result;
480     }
481
482   for (i = 0; i < number; ++i)
483     {
484       if (isdigit (key[i][0]))
485         {
486            char *ep;
487            uid_t arg_uid = strtoul (key[i], &ep, 10);
488
489            if (*key[i] != '\0' && *ep == '\0')  /* valid numeric uid */
490              pwd = getpwuid (arg_uid);
491            else
492              pwd = NULL;
493         }
494       else
495         pwd = getpwnam (key[i]);
496
497       if (pwd == NULL)
498         result = 2;
499       else
500         print_passwd (pwd);
501     }
502
503   return result;
504 }
505
506 /* This is for protocols */
507 static inline void
508 print_protocols (struct protoent *proto)
509 {
510   unsigned int i;
511
512   printf ("%-21s %d", proto->p_name, proto->p_proto);
513
514   i = 0;
515   while (proto->p_aliases[i] != NULL)
516     {
517       putchar_unlocked (' ');
518       fputs_unlocked (proto->p_aliases[i], stdout);
519       ++i;
520     }
521   putchar_unlocked ('\n');
522 }
523
524 static int
525 protocols_keys (int number, char *key[])
526 {
527   int result = 0;
528   int i;
529   struct protoent *proto;
530
531   if (number == 0)
532     {
533       setprotoent (0);
534       while ((proto = getprotoent ()) != NULL)
535         print_protocols (proto);
536       endprotoent ();
537       return result;
538     }
539
540   for (i = 0; i < number; ++i)
541     {
542       if (isdigit (key[i][0]))
543         proto = getprotobynumber (atol (key[i]));
544       else
545         proto = getprotobyname (key[i]);
546
547       if (proto == NULL)
548         result = 2;
549       else
550         print_protocols (proto);
551     }
552
553   return result;
554 }
555
556 /* Now is all for rpc */
557 static inline void
558 print_rpc (struct rpcent *rpc)
559 {
560   int i;
561
562   printf ("%-15s %d%s",
563           rpc->r_name, rpc->r_number, rpc->r_aliases[0] ? " " : "");
564
565   for (i = 0; rpc->r_aliases[i]; ++i)
566     printf (" %s", rpc->r_aliases[i]);
567   putchar_unlocked ('\n');
568 }
569
570 static int
571 rpc_keys (int number, char *key[])
572 {
573   int result = 0;
574   int i;
575   struct rpcent *rpc;
576
577   if (number == 0)
578     {
579       setrpcent (0);
580       while ((rpc = getrpcent ()) != NULL)
581         print_rpc (rpc);
582       endrpcent ();
583       return result;
584     }
585
586   for (i = 0; i < number; ++i)
587     {
588       if (isdigit (key[i][0]))
589         rpc = getrpcbynumber (atol (key[i]));
590       else
591         rpc = getrpcbyname (key[i]);
592
593       if (rpc == NULL)
594         result = 2;
595       else
596         print_rpc (rpc);
597     }
598
599   return result;
600 }
601
602 /* for services */
603 static void
604 print_services (struct servent *serv)
605 {
606   unsigned int i;
607
608   printf ("%-21s %d/%s", serv->s_name, ntohs (serv->s_port), serv->s_proto);
609
610   i = 0;
611   while (serv->s_aliases[i] != NULL)
612     {
613       putchar_unlocked (' ');
614       fputs_unlocked (serv->s_aliases[i], stdout);
615       ++i;
616     }
617   putchar_unlocked ('\n');
618 }
619
620 static int
621 services_keys (int number, char *key[])
622 {
623   int result = 0;
624   int i;
625   struct servent *serv;
626
627   if (!number)
628     {
629       setservent (0);
630       while ((serv = getservent ()) != NULL)
631         print_services (serv);
632       endservent ();
633       return result;
634     }
635
636   for (i = 0; i < number; ++i)
637     {
638       struct servent *serv;
639       char *proto = strchr (key[i], '/');
640
641       if (proto == NULL)
642         {
643           setservent (0);
644           if (isdigit (key[i][0]))
645             {
646               int port = htons (atol (key[i]));
647               while ((serv = getservent ()) != NULL)
648                 if (serv->s_port == port)
649                   {
650                     print_services (serv);
651                     break;
652                   }
653             }
654           else
655             {
656               int j;
657
658               while ((serv = getservent ()) != NULL)
659                 if (strcmp (serv->s_name, key[i]) == 0)
660                   {
661                     print_services (serv);
662                     break;
663                   }
664                 else
665                   for (j = 0; serv->s_aliases[j]; ++j)
666                     if (strcmp (serv->s_aliases[j], key[i]) == 0)
667                       {
668                         print_services (serv);
669                         break;
670                       }
671             }
672           endservent ();
673         }
674       else
675         {
676           *proto++ = '\0';
677
678           if (isdigit (key[i][0]))
679             serv = getservbyport (htons (atol (key[i])), proto);
680           else
681             serv = getservbyname (key[i], proto);
682
683           if (serv == NULL)
684             result = 2;
685           else
686             print_services (serv);
687         }
688     }
689
690   return result;
691 }
692
693 /* This is for shadow */
694 static void
695 print_shadow (struct spwd *sp)
696 {
697   printf ("%s:%s:",
698           sp->sp_namp ? sp->sp_namp : "",
699           sp->sp_pwdp ? sp->sp_pwdp : "");
700
701 #define SHADOW_FIELD(n) \
702   if (sp->n == -1)                                                            \
703     putchar_unlocked (':');                                                   \
704   else                                                                        \
705     printf ("%ld:", sp->n)
706
707   SHADOW_FIELD (sp_lstchg);
708   SHADOW_FIELD (sp_min);
709   SHADOW_FIELD (sp_max);
710   SHADOW_FIELD (sp_warn);
711   SHADOW_FIELD (sp_inact);
712   SHADOW_FIELD (sp_expire);
713   if (sp->sp_flag == ~0ul)
714     putchar_unlocked ('\n');
715   else
716     printf ("%lu\n", sp->sp_flag);
717 }
718
719 static int
720 shadow_keys (int number, char *key[])
721 {
722   int result = 0;
723   int i;
724
725   if (number == 0)
726     {
727       struct spwd *sp;
728
729       setspent ();
730       while ((sp = getspent ()) != NULL)
731         print_shadow (sp);
732       endpwent ();
733       return result;
734     }
735
736   for (i = 0; i < number; ++i)
737     {
738       struct spwd *sp;
739
740       sp = getspnam (key[i]);
741
742       if (sp == NULL)
743         result = 2;
744       else
745         print_shadow (sp);
746     }
747
748   return result;
749 }
750
751 struct
752   {
753     const char *name;
754     int (*func) (int number, char *key[]);
755   } databases[] =
756   {
757 #define D(name) { #name, name ## _keys },
758 D(ahosts)
759 D(aliases)
760 D(ethers)
761 D(group)
762 D(hosts)
763 D(netgroup)
764 D(networks)
765 D(passwd)
766 D(protocols)
767 D(rpc)
768 D(services)
769 D(shadow)
770 #undef D
771     { NULL, NULL }
772   };
773
774 /* Handle arguments found by argp. */
775 static error_t
776 parse_option (int key, char *arg, struct argp_state *state)
777 {
778   int i;
779   switch (key)
780     {
781     case 's':
782       for (i = 0; databases[i].name; ++i)
783         __nss_configure_lookup (databases[i].name, arg);
784       break;
785
786     default:
787       return ARGP_ERR_UNKNOWN;
788     }
789
790   return 0;
791 }
792
793 /* build doc */
794 static void
795 build_doc (void)
796 {
797   int i, j, len;
798   char *short_doc, *long_doc, *doc, *p;
799
800   short_doc = _("getent - get entries from administrative database.");
801   long_doc = _("Supported databases:");
802   len = strlen (short_doc) + strlen (long_doc) + 3;
803
804   for (i = 0; databases[i].name; ++i)
805     len += strlen (databases[i].name) + 1;
806
807   doc = (char *) malloc (len);
808   if (doc == NULL)
809     doc = short_doc;
810   else
811     {
812       p = stpcpy (doc, short_doc);
813       *p++ = '\v';
814       p = stpcpy (p, long_doc);
815       *p++ = '\n';
816
817       for (i = 0, j = 0; databases[i].name; ++i)
818         {
819           len = strlen (databases[i].name);
820           if (i != 0)
821             {
822               if (j + len > 72)
823                 {
824                   j = 0;
825                   *p++ = '\n';
826                 }
827               else
828                 *p++ = ' ';
829             }
830
831           p = mempcpy (p, databases[i].name, len);
832           j += len + 1;
833         }
834     }
835
836   argp.doc = doc;
837 }
838
839 /* the main function */
840 int
841 main (int argc, char *argv[])
842 {
843   int remaining, i;
844
845   /* Set locale via LC_ALL.  */
846   setlocale (LC_ALL, "");
847   /* Set the text message domain.  */
848   textdomain (PACKAGE);
849
850   /* Build argp.doc.  */
851   build_doc ();
852
853   /* Parse and process arguments.  */
854   argp_parse (&argp, argc, argv, 0, &remaining, NULL);
855
856   if ((argc - remaining) < 1)
857     {
858       error (0, 0, gettext ("wrong number of arguments"));
859       argp_help (&argp, stdout, ARGP_HELP_SEE, program_invocation_short_name);
860       return 1;
861     }
862
863   for (i = 0; databases[i].name; ++i)
864     if (argv[remaining][0] == databases[i].name[0]
865         && !strcmp (argv[remaining], databases[i].name))
866       return databases[i].func (argc - remaining - 1, &argv[remaining + 1]);
867
868   fprintf (stderr, _("Unknown database: %s\n"), argv[remaining]);
869   argp_help (&argp, stdout, ARGP_HELP_SEE, program_invocation_short_name);
870   return 1;
871 }