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 /*
22 * Copyright 2020 Oxide Computer Company
23 * Copyright 2009 Sun Microsystems, Inc. All rights reserved.
24 * Use is subject to license terms.
25 */
26
27 /* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
28 /* All rights reserved. */
29
30
31 #include <sys/param.h>
32 #include <sys/types.h>
33 #include <sys/sysmacros.h>
34 #include <sys/systm.h>
35 #include <sys/tuneable.h>
36 #include <sys/errno.h>
37 #include <sys/cred.h>
38 #include <sys/utsname.h>
39 #include <sys/systeminfo.h>
40 #include <sys/unistd.h>
41 #include <sys/debug.h>
42 #include <sys/bootconf.h>
43 #include <sys/socket.h>
44 #include <sys/policy.h>
45 #include <net/if.h>
46 #include <sys/sunddi.h>
47 #include <sys/promif.h>
48 #include <sys/zone.h>
49 #include <sys/model.h>
50 #include <netinet/inetutil.h>
51
52 static void get_netif_name(char *, char *);
53
54 long
systeminfo(int command,char * buf,long count)55 systeminfo(int command, char *buf, long count)
56 {
57 int error = 0;
58 long strcnt, getcnt;
59 char *kstr;
60 char hostidp[HW_HOSTID_LEN];
61
62 if (count < 0 && command != SI_SET_HOSTNAME &&
63 command != SI_SET_SRPC_DOMAIN)
64 return (set_errno(EINVAL));
65
66 /*
67 * Deal with the common "get a string" case first.
68 */
69 switch (command) {
70 case SI_SYSNAME:
71 kstr = utsname.sysname;
72 break;
73 case SI_HOSTNAME:
74 kstr = uts_nodename();
75 break;
76 case SI_RELEASE:
77 kstr = utsname.release;
78 break;
79 case SI_VERSION:
80 kstr = utsname.version;
81 break;
82 case SI_MACHINE:
83 kstr = utsname.machine;
84 break;
85 #ifdef _LP64
86 case SI_ADDRESS_WIDTH:
87 kstr = "64";
88 break;
89 case SI_ARCHITECTURE_64:
90 case SI_ARCHITECTURE_K:
91 kstr = architecture;
92 break;
93 case SI_ARCHITECTURE_32:
94 case SI_ARCHITECTURE:
95 kstr = architecture_32;
96 break;
97 case SI_ARCHITECTURE_NATIVE:
98 kstr = get_udatamodel() == DATAMODEL_NATIVE ?
99 architecture : architecture_32;
100 break;
101 #else
102 case SI_ADDRESS_WIDTH:
103 kstr = "32";
104 break;
105 case SI_ARCHITECTURE_K:
106 case SI_ARCHITECTURE_32:
107 case SI_ARCHITECTURE:
108 case SI_ARCHITECTURE_NATIVE:
109 kstr = architecture;
110 break;
111 #endif
112 case SI_HW_SERIAL:
113 (void) snprintf(hostidp, sizeof (hostidp), "%u",
114 zone_get_hostid(curzone));
115 kstr = hostidp;
116 break;
117 case SI_HW_PROVIDER:
118 kstr = hw_provider;
119 break;
120 case SI_SRPC_DOMAIN:
121 kstr = curproc->p_zone->zone_domain;
122 break;
123 case SI_PLATFORM:
124 kstr = platform;
125 break;
126 case SI_ISALIST:
127 kstr = isa_list;
128 break;
129 default:
130 kstr = NULL;
131 break;
132 }
133
134 if (kstr != NULL) {
135 strcnt = strlen(kstr);
136 if (count > 0) {
137 if (count <= strcnt) {
138 getcnt = count - 1;
139 if (subyte(buf + getcnt, 0) < 0)
140 return (set_errno(EFAULT));
141 } else {
142 getcnt = strcnt + 1;
143 }
144 if (copyout(kstr, buf, getcnt))
145 return (set_errno(EFAULT));
146 }
147 return (strcnt + 1);
148 }
149
150 switch (command) {
151 case SI_DHCP_CACHE:
152 {
153 char *tmp;
154 unsigned int tlen, octlen;
155
156 if (dhcack == NULL) {
157 tmp = "";
158 strcnt = 0;
159 } else {
160 /*
161 * If the interface didn't have a name (bindable
162 * driver) to begin with, it might have one now.
163 * So, re-run strplumb_get_netdev_path() to see
164 * if one can be established at this time.
165 */
166 if (netdev_path == NULL || netdev_path[0] == '\0') {
167 netdev_path = strplumb_get_netdev_path();
168 }
169 /*
170 * If the interface name has not yet been resolved
171 * and a validnetdev_path[] was stashed by
172 * loadrootmodules in swapgeneric.c, or established
173 * above, resolve the interface name now.
174 */
175 if (dhcifname[0] == '\0' &&
176 netdev_path != NULL && netdev_path[0] != '\0') {
177 get_netif_name(netdev_path, dhcifname);
178 }
179
180 /*
181 * Form reply:
182 * IFNAMESIZ array of dhcp i/f
183 * hexascii representation of dhcp reply
184 */
185 octlen = dhcacklen * 2 + 1;
186 tlen = octlen + IFNAMSIZ;
187 tmp = kmem_alloc(tlen, KM_SLEEP);
188 (void) strncpy(tmp, dhcifname, IFNAMSIZ);
189 if (octet_to_hexascii(dhcack, dhcacklen,
190 &tmp[IFNAMSIZ], &octlen) != 0) {
191 kmem_free(tmp, tlen);
192 error = EINVAL;
193 break;
194 } else {
195 strcnt = IFNAMSIZ + octlen;
196 }
197 }
198
199 if (count > 0) {
200 if (count <= strcnt) {
201 getcnt = count - 1;
202 if (subyte((buf + getcnt), 0) < 0)
203 goto fail;
204 } else {
205 getcnt = strcnt + 1;
206 }
207 if (copyout(tmp, buf, getcnt))
208 goto fail;
209 }
210 if (strcnt != 0)
211 kmem_free(tmp, tlen);
212 return (strcnt + 1);
213 fail:
214 if (strcnt != 0)
215 kmem_free(tmp, tlen);
216 error = EFAULT;
217 break;
218 }
219
220 case SI_SET_HOSTNAME:
221 {
222 size_t len;
223 char name[SYS_NMLN];
224 char *name_to_use;
225
226 if ((error = secpolicy_systeminfo(CRED())) != 0)
227 break;
228
229 name_to_use = uts_nodename();
230 if ((error = copyinstr(buf, name, SYS_NMLN, &len)) != 0)
231 break;
232
233 /*
234 * Must be non-NULL string and string
235 * must be less than SYS_NMLN chars.
236 */
237 if (len < 2 || (len == SYS_NMLN && name[SYS_NMLN-1] != '\0')) {
238 error = EINVAL;
239 break;
240 }
241
242 /*
243 * Copy the name into the relevant zone's nodename.
244 */
245 (void) strcpy(name_to_use, name);
246
247 /*
248 * Notify other interested parties that the nodename was set
249 */
250 if (name_to_use == utsname.nodename) /* global zone nodename */
251 nodename_set();
252
253 return (len);
254 }
255
256 case SI_SET_SRPC_DOMAIN:
257 {
258 char name[SYS_NMLN];
259 size_t len;
260
261 if ((error = secpolicy_systeminfo(CRED())) != 0)
262 break;
263 if ((error = copyinstr(buf, name, SYS_NMLN, &len)) != 0)
264 break;
265 /*
266 * If string passed in is longer than length
267 * allowed for domain name, fail.
268 */
269 if (len == SYS_NMLN && name[SYS_NMLN-1] != '\0') {
270 error = EINVAL;
271 break;
272 }
273
274 (void) strcpy(curproc->p_zone->zone_domain, name);
275 return (len);
276 }
277
278 default:
279 error = EINVAL;
280 break;
281 }
282
283 return (set_errno(error));
284 }
285
286 /*
287 * i_path_find_node: Internal routine used by path_to_devinfo
288 * to locate a given nodeid in the device tree.
289 */
290 struct i_path_findnode {
291 pnode_t nodeid;
292 dev_info_t *dip;
293 };
294
295 static int
i_path_find_node(dev_info_t * dev,void * arg)296 i_path_find_node(dev_info_t *dev, void *arg)
297 {
298 struct i_path_findnode *f = (struct i_path_findnode *)arg;
299
300
301 if (ddi_get_nodeid(dev) == (int)f->nodeid) {
302 f->dip = dev;
303 return (DDI_WALK_TERMINATE);
304 }
305 return (DDI_WALK_CONTINUE);
306 }
307
308 /*
309 * Return the devinfo node to a boot device
310 */
311 static dev_info_t *
path_to_devinfo(char * path)312 path_to_devinfo(char *path)
313 {
314 struct i_path_findnode fn;
315 extern dev_info_t *top_devinfo;
316
317 /*
318 * Get the nodeid of the given pathname, if such a mapping exists.
319 */
320 fn.dip = NULL;
321 fn.nodeid = prom_finddevice(path);
322 if (fn.nodeid != OBP_BADNODE) {
323 /*
324 * Find the nodeid in our copy of the device tree and return
325 * whatever name we used to bind this node to a driver.
326 */
327 ddi_walk_devs(top_devinfo, i_path_find_node, (void *)(&fn));
328 }
329
330 return (fn.dip);
331 }
332
333 /*
334 * Determine the network interface name from the device path argument.
335 */
336 static void
get_netif_name(char * devname,char * ifname)337 get_netif_name(char *devname, char *ifname)
338 {
339 dev_info_t *dip;
340 major_t ndev;
341 char *name;
342 int unit;
343
344 dip = path_to_devinfo(devname);
345 if (dip == NULL) {
346 cmn_err(CE_WARN, "get_netif_name: "
347 "can't bind driver for '%s'\n", devname);
348 return;
349 }
350
351 ndev = ddi_driver_major(dip);
352 if (ndev == -1) {
353 cmn_err(CE_WARN, "get_netif_name: "
354 "no driver bound to '%s'\n", devname);
355 return;
356 }
357
358 name = ddi_major_to_name(ndev);
359 if (name == NULL) {
360 cmn_err(CE_WARN, "get_netif_name: "
361 "no name for major number %d\n", ndev);
362 return;
363 }
364
365 unit = i_ddi_devi_get_ppa(dip);
366 if (unit < 0) {
367 cmn_err(CE_WARN, "get_netif_name: "
368 "illegal unit number %d\n", unit);
369 return;
370 }
371
372 (void) snprintf(ifname, IFNAMSIZ, "%s%d", name, unit);
373 }
374