xref: /titanic_50/usr/src/lib/libcmd/common/id.c (revision 22337b4b3c8a2b9db615e524e0e9e1fbd3dc71bf)
1 /***********************************************************************
2 *                                                                      *
3 *               This software is part of the ast package               *
4 *           Copyright (c) 1992-2007 AT&T Knowledge Ventures            *
5 *                      and is licensed under the                       *
6 *                  Common Public License, Version 1.0                  *
7 *                      by AT&T Knowledge Ventures                      *
8 *                                                                      *
9 *                A copy of the License is available at                 *
10 *            http://www.opensource.org/licenses/cpl1.0.txt             *
11 *         (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9)         *
12 *                                                                      *
13 *              Information and Software Systems Research               *
14 *                            AT&T Research                             *
15 *                           Florham Park NJ                            *
16 *                                                                      *
17 *                 Glenn Fowler <gsf@research.att.com>                  *
18 *                  David Korn <dgk@research.att.com>                   *
19 *                                                                      *
20 ***********************************************************************/
21 #pragma prototyped
22 /*
23  * David Korn
24  * Glenn Fowler
25  * AT&T Research
26  *
27  * id
28  */
29 
30 static const char usage[] =
31 "[-?\n@(#)$Id: id (AT&T Research) 2004-06-11 $\n]"
32 USAGE_LICENSE
33 "[+NAME?id - return user identity]"
34 "[+DESCRIPTION?If no \auser\a operand is specified \bid\b writes user and "
35 	"group IDs and the corresponding user and group names of the "
36 	"invoking process to standard output.  If the effective and "
37 	"real IDs do not match, both are written.  Any supplementary "
38 	"groups the current process belongs to will also be written.]"
39 "[+?If a \auser\a operand is specified and the process has permission, "
40 	"the user and group IDs and any supplementary group IDs of the "
41 	"selected user will be written to standard output.]"
42 "[+?If any options are specified, then only a portion of the information "
43 	"is written.]"
44 "[n:name?Write the name instead of the numeric ID.]"
45 "[r:real?Writes real ID instead of the effective ID.]"
46 "[[a?This option is ignored.]"
47 "[g:group?Writes only the group ID.]"
48 "[u:user?Writes only the user ID.]"
49 "[G:groups?Writes only the supplementary group IDs.]"
50 "[s:fair-share?Writes fair share scheduler IDs and groups on systems that "
51 	"support fair share scheduling.]"
52 "\n"
53 "\n[user]\n"
54 "\n"
55 "[+EXIT STATUS?]{"
56         "[+0?Successful completion.]"
57         "[+>0?An error occurred.]"
58 "}"
59 "[+SEE ALSO?\blogname\b(1), \bwho\b(1), \bgetgroups\b(2)]"
60 ;
61 
62 #include <cmd.h>
63 
64 #include "FEATURE/ids"
65 
66 #include <grp.h>
67 #include <pwd.h>
68 
69 #if _lib_fsid
70 #if _lib_getfsgid && ( _sys_fss || _hdr_fsg )
71 #define fss_grp		fs_grp
72 #define fss_id		fs_id
73 #define fss_mem		fs_mem
74 #define fss_passwd	fs_passwd
75 #define fss_shares	fs_shares
76 #if _sys_fss
77 #include <sys/fss.h>
78 #endif
79 #if _hdr_fsg
80 #include <fsg.h>
81 #endif
82 #if !_lib_isfsg && !defined(isfsg)
83 #define isfsg(p)	(!(p)->fs_id&&!(p)->fs_shares&&(!(p)->fs_passwd||!*(p)->fs_passwd))
84 #endif
85 #else
86 #undef _lib_fsid
87 #endif
88 #endif
89 
90 #define power2(n)	(!((n)&((n)-1)))
91 
92 #define GG_FLAG		(1<<0)
93 #define G_FLAG		(1<<1)
94 #define N_FLAG		(1<<2)
95 #define R_FLAG		(1<<3)
96 #define U_FLAG		(1<<4)
97 #define S_FLAG		(1<<5)
98 #define O_FLAG		(1<<6)
99 #define X_FLAG		(1<<7)
100 
101 #if _lib_fsid
102 static void
103 getfsids(Sfio_t* sp, const char* name, int flags, register int lastchar)
104 {
105 	register struct fsg*	fs;
106 	register char*		s;
107 	register char**		p;
108 	char**			x;
109 
110 	if (lastchar)
111 	{
112 		if (flags & O_FLAG) flags = 1;
113 		else flags = 0;
114 	}
115 	else if (flags & N_FLAG) flags = 1;
116 	else flags = -1;
117 	setfsgent();
118 	while (fs = getfsgnam(name))
119 		if (!isfsg(fs))
120 		{
121 			if (p = fs->fs_mem)
122 			{
123 				if (flags > 0) x = 0;
124 				else
125 				{
126 					register char**		q;
127 					register char*		t;
128 					register int		n;
129 
130 					n = 0;
131 					q = p;
132 					while (s = *q++)
133 						n += strlen(s) + 1;
134 					if (!(x = newof(0, char*, q - p, n)))
135 						break;
136 					s = (char*)(x + (q - p));
137 					q = x;
138 					while (t = *p++)
139 					{
140 						*q++ = s;
141 						while (*s++ = *t++);
142 					}
143 					*q = 0;
144 					p = x;
145 				}
146 				while (s = *p++)
147 				{
148 					if (lastchar == '=')
149 					{
150 						lastchar = ',';
151 						sfputr(sp, " fsid=", -1);
152 					}
153 					else if (!lastchar) lastchar = ' ';
154 					else sfputc(sp, lastchar);
155 					if (flags > 0) sfprintf(sp, "%s", s);
156 					else
157 					{
158 						setfsgent();
159 						while (fs = getfsgnam(s))
160 							if (isfsg(fs))
161 							{
162 								if (flags < 0) sfprintf(sp, "%u", fs->fs_id);
163 								else sfprintf(sp, "%u(%s)", fs->fs_id, s);
164 								break;
165 							}
166 					}
167 				}
168 				if (x) free(x);
169 			}
170 			break;
171 		}
172 	endfsgent();
173 	if (lastchar == ' ') sfputc(sp, '\n');
174 }
175 #endif
176 
177 static void
178 putid(Sfio_t* sp, int flags, const char* label, const char* name, long number)
179 {
180 	sfprintf(sp, "%s=", label);
181 	if (flags & O_FLAG)
182 	{
183 		if (name) sfputr(sp, name, -1);
184 		else sfprintf(sp, "%lu", number);
185 	}
186 	else
187 	{
188 		sfprintf(sp, "%u", number);
189 		if (name) sfprintf(sp, "(%s)", name);
190 	}
191 }
192 
193 static int
194 getids(Sfio_t* sp, const char* name, register int flags)
195 {
196 	register struct passwd*	pw;
197 	register struct group*	grp;
198 	register int		i;
199 	register int		j;
200 	register int		k;
201 #if _lib_fsid
202 	register struct fsg*	fs;
203 	const char*		fs_name;
204 	int			fs_id;
205 #endif
206 	char**			p;
207 	char*			s;
208 	int			lastchar;
209 	int			ngroups = 0;
210 	const char*		gname;
211 	uid_t			user;
212 	uid_t			euid;
213 	gid_t			group;
214 	gid_t			egid;
215 
216 	static gid_t*		groups;
217 
218 	if (flags & GG_FLAG)
219 	{
220 		static int	maxgroups;
221 
222 		/*
223 		 * get supplemental groups if required
224 		 */
225 
226 		if (!maxgroups)
227 		{
228 			/*
229 			 * first time
230 			 */
231 
232 			if ((maxgroups = getgroups(0, groups)) <= 0)
233 				maxgroups = NGROUPS_MAX;
234 			if (!(groups = newof(0, gid_t, maxgroups + 1, 0)))
235 				error(ERROR_exit(1), "out of space [group array]");
236 		}
237 		ngroups = getgroups(maxgroups, groups);
238 		for (i = j = 0; i < ngroups; i++)
239 		{
240 			for (k = 0; k < j && groups[k] != groups[i]; k++);
241 			if (k >= j) groups[j++] = groups[i];
242 		}
243 		ngroups = j;
244 	}
245 	if (name)
246 	{
247 		flags |= X_FLAG;
248 		if (!(flags & N_FLAG) || (flags & (G_FLAG|GG_FLAG)))
249 		{
250 			if (!(pw = getpwnam(name)))
251 			{
252 				user = strtol(name, &s, 0);
253 				if (*s || !(pw = getpwuid(user)))
254 					error(ERROR_exit(1), "%s: name not found", name);
255 				name = pw->pw_name;
256 			}
257 			user = pw->pw_uid;
258 			group = pw->pw_gid;
259 		}
260 #if _lib_fsid
261 		if (!(flags & N_FLAG) || (flags & S_FLAG))
262 		{
263 			setfsgent();
264 			do
265                         {
266                                 if (!(fs = getfsgnam(name)))
267                                         error(ERROR_exit(1), "%u: fss name not found", name);
268                         } while (isfsg(fs));
269                         fs_id = fs->fs_id;
270 		}
271 #endif
272 	}
273 	else
274 	{
275 		if (flags & G_FLAG)
276 			group = (flags & R_FLAG) ? getgid() : getegid();
277 		if (flags & (GG_FLAG|N_FLAG|U_FLAG))
278 			user = (flags & R_FLAG) ? getuid() : geteuid();
279 #if _lib_fsid
280 		if (flags & S_FLAG)
281 			fs_id = fsid(0);
282 #endif
283 		if (flags & N_FLAG)
284 			name = (pw = getpwuid(user)) ? pw->pw_name : (char*)0;
285 	}
286 	if (ngroups == 1 && groups[0] == group)
287 		ngroups = 0;
288 	if ((flags & N_FLAG) && (flags & G_FLAG))
289 		gname = (grp = getgrgid(group)) ? grp->gr_name : (char*)0;
290 #if _lib_fsid
291 	if ((flags & N_FLAG) && (flags & S_FLAG))
292 	{
293 		setfsgent();
294 		fs_name = (fs = getfsgid(fs_id)) ? fs->fs_grp : (char*)0;
295 	}
296 #endif
297 	if ((flags & (U_FLAG|G_FLAG|S_FLAG)) == (U_FLAG|G_FLAG|S_FLAG))
298 	{
299 		putid(sp, flags, "uid", name, user);
300 		putid(sp, flags, " gid", gname, group);
301 		if ((flags & X_FLAG) && name)
302 		{
303 #if _lib_getgrent
304 #if _lib_setgrent
305 			setgrent();
306 #endif
307 			lastchar = '=';
308 			while (grp = getgrent())
309 				if (p = grp->gr_mem)
310 					while (s = *p++)
311 						if (streq(s, name))
312 						{
313 							if (lastchar == '=')
314 								sfputr(sp, " groups", -1);
315 							sfputc(sp, lastchar);
316 							lastchar = ',';
317 							if (flags & O_FLAG)
318 								sfprintf(sp, "%s", grp->gr_name);
319 							else sfprintf(sp, "%u(%s)", grp->gr_gid, grp->gr_name);
320 						}
321 #if _lib_endgrent
322 			endgrent();
323 #endif
324 #endif
325 #if _lib_fsid
326 			getfsids(sp, name, flags, '=');
327 #endif
328 		}
329 		else
330 		{
331 			if ((euid = geteuid()) != user)
332 				putid(sp, flags, " euid", (pw = getpwuid(euid)) ? pw->pw_name : (char*)0, euid);
333 			if ((egid = getegid()) != group)
334 				putid(sp, flags, " egid", (grp = getgrgid(egid)) ? grp->gr_name : (char*)0, egid);
335 			if (ngroups > 0)
336 			{
337 				sfputr(sp, " groups", -1);
338 				lastchar = '=';
339 				for (i = 0; i < ngroups; i++)
340 				{
341 					group = groups[i];
342 					sfputc(sp, lastchar);
343 					if (grp = getgrgid(group))
344 					{
345 						if (flags & O_FLAG) sfprintf(sp, "%s", grp->gr_name);
346 						else sfprintf(sp, "%u(%s)", group, grp->gr_name);
347 					}
348 					else sfprintf(sp, "%u", group);
349 					lastchar = ',';
350 				}
351 			}
352 #if _lib_fsid
353 			putid(sp, flags, " fsid", fs_name, fs_id);
354 #endif
355 		}
356 		sfputc(sp,'\n');
357 		return(0);
358 	}
359 	if (flags & U_FLAG)
360 	{
361 		if ((flags & N_FLAG) && name) sfputr(sp, name, '\n');
362 		else sfprintf(sp, "%u\n", user);
363 	}
364 	else if (flags & G_FLAG)
365 	{
366 		if ((flags & N_FLAG) && gname) sfputr(sp, gname, '\n');
367 		else sfprintf(sp, "%u\n", group);
368 	}
369 	else if (flags & GG_FLAG)
370 	{
371 		if ((flags & X_FLAG) && name)
372 		{
373 #if _lib_getgrent
374 #if _lib_setgrent
375 			setgrent();
376 #endif
377 			i = 0;
378 			while (grp = getgrent())
379 				if (p = grp->gr_mem)
380 					while (s = *p++)
381 						if (streq(s, name))
382 						{
383 							if (i++) sfputc(sp, ' ');
384 							if (flags & N_FLAG) sfprintf(sp, "%s", grp->gr_name);
385 							else sfprintf(sp, "%u", grp->gr_gid);
386 						}
387 #if _lib_endgrent
388 			endgrent();
389 #endif
390 			if (i) sfputc(sp, '\n');
391 #endif
392 		}
393 		else if (ngroups > 0)
394 		{
395 			for (i = 0;;)
396 			{
397 				group = groups[i];
398 				if ((flags & N_FLAG) && (grp = getgrgid(group)))
399 					sfprintf(sp, "%s", grp->gr_name);
400 				else sfprintf(sp, "%u", group);
401 				if (++i >= ngroups) break;
402 				sfputc(sp, ' ');
403 			}
404 			sfputc(sp, '\n');
405 		}
406 	}
407 #if _lib_fsid
408 	else if (flags & S_FLAG)
409 	{
410 		if ((flags & X_FLAG) && name) getfsids(sp, name, flags, 0);
411 		else if ((flags & N_FLAG) && fs_name) sfputr(sp, fs_name, '\n');
412 		else sfprintf(sp, "%u\n", fs_id);
413 	}
414 #endif
415 	return(0);
416 }
417 
418 int
419 b_id(int argc, char *argv[], void* context)
420 {
421 	register int	flags = 0;
422 	register int	n;
423 
424 	cmdinit(argc, argv, context, ERROR_CATALOG, 0);
425 	while (n = optget(argv, usage)) switch (n)
426 	{
427 	case 'a':
428 		break;
429 	case 'G':
430 		flags |= GG_FLAG;
431 		break;
432 	case 'g':
433 		flags |= G_FLAG;
434 		break;
435 	case 'n':
436 		flags |= N_FLAG;
437 		break;
438 	case 'r':
439 		flags |= R_FLAG;
440 		break;
441 	case 's':
442 		flags |= S_FLAG;
443 		break;
444 	case 'u':
445 		flags |= U_FLAG;
446 		break;
447 	case ':':
448 		error(2, "%s", opt_info.arg);
449 		break;
450 	case '?':
451 		error(ERROR_usage(2), "%s", opt_info.arg);
452 		break;
453 	}
454 	argv += opt_info.index;
455 	argc -= opt_info.index;
456 	n = (flags & (GG_FLAG|G_FLAG|S_FLAG|U_FLAG));
457 	if (!power2(n))
458 		error(2, "incompatible options selected");
459 	if (error_info.errors || argc > 1)
460 		error(ERROR_usage(2), "%s", optusage(NiL));
461 	if (!(flags & ~(N_FLAG|R_FLAG)))
462 	{
463 		if (flags & N_FLAG) flags |= O_FLAG;
464 		flags |= (U_FLAG|G_FLAG|N_FLAG|R_FLAG|S_FLAG|GG_FLAG);
465 	}
466 	error_info.errors = getids(sfstdout, *argv, flags);
467 	return(error_info.errors);
468 }
469