source: MondoRescue/branches/2.2.0/mindi-busybox/util-linux/ipcs.c@ 1001

Last change on this file since 1001 was 821, checked in by Bruno Cornec, 19 years ago

Addition of busybox 1.2.1 as a mindi-busybox new package
This should avoid delivering binary files in mindi not built there (Fedora and Debian are quite serious about that)
File size: 16.2 KB
Line 
1/*
2 * ipcs.c -- provides information on allocated ipc resources.
3 *
4 * 01 Sept 2004 - Rodney Radford <rradford@mindspring.com>
5 * Adapted for busybox from util-linux-2.12a.
6 *
7 * Licensed under GPLv2 or later, see file LICENSE in this tarball for details.
8 */
9
10#include <stdio.h>
11#include <stdlib.h>
12#include <getopt.h>
13#include <errno.h>
14#include <time.h>
15#include <pwd.h>
16#include <grp.h>
17
18/* X/OPEN tells us to use <sys/{types,ipc,sem}.h> for semctl() */
19/* X/OPEN tells us to use <sys/{types,ipc,msg}.h> for msgctl() */
20/* X/OPEN tells us to use <sys/{types,ipc,shm}.h> for shmctl() */
21#include <sys/types.h>
22#include <sys/ipc.h>
23#include <sys/sem.h>
24#include <sys/msg.h>
25#include <sys/shm.h>
26
27#include "busybox.h"
28
29/*-------------------------------------------------------------------*/
30/* SHM_DEST and SHM_LOCKED are defined in kernel headers,
31 but inside #ifdef __KERNEL__ ... #endif */
32#ifndef SHM_DEST
33/* shm_mode upper byte flags */
34#define SHM_DEST 01000 /* segment will be destroyed on last detach */
35#define SHM_LOCKED 02000 /* segment will not be swapped */
36#endif
37
38/* For older kernels the same holds for the defines below */
39#ifndef MSG_STAT
40#define MSG_STAT 11
41#define MSG_INFO 12
42#endif
43
44#ifndef SHM_STAT
45#define SHM_STAT 13
46#define SHM_INFO 14
47struct shm_info {
48 int used_ids;
49 ulong shm_tot; /* total allocated shm */
50 ulong shm_rss; /* total resident shm */
51 ulong shm_swp; /* total swapped shm */
52 ulong swap_attempts;
53 ulong swap_successes;
54};
55#endif
56
57#ifndef SEM_STAT
58#define SEM_STAT 18
59#define SEM_INFO 19
60#endif
61
62/* Some versions of libc only define IPC_INFO when __USE_GNU is defined. */
63#ifndef IPC_INFO
64#define IPC_INFO 3
65#endif
66/*-------------------------------------------------------------------*/
67
68/* The last arg of semctl is a union semun, but where is it defined?
69 X/OPEN tells us to define it ourselves, but until recently
70 Linux include files would also define it. */
71#if defined (__GNU_LIBRARY__) && !defined(_SEM_SEMUN_UNDEFINED)
72/* union semun is defined by including <sys/sem.h> */
73#else
74/* according to X/OPEN we have to define it ourselves */
75union semun {
76 int val;
77 struct semid_ds *buf;
78 unsigned short int *array;
79 struct seminfo *__buf;
80};
81#endif
82
83/* X/OPEN (Jan 1987) does not define fields key, seq in struct ipc_perm;
84 libc 4/5 does not mention struct ipc_term at all, but includes
85 <linux/ipc.h>, which defines a struct ipc_perm with such fields.
86 glibc-1.09 has no support for sysv ipc.
87 glibc 2 uses __key, __seq */
88#if defined (__GNU_LIBRARY__) && __GNU_LIBRARY__ > 1
89#define KEY __key
90#else
91#define KEY key
92#endif
93
94#define LIMITS 1
95#define STATUS 2
96#define CREATOR 3
97#define TIME 4
98#define PID 5
99
100
101static void print_perms (int id, struct ipc_perm *ipcp) {
102 struct passwd *pw;
103 struct group *gr;
104
105 bb_printf ("%-10d %-10o", id, ipcp->mode & 0777);
106
107 if ((pw = getpwuid(ipcp->cuid)))
108 bb_printf(" %-10s", pw->pw_name);
109 else
110 bb_printf(" %-10d", ipcp->cuid);
111 if ((gr = getgrgid(ipcp->cgid)))
112 bb_printf(" %-10s", gr->gr_name);
113 else
114 bb_printf(" %-10d", ipcp->cgid);
115
116 if ((pw = getpwuid(ipcp->uid)))
117 bb_printf(" %-10s", pw->pw_name);
118 else
119 bb_printf(" %-10d", ipcp->uid);
120 if ((gr = getgrgid(ipcp->gid)))
121 bb_printf(" %-10s\n", gr->gr_name);
122 else
123 bb_printf(" %-10d\n", ipcp->gid);
124}
125
126
127static void do_shm (char format)
128{
129 int maxid, shmid, id;
130 struct shmid_ds shmseg;
131 struct shm_info shm_info;
132 struct shminfo shminfo;
133 struct ipc_perm *ipcp = &shmseg.shm_perm;
134 struct passwd *pw;
135
136 maxid = shmctl (0, SHM_INFO, (struct shmid_ds *) (void *) &shm_info);
137 if (maxid < 0) {
138 bb_printf ("kernel not configured for shared memory\n");
139 return;
140 }
141
142 switch (format) {
143 case LIMITS:
144 bb_printf ("------ Shared Memory Limits --------\n");
145 if ((shmctl (0, IPC_INFO, (struct shmid_ds *) (void *) &shminfo)) < 0 )
146 return;
147 /* glibc 2.1.3 and all earlier libc's have ints as fields
148 of struct shminfo; glibc 2.1.91 has unsigned long; ach */
149 bb_printf ("max number of segments = %lu\n"
150 "max seg size (kbytes) = %lu\n"
151 "max total shared memory (pages) = %lu\n"
152 "min seg size (bytes) = %lu\n",
153 (unsigned long) shminfo.shmmni,
154 (unsigned long) (shminfo.shmmax >> 10),
155 (unsigned long) shminfo.shmall,
156 (unsigned long) shminfo.shmmin);
157 return;
158
159 case STATUS:
160 bb_printf ("------ Shared Memory Status --------\n"
161 "segments allocated %d\n"
162 "pages allocated %ld\n"
163 "pages resident %ld\n"
164 "pages swapped %ld\n"
165 "Swap performance: %ld attempts\t %ld successes\n",
166 shm_info.used_ids,
167 shm_info.shm_tot,
168 shm_info.shm_rss,
169 shm_info.shm_swp,
170 shm_info.swap_attempts, shm_info.swap_successes);
171 return;
172
173 case CREATOR:
174 bb_printf ("------ Shared Memory Segment Creators/Owners --------\n"
175 "%-10s %-10s %-10s %-10s %-10s %-10s\n",
176 "shmid","perms","cuid","cgid","uid","gid");
177 break;
178
179 case TIME:
180 bb_printf ("------ Shared Memory Attach/Detach/Change Times --------\n"
181 "%-10s %-10s %-20s %-20s %-20s\n",
182 "shmid","owner","attached","detached","changed");
183 break;
184
185 case PID:
186 bb_printf ("------ Shared Memory Creator/Last-op --------\n"
187 "%-10s %-10s %-10s %-10s\n",
188 "shmid","owner","cpid","lpid");
189 break;
190
191 default:
192 bb_printf ("------ Shared Memory Segments --------\n"
193 "%-10s %-10s %-10s %-10s %-10s %-10s %-12s\n",
194 "key","shmid","owner","perms","bytes","nattch","status");
195 break;
196 }
197
198 for (id = 0; id <= maxid; id++) {
199 shmid = shmctl (id, SHM_STAT, &shmseg);
200 if (shmid < 0)
201 continue;
202 if (format == CREATOR) {
203 print_perms (shmid, ipcp);
204 continue;
205 }
206 pw = getpwuid(ipcp->uid);
207 switch (format) {
208 case TIME:
209 if (pw)
210 bb_printf ("%-10d %-10.10s", shmid, pw->pw_name);
211 else
212 bb_printf ("%-10d %-10d", shmid, ipcp->uid);
213 /* ctime uses static buffer: use separate calls */
214 bb_printf(" %-20.16s", shmseg.shm_atime
215 ? ctime(&shmseg.shm_atime) + 4 : "Not set");
216 bb_printf(" %-20.16s", shmseg.shm_dtime
217 ? ctime(&shmseg.shm_dtime) + 4 : "Not set");
218 bb_printf(" %-20.16s\n", shmseg.shm_ctime
219 ? ctime(&shmseg.shm_ctime) + 4 : "Not set");
220 break;
221 case PID:
222 if (pw)
223 bb_printf ("%-10d %-10.10s", shmid, pw->pw_name);
224 else
225 bb_printf ("%-10d %-10d", shmid, ipcp->uid);
226 bb_printf (" %-10d %-10d\n",
227 shmseg.shm_cpid, shmseg.shm_lpid);
228 break;
229
230 default:
231 bb_printf("0x%08x ",ipcp->KEY );
232 if (pw)
233 bb_printf ("%-10d %-10.10s", shmid, pw->pw_name);
234 else
235 bb_printf ("%-10d %-10d", shmid, ipcp->uid);
236 bb_printf ("%-10o %-10lu %-10ld %-6s %-6s\n",
237 ipcp->mode & 0777,
238 /*
239 * earlier: int, Austin has size_t
240 */
241 (unsigned long) shmseg.shm_segsz,
242 /*
243 * glibc-2.1.3 and earlier has unsigned short;
244 * Austin has shmatt_t
245 */
246 (long) shmseg.shm_nattch,
247 ipcp->mode & SHM_DEST ? "dest" : " ",
248 ipcp->mode & SHM_LOCKED ? "locked" : " ");
249 break;
250 }
251 }
252 return;
253}
254
255
256static void do_sem (char format)
257{
258 int maxid, semid, id;
259 struct semid_ds semary;
260 struct seminfo seminfo;
261 struct ipc_perm *ipcp = &semary.sem_perm;
262 struct passwd *pw;
263 union semun arg;
264
265 arg.array = (ushort *) (void *) &seminfo;
266 maxid = semctl (0, 0, SEM_INFO, arg);
267 if (maxid < 0) {
268 bb_printf ("kernel not configured for semaphores\n");
269 return;
270 }
271
272 switch (format) {
273 case LIMITS:
274 bb_printf ("------ Semaphore Limits --------\n");
275 arg.array = (ushort *) (void *) &seminfo; /* damn union */
276 if ((semctl (0, 0, IPC_INFO, arg)) < 0 )
277 return;
278 bb_printf ("max number of arrays = %d\n"
279 "max semaphores per array = %d\n"
280 "max semaphores system wide = %d\n"
281 "max ops per semop call = %d\n"
282 "semaphore max value = %d\n",
283 seminfo.semmni,
284 seminfo.semmsl,
285 seminfo.semmns,
286 seminfo.semopm,
287 seminfo.semvmx);
288 return;
289
290 case STATUS:
291 bb_printf ("------ Semaphore Status --------\n"
292 "used arrays = %d\n"
293 "allocated semaphores = %d\n",
294 seminfo.semusz,
295 seminfo.semaem);
296 return;
297
298 case CREATOR:
299 bb_printf ("------ Semaphore Arrays Creators/Owners --------\n"
300 "%-10s %-10s %-10s %-10s %-10s %-10s\n",
301 "semid","perms","cuid","cgid","uid","gid");
302 break;
303
304 case TIME:
305 bb_printf ("------ Shared Memory Operation/Change Times --------\n"
306 "%-8s %-10s %-26.24s %-26.24s\n",
307 "shmid","owner","last-op","last-changed");
308 break;
309
310 case PID:
311 break;
312
313 default:
314 bb_printf ("------ Semaphore Arrays --------\n"
315 "%-10s %-10s %-10s %-10s %-10s\n",
316 "key","semid","owner","perms","nsems");
317 break;
318 }
319
320 for (id = 0; id <= maxid; id++) {
321 arg.buf = (struct semid_ds *) &semary;
322 semid = semctl (id, 0, SEM_STAT, arg);
323 if (semid < 0)
324 continue;
325 if (format == CREATOR) {
326 print_perms (semid, ipcp);
327 continue;
328 }
329 pw = getpwuid(ipcp->uid);
330 switch (format) {
331 case TIME:
332 if (pw)
333 bb_printf ("%-8d %-10.10s", semid, pw->pw_name);
334 else
335 bb_printf ("%-8d %-10d", semid, ipcp->uid);
336 bb_printf (" %-26.24s", semary.sem_otime
337 ? ctime(&semary.sem_otime) : "Not set");
338 bb_printf (" %-26.24s\n", semary.sem_ctime
339 ? ctime(&semary.sem_ctime) : "Not set");
340 break;
341 case PID:
342 break;
343
344 default:
345 bb_printf("0x%08x ", ipcp->KEY);
346 if (pw)
347 bb_printf ("%-10d %-10.9s", semid, pw->pw_name);
348 else
349 bb_printf ("%-10d %-9d", semid, ipcp->uid);
350 bb_printf ("%-10o %-10ld\n",
351 ipcp->mode & 0777,
352 /*
353 * glibc-2.1.3 and earlier has unsigned short;
354 * glibc-2.1.91 has variation between
355 * unsigned short and unsigned long
356 * Austin prescribes unsigned short.
357 */
358 (long) semary.sem_nsems);
359 break;
360 }
361 }
362}
363
364
365static void do_msg (char format)
366{
367 int maxid, msqid, id;
368 struct msqid_ds msgque;
369 struct msginfo msginfo;
370 struct ipc_perm *ipcp = &msgque.msg_perm;
371 struct passwd *pw;
372
373 maxid = msgctl (0, MSG_INFO, (struct msqid_ds *) (void *) &msginfo);
374 if (maxid < 0) {
375 bb_printf ("kernel not configured for message queues\n");
376 return;
377 }
378
379 switch (format) {
380 case LIMITS:
381 if ((msgctl (0, IPC_INFO, (struct msqid_ds *) (void *) &msginfo)) < 0 )
382 return;
383 bb_printf ("------ Messages: Limits --------\n"
384 "max queues system wide = %d\n"
385 "max size of message (bytes) = %d\n"
386 "default max size of queue (bytes) = %d\n",
387 msginfo.msgmni,
388 msginfo.msgmax,
389 msginfo.msgmnb);
390 return;
391
392 case STATUS:
393 bb_printf ("------ Messages: Status --------\n"
394 "allocated queues = %d\n"
395 "used headers = %d\n"
396 "used space = %d bytes\n",
397 msginfo.msgpool,
398 msginfo.msgmap,
399 msginfo.msgtql);
400 return;
401
402 case CREATOR:
403 bb_printf ("------ Message Queues: Creators/Owners --------\n"
404 "%-10s %-10s %-10s %-10s %-10s %-10s\n",
405 "msqid","perms","cuid","cgid","uid","gid");
406 break;
407
408 case TIME:
409 bb_printf ("------ Message Queues Send/Recv/Change Times --------\n"
410 "%-8s %-10s %-20s %-20s %-20s\n",
411 "msqid","owner","send","recv","change");
412 break;
413
414 case PID:
415 bb_printf ("------ Message Queues PIDs --------\n"
416 "%-10s %-10s %-10s %-10s\n",
417 "msqid","owner","lspid","lrpid");
418 break;
419
420 default:
421 bb_printf ("------ Message Queues --------\n"
422 "%-10s %-10s %-10s %-10s %-12s %-12s\n",
423 "key","msqid","owner","perms","used-bytes","messages");
424 break;
425 }
426
427 for (id = 0; id <= maxid; id++) {
428 msqid = msgctl (id, MSG_STAT, &msgque);
429 if (msqid < 0)
430 continue;
431 if (format == CREATOR) {
432 print_perms (msqid, ipcp);
433 continue;
434 }
435 pw = getpwuid(ipcp->uid);
436 switch (format) {
437 case TIME:
438 if (pw)
439 bb_printf ("%-8d %-10.10s", msqid, pw->pw_name);
440 else
441 bb_printf ("%-8d %-10d", msqid, ipcp->uid);
442 bb_printf (" %-20.16s", msgque.msg_stime
443 ? ctime(&msgque.msg_stime) + 4 : "Not set");
444 bb_printf (" %-20.16s", msgque.msg_rtime
445 ? ctime(&msgque.msg_rtime) + 4 : "Not set");
446 bb_printf (" %-20.16s\n", msgque.msg_ctime
447 ? ctime(&msgque.msg_ctime) + 4 : "Not set");
448 break;
449 case PID:
450 if (pw)
451 bb_printf ("%-8d %-10.10s", msqid, pw->pw_name);
452 else
453 bb_printf ("%-8d %-10d", msqid, ipcp->uid);
454 bb_printf (" %5d %5d\n",
455 msgque.msg_lspid, msgque.msg_lrpid);
456 break;
457
458 default:
459 bb_printf( "0x%08x ",ipcp->KEY );
460 if (pw)
461 bb_printf ("%-10d %-10.10s", msqid, pw->pw_name);
462 else
463 bb_printf ("%-10d %-10d", msqid, ipcp->uid);
464 bb_printf (" %-10o %-12ld %-12ld\n",
465 ipcp->mode & 0777,
466 /*
467 * glibc-2.1.3 and earlier has unsigned short;
468 * glibc-2.1.91 has variation between
469 * unsigned short, unsigned long
470 * Austin has msgqnum_t
471 */
472 (long) msgque.msg_cbytes,
473 (long) msgque.msg_qnum);
474 break;
475 }
476 }
477 return;
478}
479
480
481static void print_shm (int shmid)
482{
483 struct shmid_ds shmds;
484 struct ipc_perm *ipcp = &shmds.shm_perm;
485
486 if (shmctl (shmid, IPC_STAT, &shmds) == -1) {
487 perror ("shmctl ");
488 return;
489 }
490
491 bb_printf ("\nShared memory Segment shmid=%d\n"
492 "uid=%d\tgid=%d\tcuid=%d\tcgid=%d\n"
493 "mode=%#o\taccess_perms=%#o\n"
494 "bytes=%ld\tlpid=%d\tcpid=%d\tnattch=%ld\n"
495 "att_time=%-26.24s\n"
496 "det_time=%-26.24s\n"
497 "change_time=%-26.24s\n"
498 "\n",
499 shmid,
500 ipcp->uid, ipcp->gid, ipcp->cuid, ipcp->cgid,
501 ipcp->mode, ipcp->mode & 0777,
502 (long) shmds.shm_segsz, shmds.shm_lpid, shmds.shm_cpid,
503 (long) shmds.shm_nattch,
504 shmds.shm_atime ? ctime (&shmds.shm_atime) : "Not set",
505 shmds.shm_dtime ? ctime (&shmds.shm_dtime) : "Not set",
506 ctime (&shmds.shm_ctime));
507 return;
508}
509
510
511static void print_msg (int msqid)
512{
513 struct msqid_ds buf;
514 struct ipc_perm *ipcp = &buf.msg_perm;
515
516 if (msgctl (msqid, IPC_STAT, &buf) == -1) {
517 perror ("msgctl ");
518 return;
519 }
520
521 bb_printf ("\nMessage Queue msqid=%d\n"
522 "uid=%d\tgid=%d\tcuid=%d\tcgid=%d\tmode=%#o\n"
523 "cbytes=%ld\tqbytes=%ld\tqnum=%ld\tlspid=%d\tlrpid=%d\n"
524 "send_time=%-26.24s\n"
525 "rcv_time=%-26.24s\n"
526 "change_time=%-26.24s\n"
527 "\n",
528 msqid,
529 ipcp->uid, ipcp->gid, ipcp->cuid, ipcp->cgid, ipcp->mode,
530 /*
531 * glibc-2.1.3 and earlier has unsigned short;
532 * glibc-2.1.91 has variation between
533 * unsigned short, unsigned long
534 * Austin has msgqnum_t (for msg_qbytes)
535 */
536 (long) buf.msg_cbytes, (long) buf.msg_qbytes,
537 (long) buf.msg_qnum, buf.msg_lspid, buf.msg_lrpid,
538 buf.msg_stime ? ctime (&buf.msg_stime) : "Not set",
539 buf.msg_rtime ? ctime (&buf.msg_rtime) : "Not set",
540 buf.msg_ctime ? ctime (&buf.msg_ctime) : "Not set");
541 return;
542}
543
544static void print_sem (int semid)
545{
546 struct semid_ds semds;
547 struct ipc_perm *ipcp = &semds.sem_perm;
548 union semun arg;
549 unsigned int i;
550
551 arg.buf = &semds;
552 if (semctl (semid, 0, IPC_STAT, arg) < 0) {
553 perror ("semctl ");
554 return;
555 }
556
557 bb_printf ("\nSemaphore Array semid=%d\n"
558 "uid=%d\t gid=%d\t cuid=%d\t cgid=%d\n"
559 "mode=%#o, access_perms=%#o\n"
560 "nsems = %ld\n"
561 "otime = %-26.24s\n"
562 "ctime = %-26.24s\n"
563 "%-10s %-10s %-10s %-10s %-10s\n",
564 semid,
565 ipcp->uid, ipcp->gid, ipcp->cuid, ipcp->cgid,
566 ipcp->mode, ipcp->mode & 0777,
567 (long) semds.sem_nsems,
568 semds.sem_otime ? ctime (&semds.sem_otime) : "Not set",
569 ctime (&semds.sem_ctime),
570 "semnum","value","ncount","zcount","pid");
571
572 arg.val = 0;
573 for (i=0; i < semds.sem_nsems; i++) {
574 int val, ncnt, zcnt, pid;
575 val = semctl (semid, i, GETVAL, arg);
576 ncnt = semctl (semid, i, GETNCNT, arg);
577 zcnt = semctl (semid, i, GETZCNT, arg);
578 pid = semctl (semid, i, GETPID, arg);
579 if (val < 0 || ncnt < 0 || zcnt < 0 || pid < 0) {
580 perror ("semctl ");
581 bb_fflush_stdout_and_exit (1);
582 }
583 bb_printf ("%-10d %-10d %-10d %-10d %-10d\n",
584 i, val, ncnt, zcnt, pid);
585 }
586 bb_printf ("\n");
587 return;
588}
589
590int ipcs_main (int argc, char **argv) {
591 int opt, msg = 0, sem = 0, shm = 0, id=0, print=0;
592 char format = 0;
593 char options[] = "atclupsmqi:ih?";
594
595 while ((opt = getopt (argc, argv, options)) != -1) {
596 switch (opt) {
597 case 'i':
598 id = atoi (optarg);
599 print = 1;
600 break;
601 case 'a':
602 msg = shm = sem = 1;
603 break;
604 case 'q':
605 msg = 1;
606 break;
607 case 's':
608 sem = 1;
609 break;
610 case 'm':
611 shm = 1;
612 break;
613 case 't':
614 format = TIME;
615 break;
616 case 'c':
617 format = CREATOR;
618 break;
619 case 'p':
620 format = PID;
621 break;
622 case 'l':
623 format = LIMITS;
624 break;
625 case 'u':
626 format = STATUS;
627 break;
628 case 'h':
629 case '?':
630 bb_show_usage();
631 bb_fflush_stdout_and_exit (0);
632 }
633 }
634
635 if (print) {
636 if (shm) {
637 print_shm (id);
638 bb_fflush_stdout_and_exit (0);
639 }
640 if (sem) {
641 print_sem (id);
642 bb_fflush_stdout_and_exit (0);
643 }
644 if (msg) {
645 print_msg (id);
646 bb_fflush_stdout_and_exit (0);
647 }
648 bb_show_usage();
649 bb_fflush_stdout_and_exit (0);
650 }
651
652 if ( !shm && !msg && !sem)
653 msg = sem = shm = 1;
654 bb_printf ("\n");
655
656 if (shm) {
657 do_shm (format);
658 bb_printf ("\n");
659 }
660 if (sem) {
661 do_sem (format);
662 bb_printf ("\n");
663 }
664 if (msg) {
665 do_msg (format);
666 bb_printf ("\n");
667 }
668 return 0;
669}
670
Note: See TracBrowser for help on using the repository browser.