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