1 /*
2 * CDDL HEADER START
3 *
4 * The contents of this file are subject to the terms of the
5 * Common Development and Distribution License (the "License").
6 * You may not use this file except in compliance with the License.
7 *
8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9 * or http://www.opensolaris.org/os/licensing.
10 * See the License for the specific language governing permissions
11 * and limitations under the License.
12 *
13 * When distributing Covered Code, include this CDDL HEADER in each
14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15 * If applicable, add the following below this CDDL HEADER, with the
16 * fields enclosed by brackets "[]" replaced with your own identifying
17 * information: Portions Copyright [yyyy] [name of copyright owner]
18 *
19 * CDDL HEADER END
20 */
21 /* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
22 /* All Rights Reserved */
23
24
25 /*
26 * Copyright 2006 Sun Microsystems, Inc. All rights reserved.
27 * Use is subject to license terms.
28 */
29
30 #pragma ident "%Z%%M% %I% %E% SMI" /* SVr4.0 1.3 */
31
32 /*
33 * setuname [-t] [-s name] [-n node]
34 */
35
36 /*
37 * Header files referenced:
38 * <stdio.h> Standard I/O
39 * <unistd.h> Standard UNIX definitions
40 * <string.h> String handling
41 * <fmtmsg.h> Standard message generation
42 * <ctype.h> Character types
43 * <errno.h> Error handling
44 * <signal.h> Signal handling
45 * <sys/types.h> Data types
46 * <sys/fcntl.h> File control
47 * <sys/utsname.h> System Name
48 * <sys/sys3b.h> sys3b() definitions
49 * <nlist.h> Definitions for Sun symbol table entries
50 */
51
52 #include <stdio.h>
53 #include <unistd.h>
54 #include <string.h>
55 #include <fmtmsg.h>
56 #include <ctype.h>
57 #include <errno.h>
58 #include <signal.h>
59 #include <sys/types.h>
60 #include <sys/uio.h>
61 #include <sys/fcntl.h>
62 #include <sys/psw.h>
63 #include <sys/utsname.h>
64
65 #if u3b || u3b15 || u3b2
66 #include <sys/sys3b.h>
67 #endif
68
69 #if sun
70 #include <nlist.h>
71 #include <kvm.h>
72 #endif
73
74 /*
75 * Externals referenced (and not defined in a header)
76 * optind index to the next arg for getopt()
77 * opterr FLAG, TRUE tells getopt() to write messages
78 * optarg Ptr to an option's argument
79 * getopt() Gets an option from the command line
80 * putenv() Writes values into the environment
81 * exit() Exit the process
82 * access() Check accessibility of a file
83 * malloc() Allocate a block of main memory
84 * free() Free allocated space
85 * lseek() Seek within a file
86 * open() Open a file
87 * close() Close an open file
88 */
89
90 extern int optind; /* argv[] index of next arg */
91 extern int opterr; /* TRUE if getopt() is to print msgs */
92 extern char *optarg; /* Argument to parsed option */
93 extern int getopt(); /* Get an option from the command line */
94 extern int putenv(); /* Put a value into the environment */
95 extern void exit(); /* Exit the process */
96 extern int access(); /* Check the accessibility of a file */
97 extern void *malloc(); /* Get a chunk of main memory */
98 extern void free(); /* Free alloc'd space */
99 extern long lseek(); /* Seek within a file */
100 extern int open(); /* Open a file */
101 extern int close(); /* Close an open a file */
102
103 /*
104 * L O C A L D E F I N I T I O N S
105 */
106
107 /*
108 * Constants
109 */
110
111 #ifndef TRUE
112 #define TRUE (1)
113 #endif
114
115 #ifndef FALSE
116 #define FALSE (0)
117 #endif
118
119 #ifndef NULL
120 #define NULL (0)
121 #endif
122
123 #define OPTSTRING "tn:s:"
124
125 #define EX_OK 0
126 #define EX_ERROR 1
127
128 #define RC_FILENAME "/etc/rc2.d/S18setuname"
129 #define RC_DIRNAME "/etc/rc2.d"
130
131
132 /*
133 * Messages
134 */
135
136 #define E_USAGE "usage: setuname [-t] [-s name] [-n node]"
137 #define E_MISSING "Either -s name or -n node must be specified"
138 #define E_UNAME "Unable to get existing uname values"
139 #define E_INVNAME "System-name invalid: %s"
140 #define E_LONGNAME "System-name too long: %s"
141 #define E_INVNODE "Network node-name invalid: %s"
142 #define E_LONGNODE "Network node-name too long: %s"
143 #define E_NOPERMS "No permissions, request denied"
144 #define E_NOSUCHDIR "Directory doesn't exist: %s"
145 #define E_INTERNAL "Internal error: %d"
146
147 /*
148 * Macros:
149 * stdmsg(r,l,s,t) Write a standard message.
150 * 'r' is the recoverability flag
151 * 'l' is the label
152 * 's' is the severity
153 * 't' is the text.
154 * strend(p) Return the address of the end of a string
155 * (This is supposed to be defined in <sys/inline.h>
156 * but that file has string-handing def'ns that
157 * conflict with <string.h>, so we can't use it!
158 * MR dn89-04701 requests this fix.
159 */
160
161 #define stdmsg(r,l,s,t) (void) fmtmsg(MM_PRINT|MM_UTIL|r,l,s,t,MM_NULLACT,MM_NULLTAG)
162 #define strend(p) strrchr(p,'\0')
163
164 /*
165 * Local functions:
166 * setuname Changes the system name and the network node name
167 */
168
169 static int setuname(); /* This does the "real" work */
170
171
172 /*
173 * Local data
174 * lbl Buffer for the standard message label
175 * txt Buffer for the standard message text
176 */
177
178 static char lbl[MM_MXLABELLN+1]; /* Space for std msg label */
179 static char msg[MM_MXTXTLN+1]; /* Space for std msg text */
180
181 /*
182 * int main(argc, argv)
183 * int argc
184 * char *argv;
185 */
186
187 int
188 main(argc, argv)
189 int argc; /* Argument count */
190 char *argv[]; /* Argument vector */
191 {
192 /* Automatic data */
193 char *n_arg; /* Ptr to arg for -n */
194 char *s_arg; /* Ptr to arg for -s */
195 int t_seen; /* FLAG, -t option seen */
196 char *cmdname; /* Ptr to the command's name */
197 char *p; /* Temp pointer */
198 int usageerr; /* FLAG, TRUE if usage error */
199 int exitcode; /* Value to exit with */
200 int c; /* Temp character */
201 int ok; /* Flag, everything okay? */
202
203 /* Build the standard-message label */
204 if (p = strrchr(argv[0], '/')) cmdname = p+1;
205 else cmdname = argv[0];
206 (void) strcat(strcpy(lbl, "UX:"), cmdname);
207
208 /* Make only the text in standard messages appear (SVR4.0 only) */
209 (void) putenv("MSGVERB=text");
210
211
212 /* Initializations */
213 n_arg = s_arg = (char *) NULL;
214 t_seen = FALSE;
215
216
217 /*
218 * Parse command
219 */
220
221 usageerr = FALSE;
222 opterr = FALSE;
223 while (!usageerr && (c = getopt(argc, argv, OPTSTRING)) != EOF) switch(c) {
224
225 case 'n': /* -n node */
226 if (n_arg) usageerr = TRUE;
227 else n_arg = optarg;
228 break;
229
230 case 's': /* -s name */
231 if (s_arg) usageerr = TRUE;
232 else s_arg = optarg;
233 break;
234
235 case 't': /* -t */
236 if (t_seen) usageerr = TRUE;
237 else t_seen = TRUE;
238 break;
239
240 default: /* Something that doesn't exist */
241 usageerr = TRUE;
242 } /* switch() */
243
244 /* If there was a usage error, report the error and exit */
245 if ((argc >= (optind+1)) || usageerr) {
246 stdmsg(MM_NRECOV, lbl, MM_ERROR, E_USAGE);
247 exit(EX_ERROR);
248 }
249
250 /* Either -n <node> or -s <name> has to be specified */
251 if (!(n_arg || s_arg)) {
252 stdmsg(MM_NRECOV, lbl, MM_ERROR, E_MISSING);
253 exit(EX_ERROR);
254 }
255
256
257 /*
258 * Validate arguments:
259 * - The length of the system name must be less than SYS_NMLN-1
260 * characters,
261 * - The length of the network node-name must be less than
262 * SYS_NMLN-1 characters,
263 * - The system name must equal [a-zA-Z0-9-_]+,
264 * - The network node-name must equal [a-zA-Z0-9-_]+.
265 */
266
267 /* Check the length and the character-set of the system name */
268 if (s_arg) {
269
270 /* Check length of the system name */
271 if (strlen(s_arg) > (size_t)(SYS_NMLN-1)) {
272 (void) sprintf(msg, E_LONGNAME, s_arg);
273 stdmsg(MM_NRECOV, lbl, MM_ERROR, msg);
274 exit(EX_ERROR);
275 }
276
277 /* Check the character-set */
278 ok = TRUE;
279 for (p = s_arg ; ok && *p ; p++) {
280 if (!isalnum(*p) && (*p != '-') && (*p != '_')) ok = FALSE;
281 }
282 if (!ok || (p == s_arg)) {
283 (void) sprintf(msg, E_INVNAME, s_arg);
284 stdmsg(MM_NRECOV, lbl, MM_ERROR, msg);
285 exit(EX_ERROR);
286 }
287 }
288
289 /* Check the length and the character-set of the network node-name */
290
291 if (n_arg) {
292
293 /* Check length of the network node-name */
294 if (strlen(n_arg) > (size_t)(SYS_NMLN-1)) {
295 (void) sprintf(msg, E_LONGNODE, n_arg);
296 stdmsg(MM_NRECOV, lbl, MM_ERROR, msg);
297 exit(EX_ERROR);
298 }
299
300 /* Check the character-set */
301 ok = TRUE;
302 for (p = n_arg ; ok && *p ; p++) {
303 if (!isalnum(*p) && (*p != '-') && (*p != '_')) ok = FALSE;
304 }
305 if (!ok || (p == n_arg)) {
306 (void) sprintf(msg, E_INVNODE, n_arg);
307 stdmsg(MM_NRECOV, lbl, MM_ERROR, msg);
308 exit(EX_ERROR);
309 }
310 }
311
312
313 /*
314 * Make sure we have access to needed resources:
315 * - Read/write access to kernel memory (/dev/kmem)
316 * - If -t is not specified, read/write access to /etc/rc2.d
317 * - If -t is not specified, read access to /etc/rc2.d/S18setuname
318 */
319
320 if (access("/dev/kmem", R_OK|W_OK) == 0) {
321 if (access(RC_DIRNAME, R_OK|W_OK) == 0) {
322 if ((access(RC_FILENAME, R_OK) != 0) &&
323 (access(RC_FILENAME, F_OK) == 0)) {
324 stdmsg(MM_NRECOV, lbl, MM_ERROR, E_NOPERMS);
325 exit(EX_ERROR);
326 }
327 }
328 else {
329 if (access(RC_DIRNAME, F_OK) == 0) {
330 stdmsg(MM_NRECOV, lbl, MM_ERROR, E_NOPERMS);
331 exit(EX_ERROR);
332 }
333 else {
334 (void) sprintf(msg, E_NOSUCHDIR, RC_DIRNAME);
335 stdmsg(MM_NRECOV, lbl, MM_ERROR, msg);
336 exit(EX_ERROR);
337 }
338 }
339 }
340 else {
341 stdmsg(MM_NRECOV, lbl, MM_ERROR, E_NOPERMS);
342 exit(EX_ERROR);
343 }
344
345
346 /* Attempt the setuname */
347 if (setuname(t_seen, s_arg, n_arg) == 0) exitcode = EX_OK;
348 else {
349 (void) sprintf(msg, E_INTERNAL, errno);
350 stdmsg(MM_NRECOV, lbl, MM_ERROR, msg);
351 exitcode = EX_ERROR;
352 }
353
354 /* Finished */
355 return (exitcode);
356 } /* main() */
357
358 /*
359 * int setuname(temp, name, node)
360 * int temp
361 * char *name
362 * char *node
363 *
364 * Set any or all of the following machine parameters, either
365 * temporarily or permanently, depending on <temp>.
366 * - System name
367 * - Network Node-name
368 */
369
370 static int
371 setuname(temp, sysname, nodename)
372 int temp; /* Set in kernel only flag */
373 char *sysname; /* System name */
374 char *nodename; /* Network node-name */
375 {
376 /* Automatic Data */
377 struct utsname utsname; /* Space for the kernel's utsname information */
378 #if u3b || u3b15 || u3b2
379 struct s3bsym *symbtbl; /* The kernel's symbol table */
380 #endif
381 #if sun
382 struct nlist nl[] = {
383 {"utsname", 0, 0, 0, 0, 0},
384 {NULL}
385 };
386 kvm_t *kd;
387 #endif
388 uintptr_t utsname_addr; /* Addr of "utsname" in the kernel */
389 char *sysnm = (char *)NULL; /* System name to set (from file or arg) */
390 char *nodenm = (char *)NULL; /* Network node-name to set (from file or arg) */
391 FILE *fd; /* Std I/O File Descriptor for /etc/rc2.d/S18setuname */
392 char *p; /* Temp pointer */
393 void (*oldsighup)(); /* Function to call for SIGHUP */
394 void (*oldsigint)(); /* Function to call for SIGINT */
395 int rtncd; /* Value to return to the caller */
396 unsigned long symbtblsz; /* The size of the kernel's symbol table, in bytes */
397 int memfd; /* File descriptor: open kernel memory */
398 int i; /* Temp counter */
399
400
401 /* Nothing's gone wrong yet (but we've only just begun!) */
402 rtncd = 0;
403
404
405 /*
406 * Get the virtual address of the symbol "utsname" in the kernel
407 * so we can get set the system name and/or the network node-name
408 * directly in the kernel's memory space.
409 */
410
411 #if u3b || u3b15 || u3b2
412 if ((sys3b(S3BSYM, (struct s3bsym *) &symbtblsz, sizeof(symbtblsz)) == 0) &&
413 (symbtbl = (struct s3bsym *) malloc(symbtblsz))) {
414
415 (void) sys3b(S3BSYM, symbtbl, symbtblsz);
416 p = (char *) symbtbl;
417 for (i = symbtbl->count; i-- && (strcmp(p, "utsname") != 0) ; p = S3BNXTSYM(p)) ;
418 if (i >= 0) utsname_addr = S3BSVAL(p);
419 else rtncd = -1;
420 free((void *) symbtbl);
421
422 } else rtncd = -1;
423
424 #elif sun
425 /* Check out namelist and memory files. */
426 if ((kd = kvm_open(NULL, NULL, NULL, O_RDWR, NULL)) == NULL)
427 rtncd = -1;
428 else if (kvm_nlist(kd, nl) != 0)
429 rtncd = -1;
430 else if (nl[0].n_value == 0)
431 rtncd = -1;
432 else
433 utsname_addr = (uintptr_t)nl[0].n_value;
434 #else
435 if (nlist("/unix", nl) != 0)
436 rtncd = -1;
437 #endif
438 if (rtncd != 0) return(rtncd);
439
440 /*
441 * Open the kernel's memory, get the existing "utsname" structure,
442 * change the system name and/or the network node-name in that struct,
443 * write it back out to kernel memory, then close kernel memory.
444 */
445 #ifdef sun
446 if (kvm_kread(kd, utsname_addr, &utsname, sizeof (utsname)) ==
447 sizeof (utsname)) {
448 if (sysname)
449 (void) strncpy(utsname.sysname, sysname,
450 sizeof (utsname.sysname));
451 if (nodename)
452 (void) strncpy(utsname.nodename, nodename,
453 sizeof (utsname.nodename));
454 (void) kvm_kwrite(kd, utsname_addr, &utsname, sizeof (utsname));
455 kvm_close(kd);
456 } else
457 return (-1);
458 #else /* sun */
459 if ((memfd = open("/dev/kmem", O_RDWR, 0)) > 0) {
460 if ((lseek(memfd, (long) utsname_addr, SEEK_SET) != -1) &&
461 (read(memfd, &utsname, sizeof(utsname)) == sizeof(utsname))) {
462 if (sysname) (void) strncpy(utsname.sysname, sysname, sizeof(utsname.sysname));
463 if (nodename) (void) strncpy(utsname.nodename, nodename, sizeof(utsname.nodename));
464 (void) lseek(memfd, (long) utsname_addr, SEEK_SET);
465 (void) write(memfd, &utsname, sizeof(utsname));
466 (void) close(memfd);
467 } else rtncd = -1;
468 } else rtncd = -1;
469 if (rtncd != 0) return(rtncd);
470 #endif /* sun */
471
472
473 /*
474 * If the "temp" flag is FALSE, we need to permanently set the
475 * system name in the file /etc/rc2.d/S18setuname
476 */
477
478 if (!temp) {
479 /*
480 * If a name was specified by the caller, use that, otherwise, use
481 * whatever was in the "rc" file.
482 */
483
484 if (sysname) sysnm = sysname;
485 if (nodename) nodenm = nodename;
486
487
488 /*
489 * Write the file /etc/rc2.d/S18setuname so that the system name is
490 * set on boots and state changes.
491 *
492 * DISABLED SIGNALS: SIGHUP, SIGINT
493 */
494
495 /* Give us a reasonable chance to complete without interruptions */
496 oldsighup = signal(SIGHUP, SIG_IGN);
497 oldsigint = signal(SIGINT, SIG_IGN);
498
499 /* Write the new setuname "rc" file */
500 if (sysname != NULL) {
501 if ((fd = fopen(RC_FILENAME, "w")) != (FILE *) NULL) {
502 (void) fprintf(fd, "# %s\n", sysnm);
503 (void) fprintf(fd, "#\n");
504 (void) fprintf(fd, "# This script, generated by the setuname command,\n");
505 (void) fprintf(fd, "# sets the system's system-name\n");
506 (void) fprintf(fd, "#\n");
507 if (sysnm && *sysnm)
508 (void) fprintf(fd, "setuname -t -s %s\n", sysnm);
509 (void) fclose(fd);
510 } else return(rtncd = -1);
511 }
512
513 if(nodename != NULL) {
514 char curname[SYS_NMLN];
515 int curlen;
516 FILE *file;
517
518 if ((file = fopen("/etc/nodename", "r")) != NULL) {
519 curlen = fread(curname, sizeof(char), SYS_NMLN, file);
520 for (i = 0; i < curlen; i++) {
521 if (curname[i] == '\n') {
522 curname[i] = '\0';
523 break;
524 }
525 }
526 if (i == curlen) {
527 curname[curlen] = '\0';
528 }
529 (void)fclose(file);
530 } else {
531 curname[0] = '\0';
532 }
533 if (strcmp(curname, nodenm) != 0) {
534 if ((file = fopen("/etc/nodename", "w")) == NULL) {
535 (void) fprintf(stderr, "setuname: error in writing name\n");
536 exit(1);
537 }
538 if (fprintf(file, "%s\n", nodenm) < 0) {
539 (void) fprintf(stderr, "setuname: error in writing name\n");
540 exit(1);
541 }
542 (void)fclose(file);
543 }
544 }
545 /* Restore signal handling */
546 (void) signal(SIGHUP, oldsighup);
547 (void) signal(SIGINT, oldsigint);
548 } /* if (!temp) */
549
550 /* Fini */
551 return(rtncd);
552 }