1 /*
2 * Copyright 2006 Sun Microsystems, Inc. All rights reserved.
3 * Use is subject to license terms.
4 */
5
6 #pragma ident "%Z%%M% %I% %E% SMI"
7
8 /*
9 * Copyright 1987, 1988 by MIT Student Information Processing Board
10 *
11 * For copyright info, see copyright.h.
12 */
13
14 #include <sys/param.h>
15 #include <sys/types.h>
16 #include <errno.h>
17 #include <sys/file.h>
18 #include <fcntl.h> /* just for O_* */
19 #include <sys/wait.h>
20 #include "ss_internal.h"
21 #include "copyright.h"
22 #include <libintl.h>
23
24 extern void ss_list_requests();
25
ss_help(argc,argv,sci_idx,info_ptr)26 void ss_help (argc, argv, sci_idx, info_ptr)
27 int argc;
28 char const * const *argv;
29 int sci_idx;
30 pointer info_ptr;
31 {
32 char buffer[MAXPATHLEN];
33 char const *request_name;
34 int code;
35 int fd, child;
36 register int idx;
37 register ss_data *info;
38
39 request_name = ss_current_request(sci_idx, &code);
40 if (code != 0) {
41 ss_perror(sci_idx, code, "");
42 return; /* no ss_abort_line, if invalid invocation */
43 }
44 if (argc == 1) {
45 ss_list_requests(argc, argv, sci_idx, info_ptr);
46 return;
47 }
48 else if (argc != 2) {
49 /* should do something better than this */
50 snprintf(buffer, sizeof (buffer), (char *)dgettext(TEXT_DOMAIN,
51 "usage:\n\t%s [topic|command]\nor\t%s\n"),
52 request_name, request_name);
53 ss_perror(sci_idx, 0, buffer);
54 return;
55 }
56 info = ss_info(sci_idx);
57 if (info->info_dirs == (char **)NULL) {
58 ss_perror(sci_idx, SS_ET_NO_INFO_DIR, (char *)NULL);
59 return;
60 }
61 if (info->info_dirs[0] == (char *)NULL) {
62 ss_perror(sci_idx, SS_ET_NO_INFO_DIR, (char *)NULL);
63 return;
64 }
65 for (idx = 0; info->info_dirs[idx] != (char *)NULL; idx++) {
66 (void) strncpy(buffer, info->info_dirs[idx], sizeof(buffer) - 1);
67 buffer[sizeof(buffer) - 1] = '\0';
68 (void) strncat(buffer, "/", sizeof(buffer) - 1 - strlen(buffer));
69 (void) strncat(buffer, argv[1], sizeof(buffer) - 1 - strlen(buffer));
70 (void) strncat(buffer, ".info", sizeof(buffer) - 1 - strlen(buffer));
71 if ((fd = open(&buffer[0], O_RDONLY)) >= 0) goto got_it;
72 }
73 if ((fd = open(&buffer[0], O_RDONLY)) < 0) {
74 char buf[MAXPATHLEN];
75 strncpy(buf, "No info found for ", sizeof(buf) - 1);
76 buf[sizeof(buf) - 1] = '\0';
77 strncat(buf, argv[1], sizeof(buf) - 1 - strlen(buf));
78 ss_perror(sci_idx, 0, buf);
79 return;
80 }
81 got_it:
82 switch (child = fork()) {
83 case -1:
84 ss_perror(sci_idx, errno, "Can't fork for pager");
85 return;
86 case 0:
87 (void) dup2(fd, 0); /* put file on stdin */
88 ss_page_stdin();
89 default:
90 (void) close(fd); /* what can we do if it fails? */
91 #ifdef WAIT_USES_INT
92 while (wait((int *)NULL) != child) {
93 #else
94 while (wait((union wait *)NULL) != child) {
95 #endif
96 /* do nothing if wrong pid */
97 };
98 }
99 }
100
101 #ifndef USE_DIRENT_H
102 #include <sys/dir.h>
103 #else
104 #include <dirent.h>
105 #endif
106
ss_add_info_dir(sci_idx,info_dir,code_ptr)107 void ss_add_info_dir(sci_idx, info_dir, code_ptr)
108 int sci_idx;
109 char *info_dir;
110 int *code_ptr;
111 {
112 register ss_data *info;
113 DIR *d;
114 int n_dirs;
115 register char **dirs;
116
117 info = ss_info(sci_idx);
118 if (info_dir == NULL && *info_dir) {
119 *code_ptr = SS_ET_NO_INFO_DIR;
120 return;
121 }
122 if ((d = opendir(info_dir)) == (DIR *)NULL) {
123 *code_ptr = errno;
124 return;
125 }
126 closedir(d);
127 dirs = info->info_dirs;
128 for (n_dirs = 0; dirs[n_dirs] != (char *)NULL; n_dirs++)
129 ; /* get number of non-NULL dir entries */
130 dirs = (char **)realloc((char *)dirs,
131 (unsigned)(n_dirs + 2)*sizeof(char *));
132 if (dirs == (char **)NULL) {
133 info->info_dirs = (char **)NULL;
134 *code_ptr = errno;
135 return;
136 }
137 info->info_dirs = dirs;
138 dirs[n_dirs + 1] = (char *)NULL;
139 dirs[n_dirs] = malloc((unsigned)strlen(info_dir)+1);
140 strcpy(dirs[n_dirs], info_dir);
141 *code_ptr = 0;
142 }
143
ss_delete_info_dir(sci_idx,info_dir,code_ptr)144 void ss_delete_info_dir(sci_idx, info_dir, code_ptr)
145 int sci_idx;
146 char *info_dir;
147 int *code_ptr;
148 {
149 register char **i_d;
150 register char **info_dirs;
151
152 info_dirs = ss_info(sci_idx)->info_dirs;
153 for (i_d = info_dirs; *i_d; i_d++) {
154 if (!strcmp(*i_d, info_dir)) {
155 while (*i_d) {
156 *i_d = *(i_d+1);
157 i_d++;
158 }
159 *code_ptr = 0;
160 return;
161 }
162 }
163 *code_ptr = SS_ET_NO_INFO_DIR;
164 }
165